tests/testthat/test-nearest_outcode.R

In ropensci/PostcodesioR: API Wrapper Around 'Postcodes.io'

context("nearest_outcode")

test_that("nearest_outcode works as expected", {
  # Don't run these tests on the CRAN build servers
  skip_on_cran()

  incorrect_outcode1 <- 3.15807
  incorrect_outcode2 <- "E"

  nearest_outcode_result <- nearest_outcode("EC1Y")

  expect_error(nearest_outcode(incorrect_outcode1))
  expect_error(nearest_outcode(incorrect_outcode2))

  expect_error(nearest_outcode("EC1Y", limit = 101))
  expect_error(nearest_outcode("EC1Y", limit = 10, radius = 25001))
  expect_error(nearest_outcode("EC1Y", limit = 10, radius = 4999))

  expect_that(nearest_outcode_result, is_a("list"))
})