diff --git a/tests/testthat/tests_userFriendly_fxns.R b/tests/testthat/tests_userFriendly_fxns.R index 0ff5c3a61af0576694c7540036695886ebc334ca..945c8376e1a432044d6a6e3d4ce1f386c7783fed 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') + +})