add tests

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: dashboard
 Title: What the Package Does (One Line, Title Case)
-Version: 0.0.3.001
+Version: 0.0.3.002
 Authors@R: 
   person(given = "First",
          family = "Last",
@@ -16,3 +16,6 @@ Imports:
 License: MIT + file LICENSE
 Encoding: UTF-8
 RoxygenNote: 7.3.1
+Suggests:
+    testthat (>= 3.0.0)
+Config/testthat/edition: 3

codemeta.json

@@ -6,7 +6,7 @@
   "name": "dashboard: What the Package Does (One Line, Title Case)",
   "codeRepository": "https://github.com/ropensci-review-tools/dashboard",
   "license": "https://spdx.org/licenses/MIT",
-  "version": "0.0.3.001",
+  "version": "0.0.3.002",
   "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 (dashboard)
+
+test_check ("dashboard")

tests/testthat/test-editors.R

@@ -0,0 +1,23 @@
+test_that ("editor names", {
+
+    q <- gh_editors_team_qry (stats = FALSE)
+    editors <- gh::gh_gql (query = q)
+    editors <- editors$data$organization$team$members$nodes
+    expect_true (length (editors) > 10L)
+    nms <- unique (unlist (lapply (editors, names)))
+    expect_identical (nms, "login") # should have 'login' only
+    editors <- vapply (editors, function (i) i$login, character (1L))
+    expect_type (editors, "character")
+    expect_true (length (editors) > 10L)
+
+    q <- gh_editors_team_qry (stats = TRUE)
+    editors_stats <- gh::gh_gql (query = q)
+    editors_stats <- editors_stats$data$organization$team$members$nodes
+    expect_true (length (editors_stats) > 5L)
+    expect_true (length (editors_stats) < length (editors))
+    nms <- unique (unlist (lapply (editors_stats, names)))
+    expect_identical (nms, "login") # should have 'login' only
+    editors_stats <- vapply (editors_stats, function (i) i$login, character (1L))
+    expect_type (editors_stats, "character")
+    expect_true (length (editors_stats) > 5L)
+})