tests/testthat/test-utils-input-validation.R

In kvkapiR: Interface to the Dutch Chamber of Commerce (KvK) API

test_that("validate_kvk_nummer works correctly", {
  # Valid KvK numbers (8 digits)
  expect_invisible(validate_kvk_nummer("12345678"))
  expect_invisible(validate_kvk_nummer("00000000"))
  expect_invisible(validate_kvk_nummer("99999999"))
  
  # Invalid KvK numbers
  expect_error(validate_kvk_nummer("1234567"), "kvkNummer must be 8 digits")
  expect_error(validate_kvk_nummer("123456789"), "kvkNummer must be 8 digits")
  expect_error(validate_kvk_nummer("12a45678"), "kvkNummer must be 8 digits")
  expect_error(validate_kvk_nummer(""), "kvkNummer must be 8 digits")
  expect_error(validate_kvk_nummer("abcdefgh"), "kvkNummer must be 8 digits")
})

test_that("validate_vestigingsnummer works correctly", {
  # Valid vestigingsnummers (12 digits)
  expect_invisible(validate_vestigingsnummer("123456789012"))
  expect_invisible(validate_vestigingsnummer("000000000000"))
  expect_invisible(validate_vestigingsnummer("999999999999"))
  
  # Invalid vestigingsnummers
  expect_error(validate_vestigingsnummer("12345678901"), "vestigingsnummer must be 12 digits")
  expect_error(validate_vestigingsnummer("1234567890123"), "vestigingsnummer must be 12 digits")
  expect_error(validate_vestigingsnummer("12a456789012"), "vestigingsnummer must be 12 digits")
  expect_error(validate_vestigingsnummer(""), "vestigingsnummer must be 12 digits")
  expect_error(validate_vestigingsnummer("abcdefghijkl"), "vestigingsnummer must be 12 digits")
})