Tiny SelfLoader patch for better warnings

[p5sagit/p5-mst-13.2.git] / lib / Test / t / fail.t

diff --git a/lib/Test/t/fail.t b/lib/Test/t/fail.t
index b431502..9051a1f 100644 (file)
--- a/lib/Test/t/fail.t
+++ b/lib/Test/t/fail.t
@@ -1,11 +1,12 @@
 # -*-perl-*-
 use strict;
 use vars qw($Expect);
-use Test qw($TESTOUT $ntest ok skip plan); 
+use Test qw($TESTOUT $TESTERR $ntest ok skip plan); 
 plan tests => 14;
 
 open F, ">fails";
 $TESTOUT = *F{IO};
+$TESTERR = *F{IO};
 
 my $r=0;
 {
@@ -32,6 +33,7 @@ ok($r); # (failure==success :-)
 
 close F;
 $TESTOUT = *STDOUT{IO};
+$TESTERR = *STDERR{IO};
 $ntest = 1;
 
 open F, "fails";
@@ -49,45 +51,54 @@ shift @got;
 $Expect =~ s/\n+$//;
 my @expect = split /\n\n/, $Expect;
 
+
+sub commentless {
+  my $in = $_[0];
+  $in =~ s/^#[^\n]*\n//mg;
+  $in =~ s/\n#[^\n]*$//mg;
+  return $in;
+}
+
+
 for (my $x=0; $x < @got; $x++) {
-    ok $got[$x], $expect[$x]."\n";
+    ok commentless($got[$x]), commentless($expect[$x]."\n");
 }
 
 
 BEGIN {
     $Expect = <<"EXPECT";
-# Failed test 1 in $0 at line 14
+# Failed test 1 in $0 at line 15
 
-# Failed test 2 in $0 at line 16
+# Failed test 2 in $0 at line 17
 
-# Test 3 got: '0' ($0 at line 17)
+# Test 3 got: '0' ($0 at line 18)
 #   Expected: '1'
 
-# Test 4 got: '2' ($0 at line 18)
+# Test 4 got: '2' ($0 at line 19)
 #   Expected: '3'
 
-# Test 5 got: '2' ($0 at line 19)
+# Test 5 got: '2' ($0 at line 20)
 #   Expected: '0'
 
-# Test 6 got: '2' ($0 at line 22)
+# Test 6 got: '2' ($0 at line 23)
 #   Expected: '1' (\@list=0,0)
 
-# Test 7 got: '2' ($0 at line 23)
+# Test 7 got: '2' ($0 at line 24)
 #   Expected: '1' (\@list=0,0)
 
-# Test 8 got: 'segmentation fault' ($0 at line 24)
+# Test 8 got: 'segmentation fault' ($0 at line 25)
 #   Expected: qr{bongo}
 
-# Failed test 9 in $0 at line 26
+# Failed test 9 in $0 at line 27
 
-# Failed test 10 in $0 at line 26 fail #2
+# Failed test 10 in $0 at line 27 fail #2
 
-# Failed test 11 in $0 at line 28
+# Failed test 11 in $0 at line 29
 
-# Test 12 got: <UNDEF> ($0 at line 29)
+# Test 12 got: <UNDEF> ($0 at line 30)
 #    Expected: '1'
 
-# Failed test 13 in $0 at line 31
+# Failed test 13 in $0 at line 32
 EXPECT
 
 }