From 75569a8065b25ff674d02ae04380e0b8090d4128 Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Wed, 18 Feb 2015 13:35:23 -0600
Subject: [PATCH] Added tests.
---
tests/testthat/tests_general.R | 19 +++++++++++++++++++
1 file changed, 19 insertions(+)
diff --git a/tests/testthat/tests_general.R b/tests/testthat/tests_general.R
index 5d44df57..1a8beaa6 100644
--- a/tests/testthat/tests_general.R
+++ b/tests/testthat/tests_general.R
@@ -19,4 +19,23 @@ test_that("General NWIS retrievals working", {
siteInfo <- readNWISdata(stateCd="WI", parameterCd="00010",hasDataTypeCd="iv",
service="site")
+})
+
+
+test_that("General WQP retrievals working", {
+ testthat::skip_on_cran()
+
+ nameToUse <- "pH"
+ pHData <- readWQPdata(siteid="USGS-04024315",characteristicName=nameToUse)
+ expect_is(pHData$ActivityStartDateTime, 'POSIXct')
+
+ pHDataExpanded2 <- readWQPdata(bBox=c(-90.10,42.67,-88.64,43.35),
+ characteristicName=nameToUse)
+ expect_is(pHDataExpanded2$ActivityStartDateTime, 'POSIXct')
+
+ startDate <- as.Date("2013-01-01")
+ nutrientDaneCounty <- readWQPdata(countycode="US:55:025",startDate=startDate,
+ characteristicType="Nutrient")
+ expect_is(nutrientDaneCounty$ActivityStartDateTime, 'POSIXct')
+
})
\ No newline at end of file
--
GitLab