X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Funit_utils_subdir.t;h=8a7865582faec1ea6dac8eb95605607d90aa533e;hp=852d2d42e4456fad51502b83ab811ee1d5df6f1d;hb=6e3dd95f237370a2824e5ecc1419eaed075f0279;hpb=6d41c7c34e063f2b078b255b27218804db7d844c diff --git a/t/unit_utils_subdir.t b/t/unit_utils_subdir.t index 852d2d4..8a78655 100644 --- a/t/unit_utils_subdir.t +++ b/t/unit_utils_subdir.t @@ -4,7 +4,7 @@ use strict; use warnings; # simulates an entire testapp rooted at t/something -# except without bothering creating it since its +# except without bothering creating it since it's # only the -e check on the Makefile.PL that matters BEGIN { use_ok 'Catalyst::Utils' } @@ -14,21 +14,21 @@ use Path::Class::Dir; { $INC{'TestApp.pm'} = "$FindBin::Bin/something/script/foo/../../lib/TestApp.pm"; my $home = Catalyst::Utils::home('TestApp'); - like($home, qr{t[\/\\]something}, "has path TestApp/t/something"); + like($home, qr{t[\/\\]something}, "has path TestApp/t/something"); unlike($home, qr{[\/\\]script[\/\\]foo}, "doesn't have path /script/foo"); } { $INC{'TestApp.pm'} = "$FindBin::Bin/something/script/foo/bar/../../../lib/TestApp.pm"; my $home = Catalyst::Utils::home('TestApp'); - like($home, qr{t[\/\\]something}, "has path TestApp/t/something"); + like($home, qr{t[\/\\]something}, "has path TestApp/t/something"); unlike($home, qr{[\/\\]script[\/\\]foo[\/\\]bar}, "doesn't have path /script/foo/bar"); } { $INC{'TestApp.pm'} = "$FindBin::Bin/something/script/../lib/TestApp.pm"; my $home = Catalyst::Utils::home('TestApp'); - like($home, qr{t[\/\\]something}, "has path TestApp/t/something"); + like($home, qr{t[\/\\]something}, "has path TestApp/t/something"); unlike($home, qr{[\/\\]script[\/\\]foo}, "doesn't have path /script/foo"); } @@ -36,7 +36,7 @@ use Path::Class::Dir; $INC{'TestApp.pm'} = "TestApp.pm"; my $dir = "$FindBin::Bin/something"; chdir( $dir ); - + my $home = Catalyst::Utils::home('TestApp'); $dir = Path::Class::Dir->new( $dir );