tests/testthat/test_Id.R

context("Id")

test_that("Id", {
  # constructor
  i <- new_id()
  # methods
  i
  print(i)
  as.character(i)
  expect_true(inherits(i, "Id"))
  expect_true(i == i)
  expect_false(i == new_id())
})

Try the oppr package in your browser

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

oppr documentation built on Sept. 8, 2022, 5:07 p.m.