From bba9363ff514be86cb51412570cb61b24aa4ff90 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 1 Mar 2011 23:15:53 +0000
Subject: [PATCH] register and call two functions

---
 t/client.t | 4 +++-
 t/worker.t | 9 ++++++---
 2 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/t/client.t b/t/client.t
index 3edd922..c8b824b 100755
--- a/t/client.t
+++ b/t/client.t
@@ -2,7 +2,7 @@
 use warnings;
 use strict;
 
-use Test::More tests => 8;
+use Test::More tests => 9;
 use Data::Dump qw(dump);
 use lib 'lib';
 
@@ -21,3 +21,5 @@ ok( $g->req( 'ECHO_REQ', "alive" ), 'ECHO - still alive - still alive?' );
 
 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' );
+
diff --git a/t/worker.t b/t/worker.t
index 06e8323..396a94b 100755
--- a/t/worker.t
+++ b/t/worker.t
@@ -2,7 +2,7 @@
 use warnings;
 use strict;
 
-use Test::More tests => 5;
+use Test::More tests => 6;
 use Data::Dump qw(dump);
 use lib 'lib';
 
@@ -11,13 +11,16 @@ use_ok 'MojoX::Gearman';
 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 );
 
-- 
2.20.1