extend tests for #11

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: githist
 Title: Code analyses traced along the 'git' history of a package
-Version: 0.1.0.043
+Version: 0.1.0.044
 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.43",
+  "version": "0.1.0.044",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",
@@ -223,10 +223,13 @@
       "name": "pkgstats",
       "sameAs": "https://github.com/ropensci-review-tools/pkgstats"
     },
-    "SystemRequirements": null
+    "SystemRequirements": {}
   },
   "fileSize": "90.739KB",
   "readme": "https://github.com/ropensci-review-tools/githist/blob/main/README.md",
-  "contIntegration": ["https://github.com/ropensci-review-tools/githist/actions?query=workflow%3AR-CMD-check", "https://app.codecov.io/gh/ropensci-review-tools/githist"],
+  "contIntegration": [
+    "https://github.com/ropensci-review-tools/githist/actions?query=workflow%3AR-CMD-check",
+    "https://app.codecov.io/gh/ropensci-review-tools/githist"
+  ],
   "developmentStatus": "https://www.repostatus.org/#active"
 }

tests/testthat/test-chaoss-metrics-external.R

@@ -1,3 +1,14 @@
+test_that ("chaoss external util fns", {
+    pkg <- system.file ("extdata", "testpkg.zip", package = "githist")
+    flist <- unzip (pkg, exdir = fs::path_temp ())
+    path <- fs::path_dir (flist [1])
+
+    pkg_name <- pkg_name_from_path (path)
+    expect_equal (pkg_name, "testpkg")
+
+    fs::dir_delete (path)
+})
+
 test_that ("chaoss external cran_downloads", {
 
     pkg_name <- "goodpractice"

tests/testthat/test-testpkg.R

@@ -47,4 +47,13 @@ test_that ("githist parameters", {
         length (res2$desc_dat$date),
         length (unique (res2$desc_data$date))
     )
+
+    # Finally, test step_days > 1, which has no effect anyway, as all commits
+    # are on same day
+    flist <- unzip (pkg, exdir = fs::path_temp ())
+    res3 <- githist (path, n = 2L, step_days = 2L, num_cores = 1L)
+    fs::dir_delete (path)
+
+    n3 <- vapply (res3, nrow, integer (1L))
+    expect_equal (n2, n3)
 })