This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Skip two tests under ithreads, where the constant lives in the pad.
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 17 Nov 2008 10:06:08 +0000 (10:06 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 17 Nov 2008 10:06:08 +0000 (10:06 +0000)
p4raw-id: //depot/perl@34864

ext/B/t/deparse.t

index 50abd35..a0889b8 100644 (file)
@@ -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/;';