1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
test_that("response has basic print method", {
file.create("path-empty")
writeBin("sample content", "path-content")
withr::defer(unlink(c("path-empty", "path-content")))
con <- file()
withr::defer(close(con))
expect_snapshot({
response(200)
response(200, headers = "Content-Type: text/html")
response(200, body = charToRaw("abcdef"))
response(200, body = new_path("path-empty"))
response(200, body = new_path("path-content"))
response(200, body = con)
})
})
test_that("response adds date if not provided by server", {
resp <- response(headers = "Test: 1")
expect_named(resp_headers(resp), c("Test", "Date"))
})
test_that("check_response produces helpful error", {
expect_snapshot(check_response(1), error = TRUE)
})
|
