tests/testthat/test-int2set.R

x <- list(1:2, 3:5, 2:4)
n <- set2int(x)
x2 <- int2set(n)
n2 <- set2int(x2)

test_that("integer set representation works", {
  expect_equal(x, x2)
  expect_equal(n, n2)
})
rje42/rje documentation built on April 3, 2024, 11:08 p.m.