extract regression test

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