#!/usr/bin/perl -w

use strict;
use Test;

use Lingua::EN::Numericalize;

our @tests = tests();
plan tests => scalar @tests;

for (@tests) {
	my ($num, $text) = split '\s*=\s*';
	ok(str2nbr($text), $num) || print STDERR " > $text\n";
    }

sub tests {
    my $f = $0; $f =~ s/\.t$//;
    open(F, "$f.list") || die "$f.list: $!";
    my @ret = grep { chomp; ! /^#/ && ! /^\s*$/ } <F>;
    close F;
    @ret;
    }
