/usr/share/doc/r-cran-ggplot2/tests/testthat/test-zzz.R

test_that(".onAttach does not modify the random stream", {
  set.seed(42)
  x <- runif(5)
  set.seed(42)
  .onAttach()
  expect_equal(runif(5), x)
})

Generated by dwww version 1.15 on Fri Jun 21 07:43:08 CEST 2024.