tests/testthat/test_Id.R

In oppr: Optimal Project Prioritization

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())
})