stash.t: make TODO tests only TODO under threads
authorDavid Mitchell <davem@iabyn.com>
Tue, 4 Jan 2011 14:36:37 +0000 (14:36 +0000)
committerDavid Mitchell <davem@iabyn.com>
Tue, 4 Jan 2011 14:36:37 +0000 (14:36 +0000)
.. since they only fail under threads.

t/op/stash.t

index b52da7a..3fdda1f 100644 (file)
@@ -237,10 +237,13 @@ fresh_perl_is(
     is ($c, 'main::__ANON__', '__ANON__ sub called ok');
 }
 
+
 # Stashes that are effectively renamed
 {
     package rile;
 
+    use Config;
+
     my $obj  = bless [];
     my $globref = \*tat;
 
@@ -254,7 +257,7 @@ fresh_perl_is(
     ::like "$obj", qr "^rile=ARRAY\(0x[\da-f]+\)\z",
      'objects stringify the same way when their stashes are moved';
     {
-       local $::TODO = "fails under threads";
+       local $::TODO =  $Config{useithreads} ? "fails under threads" : undef;
        ::is eval '__PACKAGE__', 'rile',
         '__PACKAGE__ returns the same when the current stash is moved';
     }
@@ -271,7 +274,7 @@ fresh_perl_is(
     ::like "$obj", qr "^rile=ARRAY\(0x[\da-f]+\)\z",
      'objects stringify the same way when their stashes are detached';
     {
-       local $::TODO = "fails under threads";
+       local $::TODO =  $Config{useithreads} ? "fails under threads" : undef;
        ::is eval '__PACKAGE__', 'rile',
         '__PACKAGE__ returns the same when the current stash is detached';
     }