Add tests

Author: yoshidk6

tests/testthat/test-kfold_cv.R

@@ -25,6 +25,11 @@ if (.if_run_ex_eval_mod()) {
         c(".row", ".draw", "pred", "fold_id")
       )
       expect_equal(dim(cv_results$d_sim), c(100 * 1000, 4))
+
+      out <- cli::cli_fmt({
+        print(cv_results)
+      })
+      expect_true(any(grepl("k-fold Cross-Validation for ermod object", out)))
     })
   }
 }

tests/testthat/test-plot_ermod.R

@@ -161,6 +161,12 @@ test_that("plot_er with groups", {
       options_orig_data = list(var_group = "Dose_mg", add_boxplot = TRUE)
     ) |>
       expect_silent()
+
+    plot_er(ermod_bin,
+            show_orig_data = TRUE,
+            options_orig_data = list(add_boxplot = TRUE)
+    ) |>
+      expect_silent()
   }
 })