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