tests/testthat/test-output_pin.R

In janzzon/sweidnumbrExtras: Functions to check Swedish personal and organization numbers

context("Verify correct output pin")

test_that("pin_ctrl2 gives correct output", {
  num_to_check <-
    c("202100-6255","121212-1212","19121212-1212","19121212+1212","121212+1212","1212121212",
      "12121212","121212121212",1212121212, NA, Inf, TRUE, F, "foo", 123, 456L)
  expect_equal(
    unname(pin_ctrl2(num_to_check)), c(
      FALSE,TRUE,TRUE,FALSE,TRUE,TRUE,FALSE,FALSE,TRUE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE
    )
  )
  expect_false(pin_ctrl2(""))
  expect_true(pin_ctrl2("121212-1212"))
  expect_true(TRUE)
})