tests/testthat/test-create_S3_methods.R

context("Create S3 methods")

test_that("create_s3_method", {
  expect_is(create_s3_method(), "function")
  expect_is(create_s3_method(`-`), "function")
  expect_is(create_s3_method(`-.pin`), "function")
})

Try the sweidnumbr package in your browser

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

sweidnumbr documentation built on March 31, 2020, 5:24 p.m.