From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 17 Nov 2008 10:06:08 +0000 (+0000)
Subject: Skip two tests under ithreads, where the constant lives in the pad.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1bb3cfc5058f75f6944de9baae4a2c0df8813d59;p=p5sagit%2Fp5-mst-13.2.git

Skip two tests under ithreads, where the constant lives in the pad.

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

diff --git a/ext/B/t/deparse.t b/ext/B/t/deparse.t
index 50abd35..a0889b8 100644
--- a/ext/B/t/deparse.t
+++ b/ext/B/t/deparse.t
@@ -28,6 +28,7 @@ BEGIN {
     feature->import(':5.10');
 }
 use Test::More tests => 74;
+use Config ();
 
 use B::Deparse;
 my $deparse = B::Deparse->new();
@@ -548,6 +549,7 @@ do {
 '???';
 !1;
 ####
+# SKIP ? $Config::Config{useithreads} && "TODO doesn't work with threads"
 # 61 tests that shouldn't be constant folded
 x() if $a;
 if ($a == 1) { x() } elsif ($b == 2) { z() }
@@ -571,6 +573,7 @@ warn O_CREAT;
 # 65 tests for deparsing imported constants that got deleted from the original namespace
 warn O_SYNC;
 ####
+# SKIP ? $Config::Config{useithreads} && "TODO doesn't work with threads"
 # 66 tests for deparsing constants which got turned into full typeglobs
 warn O_EXCL;
 eval '@Fcntl::O_EXCL = qw/affe tiger/;';