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 ")
  }
)

Try the papaja package in your browser

Any scripts or data that you put into this service are public.

papaja documentation built on Sept. 29, 2023, 9:07 a.m.