tests/testthat/test-build-sparql.R

In uklr: Client to United Kingdom Land Registry

context("build-sparql")

skip_if_offline()
skip_if_http_error()

test_that("basic query", {
  expect_error(ukhp_get(), NA)
  expect_error(ukppd_get(), NA)
  expect_error(uktrans_get(), NA)
})


test_that("wrong queries", {
  expect_error(ukhp_get(region = "wrong-region"))
  expect_error(ukhp_get(item = "wrong-item"))

  expect_error(ukppd_get(postcode = "wrong-postcode"))
  expect_error(ukppd_get(item = "wrong-item"))
  expect_error(ukppd_get(optional = "wrong-optional-item"))
  expect_error(uktrans_get(item = "wrong-item"))
  expect_error(uktrans_get(region = "wrong-region"))
})

test_that("avail",{
  expect_equal(ukhp_avail_items_ref(),
         c("refMonth", "refRegion", "refPeriodStart", "refPeriodDuration"))
  expect_error(ukhp_avail_date_last(), NA)
  expect_error(ukhp_avail_date_span(), NA)
})

test_that("ons", {
  expect_error(ons_lookup(), NA)
  expect_error(ons_countries(), NA)
  expect_error(ons_regions(), NA)
  expect_error(ons_eng_counties(), NA)
  expect_error(ons_la(), NA)

  expect_error(ons_nuts1(), NA)
  expect_error(ons_nuts2(), NA)
  expect_error(ons_nuts3(), NA)
  expect_error(ons_lad(), NA)
  expect_error(ons_pc(), NA)
})

test_that("def",{
  expect_error(uklr_def(), NA)
  expect_error(ukhp_def(), NA)
  expect_error(ukppd_def(), NA)
  expect_error(uktrans_def(), NA)
})

test_that("browse", {
  skip_if_interactive()
  expect_equal(uklr_browse(), "http://landregistry.data.gov.uk")
  expect_equal(ukhp_browse(), "http://landregistry.data.gov.uk/def/ukhpi")
  expect_equal(ukppd_browse(), "http://landregistry.data.gov.uk/def/ppi")
  expect_equal(uktrans_browse(), "http://landregistry.data.gov.uk/def/trans")
})