check echo return value
authorDobrica Pavlinusic <dpavlin@rot13.org>
Mon, 28 Feb 2011 17:30:03 +0000 (17:30 +0000)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Mon, 28 Feb 2011 17:30:03 +0000 (17:30 +0000)
t/gearman.t

index 5ae8418..9a3c60c 100755 (executable)
@@ -2,11 +2,12 @@
 use warnings;
 use strict;
 
 use warnings;
 use strict;
 
-use Test::More tests => 3;
+use Test::More tests => 4;
 use lib 'lib';
 
 use_ok 'MojoX::Gearman';
 
 my $g = new_ok 'MojoX::Gearman';
 
 use lib 'lib';
 
 use_ok 'MojoX::Gearman';
 
 my $g = new_ok 'MojoX::Gearman';
 
-ok( $g->req( 16, "foobar" ), 'echo' );
+ok( my $echo = $g->req( 16, "foobar" ), 'echo' );
+cmp_ok $echo, 'eq', "foobar";