diff --git a/tests/testthat/tests_userFriendly_fxns.R b/tests/testthat/tests_userFriendly_fxns.R
index 71034dd23d79d0238e1ad3a7d34ebae353bda0fc..2be7bd29f39e277b7b2e1633e330ec87b2281e1a 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