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


use strict;
use warnings;
use Test::More 'no_plan';
use local::lib ();


my $c = 'local::lib';


{

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

}

{

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;
	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
4c375968	33	}