From 490f45403f16ef884e6633ae150d9f9746f2c17f Mon Sep 17 00:00:00 2001
From: Laura DeCicco <ldecicco@usgs.gov>
Date: Mon, 29 Jun 2015 16:48:16 -0500
Subject: [PATCH] Added some tests.
---
tests/testthat/tests_userFriendly_fxns.R | 14 ++++++++++++--
1 file changed, 12 insertions(+), 2 deletions(-)
diff --git a/tests/testthat/tests_userFriendly_fxns.R b/tests/testthat/tests_userFriendly_fxns.R
index 0ff5c3a6..945c8376 100644
--- a/tests/testthat/tests_userFriendly_fxns.R
+++ b/tests/testthat/tests_userFriendly_fxns.R
@@ -113,5 +113,15 @@ test_that("NWIS dv tests", {
expect_that(nrow(notActive) == 0, is_true())
})
-
-
+test_that("WQP qw tests", {
+ testthat::skip_on_cran()
+ nameToUse <- 'Specific conductance'
+ pcodeToUse <- '00095'
+
+ INFO_WQP <- readWQPqw('USGS-04024315',pcodeToUse, startDate = "", endDate = "")
+ expect_is(INFO_WQP$ActivityStartDateTime, 'POSIXct')
+
+ INFO2 <- readWQPqw('WIDNR_WQX-10032762',nameToUse, startDate = "", endDate = "")
+ expect_is(INFO2$ActivityStartDateTime, 'POSIXct')
+
+})
--
GitLab