add test for logic greater than length 1

slu-openGIS · Feb 7, 2019 · 0a283a4 · 0a283a4
1 parent 148f23b
commit 0a283a4
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/tests/testthat/test_date_filter.R b/tests/testthat/test_date_filter.R
@@ -69,3 +69,10 @@ test_that("Non-standard Evaluation works", {
   expect_silent(csb_date_filter(january_2018, "datetimeinit", month = 1))
   expect_silent(csb_date_filter(january_2018, datetimeinit, month = 1))
 })
+
+
+# test that logical arguments greater than length one pass --------
+
+test_that("Logical arguments of length > 1 Pass", {
+  expect_silent(csb_date_filter(january_2018, datetimeinit, day = 1:15, month = 1:6, year = 09:14))
+})