blob: 2c8023578415125c0fa91e14b20c9176d3d96f3d [file] [log] [blame]
#!/usr/bin/perl
@data = glob("$ENV{UEB_TEST_DATA_PATH}/*.txt");
$result = 0;
foreach $file (@data)
{
chomp($file);
@output = `./check_ueb_test_data -t tables/en-ueb-g2.ctb < $file`;
if($? != 0)
{
$result = 1;
}
$last = $output[$#output];
chomp($last);
$last =~ /^([0-9\.]+)%/;
print("$file: $1\n");
}
`rm -f pass.txt fail.txt output.txt`;
exit $result;
__END__