Add tests for mice plotting functions

amices · Mar 14, 2022 · 56f7dc9 · 56f7dc9
1 parent e494cdc
commit 56f7dc9
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 0 deletions.
diff --git a/tests/testthat/test-old_friends.R b/tests/testthat/test-old_friends.R
@@ -0,0 +1,15 @@
+test_that("set of old friends functions generate plot", {
+  imp <- mice::mice(mice::nhanes, printFlag = FALSE)
+  expect_s3_class(bwplot(imp), "trellis")
+  expect_s3_class(densityplot(imp), "trellis")
+  expect_s3_class(stripplot(imp), "trellis")
+  expect_s3_class(xyplot(imp, bmi~age), "trellis")
+})
+
+test_that("set of old friends functions generate message", {
+  imp <- mice::mice(mice::nhanes, printFlag = FALSE)
+  expect_message(bwplot(imp))
+  expect_message(densityplot(imp))
+  expect_message(stripplot(imp))
+  expect_message(xyplot(imp, bmi~age))
+})
diff --git a/tests/testthat/test-pred.R → tests/testthat/test-plot_functions.R b/tests/testthat/test-pred.R → tests/testthat/test-plot_functions.R