threads::shared 1.22

[p5sagit/p5-mst-13.2.git] / ext / threads / shared / t / cond.t

diff --git a/ext/threads/shared/t/cond.t b/ext/threads/shared/t/cond.t
index 7f18950..3a6bfdf 100644 (file)
--- a/ext/threads/shared/t/cond.t
+++ b/ext/threads/shared/t/cond.t
@@ -8,7 +8,7 @@ BEGIN {
     }
     use Config;
     if (! $Config{'useithreads'}) {
-        print("1..0 # Skip: Perl not compiled with 'useithreads'\n");
+        print("1..0 # SKIP Perl not compiled with 'useithreads'\n");
         exit(0);
     }
 }
@@ -33,7 +33,7 @@ sub ok {
 
 BEGIN {
     $| = 1;
-    print("1..82\n");   ### Number of tests that will be run ###
+    print("1..32\n");   ### Number of tests that will be run ###
 };
 
 use threads;
@@ -282,38 +282,6 @@ $Base++;
     $Base += 4;
 }
 
-
-# Stress test
-{
-    my $cnt = 50;
-
-    my $mutex = 1;
-    share($mutex);
-
-    my @threads;
-    for (1..$cnt) {
-        $threads[$_] = threads->create(sub {
-                            my $arg = shift;
-                            my $result = 0;
-                            for (0..1000000) {
-                                $result++;
-                            }
-                            lock($mutex);
-                            while ($mutex != $arg) {
-                                cond_wait($mutex);
-                            }
-                            $mutex++;
-                            cond_broadcast($mutex);
-                            return $result;
-                      }, $_);
-    }
-
-    for (1..$cnt) {
-        my $result = $threads[$_]->join();
-        ok($_, defined($result) && ("$result" eq '1000001'), "stress test - iter $_");
-    }
-
-    $Base += $cnt;
-}
+exit(0);
 
 # EOF