tests/testthat/test-aet02.R

In chevron: Standard TLGs for Clinical Trials Reporting

# aet02 ----

test_that("aet02 fails on incomplete data input", {
  proc_data <- syn_data
  proc_data$adae <- proc_data$adae %>%
    mutate(
      AEDECOD = NULL
    )

  expect_error(
    run(aet02, proc_data),
    "Column `AEDECOD` not found",
    fixed = TRUE
  )
})

test_that("aet02 handle empty data input", {
  skip_on_os("windows")
  proc_data <- syn_data
  proc_data$adae <- proc_data$adae %>%
    filter(
      AEDECOD == ""
    )

  expect_silent(run(aet02, proc_data))
})

test_that("aet02 can have different levels of row_split", {
  skip_on_os("windows")
  res1 <- run(aet02, syn_data, row_split_var = NULL)
  res2 <- run(aet02, syn_data, row_split_var = c("AEBODSYS", "AEDECOD"))
  expect_snapshot(cat(export_as_txt(res1, lpp = 100)))
  expect_snapshot(cat(export_as_txt(res2, lpp = 100)))
})