tests/testthat/test-ppd-extensions.R

test_that("ukh_ppd_transaction rejects invalid input", {
  expect_error(ukh_ppd_transaction(""))
  expect_error(ukh_ppd_transaction(NULL))
  expect_error(ukh_ppd_transaction(c("a", "b")))
})

test_that("ukh_ppd_address rejects invalid input", {
  expect_error(ukh_ppd_address(""))
  expect_error(ukh_ppd_address(NULL))
})

test_that("ukh_ppd_years rejects invalid input", {
  expect_error(ukh_ppd_years(character(0)))
  expect_error(ukh_ppd_years(integer(0)))
})

Try the ukhousing package in your browser

Any scripts or data that you put into this service are public.

ukhousing documentation built on Nov. 3, 2026, 9:06 a.m.