Add more tests

tests/testthat/tests_general.R

@@ -104,6 +104,8 @@ test_that("General NWIS retrievals working", {
                                            endDate = "2015-06-18", 
                                            service="dv") 
   expect_equal(2, nrow(multi_huc))
+
+  
   
 })
 

tests/testthat/tests_imports.R

@@ -176,6 +176,14 @@ test_that("External importWaterML1 test", {
   expect_equal(chi_iv$dateTime[1], as.POSIXct("2014-05-01T00:00", format = "%Y-%m-%dT%H:%M", tz="America/Chicago"))
   expect_equal(chi_iv$dateTime[nrow(chi_iv)], as.POSIXct("2014-05-01T12:00", format = "%Y-%m-%dT%H:%M", tz="America/Chicago"))
   
+  # Time over daylight saving switch:
+  tzURL <- constructNWISURL("04027000", c("00300","63680"),
+                            "2011-11-05", "2011-11-07","uv")
+  tzIssue <- importWaterML1(tzURL, 
+                            asDateTime = TRUE,
+                            tz = "America/Chicago")
+  expect_false(any(duplicated(tzIssue$dateTime)))
+  
 })
 
 # test_that("no data val replacement works", {