Add tests

pharmaverse · Nov 21, 2024 · 68ac736 · 68ac736
1 parent 7521d0b
commit 68ac736
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/tests/testthat/test-fda-table_32.R b/tests/testthat/test-fda-table_32.R
@@ -56,6 +56,13 @@ test_that("Table 32 generation missing values and ADSL", {
 
 # rtables -----
 
+test_that("Table 32 generation works with default values", {
+  result <- make_table_32_rtables(advs)
+
+  res <- expect_silent(result)
+  expect_snapshot(res)
+})
+
 test_that("Table 32 generation works with custom values", {
   result <- make_table_32_rtables(
     advs,

diff --git a/tests/testthat/test-fda-table_33.R b/tests/testthat/test-fda-table_33.R
@@ -57,6 +57,13 @@ test_that("Table 33 generation missing values and ADSL", {
 
 # rtables -----
 
+test_that("Table 33 generation works with default values", {
+  result <- make_table_33_rtables(advs)
+
+  res <- expect_silent(result)
+  expect_snapshot(res)
+})
+
 test_that("Table 33 generation works with custom values", {
   result <- make_table_33_rtables(
     advs,