[p5sagit/local-lib.git] / t / classmethod.t


use strict;
use warnings;
use Test::More tests => 4;;

use local::lib ();


my $c = 'local::lib';


{

is($c->resolve_empty_path, '~/perl5');
is($c->resolve_empty_path('foo'), 'foo');

}

{

no warnings 'once';
local *File::Spec::rel2abs = sub { shift; 'FOO'.shift; };
is($c->resolve_relative_path('bar'),'FOObar');

}

{

File::Path::rmtree('t/var/splat');

$c->ensure_dir_structure_for('t/var/splat');

ok(-d 't/var/splat');

}
Commit	Line	Data
4c375968	1
	2	use strict;
	3	use warnings;
7487778d	4	use Test::More tests => 4;;
7487778d	5
4c375968	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
3ad7da2f	21	no warnings 'once';
4c375968	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
4c375968	35	}