diff --git a/tests/testthat.R b/tests/testthat.R new file mode 100644 index 0000000000000000000000000000000000000000..fcb82a13f71a2897348d13b16221f325151311d3 --- /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 0000000000000000000000000000000000000000..bd040048ccb861f962eced95439a9402fc41eb0b --- /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