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

fix tests

Browse source
This commit is contained in:
Norwin 2018-10-20 11:32:56 +02:00
parent ee491673fa
commit 92cbbcbfc7
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tests/testthat/test_archive.R
View file

@ -4,7 +4,7 @@ context('osem_box_to_archivename()')
try({
boxes = osem_boxes(grouptag = 'ifgi')
box = filter(boxes, row_number() == 1)
box = osem_box('593bcd656ccf3b0011791f5a')
})
test_that('osem_box_to_archive_name does the correct character replacements', {
@ -12,7 +12,7 @@ test_that('osem_box_to_archive_name does the correct character replacements', {
name = 'aA1._- äß!"?$%&/',
X_id = 'UUID'
)
archivename = opensensmapr:::osem_box_to_archivename(b)
expect_equal(archivename, 'UUID-aA1._-__________')
})
@ -40,7 +40,7 @@ test_that('osem_measurements_archive works for one box', {
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'))
expect_s3_class(m, c('data.frame'))
})
test_that('osem_measurements_archive fails for multiple boxes', {

2
tests/testthat/test_boxes.R
View file

@ -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), 14)
expect_length(names(boxes), 15)
expect_true(any('sensebox' %in% class(boxes)))
})