From: Artur Bergman <sky@nanisky.com>
Date: Sat, 27 Apr 2002 13:54:46 +0000 (+0000)
Subject: Add test numbers to make "make test" happy. Order is irrelevant
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=974236b47d2d79a2f62dbeb73fb912cc4034c442;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";