add test-data-user.R

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: repometrics
 Title: Metrics for Your Code Repository
-Version: 0.1.3.029
+Version: 0.1.3.030
 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.3.029",
+  "version": "0.1.3.030",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",

tests/testthat/test-data-user.R

@@ -0,0 +1,16 @@
+test_that ("user data martrices", {
+
+    user_data <- lapply (1:2, function (i) mock_user_rel_data ())
+    names (user_data) <- c ("a", "b")
+
+    mats <- user_relation_matrices (user_data)
+
+    expect_s3_class (mats, "data.frame")
+    expect_equal (ncol (mats), 8L)
+    nms <- c (
+        "login1", "login2", "commit_cmt", "commits", "followers", "following",
+        "issue_cmts", "issues"
+    )
+    expect_equal (names (mats), nms)
+    expect_true (nrow (mats) > 0L)
+})