tests/testthat/test-geoknife_xml_parser.R

In USGS-R/geoknife: Web-Processing of Large Gridded Datasets

context("Test xml parsing")

test_that("parseXMLnodes works for WFS responses", {
  testthat::skip_on_cran()
  local_file <- system.file('extdata','SB_getCapabilities.xml', package = 'geoknife')
  xml <- xml2::read_xml(local_file)
  output <- geoknife:::parseXMLgeoms(xml)
  expect_is(output, "character")
  expect_equal(output[2], "sb:WBIC_190900")
})