tests/testthat/test-zzz.R

context("zzz")

test_that(".onAttach does not modify the random stream", {
  set.seed(42)
  x <- runif(5)
  set.seed(42)
  .onAttach()
  expect_equal(runif(5), x)
})
jayhesselberth/ggplot2-search documentation built on May 9, 2019, 8:06 p.m.