tests/testthat/test_apa_print.R

context("apa_print()")

test_that(
  "Default method"
  , {
    unknown_object <- list()
    class(unknown_object) <- "foobar"
    expect_error(apa_print(unknown_object), regexp = "github.com/crsh/papaja/issues ")
  }
)
crsh/papaja documentation built on Feb. 21, 2024, 6:11 p.m.