t/classmethod.t

   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
  33 }