tests/testthat/test-potions-class.R

test_that("potions objects are created with correct slots", {
  x <- create_potions()
  expect_equal(names(x), c("mapping", "slots", "packages"))
  expect_equal(unlist(lengths(x)), c(mapping = 2, slots = 0, packages = 0))
  expect_true(inherits(x, "potions"))
})

Try the potions package in your browser

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

potions documentation built on Aug. 23, 2023, 9:07 a.m.