1 files changed, 40 insertions, 0 deletions
diff --git a/ext/threads/shared/t/cond.t b/ext/threads/shared/t/cond.t
new file mode 100644
index 0000000000..c143c02395
--- /dev/null
+++ b/ext/threads/shared/t/cond.t
@@ -0,0 +1,40 @@
+BEGIN {
+    chdir 't' if -d 't';
+    push @INC ,'../lib';
+    require Config; import Config;
+    unless ($Config{'useithreads'}) {
+        print "1..0 # Skip: no threads\n";
+        exit 0;
+    }
+}
+print "1..5\n";
+use strict;
+
+
+use threads;
+
+use threads::shared;
+
+my $lock : shared;
+
+sub foo {
+    lock($lock);
+    print "ok 1\n";
+    sleep 2;
+    print "ok 2\n";
+    cond_wait($lock);
+    print "ok 5\n";
+}
+
+sub bar {
+    lock($lock);
+    print "ok 3\n";
+    cond_signal($lock);
+    print "ok 4\n";
+}
+
+my $tr  = threads->create(\&foo);
+my $tr2 = threads->create(\&bar);
+$tr->join();
+$tr2->join();
+