tests/testthat/test-mockVocabRef.R

In CodelistGenerator: Identify Relevant Clinical Codes and Evaluate Their Use

test_that("mock vocab db", {
  cdmDb <- mockVocabRef("database")
  cdmDF <- mockVocabRef("data_frame")

  conceptFromDb <- cdmDb$concept %>% dplyr::collect()
  conceptFromDf <- cdmDF$concept %>% dplyr::collect()

  expect_equal(conceptFromDb,
                    conceptFromDf,
                    ignore_attr = TRUE)

  CDMConnector::cdm_disconnect(cdm = cdmDb)
  })