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 May 29, 2024, 5:28 a.m.