context("Config")
test_that("basic authentication works", {
skip_on_cran()
h <- handle("http://httpbin.org")
path <- "basic-auth/user/passwd"
r <- GET(path = path, handle = h)
expect_equal(r$status_code, 401)
r <- GET(
path = path, handle = h,
config = authenticate("user", "passwd", "basic")
)
expect_equal(r$status_code, 200)
# Authentication shouldn't persist
r <- GET(path = path, handle = h)
expect_equal(r$status_code, 401)
})
test_that("digest authentication works", {
skip_on_cran()
h <- handle("http://httpbin.org")
path <- "digest-auth/qop/user/passwd"
r <- GET(path = path, handle = h)
expect_equal(r$status_code, 401)
r <- GET(
path = path, handle = h,
config = authenticate("user", "passwd", "digest")
)
expect_equal(r$status_code, 200)
})
test_that("timeout enforced", {
skip_on_cran()
expect_error(
GET("http://httpbin.org/delay/1", timeout(0.5)),
"(Timeout was reached)|(timed out)"
)
})
Generated by dwww version 1.15 on Tue Jun 25 07:54:01 CEST 2024.