Use better server and bigger timeout for TCP ping test

It failed on NetBSD.
r-lib · Nov 6, 2024 · 6ba2cbf · 6ba2cbf
1 parent 9f7d3e0
commit 6ba2cbf
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-tcp.R b/tests/testthat/test-tcp.R
@@ -27,10 +27,10 @@ test_that("We can ping a remote host", {
   expect_equal(pr, NA_real_)
 
   ## There is surely something here
-  pr <- ping_port("httpbin.org", count = 1)
+  pr <- ping_port("github.com", count = 1)
   expect_true(is.double(pr))
   expect_true(length(pr) == 1)
-  expect_true(pr < 1000)
+  expect_true(pr < 5000)
 })
 
 test_that("We don't wait too long", {