X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FScript%2FTest.pm;h=53473a4a6bd8513d242769522b62ff0961501d77;hb=1c51714648e91f0f746c68b29a6871c58f1927d3;hp=8fe9d73f4b935d2fded0358abce4d2d451251717;hpb=b1320d7d840eafaee3efab338ede2e05da9df739;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst/Script/Test.pm b/lib/Catalyst/Script/Test.pm
index 8fe9d73..53473a4 100644
--- a/lib/Catalyst/Script/Test.pm
+++ b/lib/Catalyst/Script/Test.pm
@@ -1,19 +1,16 @@
 package Catalyst::Script::Test;
 use Moose;
+use Catalyst::Test ();
 use namespace::autoclean;
 
 with 'Catalyst::ScriptRole';
 
-has '+help' => (cmd_aliases => 'h');
-
 sub run {
     my $self = shift;
 
-    Class::MOP::load_class("Catalyst::Test");
     Catalyst::Test->import($self->application_name);
 
-    print request($ARGV[1])->content  . "\n";
-
+    print request($self->ARGV->[0])->content  . "\n";
 }
 
 
@@ -25,11 +22,14 @@ 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 AUTHORS