liblouis/tests/ueb_test_data.pl

#!/usr/bin/perl

@data = glob("$ENV{UEB_TEST_DATA_PATH}/*.txt");
$result = 0;

foreach $file (@data)
{
	chomp($file);
	
	@output = `../tools/lou_compare -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__