tests/testthat/test-nl_free.R

In uRos2018/nlgeocoder: Geocoding for the Netherlands

context("nl_suggest")

test_that("q = s - no additional parameter values - number of search results > 0", {
  skip_on_cran()
  res <- nl_free("s")
  expect_true(res$response$numFound > 0)
})

test_that("q = s - number of search results in response equals 10", {
  skip_on_cran()
  res <- nl_suggest("s")
  expect_true(nrow(res$response$docs) == 10)
})

test_that("q = s and rows = 3", {
  skip_on_cran()
  res <- nl_suggest("s", rows = 3)
  expect_true(nrow(res$response$docs) == 3)
})

test_that("q = !-=>#", {
  skip_on_cran()
  res <- nl_suggest('!-=>#')
  expect_true(res$response$numFound == 0)
})

test_that("q = s and fq = type:weg", {
  skip_on_cran()
  res <- nl_suggest("s", fq = "type:weg")
  expect_true(sum(res$response$docs$type == 'weg') == 10)
})

test_that("q = Den Haag and fq = type:woonplaats", {
  skip_on_cran()
  res <- nl_suggest("Den Haag", fq = "type:woonplaats")
  expect_true(res$response$numFound == 1)
})

test_that("Filter attributes - only weergavenaam", {
  skip_on_cran()
  res <- nl_suggest("s", fl = "weergavenaam")
  expect_true(ncol(res$response$docs) == 1 & names(res$response$docs)[1] == "weergavenaam")
})

test_that("Filter attributes - weergavenaam and type", {
  skip_on_cran()
  res <- nl_suggest("s", fl = "weergavenaam, type")
  expect_true(ncol(res$response$docs) == 2)
})

test_that("Sort response ascending by weergavenaam", {
  skip_on_cran()
  res <- nl_suggest("s", sort = "weergavenaam asc")
  expect_true(substr(res$response$docs[[2]][1], 1, 1) == "'")
})