tests/testthat/test-otype.R

context("test-otype")

test_that("otype yields correct value for sample inputs", {
  expect_equal(otype(1:10), "base")
  expect_equal(otype(mtcars), "S3")
})

Try the sloop package in your browser

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

sloop documentation built on May 1, 2019, 10:30 p.m.