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;h=f46e2fdb202a90271ce167279dfea78013afe7c2;hp=c6726f6a7f84e8d881412547e6d1cfbe2d60feb7;hb=8327e2e21fc9ea72c357e876f868001ad9712474;hpb=b248fa4a4191cd3eaa13d72e6ec8e64dfef973e0 diff --git a/t/unit_core_uri_for.t b/t/unit_core_uri_for.t index c6726f6..f46e2fd 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 => 7; +use Test::More tests => 8; use Test::MockObject; use URI; @@ -36,6 +36,12 @@ is( is( Catalyst::uri_for( $context, '../quux' )->as_string, 'http://127.0.0.1/foo/quux', 'URI for relative dot path' ); +is( + Catalyst::uri_for( $context, 'quux', { param1 => 'value1' } )->as_string, + 'http://127.0.0.1/foo/yada/quux?param1=value1', + 'URI for undef action with query params' +); + $request->mock( 'base', sub { URI->new('http://localhost:3000/') } ); $request->mock( 'match', sub { 'orderentry/contract' } ); is(