From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Wed, 15 Oct 1997 17:02:38 +0000 (+0000)
Subject: Remove out-of-date test Thread/cond.t.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=96c8aaf4c4918f137d2204ef25c74dac47dbae2f;p=p5sagit%2Fp5-mst-13.2.git

Remove out-of-date test Thread/cond.t.

p4raw-id: //depot/perlext/Thread@132
---

diff --git a/cond.t b/cond.t
deleted file mode 100644
index 27ea9a9..0000000
--- a/cond.t
+++ /dev/null
@@ -1,26 +0,0 @@
-use Thread 'fast';
-
-sub printstuff {
-    my $count = 2000;
-    while ($count--) {
-	$lock->waituntil(sub { $inuse ? 0 : ($inuse = 1) });
-	print "A";
-	$lock->signal(sub { $inuse = 0 });
-    }
-    $lock->signal(sub { $inuse = 42 });
-}
-
-$|  = 1;
-$inuse = 0;
-$lock = new Thread::Cond;
-$t = new Thread \&printstuff;
-PAUSE: while (!$done) {
-    sleep 3;
-    $lock->waituntil(sub {
-	$inuse != 42 ? $inuse ? 0 : ($inuse = 1) : ($done = 1, 0)
-    });
-    last PAUSE if $done;
-    sleep 1;
-    $lock->signal(sub { $inuse = 0 });
-}
-print "main exiting\n";