Move the testapp out of the main directory and under t/, avoiding the need for a...

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

diff --git a/t/script/stomptestapp_stomp.pl b/t/script/stomptestapp_stomp.pl
new file mode 100755 (executable)
index 0000000..b60cd43
--- /dev/null
+++ b/t/script/stomptestapp_stomp.pl
@@ -0,0 +1,63 @@
+BEGIN { 
+       $ENV{CATALYST_ENGINE} = 'Stomp';
+       require Catalyst::Engine::Stomp;
+}  
+
+use strict;
+use warnings;
+use Getopt::Long;
+use Pod::Usage;
+use FindBin;
+use lib "$FindBin::Bin/../lib";
+
+my $debug   = 0;
+my $help    = 0;
+my $oneshot = 0;
+
+my @argv = @ARGV;
+
+GetOptions(
+    'debug|d' => \$debug,
+    'help|?'  => \$help,
+    'oneshot' => \$oneshot,
+);
+
+pod2usage(1) if $help;
+
+if ( $debug ) {
+       $ENV{CATALYST_DEBUG} = 1;
+}
+
+if ( $oneshot ) { 
+       $ENV{ENGINE_ONESHOT} = 1;
+}      
+
+# This is require instead of use so that the above environment
+# variables can be set at runtime.
+require StompTestApp;
+StompTestApp->run();
+
+1;
+
+=head1 NAME
+
+testapp_stomp.pl - Catalyst STOMP client
+
+=head1 SYNOPSIS
+
+testapp_stomp.pl [options]
+
+ Options:
+   -d -debug          force debug mode
+   -? -help           display this help and exits
+
+ See also:
+   perldoc Catalyst::Engine::Stomp
+   perldoc Catalyst::Manual
+   perldoc Catalyst::Manual::Intro
+
+=head1 DESCRIPTION
+
+Run a Catalyst STOMP client for this application.
+
+=cut