Un-TODO a threads-shared test that now passes
authorJerry D. Hedden <jdhedden@cpan.org>
Wed, 26 May 2010 18:50:39 +0000 (14:50 -0400)
committerDavid Mitchell <davem@iabyn.com>
Sun, 30 May 2010 15:43:27 +0000 (16:43 +0100)
Commit bb1bc619ea68d9703fbd3fe5bc65ae000f90151f has
fixed a threads-shared TODO test in t/object.t.

dist/threads-shared/shared.pm
dist/threads-shared/t/object.t

index 15e7a02..200f0a7 100644 (file)
@@ -7,7 +7,7 @@ use warnings;
 
 use Scalar::Util qw(reftype refaddr blessed);
 
-our $VERSION = '1.33';
+our $VERSION = '1.33_01';
 my $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
index 4e3c189..d8ba246 100644 (file)
@@ -172,7 +172,9 @@ threads->create( sub {
         ok($$obj == 2, "Thread: New object ID $$obj");
     } )->join();
 
-ok($$obj == 2, "Main: New object ID $$obj  # TODO - should be 2");
+# Fixed by commit bb1bc619ea68d9703fbd3fe5bc65ae000f90151f
+my $todo = ($] <= 5.013001) ? "  # TODO - should be 2" : "";
+ok($$obj == 2, "Main: New object ID $$obj".$todo);
 
 exit(0);