From 92cbbcbfc7e04f965c12432f2216fc5456d69a3c Mon Sep 17 00:00:00 2001 From: Norwin Roosen Date: Sat, 20 Oct 2018 11:32:56 +0200 Subject: [PATCH] fix tests --- tests/testthat/test_archive.R | 6 +++--- tests/testthat/test_boxes.R | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/tests/testthat/test_archive.R b/tests/testthat/test_archive.R index 7aa9374..3449417 100644 --- a/tests/testthat/test_archive.R +++ b/tests/testthat/test_archive.R @@ -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', { diff --git a/tests/testthat/test_boxes.R b/tests/testthat/test_boxes.R index 03b43d6..68c800b 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), 14) + expect_length(names(boxes), 15) expect_true(any('sensebox' %in% class(boxes))) })