From 68ac736a06c3a3d41b97edbcef2683f551f45d74 Mon Sep 17 00:00:00 2001
From: aassuied-ps <123543888+aassuied-ps@users.noreply.github.com>
Date: Thu, 21 Nov 2024 10:55:19 +0100
Subject: [PATCH] Add tests

---
 tests/testthat/test-fda-table_32.R | 7 +++++++
 tests/testthat/test-fda-table_33.R | 7 +++++++
 2 files changed, 14 insertions(+)

diff --git a/tests/testthat/test-fda-table_32.R b/tests/testthat/test-fda-table_32.R
index c62e0598..7dd023f8 100644
--- 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
index 4ad30d5a..d9828133 100644
--- 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,