tests/testthat/test-c.pin.R

context("c.pin")

test_that(desc="class: pin",{
  x <- as.pin("196408233234")
  y <- as.pin("200108230000")
  xy <- c(x, y)
  expect_is(xy, class = "pin")
  expect_equal(as.character(xy), c("196408233234","200108230000"))
})

Try the sweidnumbr package in your browser

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

sweidnumbr documentation built on March 31, 2020, 5:24 p.m.