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")
})
rOpenGov/sweidnumbr documentation built on Jan. 19, 2024, noon