X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FScript%2FTest.pm;h=4209d62948a190cd232b316e0e9f3a4b274ed19f;hb=807303a1658f895c41417beba24d24ff9b71c194;hp=f3da4e15f8f308db72c761047f0995332d8308ec;hpb=d3082facb5273f9970121638c0385ecfc0f7b090;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst/Script/Test.pm b/lib/Catalyst/Script/Test.pm
index f3da4e1..4209d62 100644
--- a/lib/Catalyst/Script/Test.pm
+++ b/lib/Catalyst/Script/Test.pm
@@ -1,5 +1,6 @@
 package Catalyst::Script::Test;
 use Moose;
+use Catalyst::Test ();
 use namespace::autoclean;
 
 with 'Catalyst::ScriptRole';
@@ -7,15 +8,16 @@ with 'Catalyst::ScriptRole';
 sub run {
     my $self = shift;
 
-    Class::MOP::load_class("Catalyst::Test");
-    Catalyst::Test->import($self->app);
-
-    print request($ARGV[1])->content  . "\n";
+    Catalyst::Test->import($self->application_name);
 
+    foreach my $arg (@{ $self->ARGV }) {
+        print request($arg)->content  . "\n";
+    }
 }
 
 
 __PACKAGE__->meta->make_immutable;
+1;
 
 =head1 NAME
 
@@ -23,11 +25,18 @@ Catalyst::Script::Test - Test Catalyst application on the command line
 
 =head1 SYNOPSIS
 
-See L<Catalyst>.
+  myapp_test.pl [options] /path
+
+  Options:
+  -h     --help           display this help and exits
 
 =head1 DESCRIPTION
 
-FIXME
+Script to perform a test hit against your application and display the output.
+
+=head1 SEE ALSO
+
+L<Catalyst::ScriptRunner>
 
 =head1 AUTHORS