tests/testthat/testtratacpf.R

context("Teste trata cpf")

test_that("CPF com zeros a esquerda", {
  saida <- trata_cpf(566619245)
  expect_equal(saida,"00566619245")
  expect_equal(class(saida),"character")
})

Try the validaRA package in your browser

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

validaRA documentation built on Nov. 17, 2017, 7:13 a.m.