Added a failing test for args passed to default

[catagits/Catalyst-Runtime.git] / t / live / component / controller / action / default.t

diff --git a/t/live/component/controller/action/default.t b/t/live/component/controller/action/default.t
index 93e9de2..0354c95 100644 (file)
--- 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' );
+    }
 }