Commit bdbeb444 authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

I guess the timing isn't consistent...so we shouldn't test that

parent af913426
...@@ -376,8 +376,7 @@ test_that("400 errors return a verbose error", { ...@@ -376,8 +376,7 @@ test_that("400 errors return a verbose error", {
url <- "https://waterservices.usgs.gov/nwis/site/?stateCd=IA&bBox=-92.821445,42.303044,-92.167168,42.646524&format=mapper" url <- "https://waterservices.usgs.gov/nwis/site/?stateCd=IA&bBox=-92.821445,42.303044,-92.167168,42.646524&format=mapper"
expect_message(getWebServiceData(url)) expect_message(getWebServiceData(url))
expect_equal(tryCatch(getWebServiceData(url), message = function(e) e$message)[1], "Request failed [400]. Retrying in 1 seconds...\n")
}) })
test_that("internal functions",{ test_that("internal functions",{
......
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