add tests

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: githist
 Title: Code analyses traced along the 'git' history of a package
-Version: 0.0.1.014
+Version: 0.0.1.015
 Authors@R: 
     person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))
@@ -16,6 +16,8 @@ Imports:
     gert,
     pbapply,
     pkgstats
+Suggests:
+    testthat (>= 3.0.0)
 Remotes:
     ropensci-review-tools/pkgstats
 Config/testthat/edition: 3

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.0.1.014",
+  "version": "0.0.1.015",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",

tests/testthat.R

@@ -0,0 +1,12 @@
+# This file is part of the standard setup for testthat.
+# It is recommended that you do not modify it.
+#
+# Where should you do additional test configuration?
+# Learn more about the roles of various files in:
+# * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
+# * https://testthat.r-lib.org/articles/special-files.html
+
+library (testthat)
+library (githist)
+
+test_check ("githist")

tests/testthat/test-testpkg.R

@@ -0,0 +1,12 @@
+test_that ("testpkg", {
+    pkg <- system.file ("extdata", "testpkg.zip", package = "githist")
+    flist <- unzip (pkg, exdir = fs::path_temp ())
+    path <- fs::path_dir (flist [1])
+
+    res <- githist (path)
+
+    expect_type (res, "list")
+    expect_length (res, 3L)
+    expect_identical (names (res), c ("desc_data", "loc", "stats"))
+    expect_true (all (vapply (res, nrow, integer (1L)) > 1L))
+})