Switch to better http service for testing

rstudio · Mar 2, 2023 · 36e86d5 · 36e86d5
1 parent 57c4206
commit 36e86d5
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/tests/testthat/_snaps/pin.md b/tests/testthat/_snaps/pin.md
@@ -1,17 +1,17 @@
 # unavailable url can use cache
 
     Code
-      pin("http://httpstat.us/404", "test", board = board)
+      pin("http://httpbin.org/status/404", "test", board = board)
     Condition
       Error in `pin()`:
-      ! Client error: (404) Not Found. Failed to download remote file: http://httpstat.us/404
+      ! Client error: (404) Not Found. Failed to download remote file: http://httpbin.org/status/404
     Code
       pin(1:10, "test", board = board)
-      x <- pin("http://httpstat.us/404", "test", board = board)
+      x <- pin("http://httpbin.org/status/404", "test", board = board)
     Condition
       Warning:
       Failed to re-download pin; using cached value
-      * Client error: (404) Not Found. Failed to download remote file: http://httpstat.us/404
+      * Client error: (404) Not Found. Failed to download remote file: http://httpbin.org/status/404
     Code
       expect_equal(x, 1:10)
 

diff --git a/tests/testthat/test-pin.R b/tests/testthat/test-pin.R
@@ -70,9 +70,9 @@ test_that("unavailable url can use cache", {
   board <- legacy_temp()
 
   expect_snapshot(error = TRUE, {
-    pin("http://httpstat.us/404", "test", board = board)
+    pin("http://httpbin.org/status/404", "test", board = board)
     pin(1:10, "test", board = board)
-    x <- pin("http://httpstat.us/404", "test", board = board)
+    x <- pin("http://httpbin.org/status/404", "test", board = board)
     expect_equal(x, 1:10)
   })
 })