tests/testthat/test-check_rng_seed.R

In richelbilderbeek/beastier: Call 'BEAST2'

test_that("use", {
  expect_silent(check_rng_seed(1))
  expect_silent(check_rng_seed(NA))

  expect_error(
    check_rng_seed(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)),
    "'rng_seed' should be one value"
  )

  expect_error(
    check_rng_seed(0),
    "'rng_seed' should be one NA or one non-zero positive value"
  )
  expect_error(
    check_rng_seed(3.14),
    "is_one_int"
  )
  expect_error(check_rng_seed("nonsense"))
  expect_error(check_rng_seed(NULL))
  expect_error(check_rng_seed(Inf))
})