update test-utils again for gh runners

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: roreviewapi
 Title: Plumber API to report package structure and function
-Version: 0.1.0.043
+Version: 0.1.0.044
 Authors@R: 
     person("Mark", "Padgham", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))

codemeta.json

@@ -8,7 +8,7 @@
   "codeRepository": "https://github.com/ropensci-review-tools/roreviewapi",
   "issueTracker": "https://github.com/ropensci-review-tools/roreviewapi/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.1.0.043",
+  "version": "0.1.0.044",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",

tests/testthat/test-utils.R

@@ -10,16 +10,11 @@ test_that ("utils symbols", {
 test_that ("utils gh user", {
     g <- get_github_user ()
     expect_type (g, "character")
-    is_local <- identical (Sys.getenv ("MPADGE_LOCAL"), "true")
-    # On GH, 'get_github_user()' returns 'char(0)':
-    expect_length (g, as.integer (is_local))
+    expect_length (g, 1L)
 
+    is_local <- identical (Sys.getenv ("MPADGE_LOCAL"), "true")
     is_auth <- is_user_authorized ()
-    if (is_local) {
-        expect_equal (is_user_authorized (), is_auth)
-    } else {
-        expect_length (is_auth, 0L)
-    }
+    expect_equal (is_user_authorized (), is_auth)
 })
 
 test_that ("utils gh branch", {