From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 22 Apr 2005 12:37:19 +0000 (+0000)
Subject: For now, TODO the 2 tests that fail on 5.8.x
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b8443148095870afff102e04226f4cf527a66f93;p=p5sagit%2Fp5-mst-13.2.git

For now, TODO the 2 tests that fail on 5.8.x

p4raw-id: //depot/perl@24286
---

diff --git a/ext/B/t/optree_specials.t b/ext/B/t/optree_specials.t
index 6c8dcc6..2bead37 100644
--- a/ext/B/t/optree_specials.t
+++ b/ext/B/t/optree_specials.t
@@ -41,9 +41,17 @@ my $out = runperl(
 my $src = q[our ($beg, $chk, $init, $end) = qq{'foo'}; BEGIN { $beg++ } CHECK { $chk++ } INIT { $init++ } END { $end++ }];
 
 
+my @warnings_todo;
+@warnings_todo = (todo =>
+   "Change 23768 (Remove Carp from warnings.pm) alters expected output, not"
+   . "propagated to 5.8.x")
+    if $] < 5.009;
+
+
 checkOptree ( name	=> 'BEGIN',
 	      bcopts	=> 'BEGIN',
 	      prog	=> $src,
+	      @warnings_todo,
 	      expect	=> <<'EOT_EOT', expect_nt => <<'EONT_EONT');
 # BEGIN 1:
 # b  <1> leavesub[1 ref] K/REFC,1 ->(end)
@@ -160,8 +168,8 @@ EONT_EONT
 
 checkOptree ( name	=> 'all of BEGIN END INIT CHECK -exec',
 	      bcopts	=> [qw/ BEGIN END INIT CHECK -exec /],
-	      #todo	=> 'get working',
 	      prog	=> $src,
+	      @warnings_todo,
 	      expect	=> <<'EOT_EOT', expect_nt => <<'EONT_EONT');
 # BEGIN 1:
 # 1  <;> nextstate(B::Concise -234 Concise.pm:328) v/2