TESTS: Better, but not perfect, startup and cleanup of each test

Author: HenrikBengtsson

tests/incl/end.R

@@ -1,4 +1,49 @@
-## Restore original state
-options(oopts)
+## Undo future strategy
 future::plan(oplan)
+
+
+## Undo options
+## (a) Added
+added <- setdiff(names(options()), names(oopts0))
+opts <- vector("list", length = length(added))
+names(opts) <- added
+options(opts)
+## (b) Modified
+options(oopts)
+## (c) Removed, e.g. future.plan=NULL
+removed <- setdiff(names(oopts0), names(options()))
+opts <- oopts0[removed]
+options(opts)
+## (d) Assert that everything was undone
+stopifnot(identical(options(), oopts0))
+
+
+## Undo system environment variables
+## (a) Added
+cenvs <- Sys.getenv()
+added <- setdiff(names(cenvs), names(oenvs0))
+for (name in added) Sys.unsetenv(name)
+## (b) Missing
+missing <- setdiff(names(oenvs0), names(cenvs))
+if (length(missing) > 0) do.call(Sys.setenv, as.list(oenvs0[missing]))
+## (c) Modified?
+for (name in intersect(names(cenvs), names(oenvs0))) {
+  ## WORKAROUND: On Linux Wine, base::Sys.getenv() may
+  ## return elements with empty names. /HB 2016-10-06
+  if (nchar(name) == 0) next
+  if (!identical(cenvs[[name]], oenvs0[[name]])) {
+    do.call(Sys.setenv, as.list(oenvs0[name]))
+  }
+}
+## (d) Assert that everything was undone
+stopifnot(identical(Sys.getenv(), oenvs0))
+
+
+## Undo variables
 rm(list = c(setdiff(ls(), ovars)))
+
+
+## Travis CI specific: Explicit garbage collection because it
+## looks like Travis CI might run out of memory during 'covr'
+## testing and we now have so many tests. /HB 2017-01-11
+if ("covr" %in% loadedNamespaces()) gc()

tests/incl/start,load-only.R

@@ -1,10 +1,23 @@
 ## Record original state
 ovars <- ls()
+oenvs <- oenvs0 <- Sys.getenv()
+oopts0 <- options()
+
+covr_testing <- ("covr" %in% loadedNamespaces())
+on_solaris <- grepl("^solaris", R.version$os)
+on_macos <- grepl("^darwin", R.version$os)
+on_githubactions <- as.logical(Sys.getenv("GITHUB_ACTIONS", "FALSE"))
+
+## Default options
 oopts <- options(
   warn = 1L,
   mc.cores = 2L,
   future.debug = FALSE,
-  future.wait.interval = 0.1  ## Speed up await() and delete()
+  future.wait.interval = 0.1,  ## Speed up await() and delete()
+  ## Reset the following during testing in case
+  ## they are set on the test system
+  future.availableCores.system = NULL,
+  future.availableCores.fallback = NULL
 )
 oopts$future.delete <- getOption("future.delete")
 oplan <- future::plan()