tests/testthat/test-debit-plot.R

In lhdjung/scrutiny: Error Detection in Science

plot1 <- pigs3 %>%
  debit_map() %>%
  debit_plot()


test_that("`debit_plot()` returns a ggplot object", {
  plot1 %>%  expect_s3_class("ggplot")
})

test_that("The S3 inheritance check works correctly", {
  mtcars %>% debit_plot() %>% expect_error()
})