use Test::More tests => 15;

BEGIN { use_ok('Lingua::PT::Nums2Words', 'num2word') };

@a=num2word(1,2,3);
@b=qw(um dois três);

while ($a = shift @a) {
  $b = shift @b;
  is($a,$b);
}

@a=num2word(1..1000);
@b=(1..1000);
is(@a,@b);

@a=num2word(1..10);
@b=qw(um dois três quatro cinco seis sete oito nove dez);

while ($a = shift @a) {
  $b = shift @b;
  is($a,$b);
}