[p5sagit/p5-mst-13.2.git] / lib / File / CheckTree.t

#!./perl

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

print "1..1\n";

use File::CheckTree;

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

validate q{
    lib  -d || die
    TEST -f || die
};

print "ok 1\n";
Commit	Line	Data
1a3850a5	1	#!./perl
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
20822f61	5	@INC = '../lib';
1a3850a5	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{
b695f709	15	lib -d \|\| die
b695f709	16	TEST -f \|\| die
1a3850a5	17	};
	18
	19	print "ok 1\n";