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
28
29
30
31
32
33
34
35
36
37
38
|
test_that("http_code works", {
x <- http_code(400)
expect_is(x, "http_code")
expect_is(unclass(x), "list")
expect_is(x$status_code, "character")
expect_is(x$message, "character")
expect_is(x$explanation, "character")
expect_null(x$verbose_explanation)
expect_equal(x$status_code, "400")
expect_equal(x$message, "Bad Request")
expect_output(print(x), "<Status code")
w <- http_code(401, verbose = TRUE)
expect_is(w, "http_code")
expect_is(unclass(w), "list")
expect_is(w$status_code, "character")
expect_is(w$message, "character")
expect_is(w$explanation, "character")
expect_is(w$verbose_explanation, "character")
expect_equal(w$status_code, "401")
expect_equal(w$message, "Unauthorized")
expect_output(print(w), "<Status code")
expect_output(print(w), "Verbose Explanation")
})
test_that("http_code fails well", {
# no input, code is required
expect_error(http_code())
# non-allowed classes
expect_error(http_code(as.factor("foobar")), "class")
# code not found
expect_error(http_code(33333), "No description found")
# must be length 1
expect_error(http_code(1:3))
})
|
