X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faggregate%2Funit_core_uri_for.t;h=3318192d1e683b21cddf1dcdffd81dfbc6efe5be;hb=480d94b5f34577816d44fe05389ca5a085179363;hp=dad5a1ce6e9f37b7c8cd5344c56981855521c4b7;hpb=5a8e2ba0c3ec3c666760f09411ff56c8d13a4482;p=catagits%2FCatalyst-Runtime.git diff --git a/t/aggregate/unit_core_uri_for.t b/t/aggregate/unit_core_uri_for.t index dad5a1c..3318192 100644 --- a/t/aggregate/unit_core_uri_for.t +++ b/t/aggregate/unit_core_uri_for.t @@ -8,6 +8,7 @@ use URI; use_ok('TestApp'); my $request = Catalyst::Request->new( { + _log => Catalyst::Log->new, base => URI->new('http://127.0.0.1/foo') } ); my $dispatcher = TestApp->dispatcher; @@ -180,5 +181,16 @@ TODO: { ); } -done_testing; +{ + package MyStringThing; + + use overload '""' => sub { $_[0]->{string} }, fallback => 1; +} +is( + Catalyst::uri_for( $context, bless( { string => 'test' }, 'MyStringThing' ) ), + 'http://127.0.0.1/test', + 'overloaded object handled correctly' +); + +done_testing;