t/classmethod.t

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