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