tests/testthat/test-s3.R

In gaborcsardi/argufy: Declerative Arguments Checks

context("Package with S3 functions")

test_that("Rd parsing", {

  map <- map_rd("pkg2")
  expect_equal(
    map,
    list(
      assert = list(foobar.graph = c(graph = "is.graph(.)")),
      coerce = list()
    )
  )
})

test_that("Package with S3", {

  test_package <- function() {
    library(pkg2)
    on.exit(unloadNamespace("pkg2"))

    x <- structure(1, class = "graph")
    expect_error(
      foobar(x),
      "is.graph.graph. is not TRUE"
    )
  }

  install_tmp_pkg("pkg2", test_package())
})