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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
test_that("as_headers parses character vector", {
headers <- as_headers(c("x:1", "y:2", "a", "b:"))
expect_equal(headers, new_headers(list(x = "1", y = "2", b = "")))
})
test_that("as_headers coerces list", {
expect_equal(as_headers(list(x = 1)), new_headers(list(x = 1)))
})
test_that("as_headers errors on invalid types", {
expect_snapshot(error = TRUE, as_headers(1))
})
test_that("has nice print method", {
expect_snapshot({
as_headers(c("X:1", "Y: 2", "Z:"))
as_headers(list())
})
})
test_that("print and str redact headers", {
x <- new_headers(list(x = 1, y = 2), redact = "x")
expect_snapshot({
print(x)
str(x)
})
})
test_that("subsetting is case insensitive", {
x <- new_headers(list(x = 1))
expect_equal(x$X, 1)
expect_equal(x[["X"]], 1)
expect_equal(x["X"], new_headers(list(x = 1)))
})
test_that("redaction is case-insensitive", {
headers <- as_headers("AUTHORIZATION: SECRET")
attr(headers, "redact") <- "Authorization"
redacted <- headers_redact(headers)
expect_named(redacted, "AUTHORIZATION")
expect_true(is_redacted(redacted$AUTHORIZATION))
})
test_that("new_headers checks inputs", {
expect_snapshot(error = TRUE, {
new_headers(1)
new_headers(list(1))
})
})
test_that("can flatten repeated inputs", {
expect_equal(headers_flatten(list()), list())
expect_equal(headers_flatten(list(x = 1)), list(x = 1))
expect_equal(headers_flatten(list(x = 1:2)), list(x = "1,2"))
})
|
