3 use Test::More tests => 5;
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');
23 local $SIG{__WARN__} = sub { $warn .= $_[0] };
24 my $dir = File::Temp::tempdir();
25 $c->ensure_dir_structure_for("$dir/splat");
27 like($warn, qr/^Attempting to create directory/);