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.
54 lines
1.5 KiB
R
54 lines
1.5 KiB
R
6 years ago
|
source('testhelpers.R')
|
||
|
|
|
||
|
|
context('osem_box_to_archivename()')
|
||
|
|
|
||
|
|
try({
|
||
|
|
boxes = osem_boxes(grouptag = 'ifgi')
|
||
|
|
box = filter(boxes, row_number() == 1)
|
||
|
|
})
|
||
|
|
|
||
|
|
test_that('osem_box_to_archive_name does the correct character replacements', {
|
||
|
|
b = data.frame(
|
||
|
|
name = 'aA1._- äß!"?$%&/',
|
||
|
|
X_id = 'UUID'
|
||
|
|
)
|
||
|
|
|
||
|
|
archivename = opensensmapr:::osem_box_to_archivename(b)
|
||
|
|
expect_equal(archivename, 'UUID-aA1._-__________')
|
||
|
|
})
|
||
|
|
|
||
|
|
test_that('osem_box_to_archive_name works for one box', {
|
||
|
|
if (is.null(box)) skip('no box data could be fetched')
|
||
|
|
|
||
|
|
archivename = opensensmapr:::osem_box_to_archivename(box)
|
||
|
|
expect_length(archivename, 1)
|
||
|
|
expect_type(archivename, 'character')
|
||
|
|
})
|
||
|
|
|
||
|
|
test_that('osem_box_to_archive_name works for multiple boxes', {
|
||
|
|
if (is.null(boxes)) skip('no box data available')
|
||
|
|
|
||
|
|
archivename = opensensmapr:::osem_box_to_archivename(boxes)
|
||
|
|
expect_length(archivename, nrow(boxes))
|
||
|
|
expect_type(archivename, 'character')
|
||
|
|
})
|
||
|
|
|
||
|
|
context('osem_measurements_archive()')
|
||
|
|
|
||
|
|
test_that('osem_measurements_archive works for one box', {
|
||
|
|
if (is.null(box)) skip('no box data could be fetched')
|
||
|
|
|
||
|
|
m = osem_measurements_archive(box, as.POSIXlt('2018-08-08'))
|
||
|
|
expect_length(m, nrow(box$sensors[[1]]) + 1) # one column for each sensor + createdAt
|
||
|
|
expect_s3_class(m, c('osem_measurements', 'tbl_df'))
|
||
|
|
})
|
||
|
|
|
||
|
|
test_that('osem_measurements_archive fails for multiple boxes', {
|
||
|
|
if (is.null(boxes)) skip('no box data available')
|
||
|
|
|
||
|
|
expect_error(
|
||
|
|
osem_measurements_archive(boxes, as.POSIXlt('2018-08-08')),
|
||
|
|
'this function only works for exactly one senseBox!'
|
||
|
|
)
|
||
|
|
})
|