From: Andy Grundman <andy@hybridized.org>
Date: Sat, 22 Oct 2005 17:49:54 +0000 (+0000)
Subject: Added a failing test for args passed to default
X-Git-Tag: 5.7099_04~1124
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=746380d1782b04934f7fafe76d96d32c97379994

Added a failing test for args passed to default
---

diff --git a/t/live/component/controller/action/default.t b/t/live/component/controller/action/default.t
index 93e9de2..0354c95 100644
--- a/t/live/component/controller/action/default.t
+++ b/t/live/component/controller/action/default.t
@@ -6,7 +6,7 @@ use warnings;
 use FindBin;
 use lib "$FindBin::Bin/../../../lib";
 
-use Test::More tests => 90;
+use Test::More tests => 120;
 use Catalyst::Test 'TestApp';
 
 for ( 1 .. 10 ) {
@@ -40,4 +40,14 @@ for ( 1 .. 10 ) {
         ok( $response = request('http://localhost/foo/bar/action'), 'Request' );
         is( $response->code, 404, 'Invalid URI returned 404' );
     }
+    
+    # test that args are passed properly to default
+    {
+        my $creq;
+        my $expected = [ qw/action default arg1 arg2/ ];
+        
+        ok( my $response = request('http://localhost/action/default/arg1/arg2'), 'Request' );
+        ok( eval '$creq = ' . $response->content, 'Unserialize Catalyst::Request' );
+        is_deeply( $creq->{arguments}, $expected, 'Arguments ok' );
+    }
 }