first worker

[MojoX-Gearman.git] / t / gearman-worker.t

diff --git a/t/gearman-worker.t b/t/gearman-worker.t
new file mode 100755 (executable)
index 0000000..dc06527
--- /dev/null
+++ b/t/gearman-worker.t
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+use warnings;
+use strict;
+
+use Test::More tests => 7;
+use Data::Dump qw(dump);
+use lib 'lib';
+
+use_ok 'MojoX::Gearman';
+
+my $g = new_ok 'MojoX::Gearman';
+
+my $name = "mojo_g";
+
+ok( my $echo = $g->req( 'CAN_DO', $name, sub {
+       my $payload = shift;
+       warn "DO $name ", dump($payload), $/;
+       return $payload + 1;
+}), 'CAN_DO' );
+diag $echo;
+
+$g->start;
+
+diag "press <enter> to finish";
+<STDIN>;
+