1context("zzz")
2
3test_that(".onAttach does not modify the random stream", {
4  set.seed(42)
5  x <- runif(5)
6  set.seed(42)
7  .onAttach()
8  expect_equal(runif(5), x)
9})
10