Commit 6c5efaba authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

Got to have a url to test now

parent a18719e8
......@@ -342,7 +342,9 @@ test_that("readWQPdots working", {
context("getWebServiceData")
test_that("long urls use POST", {
testthat::skip_on_cran()
url <- paste0(rep("reallylongurl", 200), collapse = '')
baseURL <- dataRetrieval:::drURL("Result")
url <- paste0(baseURL,
rep("reallylongurl", 200), collapse = '')
with_mock(
RETRY = function(method, ...) {
return(method == "POST")
......@@ -357,7 +359,9 @@ test_that("long urls use POST", {
test_that("ngwmn urls don't use post", {
testthat::skip_on_cran()
url <- paste0(rep("urlwithngwmn", 200), collapse = '')
baseURL <- dataRetrieval:::drURL("NGWMN")
url <- paste0(baseURL,
rep("urlwithngwmn", 200), collapse = '')
with_mock(
RETRY = function(method, ...) {
return(method == "POST")
......
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