inst/example_packages/exampleGood/tests/testthat/test-s4-example.R

test_that("S4Example names", {
  expect_silent(s4ex <- S4Example(data = list(a = 1, b = 2)))
  expect_equal(names(s4ex), c("a", "b"))
})

Try the checked package in your browser

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

checked documentation built on June 10, 2025, 9:08 a.m.