view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

use strict;
use Lingua::EN::Nums2Words;

my $DBG=0;
my $tests=9;
my $variations=3;
my $loops=2;

print "1..",$tests*$variations*$loops,"\n";

$/ = "";
my $i = 1;
my $DATA_start=tell DATA;
foreach my $case (qw(upper lower)) {
  Lingua::EN::Nums2Words::set_case($case);
  seek DATA, $DATA_start, 0;
  while(<DATA>) {
    my($num,$word,$ord,$short_ord,$dollar) = split(/\n/,$_);
    my $ok;

    $ok=(case($case,$word) eq &num2word($num));