5.6902 release

[catagits/Catalyst-Runtime.git] / t / unit_core_path_to.t

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' );