add test cases

adding test cases to increase coverage
insightsengineering · Sep 23, 2022 · 997c3d1 · 997c3d1
1 parent 74a27fd
commit 997c3d1
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/testthat/test-utils.R b/tests/testthat/test-utils.R
@@ -3,4 +3,10 @@ testthat::test_that("get_teal_bs_theme", {
   withr::with_options(list("teal.bs_theme" = bslib::bs_theme(version = "5")), {
     testthat::expect_s3_class(get_teal_bs_theme(), "bs_theme")
   })
+  withr::with_options(list("teal.bs_theme" = 1), {
+    testthat::expect_warning(get_teal_bs_theme(), "the default shiny bootstrap is used")
+  })
+  withr::with_options(list("teal.bs_theme" = "bs_theme"), {
+    testthat::expect_warning(get_teal_bs_theme(), "the default shiny bootstrap is used")
+  })
 })