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=fb5ea1e3224be5c9812ca7b12cf5200dee5ad961;hp=c767ff27904992c0c65c8b0a7e4f8e952848a8cb;hb=7a2295bc5e5acd73fe7ffc3bc556dfa2ec74486a;hpb=804fb55df7c29c1f7a3b855c88adbf183f26ab62

diff --git a/t/unit_core_uri_for.t b/t/unit_core_uri_for.t
index c767ff2..fb5ea1e 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 => 15;
+use Test::More tests => 16;
 use URI;
 
 use_ok('Catalyst');
@@ -103,3 +103,8 @@ is(
     is( $warnings, 0, "no warnings emitted" );
 }
 
+# Test with parameters '/', 'foo', 'bar' - should not generate a //
+is( Catalyst::uri_for( $context, qw| / foo bar | )->as_string,
+    'http://127.0.0.1/foo/bar', 'uri is /foo/bar, not //foo/bar'
+);
+