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
|
test_that("cat_for_status", {
x <- cat_for_status(100)
expect_is(x, "character")
expect_match(x, "https://http.cat/100")
})
test_that("dog_for_status", {
w <- dog_for_status(400)
expect_is(w, "character")
expect_match(w, "https://httpstatusdogs.com/wp-content/uploads/400.jpg")
})
test_that("cats and dogs fails well", {
# no input, code is required
expect_error(cat_for_status())
expect_error(dog_for_status())
# non-allowed classes
expect_error(cat_for_status(as.factor("foobar")), "class")
expect_error(dog_for_status(as.factor("foobar")), "class")
# code not found
expect_error(cat_for_status(33333))
expect_error(dog_for_status(33333))
# must be length 1
expect_error(cat_for_status(1:3))
expect_error(dog_for_status(1:3))
})
|
