Thread-Suspend v1.06

jdhedden · Apr 21, 2016 · eb53fff · eb53fff
1 parent 3fb0719
commit eb53fff
Show file tree

Hide file tree

Showing 9 changed files with 25 additions and 22 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension Thread::Suspend.
 
+1.06 Thu Aug 10 14:51:07 EDT 2006
+	- More fixes to tests (sigh)
+
 1.05 Wed Aug  2 13:54:17 EDT 2006
 	- More fixes to tests
 

diff --git a/README b/README
@@ -1,4 +1,4 @@
-Thread::Suspend version 1.05
+Thread::Suspend version 1.06
 ============================
 
 This module adds suspend and resume operations for threads.

diff --git a/lib/Thread/Suspend.pm b/lib/Thread/Suspend.pm
@@ -3,7 +3,7 @@ package Thread::Suspend; {
 use strict;
 use warnings;
 
-our $VERSION = 1.05;
+our $VERSION = 1.06;
 
 use threads 1.36;
 use threads::shared 1.01;
@@ -155,7 +155,7 @@ Thread::Suspend - Suspend and resume operations for threads
 
 =head1 VERSION
 
-This document describes Thread::Suspend version 1.05
+This document describes Thread::Suspend version 1.06
 
 =head1 SYNOPSIS
 
@@ -316,7 +316,7 @@ Thread::Suspend Discussion Forum on CPAN:
 L<http://www.cpanforum.com/dist/Thread-Suspend>
 
 Annotated POD for Thread::Suspend:
-L<http://annocpan.org/~JDHEDDEN/Thread-Suspend-1.05/lib/Thread/Suspend.pm>
+L<http://annocpan.org/~JDHEDDEN/Thread-Suspend-1.06/lib/Thread/Suspend.pm>
 
 L<threads>, L<threads::shared>
 

diff --git a/t/00_basic.t b/t/00_basic.t
@@ -18,8 +18,7 @@ $SIG{'KILL'} = sub { threads->exit(); };
 sub thr_func
 {
     my $tid = threads->tid();
-    while (1) {
-        $COUNTS{$tid}++;
+    while (++$COUNTS{$tid}) {
         threads->yield();
     }
 }
@@ -34,8 +33,9 @@ sub check {
             threads->yield();
             $begin = $COUNTS{$tid};
         } while (! $begin);
-        threads->yield();
+        threads->yield() for (1..3);
         sleep(1);
+        threads->yield() for (1..3);
         $end = $COUNTS{$tid};
     } while (! $end);
     if ($running eq 'running') {

diff --git a/t/01_self.t b/t/01_self.t
@@ -14,8 +14,7 @@ sub thr_func
     my $tid = threads->tid();
     $COUNTS{$tid} = 1;
     threads->self()->suspend();
-    while (1) {
-        $COUNTS{$tid}++;
+    while (++$COUNTS{$tid}) {
         threads->yield();
     }
 }
@@ -30,8 +29,9 @@ sub check {
             threads->yield();
             $begin = $COUNTS{$tid};
         } while (! $begin);
-        threads->yield();
+        threads->yield() for (1..3);
         sleep(1);
+        threads->yield() for (1..3);
         $end = $COUNTS{$tid};
     } while (! $end);
     if ($running eq 'running') {

diff --git a/t/02_signal.t b/t/02_signal.t
@@ -15,8 +15,7 @@ $SIG{'KILL'} = sub { threads->exit(); };
 sub thr_func
 {
     my $tid = threads->tid();
-    while (1) {
-        $COUNTS{$tid}++;
+    while (++$COUNTS{$tid}) {
         threads->yield();
     }
 }
@@ -31,8 +30,9 @@ sub check {
             threads->yield();
             $begin = $COUNTS{$tid};
         } while (! $begin);
+        threads->yield() for (1..3);
         sleep(1);
-        threads->yield();
+        threads->yield() for (1..3);
         $end = $COUNTS{$tid};
     } while (! $end);
     if ($running eq 'running') {

diff --git a/t/03_detach.t b/t/03_detach.t
@@ -17,8 +17,7 @@ $SIG{'KILL'} = sub {
 sub thr_func
 {
     my $tid = threads->tid();
-    while (1) {
-        $COUNTS{$tid}++;
+    while (++$COUNTS{$tid}) {
         threads->yield();
     }
 }
@@ -33,8 +32,9 @@ sub check {
             threads->yield();
             $begin = $COUNTS{$tid};
         } while (! $begin);
-        threads->yield();
+        threads->yield() for (1..3);
         sleep(1);
+        threads->yield() for (1..3);
         $end = $COUNTS{$tid};
     } while (! $end);
     if ($running eq 'running') {

diff --git a/t/04_all.t b/t/04_all.t
@@ -18,8 +18,7 @@ $SIG{'KILL'} = sub {
 sub thr_func
 {
     my $tid = threads->tid();
-    while (1) {
-        $COUNTS{$tid}++;
+    while (++$COUNTS{$tid}) {
         threads->yield();
     }
 }
@@ -34,8 +33,9 @@ sub check {
             threads->yield();
             $begin = $COUNTS{$tid};
         } while (! $begin);
-        threads->yield();
+        threads->yield() for (1..3);
         sleep(1);
+        threads->yield() for (1..3);
         $end = $COUNTS{$tid};
     } while (! $end);
     if ($running eq 'running') {

diff --git a/t/05_some.t b/t/05_some.t
@@ -18,8 +18,7 @@ $SIG{'KILL'} = sub {
 sub thr_func
 {
     my $tid = threads->tid();
-    while (1) {
-        $COUNTS{$tid}++;
+    while (++$COUNTS{$tid}) {
         threads->yield();
     }
 }
@@ -34,8 +33,9 @@ sub check {
             threads->yield();
             $begin = $COUNTS{$tid};
         } while (! $begin);
-        threads->yield();
+        threads->yield() for (1..3);
         sleep(1);
+        threads->yield() for (1..3);
         $end = $COUNTS{$tid};
     } while (! $end);
     if ($running eq 'running') {