swtich webmockr -> vcr for tests

Author: mpadge

.gitattributes

@@ -0,0 +1,2 @@
+* text=auto
+tests/fixtures/**/* -diff

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: allcontributors
 Title: Acknowledge all Contributors to a Project
-Version: 0.0.2.026
+Version: 0.0.2.027
 Authors@R: 
     person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre"))
 Description: Acknowledge all contributors to a project via a single
@@ -24,6 +24,7 @@ Suggests:
     knitr,
     rmarkdown,
     testthat,
+    vcr (>= 0.6.0),
     webmockr
 VignetteBuilder: 
     knitr

codemeta.json

@@ -10,7 +10,7 @@
   "codeRepository": "https://github.com/ropenscilabs/allcontributors",
   "issueTracker": "https://github.com/ropenscilabs/allcontributors/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.0.2.26",
+  "version": "0.0.2.27",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",
@@ -73,6 +73,19 @@
       },
       "sameAs": "https://CRAN.R-project.org/package=testthat"
     },
+    {
+      "@type": "SoftwareApplication",
+      "identifier": "vcr",
+      "name": "vcr",
+      "version": ">= 0.6.0",
+      "provider": {
+        "@id": "https://cran.r-project.org",
+        "@type": "Organization",
+        "name": "Comprehensive R Archive Network (CRAN)",
+        "url": "https://cran.r-project.org"
+      },
+      "sameAs": "https://CRAN.R-project.org/package=vcr"
+    },
     {
       "@type": "SoftwareApplication",
       "identifier": "webmockr",
@@ -185,7 +198,7 @@
     }
   ],
   "readme": "https://github.com/ropenscilabs/allcontributors/blob/main/README.md",
-  "fileSize": "65.26KB",
+  "fileSize": "93.422KB",
   "contIntegration": ["https://github.com/ropenscilabs/allcontributors/actions?query=workflow%3AR-CMD-check", "https://codecov.io/gh/ropenscilabs/allcontributors"],
   "developmentStatus": "https://www.repostatus.org/#active",
   "provider": {

tests/fixtures/get_contribs.yml

@@ -0,0 +1,28 @@
+http_interactions:
+- request:
+    method: head
+    uri: https://httpbin.org/get
+    body:
+      encoding: ''
+      string: ''
+    headers:
+      User-Agent: libcurl/7.79.1 r-curl/4.3.2 crul/1.1.0
+  response:
+    status:
+      status_code: '200'
+      message: OK
+      explanation: Request fulfilled, document follows
+    headers:
+      status: 'HTTP/2 200 '
+      date: Thu, 07 Oct 2021 11:17:59 GMT
+      content-type: application/json
+      content-length: '334'
+      server: gunicorn/19.9.0
+      access-control-allow-origin: '*'
+      access-control-allow-credentials: 'true'
+    body:
+      encoding: UTF-8
+      file: no
+      string: ''
+  recorded_at: 2021-10-07 11:17:59 GMT
+  recorded_with: vcr/1.0.2, webmockr/0.8.0

tests/fixtures/testing.yml

@@ -0,0 +1,5 @@
+library("vcr") # *Required* as vcr is set up on loading
+invisible(vcr::vcr_configure(
+  dir = vcr::vcr_test_path("fixtures")
+))
+vcr::check_cassette_names()

tests/testthat/geodist-hdrs.Rds

@@ -1,46 +1,18 @@
-context("webmockr")
+context("get contributors")
 
-u_base <- "https://api.github.com"
-path <- "repos/hypertidy/geodist/contributors"
-u <- httr::modify_url (u_base, path = path)
-#z <- httr::GET (u)
-#saveRDS (httr::content (z), file = "geodist.Rds")
-#saveRDS (z$headers, file = "geodist-hdrs.Rds")
+test_that("get_contributors", {
 
-library (webmockr)
-httr_mock()
+    vcr::use_cassette("get_contribs", {
 
-test_all <- (identical (Sys.getenv ("MPADGE_LOCAL"), "true"))
-if (test_all) {
-    tok1 <- Sys.getenv ("GITHUB_TOKEN")
-    tok2 <- Sys.getenv ("GITHUB_GRAPHQL_TOKEN")
-    Sys.unsetenv ("GITHUB_TOKEN")
-    Sys.unsetenv ("GITHUB_GRAPHQL_TOKEN")
-}
-
-
-stub_request ("get", uri = u) %>%
-    wi_th (
-           headers = list ("Accept" =
-                           "application/json, text/xml, application/xml, */*")
-           ) %>%
-    to_return(status = 200,
-              body = readRDS ("geodist.Rds"),
-              headers = readRDS ("geodist-hdrs.Rds"))
-
-test_that("vcr test", {
-
-    org <- "hypertidy"
-    repo <- "geodist"
-    x <- get_gh_code_contributors (org, repo)
+        x <- get_contributors (org = "hypertidy", repo = "geodist")
+    })
 
     expect_is (x, "data.frame")
-    expect_equal (ncol (x), 3)
-    expect_identical (names (x), c ("logins", "contributions", "avatar"))
-
-             })
-
-if (test_all) {
-    Sys.setenv ("GITHUB_TOKEN" = tok1)
-    Sys.setenv ("GITHUB_GRAPHQL_TOKEN" = tok2)
-}
+    expect_equal (ncol (x), 4)
+    expect_identical (names (x),
+                      c ("logins", "contributions", "avatar", "type"))
+    expect_true (all (unique (x$type) %in% c ("code",
+                                              "issue_authors",
+                                              "issue_contributors")))
+
+})