Nothing
public({
with_fake_http({
test_that("expect_header with fake HTTP", {
expect_GET(expect_success(expect_header(
GET("http://httpbin.org/",
config = add_headers(Accept = "image/jpeg")
),
"Accept: image/jpeg"
)))
expect_GET(expect_failure(expect_warning(
expect_header(
GET("http://httpbin.org/",
config = add_headers(Accept = "image/png")
),
"Accept: image/jpeg"
),
"Accept: image/png"
)))
expect_POST(expect_success(expect_header(
POST("http://httpbin.org/",
config = add_headers(Accept = "image/jpeg")
),
"Accept: image/jpeg"
)))
expect_POST(expect_failure(expect_warning(
expect_header(
POST("http://httpbin.org/",
config = add_headers(Accept = "image/png")
),
"Accept: image/jpeg"
),
"Content-Type: Accept: image/png"
)))
})
})
with_mock_api({
test_that("expect_header with mock API", {
expect_success(expect_header(
GET("api/object1/",
config = add_headers(Accept = "image/jpeg")
),
"Accept: image/jpeg"
))
suppressWarnings(
expect_failure(expect_header(
GET("api/object1/",
config = add_headers(Accept = "image/png")
),
"Accept: image/jpeg"
))
)
suppressWarnings(
expect_POST(expect_success(expect_header(
POST("http://httpbin.org/",
config = add_headers(Accept = "image/jpeg")
),
"Accept: image/jpeg"
)))
)
skip_if(third_edition)
expect_failure(expect_header(
expect_POST(POST("http://httpbin.org/",
config = add_headers(Accept = "image/png")
), silent = TRUE),
"Accept: image/jpeg"
))
})
test_that("expect_header ignore.case", {
expect_success(expect_header(
GET("api/object1/",
config = add_headers(Accept = "image/jpeg")
),
"accept: image/jpeg"
))
suppressWarnings(
expect_failure(expect_header(GET("api/object1/",
config = add_headers(Accept = "image/jpeg")
),
"accept: image/jpeg",
ignore.case = FALSE
))
)
})
})
without_internet({
test_that("expect_header without_internet", {
expect_GET(expect_success(expect_header(
GET("http://httpbin.org/",
config = add_headers(Accept = "image/jpeg")
),
"Accept: image/jpeg"
)))
expect_GET(expect_warning(
expect_failure(expect_header(
GET("http://httpbin.org/",
config = add_headers(Accept = "image/png")
),
"Accept: image/jpeg"
)),
"Accept: image/png"
))
})
})
test_that("expect_header works with actual network too", {
skip_if_disconnected()
skip_on_ci()
expect_success(expect_header(
GET("http://httpbin.org/get",
config = add_headers(Accept = "image/jpeg")
),
"Accept: image/jpeg"
))
expect_failure(expect_warning(
expect_header(
GET("http://httpbin.org/get",
config = add_headers(Accept = "image/png")
),
"Accept: image/jpeg"
),
"Accept: image/png"
))
})
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.