Add test numbers to make "make test" happy. Order is irrelevant

but number of oks is not.

p4raw-id: //depot/perl@16212

diff --git a/ext/threads/shared/t/queue.t b/ext/threads/shared/t/queue.t
index cf28eb4..9aff3e3 100644 (file)
--- a/ext/threads/shared/t/queue.t
+++ b/ext/threads/shared/t/queue.t
@@ -18,6 +18,8 @@ $q = new threads::shared::queue;
 
 print "1..26\n";
 
+my $test : share = 1;
+
 sub reader {
     my $tid = threads->self->tid;
     my $i = 0;
@@ -25,7 +27,7 @@ sub reader {
        $i++;
 #      print "reader (tid $tid): waiting for element $i...\n";
        my $el = $q->dequeue;
-       print "ok\n";
+       print "ok $test\n"; $test++;
 #      print "reader (tid $tid): dequeued element $i: value $el\n";
        select(undef, undef, undef, rand(1));
        if ($el == -1) {
@@ -56,6 +58,6 @@ for(@threads) {
 #      print "waiting for join\n";
        $_->join();
 }
-print "ok\n";
+print "ok $test\n";