diff options
Diffstat (limited to 'regression-testing/tests/xml-markup/filter-stderr.pl')
-rwxr-xr-x | regression-testing/tests/xml-markup/filter-stderr.pl | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/regression-testing/tests/xml-markup/filter-stderr.pl b/regression-testing/tests/xml-markup/filter-stderr.pl new file mode 100755 index 000000000..a359091ab --- /dev/null +++ b/regression-testing/tests/xml-markup/filter-stderr.pl @@ -0,0 +1,22 @@ +#!/usr/bin/perl + +BEGIN { use Cwd qw/ abs_path /; use File::Basename; $script_dir = dirname(abs_path($0)); push @INC, "$script_dir/../perllib"; } +use RegTestUtils; + +$x=0; +while (<>) { + chomp; + + if (/^Finished loading LanguageModels/) { + my $time = RegTestUtils::readTime($_); + print "LMLOAD_TIME ~ $time\n"; + } + if (/^Finished loading phrase tables/) { + my $time = RegTestUtils::readTime($_); + print "PTLOAD_TIME ~ $time\n"; + } + next unless /^BEST TRANSLATION:/; + my $pscore = RegTestUtils::readHypoScore($_); + print "SCORE_$x = $pscore\n"; + $x++; +} |