diff options
-rwxr-xr-x | regression-testing/run-test-extract.perl | 8 | ||||
-rwxr-xr-x | regression-testing/run-test-suite.perl | 1 |
2 files changed, 4 insertions, 5 deletions
diff --git a/regression-testing/run-test-extract.perl b/regression-testing/run-test-extract.perl index 261541df3..cf64f3881 100755 --- a/regression-testing/run-test-extract.perl +++ b/regression-testing/run-test-extract.perl @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl -w use strict; @@ -38,7 +38,7 @@ unless (defined $results_dir) `mkdir -p $results_dir`; -my $outPath = "$results_dir/pt.half"; +my $outPath = "$results_dir"; my $extractorArgs = `cat $test_dir/$test_name/args.txt`; $_ = $extractorArgs; @@ -48,12 +48,12 @@ $extractorArgs = $_; my $cmdMain = "$extractorExe $extractorArgs \n"; `$cmdMain`; -my $truthPath = "$test_dir/$test_name/truth/results.txt"; +my $truthPath = "$test_dir/$test_name/truth/"; if (-e $outPath) { - my $cmd = "diff $outPath $truthPath | wc -l"; + my $cmd = "diff $outPath/test.txt $truthPath | wc -l"; my $numDiff = `$cmd`; diff --git a/regression-testing/run-test-suite.perl b/regression-testing/run-test-suite.perl index d079d15d2..6e33a11d5 100755 --- a/regression-testing/run-test-suite.perl +++ b/regression-testing/run-test-suite.perl @@ -11,7 +11,6 @@ use Getopt::Long; ############################################################ my @tests = qw ( extract.phrase-based - extract.hierarchical score.phrase-based score.phrase-based-inv score.phrase-based-with-alignment |