You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
73 lines
2.0 KiB
R
73 lines
2.0 KiB
R
7 years ago
|
context("boxes")
|
||
|
|
|
||
|
|
check_api <- function() {
|
||
|
|
code <- NA
|
||
|
|
try(code <- httr::status_code(httr::GET(osem_endpoint())))
|
||
|
|
if (is.na(code)) skip("API not available")
|
||
|
|
}
|
||
|
|
|
||
|
|
test_that("a list of all boxes can be retrieved and returns a sensebox data.frame", {
|
||
|
|
check_api()
|
||
|
|
|
||
|
|
boxes <- osem_boxes()
|
||
|
|
expect_true(is.data.frame(boxes))
|
||
|
|
expect_true(is.factor(boxes$model))
|
||
|
|
expect_true(is.character(boxes$name))
|
||
|
|
expect_length(names(boxes), 14)
|
||
|
|
expect_true(any("sensebox" %in% class(boxes)))
|
||
|
|
})
|
||
|
|
|
||
|
|
test_that("a list of boxes with exposure filter returns only the requested exposure", {
|
||
|
|
check_api()
|
||
|
|
|
||
|
|
boxes <- osem_boxes(exposure = "mobile")
|
||
|
|
expect_true(all(boxes$exposure == "mobile"))
|
||
|
|
})
|
||
|
|
|
||
|
|
test_that("a list of boxes with model filter returns only the requested model", {
|
||
|
|
check_api()
|
||
|
|
|
||
|
|
boxes <- osem_boxes(model = "homeWifi")
|
||
|
|
expect_true(all(boxes$model == "homeWifi"))
|
||
|
|
})
|
||
|
|
|
||
|
|
test_that("box query can combine exposure and model filter", {
|
||
|
|
check_api()
|
||
|
|
|
||
|
|
boxes <- osem_boxes(exposure = "mobile", model = "homeWifi")
|
||
|
|
expect_true(all(boxes$model == "homeWifi"))
|
||
|
|
expect_true(all(boxes$exposure == "mobile"))
|
||
|
|
})
|
||
|
|
|
||
|
|
test_that("a list of boxes with grouptype returns only boxes of that group", {
|
||
|
|
check_api()
|
||
|
|
|
||
|
|
boxes <- osem_boxes(grouptag = "codeformuenster")
|
||
|
|
expect_true(all(boxes$grouptag == "codeformuenster"))
|
||
|
|
})
|
||
|
|
|
||
|
|
test_that("endpoint can be (mis)configured", {
|
||
|
|
check_api()
|
||
|
|
|
||
|
|
expect_error(osem_boxes(endpoint = "http://not.the.opensensemap.org"), "resolve host")
|
||
|
|
})
|
||
|
|
|
||
|
|
test_that("a response with no matches returns empty sensebox data.frame", {
|
||
|
|
check_api()
|
||
|
|
|
||
|
|
boxes <- osem_boxes(grouptag = "does_not_exist")
|
||
|
|
expect_true(is.data.frame(boxes))
|
||
|
|
expect_true(any("sensebox" %in% class(boxes)))
|
||
|
|
})
|
||
|
|
|
||
|
|
test_that("a response with no matches gives a warning", {
|
||
|
|
check_api()
|
||
|
|
|
||
|
|
expect_warning(osem_boxes(grouptag = "does_not_exist"), "no boxes found")
|
||
|
|
})
|
||
|
|
|
||
|
|
test_that("data.frame can be converted to sensebox data.frame", {
|
||
|
|
df <- osem_as_sensebox(data.frame(c(1,2), c("a", "b")))
|
||
|
|
expect_equal(class(df), c("sensebox", "data.frame"))
|
||
|
|
})
|