tests/testthat/test-old_friends.R

In amices/ggmice: Visualizations for 'mice' with 'ggplot2'

# create test objects
imp <- mice::mice(mice::nhanes, printFlag = FALSE)

# tests
test_that("set of old friends functions generate message", {
  expect_message(bwplot(imp))
  expect_message(densityplot(imp))
  expect_message(stripplot(imp))
  expect_message(xyplot(imp, bmi ~ age))
})

test_that("set of old friends functions generate plot", {
  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")
})