X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Engine-STOMP.git;a=blobdiff_plain;f=t%2F03-json-message.t;h=40d5d08efdb3d67ca8aed171e3091489379563fb;hp=16375c9df83da1e5f3e25a10b053fe9f17fbe078;hb=8edb2b469643bd6e63e67d4846bafd3ac3927ba8;hpb=a5ae1e8c02bf454ebeb9d0d727409fef77d904d7

diff --git a/t/03-json-message.t b/t/03-json-message.t
index 16375c9..40d5d08 100644
--- a/t/03-json-message.t
+++ b/t/03-json-message.t
@@ -1,21 +1,24 @@
+use strict;
+use warnings;
 use Test::More;
 
 # Tests which expect a STOMP server like ActiveMQ to exist on
 # localhost:61613, which is what you get if you just get the ActiveMQ
 # distro and run its out-of-the-box config.
 
-use Net::Stomp;
-
 eval {
 	use JSON;
 };
 if ($@) {
 	plan 'skip_all' => 'JSON not installed, skipping JSON-format test';
+    exit;
 }
 
 use FindBin;
-use lib "$FindBin::Bin";
-require 'server.pl';
+use lib "$FindBin::Bin/lib";
+use TestServer;
+
+my $stomp = start_server();
 
 plan tests => 11;