tests/testthat/test-cpp-rtrunc.R

context("rtrunc.cpp unit tests")

test_that("rtrunc_repeat", {
  lower <- 5; upper <- 8
  r <- replicate(10, hesim:::C_test_rtrunc_repeat(lower, upper))
  expect_true(all(r >= lower & r <= upper))
})
hesim-dev/hesim documentation built on Feb. 14, 2024, 1:18 a.m.