rename tests
authorDobrica Pavlinusic <dpavlin@rot13.org>
Tue, 1 Mar 2011 22:11:36 +0000 (22:11 +0000)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Tue, 1 Mar 2011 22:11:36 +0000 (22:11 +0000)
t/client.t [new file with mode: 0755]
t/gearman-worker.t [deleted file]
t/gearman.t [deleted file]
t/worker.t [new file with mode: 0755]

diff --git a/t/client.t b/t/client.t
new file mode 100755 (executable)
index 0000000..4df77c5
--- /dev/null
@@ -0,0 +1,21 @@
+#!/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';
+
+ok( my $echo = $g->req( 'ECHO_REQ', "foobar" ), 'ECHO' );
+cmp_ok $echo, 'eq', "foobar";
+
+ok( my $ping = $g->req( 'SUBMIT_JOB', 'ping', '', 'bla' ), 'SUBMIT_JOB' );
+like $ping, qr/pong/, 'got pong';
+diag dump $ping;
+
+ok( $g->req( 'ECHO_REQ', "alive" ), 'ECHO - still alive - still alive?' );
+
diff --git a/t/gearman-worker.t b/t/gearman-worker.t
deleted file mode 100755 (executable)
index dc06527..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-#!/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>;
-
diff --git a/t/gearman.t b/t/gearman.t
deleted file mode 100755 (executable)
index 4df77c5..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-#!/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';
-
-ok( my $echo = $g->req( 'ECHO_REQ', "foobar" ), 'ECHO' );
-cmp_ok $echo, 'eq', "foobar";
-
-ok( my $ping = $g->req( 'SUBMIT_JOB', 'ping', '', 'bla' ), 'SUBMIT_JOB' );
-like $ping, qr/pong/, 'got pong';
-diag dump $ping;
-
-ok( $g->req( 'ECHO_REQ', "alive" ), 'ECHO - still alive - still alive?' );
-
diff --git a/t/worker.t b/t/worker.t
new file mode 100755 (executable)
index 0000000..dc06527
--- /dev/null
@@ -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>;
+