From: Dobrica Pavlinusic Date: Mon, 28 Feb 2011 17:30:03 +0000 (+0000) Subject: check echo return value X-Git-Url: http://git.rot13.org/?p=MojoX-Gearman.git;a=commitdiff_plain;h=6aac68cd028dd87888392717a37b6e9911d68a10 check echo return value --- diff --git a/t/gearman.t b/t/gearman.t index 5ae8418..9a3c60c 100755 --- a/t/gearman.t +++ b/t/gearman.t @@ -2,11 +2,12 @@ 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'; -ok( $g->req( 16, "foobar" ), 'echo' ); +ok( my $echo = $g->req( 16, "foobar" ), 'echo' ); +cmp_ok $echo, 'eq', "foobar";