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")
})
r-lib/sloop documentation built on Nov. 4, 2023, 4:20 a.m.