tests/testthat/test-special.R

In S7: An Object Oriented System Meant to Become a Successor to S3 and S4

test_that("can test and print", {
  expect_true(is_class_missing(class_missing))
  expect_false(is_class_missing(class_any))
  expect_true(is_class_any(class_any))
  expect_false(is_class_any(class_missing))

  expect_snapshot({
    print(class_missing)
    print(class_any)

    str(list(m = class_missing, a = class_any))
  })
})