t/client.t

   1 #!/usr/bin/env perl
   2 use warnings;
   3 use strict;
   4
   5 use Test::More tests => 9;
   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( 'ECHO_REQ', "foobar" ), 'ECHO' );
  14 cmp_ok $echo, 'eq', "foobar";
  15
  16 ok( my $workers = $g->req( 'TEXT', 'workers' ), 'workers' );
  17 diag "workers $workers";
  18
  19 ok( my $status = $g->req( 'TEXT', 'status' ), 'status' );
  20 diag dump $status;
  21
  22 ok( $g->req( 'ECHO_REQ', "alive" ), 'ECHO - still alive - still alive?' );
  23
  24 cmp_ok( $g->req( 'SUBMIT_JOB', 'mojo_g', '', 42 ), '==', 43, 'mojo_g' );
  25
  26 cmp_ok( $g->req( 'SUBMIT_JOB', 'mojo_rev', '', "foobar" ), 'eq', "raboof", 'mojo_rev' );
  27