opensensemap/opensensmapR
1
0
Fork 0
mirror of https://github.com/sensebox/opensensmapr synced 2025-02-22 23:23:57 +01:00
Code Issues Releases Wiki Activity

test box field parsing

Browse source
This commit is contained in:
Norwin 2019-02-09 22:46:17 +01:00
parent 9ddc077bfd
commit 4b01bbbee1
2 changed files with 34 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
tests/testthat/test_box.R
View file

@ -18,6 +18,39 @@ test_that('a single box can be retrieved by ID', {
expect_silent(osem_box(boxes$X_id[[1]]))
})
test_that('required box attributes are correctly parsed', {
expect_is(box$X_id, 'character')
expect_is(box$name, 'character')
expect_is(box$exposure, 'character')
expect_is(box$model, 'character')
expect_is(box$lat, 'numeric')
expect_is(box$lon, 'numeric')
expect_is(box$createdAt, 'POSIXct')
})
test_that('optional box attributes are correctly parsed', {
completebox = osem_box('5a676e49411a790019290f94') # all fields populated
expect_is(completebox$description, 'character')
expect_is(completebox$grouptag, 'character')
expect_is(completebox$weblink, 'character')
expect_is(completebox$updatedAt, 'POSIXct')
expect_is(completebox$lastMeasurement, 'POSIXct')
expect_is(completebox$height, c('numeric', 'integer'))
expect_is(completebox$phenomena, 'list')
expect_is(completebox$phenomena[[1]], 'character')
expect_is(completebox$sensors, 'list')
expect_is(completebox$sensors[[1]], 'data.frame')
# box with older schema, not recently updated..
oldbox = osem_box('539fec94a8341554157931d7')
expect_null(oldbox$description)
expect_null(oldbox$grouptag)
expect_null(oldbox$weblink)
expect_null(oldbox$updatedAt)
expect_null(oldbox$height)
expect_null(oldbox$lastMeasurement)
})
test_that('unknown box throws', {
check_api()

2
tests/testthat/test_measurements.R
View file

@ -28,7 +28,7 @@ test_that('measurement retrieval does not give progress information in non-inter
test_that('a response with no matching senseBoxes gives an error', {
check_api()
expect_error(osem_measurements(x = 'Windgeschwindigkeit', exposure = 'indoor'), 'No senseBoxes found')
expect_error(osem_measurements(x = 'foobar', exposure = 'indoor'), 'No senseBoxes found')
})
test_that('columns can be specified for phenomena', {