5 use Test::More tests => 9;
6 use Data::Dump qw(dump);
9 use_ok 'MojoX::Gearman';
11 my $g = new_ok 'MojoX::Gearman';
13 ok( my $echo = $g->req( 'ECHO_REQ', "foobar" ), 'ECHO' );
14 cmp_ok $echo, 'eq', "foobar";
16 ok( my $ping = $g->req( 'SUBMIT_JOB', 'ping', '', 'bla' ), 'SUBMIT_JOB' );
17 like $ping, qr/pong/, 'got pong';
20 ok( $g->req( 'ECHO_REQ', "alive" ), 'ECHO - still alive - still alive?' );
22 cmp_ok( $g->req( 'SUBMIT_JOB', 'mojo_g', '', 42 ), '==', 43, 'mojo_g' );
24 cmp_ok( $g->req( 'SUBMIT_JOB', 'mojo_rev', '', "foobar" ), 'eq', "raboof", 'mojo_rev' );