diff options
| author | David Mitchell <davem@iabyn.com> | 2011-01-04 14:36:37 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2011-01-04 14:36:37 +0000 |
| commit | 6116ba54685cea7f6b63b8436026565079c316f2 (patch) | |
| tree | 2b705c958246442cdd990f573b150cc15d02bfe8 | |
| parent | 02d9ab0a6212617fec466f93302573144e41c33a (diff) | |
| download | perl-6116ba54685cea7f6b63b8436026565079c316f2.tar.gz | |
stash.t: make TODO tests only TODO under threads
.. since they only fail under threads.
| -rw-r--r-- | t/op/stash.t | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/t/op/stash.t b/t/op/stash.t index b52da7a673..3fdda1f4f0 100644 --- a/t/op/stash.t +++ b/t/op/stash.t @@ -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'; } |