From 61c466616bf5c8dffc6f34c7b153684dbc31e332 Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Wed, 18 Feb 2015 10:46:17 -0600
Subject: [PATCH] Added qw tests.
---
tests/testthat/tests_userFriendly_fxns.R | 22 ++++++++++++++++++++++
1 file changed, 22 insertions(+)
diff --git a/tests/testthat/tests_userFriendly_fxns.R b/tests/testthat/tests_userFriendly_fxns.R
index 71034dd2..2be7bd29 100644
--- a/tests/testthat/tests_userFriendly_fxns.R
+++ b/tests/testthat/tests_userFriendly_fxns.R
@@ -46,3 +46,25 @@ test_that("peak, rating curves, surface-water measurements", {
expect_is(data$agency_cd, 'character')
})
+context("qw")
+
+test_that("NWIS qw tests", {
+ testthat::skip_on_cran()
+ siteNumbers <- c('04024430','04024000')
+ startDate <- '2010-01-01'
+ endDate <- ''
+ parameterCd <- c('34247','30234','32104','34220')
+
+ rawNWISqwData <- readNWISqw(siteNumbers,parameterCd,startDate,endDate)
+ expect_is(rawNWISqwData$startDateTime, 'POSIXct')
+
+ rawNWISqwDataReshaped <- readNWISqw(siteNumbers,parameterCd,
+ startDate,endDate,reshape=TRUE)
+ expect_is(rawNWISqwDataReshaped$startDateTime, 'POSIXct')
+
+ parameterCd <- "all"
+ rawNWISall <- readNWISqw(siteNumbers,parameterCd,
+ startDate,"2011-01-01",reshape=TRUE)
+ expect_is(rawNWISall$startDateTime, 'POSIXct')
+
+})
\ No newline at end of file
--
GitLab