Trivial test spacing cleanups

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

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;
    }
}

$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 20;