t/worker.t

   1 #!/usr/bin/env perl
   2 use warnings;
   3 use strict;
   4
   5 use Test::More tests => 7;
   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 my $name = "mojo_g";
  14
  15 ok( my $echo = $g->req( 'CAN_DO', $name, sub {
  16         my $payload = shift;
  17         warn "DO $name ", dump($payload), $/;
  18         return $payload + 1;
  19 }), 'CAN_DO' );
  20 diag $echo;
  21
  22 $g->start;
  23
  24 diag "press <enter> to finish";
  25 <STDIN>;
  26