tests/testthat/test-build-maps-icd9-quan.R

In icd: Comorbidity Calculations and Tools for ICD-9 and ICD-10 Codes

context("build icd9 maps")

skip_slow("Skipping slow re-building of ICD-9 comorbidity maps (quan)")

test_that("ahrq icd9 map recreated", {
  skip_no_icd_data_raw(
    fun = icd9_fetch_ahrq_sas,
    msg = "comformat2012-2013 must be downloaded with icd9_fetch_ahrq_sas()"
  )
  # same but from source data. Should be absolutely identical.
  expect_identical(
    result <- icd9_parse_ahrq_sas(save_pkg_data = FALSE), icd9_map_ahrq
  )
  expect_is(result, "list")
  expect_equal(length(result), 30)
  expect_equivalent(get_invalid.comorbidity_map(icd9_map_ahrq), list())
})

test_that("Quan Charlson icd9 map generated = saved", {
  skip_no_icd_data_raw(
    .dl_icd9_quan_deyo_sas,
    "ICD9_E_Charlson.sas must be downloaded with .dl_icd9_quan_deyo_sas"
  )
  expect_equivalent(
    icd9_map_quan_deyo, icd9_parse_quan_deyo_sas(save_pkg_data = FALSE)
  )
  expect_equivalent(
    get_invalid.comorbidity_map(icd9_map_quan_deyo, short_code = TRUE),
    list()
  )
})

test_that("Quan Elix icd9 map generated = saved", {
  expect_equivalent(
    icd9_map_quan_elix,
    icd9_generate_map_quan_elix(save_pkg_data = FALSE)
  )
  expect_equivalent(
    get_invalid.comorbidity_map(icd9_map_quan_elix, short_code = TRUE),
    list()
  )
})

test_that("Elixhauser icd9 map generated = saved", {
  expect_equivalent(
    icd9_map_elix,
    icd9_generate_map_elix(save_pkg_data = FALSE)
  )
  expect_equivalent(
    get_invalid.comorbidity_map(icd9_map_elix, short_code = TRUE),
    list()
  )
})