Test abbrs parameter in get_range_crude

owenjonesuob · Jan 21, 2018 · f4302b7 · f4302b7
1 parent 2af7480
commit f4302b7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/inst/tests/testthat/test-adding_records.R b/inst/tests/testthat/test-adding_records.R
@@ -20,7 +20,7 @@ test_that("Adding records for the first time", {
 
 
 
-    raw_range <- get_range_crude("2015-01-01 06:00:00", "2015-01-01 12:00:00")
+    raw_range <- get_range_crude("2015-01-01 06:00:00", "2015-01-01 12:00:00", abbrs = "a")
 
     expect_equal(nrow(raw_range), 360)
     expect_equal(as.character(min(raw_range$dateuploaded)), "2015-01-01 06:00:01")