AnyEvent-Gearman-WorkerPool

 view release on metacpan or  search on metacpan

t/00-SlotWorker.t  view on Meta::CPAN

package main;

use lib qw( lib t/lib );
use Test::More tests=>4;
use Gear;
use AnyEvent;
use AnyEvent::Gearman;
use TestWorker;
use Log::Log4perl qw(:easy);
# Log::Log4perl->easy_init($DEBUG);

my $port = '9955';
my @js = ("localhost:$port");

t/01-SlotWorkerOverwork.t  view on Meta::CPAN

package main;

use lib qw( lib t/lib );
use Test::More tests=>3;
use Gear;
use AnyEvent;
use AnyEvent::Gearman;
use TestWorker;
use Log::Log4perl qw(:easy);
# Log::Log4perl->easy_init($DEBUG);

my $port = '9955';
my @js = ("localhost:$port");

t/02-Slot.t  view on Meta::CPAN

package main;

use lib qw( lib t/lib );
use Test::More tests=>3;
use Log::Log4perl qw(:easy);
# Log::Log4perl->easy_init($DEBUG);
use Gear;
use AnyEvent;
use AnyEvent::Gearman;
use AnyEvent::Gearman::WorkerPool::Slot;
use Scalar::Util qw(weaken);
my $port = '9955';
my @js = ("localhost:$port");

t/03-SlotOverwork.t  view on Meta::CPAN

package main;

use lib qw( lib t/lib);
use Test::More tests=>5;

use Log::Log4perl qw(:easy);
# Log::Log4perl->easy_init($DEBUG);
use Gear;
use AnyEvent;
use AnyEvent::Gearman;
use AnyEvent::Gearman::WorkerPool::Slot;
use Scalar::Util qw(weaken);

t/04-SlotManager.t  view on Meta::CPAN

package main;

use lib qw( lib t/lib );
use Test::More tests=>2;
use Gear;
use AnyEvent;
use AnyEvent::Gearman;
use AnyEvent::Gearman::WorkerPool;

use Scalar::Util qw(weaken);
my $port = '9955';
my @js = ("localhost:$port");
my $cv = AE::cv;

t/05-SlotManagerWork.t  view on Meta::CPAN

package main;

use lib qw( lib t/lib );
use Test::More tests=>12;
use Gear;
use AnyEvent;
use AnyEvent::Gearman;
use AnyEvent::Gearman::Client;
use AnyEvent::Gearman::WorkerPool;
use Log::Log4perl qw(:easy);
# Log::Log4perl->easy_init($DEBUG);