projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Make psppire-axis thread safer
[pspp]
/
tests
/
formats
/
num-out-compare.pl
diff --git
a/tests/formats/num-out-compare.pl
b/tests/formats/num-out-compare.pl
index 6bf0cb79a7e6fc2cbf4ce73277c9e8b5d0f2d02e..be3c6239801b1e0246ace8a55e343eb5a1370c82 100644
(file)
--- a/
tests/formats/num-out-compare.pl
+++ b/
tests/formats/num-out-compare.pl
@@
-1,6
+1,7
@@
#! /usr/bin/perl -w
use strict;
#! /usr/bin/perl -w
use strict;
+use warnings 'all';
use Getopt::Long;
my $exact = 0;
use Getopt::Long;
my $exact = 0;
@@
-83,6
+84,16
@@
while (defined (my $a = <EXPECTED>) && defined (my $b = <ACTUAL>)) {
$errors++;
}
}
$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) {
if ($verbose) {
print "$errors errors\n";
if (!$exact) {