X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Funit%2Fcore%2Fpath_to.t;fp=t%2Funit%2Fcore%2Fpath_to.t;h=0000000000000000000000000000000000000000;hb=66741f94ac93b7ba0989db3556d0e3fe36c1be87;hp=c6757394b2ccd9394bc7d131f7ab1416ac456685;hpb=587b0f5882d4f5e128ae082758da37b065a3efde;p=catagits%2FCatalyst-Runtime.git diff --git a/t/unit/core/path_to.t b/t/unit/core/path_to.t deleted file mode 100644 index c675739..0000000 --- a/t/unit/core/path_to.t +++ /dev/null @@ -1,38 +0,0 @@ -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' );