#!./perl -w
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
}
use Test::More tests => 23;
use strict;
BEGIN {
# Cwd::cwd does an implicit "require Win32", but
# the ../lib directory in @INC will no longer work once
# we chdir() out of the "t" directory.
if ($^O eq 'MSWin32') {
require Win32;
Win32->import();
}
require overload;
}
use File::CheckTree;
use File::Spec; # used to get absolute paths
# 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
chdir(File::Spec->updir) or die "cannot change to parent of t/ directory: $!";
#### TEST 1 -- No warnings ####
# usings both relative and full paths, indented comments
{
my ($num_warnings, $path_to_README);
$path_to_README = File::Spec->rel2abs('README');
my @warnings;
local $SIG{__WARN__} = sub { push @warnings, "@_" };
eval {
$num_warnings = validate qq{
lib -d
# comment, followed "blank" line (w/ whitespace):
# indented comment, followed blank line (w/o whitespace):
README -f
'$path_to_README' -e || warn
};
};
diag($_) for @warnings;
is( $@, '' );
is( scalar @warnings, 0 );
is( $num_warnings, 0 );
}
#### TEST 2 -- One warning ####
{
my ($num_warnings, @warnings);
local $SIG{__WARN__} = sub { push @warnings, "@_" };
eval {
$num_warnings = validate qq{
lib -f
README -f
};
};
is( $@, '' );
is( scalar @warnings, 1 );
like( $warnings[0], qr/lib is not a plain file/);
is( $num_warnings, 1 );
}
#### TEST 3 -- Multiple warnings ####
# including first warning only from a bundle of tests,
# generic "|| warn", default "|| warn" and "|| warn '...' "
{
my ($num_warnings, @warnings);
local $SIG{__WARN__} = sub { push @warnings, "@_" };
eval {
$num_warnings = validate q{
lib -effd
README -f || die
README -d || warn
lib -f || warn "my warning: $file\n"
};
};
is( $@, '' );
is( scalar @warnings, 3 );
like( $warnings[0], qr/lib is not a plain file/);
like( $warnings[1], qr/README is not a directory/);
like( $warnings[2], qr/my warning: lib/);
is( $num_warnings, 3 );
}
#### TEST 4 -- cd directive ####
# cd directive followed by relative paths, followed by full paths
{
my ($num_warnings, @warnings, $path_to_libFile, $path_to_dist);
$path_to_libFile = File::Spec->rel2abs(File::Spec->catdir('lib','File'));
$path_to_dist = File::Spec->rel2abs(File::Spec->curdir);
local $SIG{__WARN__} = sub { push @warnings, "@_" };
eval {
$num_warnings = validate qq{
lib -d || die
'$path_to_libFile' cd
Spec -e
Spec -f
'$path_to_dist' cd
README -ef
INSTALL -d || warn
'$path_to_libFile' -d || die
};
};
is( $@, '' );
is( scalar @warnings, 2 );
like( $warnings[0], qr/Spec is not a plain file/);
like( $warnings[1], qr/INSTALL is not a directory/);
is( $num_warnings, 2 );
}
#### TEST 5 -- Exception ####
# test with generic "|| die"
{
my $num_warnings;
eval {
$num_warnings = validate q{
lib -ef || die
README -d
};
};
like($@, qr/lib is not a plain file/);
}
#### TEST 6 -- Exception ####
# test with "|| die 'my error message'"
{
my $num_warnings;
eval {
$num_warnings = validate q{
lib -ef || die "yadda $file yadda...\n"
README -d
};
};
like($@, qr/yadda lib yadda/);
is( $num_warnings, undef );
}
#### TEST 7 -- Quoted file names ####
{
my $num_warnings;
eval {
$num_warnings = validate q{
"a file with whitespace" !-ef
'a file with whitespace' !-ef
};
};
is ( $@, '', 'No errors mean we compile correctly');
}
#### TEST 8 -- Malformed query ####
{
my $num_warnings;
eval {
$num_warnings = validate q{
a file with whitespace !-ef
};
};
like( $@, qr/syntax error/,
'We got a syntax error for a malformed file query' );
}