From 0bea470a2272cbcb5a3301b39ee036923fa79b8f Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Wed, 18 Feb 2015 17:07:49 -0600
Subject: [PATCH] Taking out WQP tests for now.
---
tests/testthat/tests_general.R | 26 +++++++++++++-------------
tests/testthat/tests_imports.R | 22 +++++++++++-----------
2 files changed, 24 insertions(+), 24 deletions(-)
diff --git a/tests/testthat/tests_general.R b/tests/testthat/tests_general.R
index 1a8beaa6..9ae945bf 100644
--- a/tests/testthat/tests_general.R
+++ b/tests/testthat/tests_general.R
@@ -24,18 +24,18 @@ test_that("General NWIS retrievals working", {
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')
+ # Bring back when WQP is back
+# 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
diff --git a/tests/testthat/tests_imports.R b/tests/testthat/tests_imports.R
index ea5fe048..e2c52cf0 100644
--- a/tests/testthat/tests_imports.R
+++ b/tests/testthat/tests_imports.R
@@ -122,15 +122,15 @@ context("importWQP_noCRAN")
test_that("External WQP tests", {
testthat::skip_on_cran()
- rawSampleURL <- constructWQPURL('USGS-01594440','01075', '', '')
- rawSample <- importWQP(rawSampleURL)
- expect_is(rawSample$ActivityStartDateTime, 'POSIXct')
-
- url2 <- paste0(rawSampleURL,"&zip=yes")
- rawSample2 <- suppressWarnings(importWQP(url2, TRUE))
- expect_is(rawSample2$ActivityStartDateTime, 'POSIXct')
-
- STORETex <- constructWQPURL('WIDNR_WQX-10032762','Specific conductance', '', '')
- STORETdata <- importWQP(STORETex)
- expect_is(STORETdata$ActivityStartDateTime, 'POSIXct')
+# rawSampleURL <- constructWQPURL('USGS-01594440','01075', '', '')
+# rawSample <- importWQP(rawSampleURL)
+# expect_is(rawSample$ActivityStartDateTime, 'POSIXct')
+#
+# url2 <- paste0(rawSampleURL,"&zip=yes")
+# rawSample2 <- suppressWarnings(importWQP(url2, TRUE))
+# expect_is(rawSample2$ActivityStartDateTime, 'POSIXct')
+#
+# STORETex <- constructWQPURL('WIDNR_WQX-10032762','Specific conductance', '', '')
+# STORETdata <- importWQP(STORETex)
+# expect_is(STORETdata$ActivityStartDateTime, 'POSIXct')
})
\ No newline at end of file
--
GitLab