tests/testthat/test.concept_ancestors.R

In ramses-antibiotics/snomedizer: R Interface to the SNOMED CT Terminology Server REST API

test_that("concept_ancestors (order preserving)", {
  infections <- concept_ancestors(conceptIds = c("68566005", "233604007"),
                                   silent = TRUE)
  expect_equal(names(infections),
               c("68566005", "233604007"))
  infections <- concept_ancestors(conceptIds = c("233604007", "68566005"),
                                   silent = TRUE)
  expect_equal(names(infections),
               c("233604007", "68566005"))
})

test_that("concept_ancestors ", {
  infections <- concept_ancestors(conceptIds = c("233604007", "68566005"),
                                   silent = FALSE)
  expect_true(
    "205237003" %in% #pneumonitis
      infections[[1]]$conceptId
  )
  expect_false(
    "53084003" %in% #bacterial pneumonia
      infections[[1]]$conceptId
  )
  expect_false(
    "40733004" %in% #Infectious disease
      infections[[1]]$conceptId
  )
  expect_true(
    "40733004" %in% #Infectious disease
      infections[[2]]$conceptId
  )
  expect_warning(concept_ancestors(conceptIds = c("233604007", "68566005"), limit = 2))
  expect_is(
    infections <- concept_ancestors(conceptIds = c("233604007", "68566005"), limit = 300),
    "list"
  )

  expect_false("68566005" %in% infections$`68566005`$conceptId)
  expect_false("233604007" %in% infections$`233604007`$conceptId)
})


test_that("concept_ancestors (include_self)", {
  infections <- concept_ancestors(conceptIds = c("68566005", "233604007"),
                                   include_self = TRUE,
                                   silent = TRUE)
  expect_true("68566005" %in% infections$`68566005`$conceptId)
  expect_true("233604007" %in% infections$`233604007`$conceptId)
})