From e4825ca14c7c43377358e24e32729725669aa152 Mon Sep 17 00:00:00 2001 From: jan Date: Tue, 31 Jan 2023 17:08:47 +0100 Subject: [PATCH] test bbox --- tests/testthat/test_boxes.R | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test_boxes.R b/tests/testthat/test_boxes.R index 999d8cb..cae4fea 100644 --- a/tests/testthat/test_boxes.R +++ b/tests/testthat/test_boxes.R @@ -8,7 +8,7 @@ test_that('a list of all boxes can be retrieved and returns a sensebox data.fram expect_true(is.data.frame(boxes)) expect_true(is.factor(boxes$model)) expect_true(is.character(boxes$name)) - expect_length(names(boxes), 15) + expect_length(names(boxes), 18) expect_true(any('sensebox' %in% class(boxes))) }) @@ -53,10 +53,17 @@ test_that('a list of boxes with grouptype returns only boxes of that group', { expect_true(all(boxes$grouptag == 'codeformuenster')) }) +test_that('a list of boxes within a bbox only returns boxes within that bbox', { + check_api() + + boxes = osem_boxes(bbox = c(7.8, 51.8, 8.0, 52.0)) + expect_true(all(boxes$lon > 7.8 & boxes$lon < 8.0 & boxes$lat > 51.8 & boxes$lat < 52.0)) +}) + test_that('endpoint can be (mis)configured', { check_api() - expect_error(osem_boxes(endpoint = 'http://not.the.opensensemap.org'), 'resolve host') + expect_error(osem_boxes(endpoint = 'http://not.the.opensensemap.org'), 'The API at http://not.the.opensensemap.org is currently not available.') }) test_that('a response with no matches returns empty sensebox data.frame', {