5 use Test::More tests => 6;
6 use Data::Dump qw(dump);
9 use_ok 'MojoX::Gearman';
11 my $g = new_ok 'MojoX::Gearman';
14 ok( my $can_do = $g->req( 'CAN_DO', $name, sub {
16 warn "DO $name ", dump($payload), $/;
21 ok( $g->req( 'CAN_DO', "mojo_rev", sub { reverse shift } ), 'mojo_rev' );
24 ok( $g->req( 'GRAB_JOB' ), 'GRAB_JOB' );
25 ok( $g->start, 'start' ) for ( 1 .. 2 );