Test that error occurs with no data. Closes #24.

Author: mhpob

tests/testthat/test-make_receiver_push_summary.R

@@ -89,3 +89,13 @@ test_that("Default \"since\" date works", {
 
   expect_true(any(grepl("receiver_push_summary", list.files(getwd()))))
 })
+
+
+
+
+test_that("errors with no input data", {
+  expect_error(
+    make_receiver_push_summary(),
+    "Must provide at least one each of qualified.*unqualified detections.*deployment"
+  )
+})

tests/testthat/test-make_tag_push_summary.R

@@ -78,3 +78,13 @@ test_that("Default \"since\" date works", {
 
   expect_true(any(grepl("tag_push_summary", list.files(getwd()))))
 })
+
+
+
+
+test_that("errors with no input data", {
+  expect_error(
+    make_tag_push_summary(),
+    "Must provide at least one set of OTN-matched detections"
+  )
+})