additional tests

Metropolitan-Council · Dec 18, 2023 · c7762d7 · c7762d7
1 parent cd0cd28
commit c7762d7
Show file tree

Hide file tree

Showing 2 changed files with 27 additions and 2 deletions.
diff --git 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
@@ -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"