Support full URLs, not just file paths, in 'with_mock_API' (#1)

DESCRIPTION

@@ -13,8 +13,8 @@ Description: Testing code and packages that communicate with remote servers can
     not--made. Using these tools, one can test that code is making the intended
     requests and that it handles the expected responses correctly, all without
     depending on a connection to a remote API.
-Version: 1.1.0
-Date: 2017-02-03
+Version: 1.1.1
+Date: 2017-02-05
 Authors@R: person("Neal", "Richardson", role=c("aut", "cre"), email="neal.p.richardson@gmail.com")
 Author: Neal Richardson [aut, cre]
 Maintainer: Neal Richardson <neal.p.richardson@gmail.com>

NEWS.md

@@ -1,3 +1,6 @@
+### httptest 1.1.1 (under development)
+* Support full URLs, not just file paths, in `with_mock_API`
+
 ## httptest 1.1.0
 
 * `expect_header` to assert that a HTTP request has a header

R/mock-api.R

@@ -70,6 +70,8 @@ mockRequest <- function (req, handle, refresh) {
 #' @importFrom digest digest
 #' @export
 buildMockURL <- function (url, method="GET") {
+    ## Remove protocol
+    url <- sub("^.*?://", "", url)
     ## Handle query params
     parts <- unlist(strsplit(url, "?", fixed=TRUE))
     f <- sub("\\/$", "", parts[1])

tests/testthat/example.com/get.json

@@ -0,0 +1,3 @@
+{
+    "loaded": true
+}

tests/testthat/test-mock-api.R

@@ -35,5 +35,16 @@ public({
             expect_error(dl <- download.file("NOTAFILE", f2),
                 "DOWNLOAD NOTAFILE")
         })
+
+        test_that("mock API with http:// URL, not file path", {
+            expect_GET(GET("http://httpbin.org/get"),
+                "http://httpbin.org/get",
+                "(httpbin.org/get.json)")
+            expect_GET(GET("https://httpbin.org/get"),
+                "https://httpbin.org/get",
+                "(httpbin.org/get.json)")
+            expect_identical(content(GET("http://example.com/get")),
+                list(loaded=TRUE))
+        })
     })
 })