Commit | Line | Data |
---|---|---|
4c375968 | 1 | use strict; |
2 | use warnings; | |
7487778d | 3 | use Test::More tests => 4;; |
4 | ||
4c375968 | 5 | use local::lib (); |
6 | ||
4c375968 | 7 | my $c = 'local::lib'; |
8 | ||
4c375968 | 9 | { |
e7ffbae6 | 10 | is($c->resolve_empty_path, '~/perl5'); |
11 | is($c->resolve_empty_path('foo'), 'foo'); | |
4c375968 | 12 | } |
13 | ||
14 | { | |
e7ffbae6 | 15 | no warnings 'once'; |
16 | local *File::Spec::rel2abs = sub { shift; 'FOO'.shift; }; | |
17 | is($c->resolve_relative_path('bar'),'FOObar'); | |
4c375968 | 18 | } |
19 | ||
20 | { | |
e7ffbae6 | 21 | File::Path::rmtree('t/var/splat'); |
22 | $c->ensure_dir_structure_for('t/var/splat'); | |
23 | ok(-d 't/var/splat'); | |
4c375968 | 24 | } |