tests

ncullen93 · Dec 16, 2021 · 584dbcf · 584dbcf
1 parent d44d4af
commit 584dbcf
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 0 deletions.
diff --git a/tests/testthat/test-aba_fit.R b/tests/testthat/test-aba_fit.R
@@ -203,6 +203,18 @@ test_that("small data after processing throws an error", {
 
 })
 
+test_that("verbose works", {
+  expect_error(
+    m <- adnimerge %>%
+      aba_model(verbose = TRUE) %>%
+      set_outcomes(MMSE) %>%
+      set_covariates(AGE) %>%
+      set_stats('lm') %>%
+      aba_fit(),
+    NA
+  )
+})
+
 test_that("fit with only one value for each spec param works", {
 
   # no group & no predictors - should still work

diff --git a/tests/testthat/test-stat_mmrm.R b/tests/testthat/test-stat_mmrm.R
@@ -1,3 +1,11 @@
+test_that("print stat works", {
+  mmrm <- stat_mmrm(id = 'id', time = 'time', treatment = 'x')
+  expect_output(
+    print(mmrm),
+    NULL
+  )
+})
+
 test_that("standard mmrm works", {
 
   # fit