X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Fundef-params.t;h=24b23cc6025660769e0bc3dbe358c1d1e37cf899;hp=8ce8e2c37e73daa2b8c9f106b23af4471cbae5f1;hb=10542b5178b2fa036e0658111523ea68a7a04437;hpb=4f96d61ccf40febbf2f80a376cd3ec7b456c699c

diff --git a/t/undef-params.t b/t/undef-params.t
index 8ce8e2c..24b23cc 100644
--- a/t/undef-params.t
+++ b/t/undef-params.t
@@ -22,23 +22,39 @@ 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;
 
   $SIG{__WARN__} = sub {
     my $error = shift;
-    Test::More::is($error, "You called ->params with an undefined value at t/undef-params.t line 20.\n");
+    Test::More::like($error, qr[You called ->params with an undefined value])
+      unless MyApp->debug;
   };
 
-  MyApp->setup, 'setup app';
+  MyApp->setup;
 }
 
 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;