tests/testthat/test-julia_rng.R

In jlmerclusterperm: Cluster-Based Permutation Analysis for Densely Sampled Time Data

testthat::skip_on_cran()

jlmerclusterperm_setup(cache_dir = tempdir(), restart = FALSE, verbose = FALSE)

test_that("RNG counter setter/getter", {
  expect_equal(set_rng_state(123), 123)
  expect_equal(get_rng_state(), 123)
})

test_that("RNG seed setter/getter", {
  expect_equal(set_rng_seed(2), 2)
  expect_equal(get_rng_seed(), 2)
})

test_that("RNG restore", {
  set_rng_seed(1)
  expect_equal(reset_rng_state(), 0)
  expect_equal(get_rng_seed(), 1)
  expect_equal(get_rng_state(), 0)
})

test_that("RNG generate random seed", {
  expect_message(rand_seed <- set_rng_seed(), "Using randomly generated seed")
  expect_equal(rand_seed, get_rng_seed())
})

set_rng_seed(1)
reset_rng_state()