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