use Qudo::Test;
use Test::More;
my %hash = ( key => 'arg' );
my $RESULT;
run_tests(7, sub {
my $driver = shift;
my $master = test_master(
driver_class => $driver,
);
my $manager = $master->manager;
$manager->can_do('Worker::Test');
$manager->can_do('Worker::Test2');
{ # load Qudo::Hook::Serialize::Storable
$manager->register_hooks(qw/Qudo::Hook::Serialize::Storable/);
my $job = $manager->enqueue("Worker::Test", { arg => \%hash , uniqkey => 'uniqkey1'});
is $job->id, 1;
is $job->uniqkey, 'uniqkey1';
sleep(1);
$manager->work_once;
is_deeply $RESULT, \%hash ;
}
{ # unload Qudo::Hook::Serialize::Storable
$manager->unregister_hooks(qw/Qudo::Hook::Serialize::Storable/);
my $job = $master->manager->enqueue("Worker::Test", { arg => 'arg' , uniqkey => 'uniqkey2'});
is $job->id, 2;
is $job->arg , 'arg';
is $job->uniqkey, 'uniqkey2';
sleep(1);
$manager->work_once;
is $RESULT , 'arg';
}
teardown_dbs;
});
package Worker::Test;
use base 'Qudo::Worker';
sub grab_for { 0 }
sub work {
my ($class, $job) = @_;
$job->completed;
$RESULT = $job->arg;
}
package Worker::Test2;
use base 'Qudo::Worker';
sub grab_for { 0 }
sub work {
my ($class, $job) = @_;
die 'failed worker';
}