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