[Catalyst-commits] r11780 - in Catalyst-Runtime/5.80/branches/better_scripts: lib/Catalyst/Script t/author

[dhoss at dev.catalyst.perl.org]

Author: dhoss
Date: 2009-11-06 17:25:35 +0000 (Fri, 06 Nov 2009)
New Revision: 11780

Modified:
   Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm
   Catalyst-Runtime/5.80/branches/better_scripts/t/author/optional_http-server.t
Log:
unfucked test server options and made test pass f'real this time

Modified: Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm	2009-11-06 17:14:49 UTC (rev 11779)
+++ Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm	2009-11-06 17:25:35 UTC (rev 11780)
@@ -36,9 +36,9 @@
     documentation => 'Fork the server',
 );
 
-has listen => (
+has port => (
     traits => [qw(Getopt)],
-    cmd_aliases => 'l',
+    cmd_aliases => 'p',
     isa => Int,
     is => 'ro',
     default => 3000,
@@ -166,7 +166,7 @@
 sub _application_args {
     my ($self) = shift;
     return (
-        $self->listen,
+        $self->port,
         $self->host,
         {
            map { $_ => $self->$_ } qw/

Modified: Catalyst-Runtime/5.80/branches/better_scripts/t/author/optional_http-server.t
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/t/author/optional_http-server.t	2009-11-06 17:14:49 UTC (rev 11779)
+++ Catalyst-Runtime/5.80/branches/better_scripts/t/author/optional_http-server.t	2009-11-06 17:25:35 UTC (rev 11780)
@@ -32,7 +32,7 @@
 # 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", '-l', $port );
+  "$FindBin::Bin/../../t/tmp/TestApp/script/testapp_server.pl", '-p', $port );
 my $pid = open3( undef, my $server, undef, @cmd)
     or die "Unable to spawn standalone HTTP server: $!";