tests/testthat/test-who.R

In jackwasey/icd.data: International Classification of Diseases (ICD) Data

context("WHO")

test_that("No ranges or NA in code section of WHO data", {
  skip_on_cran()
  skip_on_travis()
  skip_on_appveyor()
  # assign somehow forces binding to work when doing R CMD check, otherwise it
  # tries to subset the function
  for (nm in c("icd10who2016", "icd10who2008fr")) {
    if (.offline() && !.exists_in_cache(nm)) {
      skip(paste(nm, "not available for testing."))
    }
    i <- .get_fetcher_fun(nm)()
    # structure tests
    expect_true(is.data.frame(i), info = nm)
    expect_false(any(grepl("-", i$code)), info = nm)
    expect_false(any(is.na(i$code)), info = nm)
    expect_false(any(is.na(i$leaf)), info = nm)
    expect_false(any(is.na(i$desc)), info = nm)
    expect_false(any(is.na(i$three_digit)), info = nm)
    expect_false(any(is.na(i$major)), info = nm)
    # sub_sub_chapter may be NA
    expect_false(any(is.na(i$sub_chapter)), info = nm)
    expect_false(any(is.na(i$chapter)), info = nm)
    # data tests
    expect_true(!anyDuplicated(i$code), info = nm)
  }
})