t/classmethod.t

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