4 use Test::More tests => 3;
18 my $os = $non_unix{$^O} ? $^O : 'Unix';
20 plan skip_all => 'tests require Unix' unless $os eq 'Unix';
22 my $context = Test::MockObject->new;
26 $context->mock( 'config', sub { { home => '/home/sri/my-app/' } } );
28 is( Catalyst::path_to( $context, 'foo' ), '/home/sri/my-app/foo', 'Unix path' );
30 $context->mock( 'config', sub { { home => '/Users/sri/myapp' } } );
32 is( Catalyst::path_to( $context, 'foo', 'bar' ),
33 '/Users/sri/myapp/foo/bar', 'deep Unix path' );