print "END INPUT PROGRAM.\n";
print "PRINT OUTFILE='output.txt'/EXPR.\n";
-for my $format qw (F COMMA DOT DOLLAR PCT E CCA CCB CCC CCD CCE N Z) {
+for my $format (qw (F COMMA DOT DOLLAR PCT E CCA CCB CCC CCD CCE N Z)) {
for my $d (0...16) {
my ($min_w);
if ($format ne 'E') {
]])
AT_CHECK([$PERL num-out.pl > num-out.sps])
AT_CHECK([pspp -O format=csv num-out.sps])
-AT_CHECK([inexactify$EXEEXT < output.txt > output.inexact])
+AT_CHECK([inexactify < output.txt > output.inexact])
AT_CHECK([gzip -cd < $top_srcdir/tests/data/num-out.expected.cmp.gz > expout.cmp])
AT_DATA([num-out-decmp.pl],
[[use strict;
execute.
])
AT_CHECK([pspp -O format=csv month-out.sps], [1], [stdout])
-AT_CHECK([[sed '/^$/d' stdout | sort | uniq -c | sed 's/^[ ]*//']], [0],
+AT_CHECK([[sed '/^ *\r*$/d' stdout | sort | uniq -c | sed 's/^[ ]*//']], [0],
[dnl
38 error: Month number 0.000000 is not between 1 and 12.
38 error: Month number 0.500000 is not between 1 and 12.
execute.
])
AT_CHECK([pspp -O format=csv wkday-out.sps], [1], [stdout])
-AT_CHECK([[sed '/^$/d' stdout | sort | uniq -c | sed 's/^[ ]*//']], [0],
+AT_CHECK([[sed '/^ *\r*$/d' stdout | sort | uniq -c | sed 's/^[ ]*//']], [0],
[dnl
39 error: Weekday number 0.000000 is not between 1 and 7.
39 error: Weekday number 0.500000 is not between 1 and 7.