add test_elevation httptest2 files for #272

ropensci · Jun 1, 2022 · a973948 · a973948
1 parent 2e699ca
commit a973948
Show file tree

Hide file tree

Showing 6 changed files with 3,434 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: osmdata
 Title: Import 'OpenStreetMap' Data as Simple Features or Spatial Objects
-Version: 0.1.9.013
+Version: 0.1.9.014
 Authors@R: c(
     person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre")),
     person("Bob", "Rudis", role = "aut"),
@@ -40,6 +40,7 @@ Imports:
     utils,
     xml2
 Suggests:
+    httptest,
     knitr,
     markdown,
     raster,

diff --git a/codemeta.json b/codemeta.json
@@ -11,7 +11,7 @@
   "codeRepository": "https://github.com/ropensci/osmdata/",
   "issueTracker": "https://github.com/ropensci/osmdata/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.1.9.013",
+  "version": "0.1.9.014",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",

diff --git a/tests/testthat.R b/tests/testthat.R
@@ -1,4 +1,5 @@
 library(testthat)
+library(httptest2)
 library(osmdata)
 
 test_check("osmdata")
diff --git a/tests/testthat/test-elevation.R b/tests/testthat/test-elevation.R
@@ -9,7 +9,9 @@ test_that ("osmdata_sc", {
         add_osm_feature (key = "highway")
 
     f <- file.path (tempdir (), "junk.osm")
-    doc <- osmdata_xml (qry, file = f)
+    doc <- with_mock_dir ("test_elevation", {
+        osmdata_xml (qry, file = f)
+    })
     expect_silent (x <- osmdata_sc (qry, doc = f))
     expect_true (file.exists (f))