Skip to content

Commit 29c1431

Browse files
authored
Merge pull request #12 from atoomic/strict++
t/call.t add some verbose output on failures
2 parents b308b9b + f99f259 commit 29c1431

File tree

1 file changed

+25
-25
lines changed

1 file changed

+25
-25
lines changed

t/call.t

Lines changed: 25 additions & 25 deletions
Original file line numberDiff line numberDiff line change
@@ -130,18 +130,18 @@ use $module ;
130130
EOM
131131

132132
use Cwd ;
133-
$here = getcwd ;
133+
my $here = getcwd ;
134134
print "I am $here\n" ;
135135
print "some letters ABC\n" ;
136-
$y = "ABCDEF" ;
136+
my $y = "ABCDEF" ;
137137
print <<EOF ;
138138
Alphabetti Spagetti ($y)
139139
EOF
140140

141141
EOM
142142

143143
$a = `$Perl "-I." $Inc $filename $redir` ;
144-
ok(5, ($? >>8) == 0) ;
144+
ok(5, ($? >>8) == 0) or warn $a;
145145
ok(6, $a eq <<EOM) ;
146146
I am $here
147147
some letters DEF
@@ -179,18 +179,18 @@ use $module ;
179179
EOM
180180

181181
use Cwd ;
182-
$here = getcwd ;
182+
my $here = getcwd ;
183183
print "I am $here\n" ;
184184
print "some letters ABC\n" ;
185-
$y = "ABCDEF" ;
185+
my $y = "ABCDEF" ;
186186
print <<EOF ;
187187
Alphabetti Spagetti ($y)
188188
EOF
189189

190190
EOM
191191

192192
$a = `$Perl "-I." $Inc $filename $redir` ;
193-
ok(7, ($? >>8) == 0) ;
193+
ok(7, ($? >>8) == 0) or warn $a;
194194
ok(8, $a eq <<EOM) ;
195195
I am $here
196196
some letters DEF
@@ -286,7 +286,7 @@ use $module4 ;
286286
EOM
287287

288288
print "some letters ABCXYZ\n" ;
289-
$y = "ABCDEFXYZ" ;
289+
my $y = "ABCDEFXYZ" ;
290290
print <<EOF ;
291291
Fred likes Alphabetti Spagetti ($y)
292292
EOF
@@ -305,7 +305,7 @@ EOF
305305
EOM
306306

307307
$a = `$Perl "-I." $Inc $filename $redir` ;
308-
ok(9, ($? >>8) == 0) ;
308+
ok(9, ($? >>8) == 0) or warn $a;
309309
ok(10, $a eq <<EOM) ;
310310
I'm feeling used!
311311
Fred Joe ABC DEF PQR XYZ
@@ -359,15 +359,15 @@ use $module2 qw( ABC NMO) ;
359359
EOM
360360

361361
print "some letters ABCXYZ KLM NMO\n" ;
362-
$y = "ABCDEFXYZKLMNMO" ;
362+
my $y = "ABCDEFXYZKLMNMO" ;
363363
print <<EOF ;
364364
Alphabetti Spagetti ($y)
365365
EOF
366366

367367
EOM
368368

369369
$a = `$Perl "-I." $Inc $filename $redir` ;
370-
ok(11, ($? >>8) == 0) ;
370+
ok(11, ($? >>8) == 0) or warn $a;
371371
ok(12, $a eq <<EOM) ;
372372
some letters PQRPQR PQR PQR
373373
Alphabetti Spagetti (PQRDEFPQRPQRPQR)
@@ -418,15 +418,15 @@ use $module2 qw( ABC NMO) ;
418418
EOM
419419

420420
print "some letters ABCXYZ KLM NMO\n" ;
421-
$y = "ABCDEFXYZKLMNMO" ;
421+
my $y = "ABCDEFXYZKLMNMO" ;
422422
print <<EOF ;
423423
Alphabetti Spagetti ($y)
424424
EOF
425425

426426
EOM
427427

