tests/testthat/test-methods_added.R

In bluefoxr/COINr: Composite Indicator Construction and Analysis

test_that("print.coin", {

  coin <- build_example_coin(up_to = "Treat", quietly = TRUE)

  # manual check and compare to cached version
  expect_snapshot_output(print(coin))

})

test_that("print.purse", {

  purse <- build_example_purse(up_to = "Treat", quietly = TRUE)

  # manual check and compare to cached version
  expect_snapshot_output(print(purse))

})

test_that("is_methods", {

  coin <- build_example_coin(up_to = "new_coin", quietly = TRUE)
  expect_true(is.coin(coin))
  expect_false(is.coin(mtcars))

  purse <- build_example_purse(up_to = "new_coin", quietly = TRUE)
  expect_true(is.purse(purse))
  expect_false(is.purse(mtcars))

})