### ----------------------------------------------------
### -- Brazilian::FederalDocuments
### -- Licenses: MIT
### -- Authors: Paulo Henrique Rodrigues Pinheiro
### -- File: t/010_cpf.rakutest
### ----------------------------------------------------
use Test;

use Brazilian::FederalDocuments;

plan 4;

my $cpf-do-temer = 6931987887;

ok FederalDocuments::CPF.new(number => $cpf-do-temer).is-valid, "Valid CPF as number";
ok FederalDocuments::CPF.new(number => "$cpf-do-temer").is-valid, "Valid CPF as string";

nok FederalDocuments::CPF.new(number => $cpf-do-temer + 1).is-valid, "Invalid CPF as number";
nok FederalDocuments::CPF.new(number => "{$cpf-do-temer}9").is-valid, "Invalid CPF as string";

# vim: expandtab shiftwidth=4


