add 'test-multicore.R' for #1

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: githist
 Title: Code analyses traced along the 'git' history of a package
-Version: 0.1.0.033
+Version: 0.1.0.034
 Authors@R: 
     person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))

codemeta.json

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

tests/testthat/test-multicore.R

@@ -0,0 +1,17 @@
+test_that ("multicore", {
+    pkg <- system.file ("extdata", "testpkg.zip", package = "githist")
+    flist <- unzip (pkg, exdir = fs::path_temp ())
+    path <- fs::path_dir (flist [1])
+
+    res1 <- githist (path, num_cores = 1L)
+    # Becuase of hard reset of history, entire pkg dir needs to be deleted and
+    # re-created:
+    fs::dir_delete (path)
+
+    flist <- unzip (pkg, exdir = fs::path_temp ())
+    path <- fs::path_dir (flist [1])
+    res2 <- githist (path, num_cores = 2L)
+    fs::dir_delete (path)
+
+    expect_identical (res1, res2)
+})