From: Artur Bergman <sky@nanisky.com>
Date: Wed, 26 Sep 2001 11:36:23 +0000 (+0000)
Subject: Increase the amount of time we spend in each thread, and add one that uses an anonymo... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3dbf27b4f1cd29258f4cee869f64ad8c82b743ac;p=p5sagit%2Fp5-mst-13.2.git

Increase the amount of time we spend in each thread, and add one that uses an anonymous sub.
We are using a "delay" here because we do not want to depend on thread synchronization issues.

p4raw-id: //depot/perl@12230
---

diff --git a/MANIFEST b/MANIFEST
index f991486..a5b57bf 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -578,6 +578,7 @@ ext/threads/threads.h		ithreads
 ext/threads/threads.pm          ithreads
 ext/threads/threads.xs		ithreads
 ext/threads/t/stress_string.t	Test with multiple threads, string cv argument.
+ext/threads/t/stress_cv.t	Test with multiple threads, coderef cv argument.
 ext/Time/HiRes/Changes		Time::HiRes extension
 ext/Time/HiRes/hints/dynixptx.pl	Hint for Time::HiRes for named architecture
 ext/Time/HiRes/hints/sco.pl	Hints for Time::HiRes for named architecture
diff --git a/ext/threads/t/stress_cv.t b/ext/threads/t/stress_cv.t
new file mode 100644
index 0000000..eb2bab1
--- /dev/null
+++ b/ext/threads/t/stress_cv.t
@@ -0,0 +1,48 @@
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+    require Config; import Config;
+    unless ($Config{'useithreads'}) {
+	print "1..0 # Skip: no useithreads\n";
+ 	exit 0;	
+    }
+}
+
+use ExtUtils::testlib;
+use strict;
+BEGIN { print "1..64\n" };
+use threads;
+
+
+print "ok 1\n";
+
+
+
+
+sub ok {	
+    my ($id, $ok, $name) = @_;
+    
+    # You have to do it this way or VMS will get confused.
+    print $ok ? "ok $id - $name\n" : "not ok $id - $name\n";
+
+    printf "# Failed test at line %d\n", (caller)[2] unless $ok;
+    
+    return $ok;
+}
+
+
+ok(2,1,"");
+
+
+my @threads;
+for(3..33) {
+  ok($_,1,"Multiple thread test");
+  push @threads ,threads->create(sub { my $i = shift; for(1..500000) { $i++}},$_);
+}
+
+my $i = 34;
+for(@threads) {
+  $_->join;
+  ok($i++,1,"Thread joined");
+}
+
diff --git a/ext/threads/t/stress_string.t b/ext/threads/t/stress_string.t
index fb87c6c..23449d2 100644
--- a/ext/threads/t/stress_string.t
+++ b/ext/threads/t/stress_string.t
@@ -35,14 +35,14 @@ ok(2,1,"");
 
 sub test9 {
   my $i = shift;
-  for(1..20000) { $i++};
+  for(1..500000) { $i++};
 }
 my @threads;
 for(3..33) {
   ok($_,1,"Multiple thread test");
   push @threads ,threads->create('test9',$_);
 }
-sleep 1;
+
 my $i = 34;
 for(@threads) {
   $_->join;