Commit | Line | Data |
01033d73 |
1 | use strict; |
2 | use warnings; |
3 | |
5b19d407 |
4 | use Test::More; |
01033d73 |
5 | use Test::MockObject; |
6 | |
7 | my %non_unix = ( |
8 | MacOS => 1, |
9 | MSWin32 => 1, |
10 | os2 => 1, |
11 | VMS => 1, |
12 | epoc => 1, |
13 | NetWare => 1, |
14 | dos => 1, |
15 | cygwin => 1 |
16 | ); |
17 | |
18 | my $os = $non_unix{$^O} ? $^O : 'Unix'; |
19 | |
5b19d407 |
20 | if( $os ne 'Unix' ) { |
21 | plan skip_all => 'tests require Unix'; |
22 | } |
23 | else { |
24 | plan tests => 3; |
25 | } |
01033d73 |
26 | |
27 | my $context = Test::MockObject->new; |
28 | |
29 | use_ok('Catalyst'); |
30 | |
31 | $context->mock( 'config', sub { { home => '/home/sri/my-app/' } } ); |
32 | |
33 | is( Catalyst::path_to( $context, 'foo' ), '/home/sri/my-app/foo', 'Unix path' ); |
34 | |
35 | $context->mock( 'config', sub { { home => '/Users/sri/myapp' } } ); |
36 | |
37 | is( Catalyst::path_to( $context, 'foo', 'bar' ), |
38 | '/Users/sri/myapp/foo/bar', 'deep Unix path' ); |