use
strict;
use
warnings;
use
FindBin;
use
File::Slurp;
my
$test
= Gearman::Driver::Test->new();
my
$gc
=
$test
->gearman_client;
$test
->prepare(
'Gearman::Driver::Test::Live::Prefix'
);
{
my
$pong
=
$gc
->do_task(
'ping'
=>
''
);
is(
$$pong
,
'pong'
,
'Custom worker prefix working'
);
}
$test
->
shutdown
;