X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Funit_core_path_to.t;h=a89135c578fca0b2e1c46f9645488e3dbf3ee87a;hb=05b47f2e6357bc7f1622e6b2cf730ad5bbeb993f;hp=c6757394b2ccd9394bc7d131f7ab1416ac456685;hpb=66741f94ac93b7ba0989db3556d0e3fe36c1be87;p=catagits%2FCatalyst-Runtime.git diff --git a/t/unit_core_path_to.t b/t/unit_core_path_to.t index c675739..a89135c 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, @@ -18,21 +17,23 @@ my %non_unix = ( my $os = $non_unix{$^O} ? $^O : 'Unix'; if( $os ne 'Unix' ) { - plan skip_all => 'tests require Unix'; + plan skip_all => 'tests require Unix'; } else { - plan tests => 3; + 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' );