tests/testthat/test_pin_to_date.R

context("pin_to_date")

test_that(desc="pin_to_date",{
  expect_warning(pin_to_date(pin = c("196408233234", "186408833224")), expected = lubridate::ymd(c("1964-08-23","1864-08-23")))
})

Try the sweidnumbr package in your browser

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

sweidnumbr documentation built on May 29, 2024, 5:28 a.m.