Changeset 22

Timestamp:

04/15/06 05:48:11 (3 years ago)

Author:

integral

Message:

Converted t/pre_interface.t to Test::Simple which claims thread-safety when
threads.pm is loaded before it.

Files:

• trunk/POE-Component-Pool-Thread/t/pre_interface.t (modified) (4 diffs)

trunk/POE-Component-Pool-Thread/t/pre_interface.t

@@ -1 @@
-#!/usr/bin/perl -l
+#!/usr/bin/perl
 
 use strict;
 use warnings FATAL => "all";
-# use Test::Simple tests => 200;
-use Test;
-use threads;
-use Thread::Semaphore;
 
-BEGIN { plan tests => 200 }
+our $TOTAL_JOBS;
+BEGIN { $TOTAL_JOBS = 100 }
+use threads; # must be loaded before Test::Simple
+use Test::Simple tests => 2*$TOTAL_JOBS;
 
 use POE qw( Component::Pool::Thread );
-
-our $semaphore = new Thread::Semaphore;
 
 POE::Component::Pool::Thread->new
@@ -32 +29 @@
         $kernel->yield(run => $i);
 
-        if ($i < 100) {
+        if ($i < $TOTAL_JOBS) {
             $kernel->yield(loop => $i + 1);
 
@@ -48 +45 @@
     select undef, undef, undef, rand 0.5;
 
-    $semaphore->down;
-    ok $point;
-    $semaphore->up;
+    ok(1, "thread_entry_point $point");
 
     return $point;
@@ -58 +53 @@
     my ($kernel, $result) = @_[ KERNEL, ARG0 ];
 
-    $semaphore->down;
-    ok($result + 100);
-    $semaphore->up;
+    ok(1, "response $result\n");
 
-    if ($result == 100) {
+    if ($result == $TOTAL_JOBS) {
         $kernel->yield("shutdown");
     }