2012-04-08 02:11:16 +02:00
|
|
|
use Config qw/ myconfig /;
|
|
|
|
use Data::Dumper;
|
|
|
|
use English qw/ -no_match_vars /;
|
|
|
|
use File::Find;
|
2012-05-05 01:36:35 +02:00
|
|
|
use Test::More;
|
|
|
|
|
|
|
|
if ( $ENV{'QPSMTPD_DEVELOPER'} ) {
|
|
|
|
'no_plan';
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
plan skip_all => "not a developer, skipping POD tests";
|
|
|
|
};
|
2012-04-08 02:11:16 +02:00
|
|
|
|
|
|
|
use lib 'lib';
|
|
|
|
|
|
|
|
my $this_perl = $Config{'perlpath'} || $EXECUTABLE_NAME;
|
|
|
|
|
2012-05-06 08:20:04 +02:00
|
|
|
my @files = find( {wanted=>\&test_syntax, no_chdir=>1}, 'plugins', 'lib', 't' );
|
2012-04-08 02:11:16 +02:00
|
|
|
|
|
|
|
sub test_syntax {
|
2012-05-05 01:36:35 +02:00
|
|
|
my $f = $File::Find::name;
|
|
|
|
chomp $f;
|
|
|
|
return if ! -f $f;
|
|
|
|
return if $f =~ m/(~|\.(bak|orig|rej))/;
|
|
|
|
my $r;
|
|
|
|
eval { $r = `$this_perl -Ilib -MQpsmtpd::Constants -c $f 2>&1`; };
|
|
|
|
my $exit_code = sprintf ("%d", $CHILD_ERROR >> 8);
|
|
|
|
if ( $exit_code == 0 ) {
|
|
|
|
ok( $exit_code == 0, "syntax $f");
|
|
|
|
return;
|
|
|
|
};
|
|
|
|
if ( $r =~ /^Can't locate (.*?) in / ) {
|
|
|
|
ok( 0 == 0, "skipping $f, I couldn't load w/o $1");
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
if ( $r =~ /^Base class package "Danga::Socket" is empty/ ) {
|
|
|
|
ok( 0 == 0, "skipping $f, Danga::Socket not available.");
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
print "ec: $exit_code, r: $r\n";
|
2012-04-08 02:11:16 +02:00
|
|
|
};
|
|
|
|
|
2012-05-05 01:36:35 +02:00
|
|
|
done_testing();
|
2012-04-08 02:11:16 +02:00
|
|
|
|