From: Chris Andrews <chris@nodnol.org>
Date: Thu, 30 Apr 2009 15:52:03 +0000 (+0100)
Subject: Remove Test::Fork, do it by hand
X-Git-Tag: 0.03~20
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Engine-STOMP.git;a=commitdiff_plain;h=ff3b0412908a525148e969054b9b3c7c47366eed

Remove Test::Fork, do it by hand
---

diff --git a/t/Catalyst-Engine-Stomp.t b/t/Catalyst-Engine-Stomp.t
index e96c028..9bd5dea 100644
--- a/t/Catalyst-Engine-Stomp.t
+++ b/t/Catalyst-Engine-Stomp.t
@@ -1,5 +1,4 @@
-use Test::More tests => 14;
-use Test::Fork;
+use Test::More tests => 12;
 
 # Tests which expect a STOMP server like ActiveMQ to exist on
 # localhost:61613, which is what you get if you just get the ActiveMQ
@@ -10,10 +9,10 @@ use YAML::XS qw/ Dump Load /;
 use Data::Dumper;
 
 # First fire off the server
-my $child_pid = fork_ok(1, sub {
-  ok(system("$^X -Ilib -Itestapp/lib testapp/script/testapp_stomp.pl --oneshot"));
-  #sleep 3;
-});
+unless (fork()) {
+	system("$^X -Ilib -Itestapp/lib testapp/script/testapp_stomp.pl --oneshot");
+	exit 0;
+}
 
 # Now be a client to that server