From: John Napiorkowski <jjnapiork@cpan.org>
Date: Tue, 23 Sep 2014 16:46:21 +0000 (-0500)
Subject: test case for param regression
X-Git-Tag: 5.90076~10
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=235d641ef0d52e9a9e78dd5cf8fffb47d4d9e7b7

test case for param regression
---

diff --git a/t/undef-params.t b/t/undef-params.t
index 8ce8e2c..a6d7594 100644
--- a/t/undef-params.t
+++ b/t/undef-params.t
@@ -22,6 +22,12 @@ use Plack::Test;
     $c->response->body("This is the body");
   }
 
+  sub set_params :Local {
+    my ($self, $c) = @_;
+    $c->req->param(foo => 'a', 'b', 'c');
+    $c->res->body(join ',', $c->req->param('foo'));
+  }
+
   package MyApp;
   use Catalyst;
 
@@ -37,8 +43,17 @@ ok my $psgi = MyApp->psgi_app, 'build psgi app';
 
 test_psgi $psgi, sub {
     my $cb = shift;
-    my $res = $cb->(GET "/root/test");
-    is $res->code, 200, 'OK';
+
+    {
+      my $res = $cb->(GET "/root/test");
+      is $res->code, 200, 'OK';
+    }
+
+    {
+      my $res = $cb->(GET "/root/set_params");
+      is $res->code, 200, 'OK';
+      is $res->content, 'a,b,c';
+    }
 };
 
 done_testing;