split 'test-cm-data' -> 'git' + 'github' versions for #23

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: repometrics
 Title: Metrics for Your Code Repository
-Version: 0.1.1.052
+Version: 0.1.1.053
 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/repometrics",
   "issueTracker": "https://github.com/ropensci-review-tools/repometrics/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.1.1.052",
+  "version": "0.1.1.053",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",

tests/testthat/test-cm-data-git.R

@@ -0,0 +1,44 @@
+test_that ("cm data git", {
+
+    path <- generate_test_pkg ()
+
+    log <- cm_data_gitlog (path)
+
+    expect_s3_class (log, "data.frame")
+    expect_equal (ncol (log), 10L)
+    nms <- c (
+        "hash", "aut_name", "aut_email", "timestamp", "message",
+        "nfiles_changed", "lines_added", "lines_removed", "whitespace_added",
+        "whitespace_removed"
+    )
+    expect_equal (names (log), nms)
+
+    char_nms <- nms [c (1:3, 5)]
+    int_nms <- nms [6:10]
+    for (n in names (log)) {
+        type <- ifelse (n %in% char_nms, "character", "integer")
+        if (n == "timestamp") {
+            expect_s3_class (log [[n]], "POSIXct")
+        } else {
+            expect_type (log [[n]], type)
+        }
+    }
+
+    fs::dir_delete (path)
+})
+
+test_that ("cm data dependencies", {
+
+    path <- generate_test_pkg ()
+    deps <- cm_data_dependencies (path)
+    fs::dir_delete (path)
+
+    expect_s3_class (deps, "data.frame")
+    expect_equal (nrow (deps), 1L)
+    expect_equal (ncol (deps), 3L)
+    nms <- c ("name", "type", "version")
+    expect_equal (names (deps), nms)
+    for (n in names (deps)) {
+        expect_type (deps [[n]], "character")
+    }
+})

tests/testthat/test-cm-data.R tests/testthat/test-cm-data-github.R

@@ -1,32 +1,3 @@
-test_that ("cm data git", {
-
-    path <- generate_test_pkg ()
-
-    log <- cm_data_gitlog (path)
-
-    expect_s3_class (log, "data.frame")
-    expect_equal (ncol (log), 10L)
-    nms <- c (
-        "hash", "aut_name", "aut_email", "timestamp", "message",
-        "nfiles_changed", "lines_added", "lines_removed", "whitespace_added",
-        "whitespace_removed"
-    )
-    expect_equal (names (log), nms)
-
-    char_nms <- nms [c (1:3, 5)]
-    int_nms <- nms [6:10]
-    for (n in names (log)) {
-        type <- ifelse (n %in% char_nms, "character", "integer")
-        if (n == "timestamp") {
-            expect_s3_class (log [[n]], "POSIXct")
-        } else {
-            expect_type (log [[n]], type)
-        }
-    }
-
-    fs::dir_delete (path)
-})
-
 test_that ("cm data gh contribs", {
 
     Sys.setenv ("REPOMETRICS_TESTS" = "true")
@@ -91,22 +62,6 @@ test_that ("cm data gh repo", {
     }
 })
 
-test_that ("cm data dependencies", {
-
-    path <- generate_test_pkg ()
-    deps <- cm_data_dependencies (path)
-    fs::dir_delete (path)
-
-    expect_s3_class (deps, "data.frame")
-    expect_equal (nrow (deps), 1L)
-    expect_equal (ncol (deps), 3L)
-    nms <- c ("name", "type", "version")
-    expect_equal (names (deps), nms)
-    for (n in names (deps)) {
-        expect_type (deps [[n]], "character")
-    }
-})
-
 test_that ("cm data gh issues", {
 
     Sys.setenv ("REPOMETRICS_TESTS" = "true")