3 use Test::More tests => 4;;
11 is($c->resolve_empty_path, '~/perl5');
12 is($c->resolve_empty_path('foo'), 'foo');
17 local *File::Spec::rel2abs = sub { shift; 'FOO'.shift; };
18 is($c->resolve_relative_path('bar'),'FOObar');
22 my $dir = File::Temp::tempdir();
23 $c->ensure_dir_structure_for("$dir/splat");