X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Funit_core_uri_for.t;fp=t%2Funit_core_uri_for.t;h=72ccda16ded6ccf46365223430956dbe119c34bc;hp=dfeb95f5d7d937e056a5dea4e991fc2c920ec0b3;hb=d0f0fcf6ec9f6445e3e241b3edcd3920886a02cf;hpb=69eecfe56af710d0698539ea25dc1bc84282e013

diff --git a/t/unit_core_uri_for.t b/t/unit_core_uri_for.t
index dfeb95f..72ccda1 100644
--- a/t/unit_core_uri_for.t
+++ b/t/unit_core_uri_for.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 10;
+use Test::More tests => 11;
 use URI;
 
 use_ok('Catalyst');
@@ -74,3 +74,12 @@ is(
         'http://127.0.0.1/bar/baz', 'URI with no base or match' );
 }
 
+# test with undef -- no warnings should be thrown
+{
+    my $warnings = 0;
+    local $SIG{__WARN__} = sub { $warnings++ };
+
+    Catalyst::uri_for( $context, '/bar/baz', { foo => undef } )->as_string,
+    is( $warnings, 0, "no warnings emitted" );
+}
+