X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Funit_core_path_to.t;h=52c11a3d2164952f1b288eab64239b71dd301f0a;hp=c6757394b2ccd9394bc7d131f7ab1416ac456685;hb=fa32ac82eacd5c38b4b4dda10c472901a59c72fe;hpb=2c4bd9225b40f6f4602a31f6f1775e849f119345 diff --git a/t/unit_core_path_to.t b/t/unit_core_path_to.t index c675739..52c11a3 100644 --- a/t/unit_core_path_to.t +++ b/t/unit_core_path_to.t @@ -2,7 +2,6 @@ use strict; use warnings; use Test::More; -use Test::MockObject; my %non_unix = ( MacOS => 1, @@ -24,15 +23,17 @@ else { plan tests => 3; } -my $context = Test::MockObject->new; - use_ok('Catalyst'); -$context->mock( 'config', sub { { home => '/home/sri/my-app/' } } ); +my $context = 'Catalyst'; + +my $config = Catalyst->config; + +$config->{home} = '/home/sri/my-app/'; is( Catalyst::path_to( $context, 'foo' ), '/home/sri/my-app/foo', 'Unix path' ); -$context->mock( 'config', sub { { home => '/Users/sri/myapp' } } ); +$config->{home} = '/Users/sri/myapp/'; is( Catalyst::path_to( $context, 'foo', 'bar' ), '/Users/sri/myapp/foo/bar', 'deep Unix path' );