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 Nov. 3, 2023, 9:21 a.m.