tests/testthat/test_sample_shadowbolt.R

context("sample_shadowbolt")


test_that("sample_shadowbolt works as expected", {
  d <- sample_shadowbolt(50000)

  expect_length(d, 50000)
  expect_true(all(d >= 482))
  expect_true(all(d <= 538))
})
cphaarmeyer/warlockr documentation built on April 1, 2021, 12:31 a.m.