use warnings;
use strict;
-use Test::More tests => 8;
+use Test::More tests => 9;
use Data::Dump qw(dump);
use lib 'lib';
cmp_ok( $g->req( 'SUBMIT_JOB', 'mojo_g', '', 42 ), '==', 43, 'mojo_g' );
+cmp_ok( $g->req( 'SUBMIT_JOB', 'mojo_rev', '', "foobar" ), 'eq', "raboof", 'mojo_rev' );
+
use warnings;
use strict;
-use Test::More tests => 5;
+use Test::More tests => 6;
use Data::Dump qw(dump);
use lib 'lib';
my $g = new_ok 'MojoX::Gearman';
my $name = "mojo_g";
-ok( my $echo = $g->req( 'CAN_DO', $name, sub {
+ok( my $can_do = $g->req( 'CAN_DO', $name, sub {
my $payload = shift;
warn "DO $name ", dump($payload), $/;
return $payload + 1;
}), "CAN_DO $name" );
+diag $can_do;
+
+ok( $g->req( 'CAN_DO', "mojo_rev", sub { reverse shift } ), 'mojo_rev' );
diag "start loop";
ok( $g->req( 'GRAB_JOB' ), 'GRAB_JOB' );
-ok( $g->start, 'start' );
+ok( $g->start, 'start' ) for ( 1 .. 2 );