restructured test start for repo init and repo actions

eddelbuettel · Apr 8, 2021 · af229c3 · af229c3
1 parent ba62b14
commit af229c3
Showing 1 changed file with 10 additions and 7 deletions.
diff --git a/tests/skeleton_git2r.R b/tests/skeleton_git2r.R
@@ -266,13 +266,16 @@ testRepoActions <- function(repodir){
   }
 }
 
+runTest <- function(wd, location = "gh-pages"){
+  options("dratBranch" = location)
+  repodir <- testSkeletonGit2r(wd)
+  testRepoActions(repodir)
+  unlink(file.path(wd,"foo"), recursive = TRUE)
+  unlink(file.path(wd,"drat"), recursive = TRUE)
+}
+
 wd <- tempdir()
 if (requireNamespace("git2r", quietly=TRUE)) {
-    options("dratBranch" = "gh-pages")
-    repodir <- testSkeletonGit2r(wd)
-    testRepoActions(repodir)
-    unlink(file.path(wd,"drat"), recursive = TRUE)
+  runTest(wd, "gh-pages")
 }
-options("dratBranch" = "docs")
-repodir <- testSkeletonGit2r(wd)
-testRepoActions(repodir)
+runTest(wd, "docs")