X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Fformats%2Fnum-out-compare.pl;h=be3c6239801b1e0246ace8a55e343eb5a1370c82;hb=729b96a6bd9342c45e6f65a113fd87c70da85b0a;hp=6bf0cb79a7e6fc2cbf4ce73277c9e8b5d0f2d02e;hpb=8acca2de53c1852f38726f70fc6516b34732a79f;p=pspp-builds.git

diff --git a/tests/formats/num-out-compare.pl b/tests/formats/num-out-compare.pl
index 6bf0cb79..be3c6239 100644
--- a/tests/formats/num-out-compare.pl
+++ b/tests/formats/num-out-compare.pl
@@ -1,6 +1,7 @@
 #! /usr/bin/perl -w
 
 use strict;
+use warnings 'all';
 use Getopt::Long;
 
 my $exact = 0;
@@ -83,6 +84,16 @@ while (defined (my $a = <EXPECTED>) && defined (my $b = <ACTUAL>)) {
 	$errors++;
     }
 }
+while (<EXPECTED>) {
+    print "Extra lines in $ARGV[0]\n";
+    $errors++;
+    last;
+}
+while (<ACTUAL>) {
+    print "Extra lines in $ARGV[1]\n";
+    $errors++;
+    last;
+}
 if ($verbose) {
     print "$errors errors\n";
     if (!$exact) {