Commit 895a6778 authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

Empty wml1 tests now have names

parent b4964fb8
...@@ -130,7 +130,7 @@ test_that("External importWaterML1 test", { ...@@ -130,7 +130,7 @@ test_that("External importWaterML1 test", {
url <- constructNWISURL("05212700", "00060", "2014-01-01", "2014-01-10",'dv', statCd = "00001") url <- constructNWISURL("05212700", "00060", "2014-01-01", "2014-01-10",'dv', statCd = "00001")
noData <- importWaterML1(url) noData <- importWaterML1(url)
expect_true(class(attr(noData,"url"))=="character") expect_true(class(attr(noData,"url"))=="character")
expect_true(all(dim(noData)==0)) expect_true(all(dim(noData) == c(0, 4)))
url <- constructNWISURL(service = 'iv', site = c('02319300','02171500'), url <- constructNWISURL(service = 'iv', site = c('02319300','02171500'),
startDate = "2015-04-04", endDate = "2015-04-05") startDate = "2015-04-04", endDate = "2015-04-05")
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment