Add test for new URL parser

jeroen · Sep 23, 2019 · 9dafed8 · 9dafed8
1 parent c8641ce
commit 9dafed8
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tests/testthat/test-handle.R b/tests/testthat/test-handle.R
@@ -122,6 +122,11 @@ test_that("Custom vector options", {
   handle_setopt(h, quote = c("bla"))
 })
 
+test_that("Custom URL parser", {
+  h <- new_handle(timeout = 1L)
+  expect_error(curl_fetch_memory('https://httpbin.org/delay/10', handle = h), 'Timeout was reached: [httpbin.org] ', fixed = TRUE)
+})
+
 test_that("Platform specific features", {
   if(.Platform$OS.type == 'windows'){
     ssl_version <- curl_version()$ssl_version