428428
$a = `$Perl "-I." $Inc $filename $redir` ;
429-
ok(13, ($? >>8) == 0) ;
429+
ok(13, ($? >>8) == 0) or warn $a;
430430
ok(14, $a eq <<EOM) ;
431431
some letters PQRPQR PQR PQR
432432
Alphabetti Spagetti (PQRDEFPQRPQRPQR)
@@ -486,7 +486,7 @@ F
486486
EOM
487487
488488
$a = `$Perl "-I." $Inc $filename $redir` ;
489-
ok(15, ($? >>8) == 0) ;
489+
ok(15, ($? >>8) == 0) or warn $a;
490490
ok(16, $a eq <<EOM) ;
491491
don't cut me in half
492492
appended
@@ -524,7 +524,7 @@ EOM
524524
525525
my $string = <<'EOM' ;
526526
print "hello mum\n" ;
527-
$x = 'me ' x 3 ;
527+
my $x = 'me ' x 3 ;
528528
print "Who wants it?\n$x\n" ;
529529
EOM
530530
@@ -534,7 +534,7 @@ use $block ;
534534
EOM
535535
536536
$a = `$Perl "-I." $Inc $filename $redir` ;
537-
ok(17, ($? >>8) == 0) ;
537+
ok(17, ($? >>8) == 0) or warn $a;
538538
ok(18, $a eq <<EOM) ;
539539
hello mum
540540
Who wants it?
@@ -582,7 +582,7 @@ print "We are in DIR\n" ;
582582
EOM
583583
584584
$a = `$Perl "-I." $Inc $filename $redir` ;
585-
ok(19, ($? >>8) == 0) ;
585+
ok(19, ($? >>8) == 0) or warn $a;
586586
ok(20, $a eq <<EOM) ;
587587
We are in $here
588588
EOM
@@ -633,7 +633,7 @@ HERE today gone tomorrow\n" ;
633633
EOM
634634
635635
$a = `$Perl "-I." $Inc $filename $redir` ;
636-
ok(21, ($? >>8) == 0) ;
636+
ok(21, ($? >>8) == 0) or warn $a;
637637
ok(22, $a eq <<EOM) ;
638638
639639
THERE I am
@@ -683,7 +683,7 @@ HERE today gone tomorrow\n" ;
683683
EOM
684684
685685
$a = `$Perl "-I." $Inc $filenamebin $redir` ;
686-
ok(23, ($? >>8) == 0) ;
686+
ok(23, ($? >>8) == 0) or warn $a;
687687
ok(24, $a eq <<EOM) ;
688688
689689
HERE I am
@@ -728,7 +728,7 @@ writeFile($filename, <<EOM, <<'EOM') ;
728728
use $block ;
729729
EOM
730730
print "HERE HERE\n";
731-
@a = <DATA>;
731+
my @a = <DATA>;
732732
print @a;
733733
__DATA__
734734
HERE I am
@@ -737,7 +737,7 @@ HERE today gone tomorrow
737737
EOM
738738
739739
$a = `$Perl "-I." $Inc $filename $redir` ;
740-
ok(25, ($? >>8) == 0) ;
740+
ok(25, ($? >>8) == 0) or warn $a;
741741
ok(26, $a eq <<EOM) ;
742742
THERE THERE
743743
HERE I am
@@ -784,7 +784,7 @@ writeFile($filename, <<EOM, <<'EOM') ;
784784
use $block ;
785785
EOM
786786
print "HERE HERE\n";
787-
@a = <DATA>;
787+
my @a = <DATA>;
788788
print @a;
789789
__END__
790790
HERE I am
@@ -793,7 +793,7 @@ HERE today gone tomorrow
793793
EOM
794794
795795
$a = `$Perl "-I." $Inc $filename $redir` ;
796-
ok(27, ($? >>8) == 0) ;
796+
ok(27, ($? >>8) == 0) or warn $a;
797797
ok(28, $a eq <<EOM) ;
798798
THERE THERE
799799
HERE I am
@@ -826,12 +826,12 @@ EOM
826826
827827
my $str = $^O eq 'MacOS' ? "'ok'" : "q{ok}";
828828
my $a = `$Perl "-I." $Inc -e "no ${module6}; print $str"`;
829-
ok(29, ($? >>8) == 0);
829+
ok(29, ($? >>8) == 0) or warn $a;
830830
chomp( $a ) if $^O eq 'VMS';
831831
ok(30, $a eq 'ok');
832832
833833
$a = `$Perl "-I." $Inc $filename2`;
834-
ok(31, ($? >>8) == 0);
834+
ok(31, ($? >>8) == 0) or warn $a;
835835
chomp( $a ) if $^O eq 'VMS';
836836
ok(32, $a eq 'ok');
837837
@@ -875,7 +875,7 @@ HERE today gone tomorrow\n" ;
875875
EOM
876876
877877
$a = `$Perl "-I." $Inc $filenamebin $redir` ;
878-
ok(33, ($? >>8) != 0) ;
878+
ok(33, ($? >>8) != 0) or warn $a;
879879
ok(34, $a =~ /^filter_read_exact: size parameter must be > 0 at block.pm/) ;
880880
881881

0 commit comments

Comments
 (0)