June 2002
Beginner
759 pages
80h 42m
English
Runs file tests on a set of files. Exports one function,
validate, which takes a single
multiline string as input. Each line of the string contains a filename
plus a test to run on the file. The test can be followed with || die to make it a fatal error if it fails.
The default is || warn. Prepending
! to the test reverses the sense of
the test. You can group tests (e.g., -rwx); only the first failed test of the
group produces a warning. For example:
use File::CheckTree;
$warnings += validate( q{
/vmunix -e || die
/bin cd
csh !-ug
sh -ex
/usr -d || warn "What happened to $file?\n"
});Available tests include all the standard Perl file-test
operators except -t, -M,
-A, and -C. Unless it dies,
validate returns the number of
warnings issued.