From c7762d734053e8b0341accfaaf976f2fcbdc8383 Mon Sep 17 00:00:00 2001
From: Liz Roten <liz.roten@metc.state.mn.us>
Date: Mon, 18 Dec 2023 17:49:42 -0600
Subject: [PATCH] additional tests

---
 tests/testthat/test-create_analysis.R        | 23 ++++++++++++++++++++
 tests/testthat/test-get_analysis_shapefile.R |  6 +++--
 2 files changed, 27 insertions(+), 2 deletions(-)

diff --git a/tests/testthat/test-create_analysis.R b/tests/testthat/test-create_analysis.R
index 8757079..6892045 100644
--- a/tests/testthat/test-create_analysis.R
+++ b/tests/testthat/test-create_analysis.R
@@ -43,3 +43,26 @@ testthat::test_that("Expected second warning returned", {
     )
   )
 })
+
+Sys.sleep(1)
+
+testthat::test_that("Expected second warning returned", {
+    create_streetlight_analysis(
+      login_email = test_login,
+      analysis_type = "Zone_Activity_Analysis",
+      analysis_name = "Pt Douglas Regional Parking Lot Summer 22",
+      travel_mode_type = "All_Vehicles_CVD_Plus",
+      output_type = "volume",
+      origin_zone_set = "Pt. Douglas Parking Lot",
+      trip_attributes = FALSE,
+      traveler_attributes = TRUE,
+      date_ranges = list(
+        start_date = "04/01/2022",
+        end_date = "10/31/2022"
+      ),
+      day_types = "All Days|17,Average Weekday|15,Average Weekend Day|67",
+      day_parts = "All Day|0023, Morning|0709, Midday|1113, Evening|1618",
+      tags = list("streetlightR")
+    ) %>% 
+    expect_warning()
+})
diff --git a/tests/testthat/test-get_analysis_shapefile.R b/tests/testthat/test-get_analysis_shapefile.R
index 7c9da29..9bec294 100644
--- a/tests/testthat/test-get_analysis_shapefile.R
+++ b/tests/testthat/test-get_analysis_shapefile.R
@@ -1,5 +1,6 @@
+Sys.sleep(2)
+
 testthat::test_that("Shapefile is returned", {
-  Sys.sleep(1)
   this_shp <- get_analysis_shapefile(
     analysis_name = "v231218-VMT 2019 month 3 Volume Trip Trav Attr",
     shapefile = "zone_activity"
@@ -17,8 +18,9 @@ testthat::test_that("Shapefile is returned", {
 })
 
 
+Sys.sleep(2)
+
 testthat::test_that("Shapefile is returned", {
-  Sys.sleep(1)
   get_analysis_shapefile(
     analysis_name = "v231218-VMT 2019 month 3 Volume Trip Trav Attr",
     shapefile = "zone_activity"