tests/testthat/test-as.oin.R

In sweidnumbr: Handling of Swedish Identity Numbers

context("as.oin")

test_that(desc="class: oin",{
  expect_is(as.oin("556000-4615"), class = "oin")
})

test_that(desc="character: GNNNNNN-NNNC",{
  expect_equal(as.character(as.oin(c("556000-4615", "232100-0156", "802002-4280"))), 
               expected = c("556000-4615", "232100-0156", "802002-4280"))
})

test_that(desc="error expected",{
  expect_equal(as.character(suppressWarnings(as.oin(c("802X024280", "AA2002-4280","5560.0-4.15")))), as.character(c(NA,NA,NA)))  
})


test_oins <- c("556000-4615", "232100-0156", "802002-4280")
test_that("Recycling rules", {
  expect_is(data.frame(as.oin(test_oins), 1:9), "data.frame")
  expect_equal(nrow(data.frame(as.oin(test_oins), 1:9)), 9)
  expect_equal(data.frame(as.oin(test_oins), 1:9)[1:3, 1], data.frame(as.oin(test_oins), 1:9)[4:6, 1])
  expect_equal(data.frame(as.oin(test_oins), 1:9)[1:3, 1], data.frame(as.oin(test_oins), 1:9)[7:9, 1])
})

test_oin1 <- c("5560004615", "232100-0156", "802002-4280", "A02002-4280")
test_oin2 <- c(5560004615, 123)
test_that("OIN formats", {
  expect_equal(suppressWarnings(as.character(as.oin(test_oin1))), c("556000-4615", "232100-0156", "802002-4280", NA))
  expect_warning(as.oin(test_oin1))
  expect_equal(suppressWarnings(as.character(as.oin(test_oin2))), c("556000-4615", NA))
  expect_warning(as.oin(test_oin2))
})

test_that("Same error messages as in as.pin() is used", {
  num_to_check <- c("202100-6255","121212-1212","19121212-1212","121212+1212", 1212121212, NA, Inf, TRUE, F, "foo", 123, 456L)
  expect_warning(as.oin(num_to_check), "Erroneous oin\\(s\\) \\(set to NA\\)\\.")
})

test_that("as.oin classes", {
  to_check <- factor(c("556000-4615"))
  expect_silent(as.oin(to_check))
})