[perl5.git] / t / lib / checktree.t

#!./perl

BEGIN {
    chdir 't' if -d 't';
    unshift @INC, '../lib';
}

print "1..1\n";

use File::CheckTree;

# We assume that we run from the perl "t" directory.

validate q{
    lib              -d || die
    lib/checktree.t  -f || die
};

print "ok 1\n";
Commit	Line	Data
1a3850a5 GA	1	#!./perl
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
93430cb4	5	unshift @INC, '../lib';
1a3850a5 GA	6	}
	7
	8	print "1..1\n";
	9
	10	use File::CheckTree;
	11
	12	# We assume that we run from the perl "t" directory.
	13
	14	validate q{
	15	lib -d \|\| die
	16	lib/checktree.t -f \|\| die
	17	};
	18
	19	print "ok 1\n";