Got to have a url to test now

tests/testthat/tests_general.R

@@ -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")