test that unzipping input files works. Closes #28.

Author: mhpob

tests/testthat/test-make_receiver_push_summary.R

@@ -18,6 +18,27 @@ test_that("Projects are summarized", {
 
 
 
+test_that("Zipped files are unzipped", {
+  zip(gsub("csv$", "zip", pbsm$qualified), pbsm$qualified, flags = "-q")
+  zip(gsub("csv$", "zip", pbsm$unqualified), pbsm$unqualified, flags = "-q")
+
+  make_receiver_push_summary(
+    qualified = gsub("csv$", "zip", pbsm$qualified),
+    unqualified = gsub("csv$", "zip", pbsm$unqualified),
+    deployment = pbsm$deployment,
+    since = "2018-05-06"
+  ) |>
+    expect_message("zipped files detected") |>
+    expect_message("Unzipped") |>
+    expect_message("zipped files detected") |>
+    expect_message("Unzipped") |>
+    expect_message("Asking OTN GeoServer for project information") |>
+    expect_message("Writing report") |>
+    expect_message("Done")
+})
+
+
+
 test_that("Renders with RMarkdown", {
   make_receiver_push_summary(
     qualified = pbsm$qualified,

tests/testthat/test-make_tag_push_summary.R

@@ -17,6 +17,7 @@ test_that("Non-ACT projects are summarized", {
 
 
 
+
 test_that("Renders with RMarkdown", {
   make_tag_push_summary(
     matched = pbsm$matched,
@@ -34,6 +35,24 @@ test_that("Renders with RMarkdown", {
 
 
 
+test_that("Zipped files are unzipped", {
+  zip(gsub("csv$", "zip", pbsm$matched), pbsm$matched, flags = "-q")
+
+  make_tag_push_summary(
+    matched = gsub("csv$", "zip", pbsm$matched),
+    since = "2018-05-06",
+    rmd = TRUE
+  ) |>
+    expect_message("zipped files detected") |>
+    expect_message("Unzipped") |>
+    expect_message("Asking OTN GeoServer") |>
+    expect_message("Writing report") |>
+    expect_message("Done")
+})
+
+
+
+
 test_that("No new detections since \"since\" date works", {
   make_tag_push_summary(
     matched = pbsm$matched,