Make a note of what method we're testing in the thread test

schwern · May 20, 2010 · 01dde50 · 01dde50
1 parent 19c22c4
commit 01dde50
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/t/threads.t b/t/threads.t
@@ -22,14 +22,15 @@ plan skip_all => "Needs threads" unless $Have_Threads;
 }
 
 TODO: for my $method (qw(object_id object_uuid)) {
+    note "*** Trying $method ***";
     todo_skip "uuid known to be thread hostile", 5 if $method eq 'object_uuid';
 
     my $obj = new_ok "Foo";
     my $id = $obj->$method;
 
     for(1..5) {
         threads->create(sub {
-            is $obj->$method, $id;
+            is $obj->$method, $id, "$method in a thread";
         });
     }