From 6b7c33eead07383d6c516e9f26a13a09dd418c0e Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Mon, 2 Feb 2015 12:04:45 -0600
Subject: [PATCH] Adding new tests that will skip on CRAN, but check on CHECK.
---
tests/testthat.R | 3 +++
tests/testthat/tests_userFriendly_fxns.R | 19 +++++++++++++++++++
2 files changed, 22 insertions(+)
create mode 100644 tests/testthat.R
create mode 100644 tests/testthat/tests_userFriendly_fxns.R
diff --git a/tests/testthat.R b/tests/testthat.R
new file mode 100644
index 00000000..fcb82a13
--- /dev/null
+++ b/tests/testthat.R
@@ -0,0 +1,3 @@
+library(testthat)
+library(dataRetrieval)
+test_check("dataRetrieval")
\ No newline at end of file
diff --git a/tests/testthat/tests_userFriendly_fxns.R b/tests/testthat/tests_userFriendly_fxns.R
new file mode 100644
index 00000000..bd040048
--- /dev/null
+++ b/tests/testthat/tests_userFriendly_fxns.R
@@ -0,0 +1,19 @@
+context("Unit values")
+
+test_that("Unit value data returns correct types", {
+ testthat::skip_on_cran()
+
+ siteNumber <- '05114000'
+ parameterCd <- '00060'
+ startDate <- "2014-10-10"
+ endDate <- "2014-10-10"
+
+ rawData <- readNWISuv(siteNumber,parameterCd,startDate,endDate)
+
+ timeZoneChange <- readNWISuv(c('04024430','04024000'),parameterCd,
+ "2013-11-03","2013-11-03")
+
+ expect_is(rawData$dateTime, 'POSIXct')
+
+
+})
\ No newline at end of file
--
GitLab