[Catalyst-commits] r6213 - trunk/Catalyst-Runtime/t

[andyg at dev.catalyst.perl.org]

Author: andyg
Date: 2007-03-27 21:25:11 +0100 (Tue, 27 Mar 2007)
New Revision: 6213

Modified:
   trunk/Catalyst-Runtime/t/optional_lighttpd-fastcgi-non-root.t
   trunk/Catalyst-Runtime/t/optional_lighttpd-fastcgi.t
Log:
lighttpd: Allow running of a single test

Modified: trunk/Catalyst-Runtime/t/optional_lighttpd-fastcgi-non-root.t
===================================================================
--- trunk/Catalyst-Runtime/t/optional_lighttpd-fastcgi-non-root.t	2007-03-27 19:44:06 UTC (rev 6212)
+++ trunk/Catalyst-Runtime/t/optional_lighttpd-fastcgi-non-root.t	2007-03-27 20:25:11 UTC (rev 6213)
@@ -99,7 +99,7 @@
 # run the testsuite against the server
 $ENV{CATALYST_SERVER} = "http://localhost:$port/deep/path";
 
-my @tests = glob('t/live_*');
+my @tests = (shift) || glob('t/live_*');
 eval {
     runtests(@tests);
 };

Modified: trunk/Catalyst-Runtime/t/optional_lighttpd-fastcgi.t
===================================================================
--- trunk/Catalyst-Runtime/t/optional_lighttpd-fastcgi.t	2007-03-27 19:44:06 UTC (rev 6212)
+++ trunk/Catalyst-Runtime/t/optional_lighttpd-fastcgi.t	2007-03-27 20:25:11 UTC (rev 6213)
@@ -99,7 +99,7 @@
 # run the testsuite against the server
 $ENV{CATALYST_SERVER} = "http://localhost:$port";
 
-my @tests = glob('t/live_*');
+my @tests = (shift) || glob('t/live_*');
 eval {
     runtests(@tests);
 };