tests/testthat/test_wikipedia.R

In globalgov/qData: A Portal for Global Governance Data

# Test if  meets the many packages universe requirements

test_that("missing observations are reported correctly", {
  expect_false(any(grepl("^n/a$", emperors[["wikipedia"]])))
  expect_false(any(grepl("^N/A$", emperors[["wikipedia"]])))
  expect_false(any(grepl("^\\s$", emperors[["wikipedia"]])))
  expect_false(any(grepl("^\\.$", emperors[["wikipedia"]])))
  expect_false(any(grepl("N\\.A\\.$", emperors[["wikipedia"]])))
  expect_false(any(grepl("n\\.a\\.$", emperors[["wikipedia"]])))
})

test_that("a column indicating an ID source exists", {
  expect_true(any(grepl("ID", colnames(emperors[["wikipedia"]]))))
})

test_that("Columns with dates are standardized", {
  if (!is.null(emperors[["wikipedia"]]$Begin)) {
    expect_equal(class(emperors[["wikipedia"]]$Begin), "mdate")
    expect_false(any(grepl("/", emperors[["wikipedia"]]$Begin)))
    expect_false(any(grepl("^[:alpha:]$",
                           emperors[["wikipedia"]]$Begin)))
  }
  if (!is.null(emperors[["wikipedia"]]$End)) {
    expect_equal(class(emperors[["wikipedia"]]$End), "mdate")
    expect_false(any(grepl("/", emperors[["wikipedia"]]$End)))
    expect_false(any(grepl("^[:alpha:]$",
                           emperors[["wikipedia"]]$End)))
  }
})

test_that("dataset is arranged by date variable", {
  if (!is.null(emperors[["wikipedia"]]$Begin)) {
    expect_true(emperors[["wikipedia"]]$Begin[10] <
                  emperors[["wikipedia"]]$Begin[20])
  }
})