tests/testthat/test-cdisc_data.R

In teal.data: Data Model for 'teal' Applications

testthat::test_that("cdisc_data returns teal_data object with default join_keys for given dataset", {
  data <- cdisc_data(ADSL = data.frame())
  testthat::expect_s4_class(data, "teal_data")
  testthat::expect_identical(
    join_keys(data),
    default_cdisc_join_keys["ADSL"]
  )
})