Fix up docs

diff --git a/lib/Catalyst/Script/CGI.pm b/lib/Catalyst/Script/CGI.pm
index c37dfdc..e80a5f7 100644 (file)
--- a/lib/Catalyst/Script/CGI.pm
+++ b/lib/Catalyst/Script/CGI.pm
@@ -13,7 +13,10 @@ Catalyst::Script::CGI - The CGI Catalyst Script
 
 =head1 SYNOPSIS
 
-See L<Catalyst>.
+  myapp_cgi.pl [options]
+
+  Options:
+  -h     --help           display this help and exits
 
 =head1 DESCRIPTION
 

diff --git a/lib/Catalyst/Script/Server.pm b/lib/Catalyst/Script/Server.pm
index 22bafcb..c3c6584 100644 (file)
--- a/lib/Catalyst/Script/Server.pm
+++ b/lib/Catalyst/Script/Server.pm
@@ -200,8 +200,8 @@ Catalyst::Script::Server - Catalyst test server
    -d     --debug          force debug mode
    -f     --fork           handle each request in a new process
                       (defaults to false)
-   -h     --help           display this help and exits
-          --host           host (defaults to all)
+          --help           display this help and exits
+   -h     --host           host (defaults to all)
    -p     --port           port (defaults to 3000)
    -k     --keepalive      enable keep-alive connections
    -r     --restart        restart when files get modified

diff --git a/lib/Catalyst/Script/Test.pm b/lib/Catalyst/Script/Test.pm
index 268b1cd..a05b182 100644 (file)
--- a/lib/Catalyst/Script/Test.pm
+++ b/lib/Catalyst/Script/Test.pm
@@ -11,7 +11,6 @@ sub run {
     Catalyst::Test->import($self->application_name);
 
     print request($ARGV[0])->content  . "\n";
-
 }
 
 
@@ -23,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
 

diff --git a/t/author/http-server.t b/t/author/http-server.t
index d4a2183..8f60174 100644 (file)
--- a/t/author/http-server.t
+++ b/t/author/http-server.t
@@ -32,7 +32,7 @@ rmtree '../t/tmp/TestApp/t' or die;
 # spawn the standalone HTTP server
 my $port = 30000 + int rand(1 + 10000);
 my @cmd = ($^X, "-I$FindBin::Bin/../../lib",
-  "$FindBin::Bin/../../t/tmp/TestApp/script/testapp_server.pl", '-port', $port );
+  "$FindBin::Bin/../../t/tmp/TestApp/script/testapp_server.pl", '--port', $port );
 my $pid = open3( undef, my $server, undef, @cmd)
     or die "Unable to spawn standalone HTTP server: $!";