/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 Sat Jun 15 17:49:27 CEST 2024.