t/gearman.t

   1 #!/usr/bin/env perl
   2 use warnings;
   3 use strict;
   4
   5 use Test::More tests => 5;
   6 use Data::Dump qw(dump);
   7 use lib 'lib';
   8
   9 use_ok 'MojoX::Gearman';
  10
  11 my $g = new_ok 'MojoX::Gearman';
  12
  13 ok( my $echo = $g->req( 16, "foobar" ), 'ECHO' );
  14 cmp_ok $echo, 'eq', "foobar";
  15
  16 ok( my $ping = $g->req( 7, 'ping', '', 'bla' ), 'SUBMIT_JOB' );
  17 diag dump $ping;
  18