test

easystats · Mar 12, 2024 · f17f071 · f17f071
1 parent 8084d93
commit f17f071
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/tests/testthat/test-apply_table_theme.R b/tests/testthat/test-apply_table_theme.R
@@ -0,0 +1,10 @@
+skip_if_not_installed("tinytable", minimum_version = "0.1.0")
+
+test_that("apply_table_theme", {
+  x <- mtcars[1:4, 1:3]
+  out <- tinytable::tt(x)
+  out@output <- "html"
+  expect_s4_class(apply_table_theme(out, x, theme = "bootstrap"), "tinytable")
+  expect_s4_class(apply_table_theme(out, x, theme = "darklines"), "tinytable")
+  expect_s4_class(apply_table_theme(out, x, theme = NULL), "tinytable")
+})