tests/testthat/test_set_logicals.R

test_that("construction", {
  expect_silent(Logicals$new())
  l <- Logicals$new()
  expect_equal(l$elements, list(TRUE, FALSE))
  expect_equal(l$min, NaN)
  expect_equal(l$max, NaN)
  expect_equal(l$lower, TRUE)
  expect_equal(l$upper, FALSE)
})
xoopR/set6 documentation built on Sept. 2, 2023, 4:45 a.m.