Fix #234: random seed issues

well, not really fix, but at least add a test
that should fail if the random seed isn't handled
properly

NEWS.md

@@ -15,6 +15,7 @@
   now.
 * [#245](https://github.com/brodieG/unitizer/issues/245) Report parse warnings
   at prompt.
+* [#234](https://github.com/brodieG/unitizer/issues/234) Random seed issues.
 * Wrap `diffObj` call in `try` to avoid killing `unitizer` section when
   `diffObj` errors.
 * Modify `test_dir` calls to use `wrap` on `testthat` versions greater than

tests/testthat/helper/runtt.R

@@ -90,6 +90,7 @@ local({
     "prompt",
     "rename",
     "repairenvs",
+    "random",
     "search",
     "section",
     "shim",

tests/testthat/testthat.random.R

@@ -0,0 +1,21 @@
+
+context('random')
+
+test_that('random seed', {
+  dir <- tempfile()
+  file <- file.path(dir, 'randtest.R')
+  on.exit(unlink(dir, recursive=TRUE))
+
+  dir.create(dir)
+
+  cat('sample(1:100)\n', file=file)
+
+  set.seed(1)
+  capture.output(unitize(file, auto.accept='new'))
+
+  # changing seed should have no effect on result
+  set.seed(23)
+  capture.output(res <- unitize(file))
+
+  expect_equal(as.character(res$status), "Passed")
+})