tests/testthat/test-otype.R

test_that("otype yields correct value for sample inputs", {
  expect_equal(otype(1:10), "base")
  expect_equal(otype(mtcars), "S3")
})
hadley/sloop documentation built on Oct. 22, 2024, 2:34 a.m.