tests/testthat/test-support-for-tests.R

In xportr: Utilities to Output CDISC SDTM/ADaM XPT Files

# minimal_table ----
## Test 1: minimal_table: builds minimal data frame with data ----
test_that("support-for-tests Test 1: builds minimal data frame with data", {
  minimal_table(31) %>%
    NROW() %>%
    expect_equal(31)

  (colnames(minimal_table(31)) %in% c("x", "y")) %>%
    all() %>%
    expect_true()
})

# minimal_metadata ----
## Test 2: minimal_metadata: builds minimal metadata data frame ----
test_that("support-for-tests Test 2: builds minimal metadata data frame", {
  sample_metadata <- minimal_metadata(
    dataset = TRUE,
    length = TRUE,
    label = TRUE,
    type = TRUE,
    format = TRUE,
    order = TRUE
  )

  (sample_metadata$variable %in% c("x", "y", "z", "a", "b", "c", "d")) %>%
    all() %>%
    expect_true()
})

## Test 3: minimal_metadata: columns in minimal_table are all in metadata ----
test_that("support-for-tests Test 3: columns in minimal_table are all in metadata", {
  sample_data <- minimal_table(31, cols = c("x", "y", "z", "a", "b", "c", "d"))
  sample_metadata <- minimal_metadata(dataset = TRUE)
  (colnames(sample_data) %in% sample_metadata$variable) %>%
    all() %>%
    expect_true()
})