[Pspp-cvs] pspp/tests/formats num-out-compare.pl

[Ben Pfaff]

CVSROOT:        /cvsroot/pspp
Module name:    pspp
Changes by:     Ben Pfaff <blp> 06/12/14 05:35:38

Modified files:
        tests/formats  : num-out-compare.pl 

Log message:
        Additionally verify that input files have equal number of lines.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/pspp/tests/formats/num-out-compare.pl?cvsroot=pspp&r1=1.1&r2=1.2

Patches:
Index: num-out-compare.pl
===================================================================
RCS file: /cvsroot/pspp/pspp/tests/formats/num-out-compare.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- num-out-compare.pl  5 Nov 2006 05:20:53 -0000       1.1
+++ num-out-compare.pl  14 Dec 2006 05:35:38 -0000      1.2
@@ -83,6 +83,16 @@
        $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) {