Merge pull request #206 from ropensci-review-tools/tests

add conditional 'on_r_univ' explicit clean-up of test dirs to fix #205

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: repometrics
 Title: Metrics for Your Code Repository
-Version: 0.2.1.057
+Version: 0.2.1.058
 Authors@R: 
     person("Mark", "Padgham", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))

codemeta.json

@@ -8,7 +8,7 @@
   "codeRepository": "https://github.com/ropensci-review-tools/repometrics",
   "issueTracker": "https://github.com/ropensci-review-tools/repometrics/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.2.1.057",
+  "version": "0.2.1.058",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",

tests/testthat/helper-temp-pkg.R

@@ -1,9 +1,17 @@
 generate_test_pkg <- function () {
 
+    on_r_univ <- nzchar (Sys.getenv ("MY_UNIVERSE"))
+
     pkg <- system.file ("extdata", "testpkg.zip", package = "repometrics")
     pkg_dest <- fs::path (fs::path_temp (), "testpkg")
     if (fs::dir_exists (pkg_dest)) {
-        stop ("test package already exists", call. = FALSE)
+        if (on_r_univ) {
+            # For some reason, directories are not properly cleaned up on
+            # r-univ machines, so this fn always fails.
+            fs::dir_delete (pkg_dest)
+        } else {
+            stop ("test package already exists", call. = FALSE)
+        }
     }
     flist <- unzip (pkg, exdir = fs::path_temp ())