Change 16212 by sky@sky-lab on 2002/04/27 13:54:46
Add test numbers to make "make test" happy. Order is irrelevant
but number of oks is not.
Affected files ...
.... //depot/perl/ext/threads/shared/t/queue.t#3 edit
Differences ...
==== //depot/perl/ext/threads/shared/t/queue.t#3 (text) ====
Index: perl/ext/threads/shared/t/queue.t
--- perl/ext/threads/shared/t/queue.t.~1~ Sat Apr 27 08:00:05 2002
+++ perl/ext/threads/shared/t/queue.t Sat Apr 27 08:00:05 2002
@@ -18,6 +18,8 @@
print "1..26\n";
+my $test : share = 1;
+
sub reader {
my $tid = threads->self->tid;
my $i = 0;
@@ -25,7 +27,7 @@
$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 @@
# print "waiting for join\n";
$_->join();
}
-print "ok\n";
+print "ok $test\n";
End of Patch.
