+++ /dev/null
-use strict;
-use warnings;
-
-use Test::More;
-use Test::MockObject;
-
-my %non_unix = (
- MacOS => 1,
- MSWin32 => 1,
- os2 => 1,
- VMS => 1,
- epoc => 1,
- NetWare => 1,
- dos => 1,
- cygwin => 1
-);
-
-my $os = $non_unix{$^O} ? $^O : 'Unix';
-
-if( $os ne 'Unix' ) {
- plan skip_all => 'tests require Unix';
-}
-else {
- plan tests => 3;
-}
-
-my $context = Test::MockObject->new;
-
-use_ok('Catalyst');
-
-$context->mock( 'config', sub { { 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' } } );
-
-is( Catalyst::path_to( $context, 'foo', 'bar' ),
- '/Users/sri/myapp/foo/bar', 'deep Unix path' );