[Catalyst-commits] r13159 - in Catalyst-Runtime/5.80/trunk: . lib/Catalyst/Script

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2010-04-13 23:29:10 +0100 (Tue, 13 Apr 2010)
New Revision: 13159

Modified:
   Catalyst-Runtime/5.80/trunk/Changes
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Script/Test.pm
Log:
Trivial test feature, fixes RT#53653

Modified: Catalyst-Runtime/5.80/trunk/Changes
===================================================================
--- Catalyst-Runtime/5.80/trunk/Changes	2010-04-13 22:18:19 UTC (rev 13158)
+++ Catalyst-Runtime/5.80/trunk/Changes	2010-04-13 22:29:10 UTC (rev 13159)
@@ -15,6 +15,8 @@
      now enables the X-Catalyst header being printed when not in debug mode.
    - Require CGI::Simple::Cookie version 1.109 to ensure support for the
      HttpOnly flag
+   - Allow the myapp_test.pl script to be given a list of paths which it
+     will retrieve all of. (RT#53653)
 
   Documentation:
    - The Catalyst::Test::get method is documented as returning the raw

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Script/Test.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Script/Test.pm	2010-04-13 22:18:19 UTC (rev 13158)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Script/Test.pm	2010-04-13 22:29:10 UTC (rev 13159)
@@ -10,7 +10,9 @@
 
     Catalyst::Test->import($self->application_name);
 
-    print request($self->ARGV->[0])->content  . "\n";
+    foreach my $arg (@{ $self->ARGV }) {
+        print request($arg)->content  . "\n";
+    }
 }