Remove our dependency on Catalyst::Action::REST. We were only using it

[catagits/Catalyst-Engine-STOMP.git] / t / server.pl

diff --git a/t/server.pl b/t/server.pl
new file mode 100644 (file)
index 0000000..981f199
--- /dev/null
+++ b/t/server.pl
@@ -0,0 +1,33 @@
+use Alien::ActiveMQ;
+my $ACTIVEMQ_VERSION = '5.2.0';
+
+eval {
+    $stomp = Net::Stomp->new( { hostname => 'localhost', port => 61613 } );
+};
+if ($@) {
+
+    unless (Alien::ActiveMQ->is_version_installed($ACTIVEMQ_VERSION)) {
+        plan 'skip_all' => 'No ActiveMQ server installed by Alien::ActiveMQ, try running the "install-activemq" command'; 
+        exit;
+    }
+
+    $mq = Alien::ActiveMQ->run_server($ACTIVEMQ_VERSION);
+
+    eval {
+        $stomp = Net::Stomp->new( { hostname => 'localhost', port => 61613 } );
+    };
+    if ($@) {
+        plan 'skip_all' => 'No ActiveMQ server listening on 61613: ' . $@;
+        exit;
+    }
+}
+
+# First fire off the server
+$SIG{CHLD} = 'IGNORE';
+unless (fork()) {
+       system("$^X -Ilib -Itestapp/lib testapp/script/stomptestapp_stomp.pl --oneshot");
+       exit 0;
+}
+print STDERR "server started, waiting for spinup...";
+sleep 2;
+