tests/testthat/test-cdisc_join_keys.R

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

testthat::test_that("default_cdisc_join_keys is assigned in package environment", {
  testthat::expect_true(exists("default_cdisc_join_keys"))
  testthat::expect_gt(length(default_cdisc_join_keys), 0)
})

testthat::test_that("default_cdisc_join_keys subsetting of datasets with parent is valid", {
  # indirect test to build_cdisc_join_keys
  ds <- c("ADTTE", "ADSL")
  result <- default_cdisc_join_keys[ds]
  testthat::expect_length(result, 2)
  testthat::expect_length(parents(result), 1)
})

testthat::test_that("default_cdisc_join_keys subsetting of dataset without parent contains parent", {
  # indirect test to build_cdisc_join_keys
  ds <- c("ADTTE", "ADEX", "ADRS")
  result <- default_cdisc_join_keys[ds]
  testthat::expect_length(result, 4)
  testthat::expect_length(parents(result), 3)
})