CheckTree.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl -w
BEGIN {
chdir 't' if -d 't';
}
use Test;
use strict;
# We assume that we start from the perl "t" directory.
# Will move up one level to make it easier to generate
# reliable pathnames for testing File::CheckTree
#### TEST 1 -- No warnings ####
# usings both relative and full paths, indented comments
{
my @warnings;
eval {
lib -d
# comment, followed "blank" line (w/ whitespace):
# indented comment, followed blank line (w/o whitespace):
$path_to_TEST -e || warn
};
};
}
else {
}
}
#### TEST 2 -- One warning ####
{
eval {
lib -f
};
};
if ( !$@ && @warnings == 1
&& defined($num_warnings)
&& $num_warnings == 1 )
{
}
else {
}
}
#### TEST 3 -- Multiple warnings ####
# including first warning only from a bundle of tests,
# generic "|| warn", default "|| warn" and "|| warn '...' "
{
eval {
$num_warnings = validate q{
};
};
if ( !$@ && @warnings == 3
&& defined($num_warnings)
&& $num_warnings == 3 )
{
}
else {
}
}
#### TEST 4 -- cd directive ####
# cd directive followed by relative paths, followed by full paths
{
eval {
Spec -e
Spec -f
$path_to_libFile -d || die
};
};
if ( !$@ && @warnings == 2
&& defined($num_warnings)
&& $num_warnings == 2 )
{
}
else {
}
}
#### TEST 5 -- Exception ####
# test with generic "|| die"
{
my $num_warnings;
eval {
$num_warnings = validate q{
};
};
&& not defined $num_warnings )
{
}
else {
}
}
#### TEST 6 -- Exception ####
# test with "|| die 'my error message'"
{
my $num_warnings;
eval {
$num_warnings = validate q{
};
};
&& not defined $num_warnings )
{
}
else {
}
}