tests/testthat/test-int_to_intMask.R

test_that("int_to_intMask works", {
  expect_error(int_to_intMask(42, 33))
  expect_error(int_to_intMask(42, -1))
  expect_equal(int_to_intMask(42, 16), c(0,1,0,1,0,1,0,0,0,0,0,0,0,0,0,0))
  # otherwise adequately tested by increasing_search and fe_searchv
})

Try the sr package in your browser

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

sr documentation built on March 31, 2023, 9:40 p.m.