view release on metacpan or  search on metacpan

t/align.t  view on Meta::CPAN

use Test::More tests => 3;
use_ok('Lingua::POSAlign');

use Data::Dumper;
my $n = new Lingua::POSAlign;
@s = qw(-8 6);
while(<DATA>){
#    print $_.$/;
    chomp;
    next unless $_;
    my ($a,$b) = map{eval "[qw($_)]"} split m'/';
    next if $@;
    $n->align($a, $b);
#    print Dumper $n;

#    $n->dump_table;
#    $n->dump_alignment;
    is($n->total_score => shift @s);
}

__END__