tests/testthat/test-nl_lookup.R

In uRos2018/nlgeocoder: Geocoding for the Netherlands

context("nl_lookup")

test_that("id = weg-998023d41c562b2b433378161ea5670", {
  skip_on_cran()
  res <- nl_lookup(id = "weg-998023d41c562b2b433378161ea56704")
  expect_true(res$id == "weg-998023d41c562b2b433378161ea56704")
})

test_that("Filter attributes - weergavenaam and type", {
  skip_on_cran()
  res <- nl_lookup(id = "weg-998023d41c562b2b433378161ea56704", fl = "weergavenaam, type")
  n <- names(res)
  expect_equal(names(res), c("type", "weergavenaam"))
})