view release on metacpan or  search on metacpan

t/30_v1_tests.t  view on Meta::CPAN

use strict;
use Test;
BEGIN { plan tests => 60 }

use Lingua::EN::Numbers qw(num2en num2en_ordinal);
print "# Using Lingua::EN::Numbers v$Lingua::EN::Numbers::VERSION\n";
ok 1;

sub N ($) { num2en(        $_[0]) }
sub O ($) { num2en_ordinal($_[0]) }

ok N   0, 'zero';
ok N   1, 'one';
ok N   2, 'two';
ok N   3, 'three';
ok N   4, 'four';
ok N   5, 'five';
ok N   6, 'six';
ok N   7, 'seven';
ok N   8, 'eight';