1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
test_that("status_codes_data", {
expect_is(status_codes, "list")
expect_is(status_codes[[1]], "list")
# each element
expect_equal(length(status_codes[[1]]), 3)
expect_is(status_codes[[1]][[1]], "character")
expect_is(status_codes[[1]][[2]], "character")
expect_is(status_codes[[1]][[3]], "character")
# can get elements by status code
expect_is(status_codes['404'], "list")
expect_named(status_codes['404'])
expect_is(status_codes[['404']], "list")
expect_named(status_codes['404'], "404")
})
|
