Revision 17318661
Von Sven Schöling vor mehr als 14 Jahren hinzugefügt
| t/001compile.t | ||
|---|---|---|
| 63 | 63 |
|
| 64 | 64 |
foreach my $file (@testitems) {
|
| 65 | 65 |
$file =~ s/\s.*$//; # nuke everything after the first space (#comment) |
| 66 |
next if (!$file); # skip null entries
|
|
| 66 |
next if !$file; # skip null entries
|
|
| 67 | 67 |
|
| 68 | 68 |
open (FILE,$file); |
| 69 | 69 |
my $bang = <FILE>; |
| 70 | 70 |
close (FILE); |
| 71 | 71 |
my $T = ""; |
| 72 |
if ($bang =~ m/#!\S*perl\s+-.*T/) {
|
|
| 73 |
$T = "T"; |
|
| 74 |
} |
|
| 75 |
my $command = "$perlapp -c$T -I modules/fallback -I modules/override $file 2>&1"; |
|
| 76 |
my $loginfo=`$command`; |
|
| 77 |
#print '@@'.$loginfo.'##'; |
|
| 78 |
if ($loginfo =~ /syntax ok$/im) {
|
|
| 79 |
if ($loginfo ne "$file syntax OK\n") {
|
|
| 80 |
ok(0,$file." --WARNING"); |
|
| 81 |
print $fh $loginfo; |
|
| 72 |
$T = "T" if $bang =~ m/#!\S*perl\s+-.*T/; |
|
| 73 |
|
|
| 74 |
if (-l $file) {
|
|
| 75 |
ok(1, "$file is a symlink"); |
|
| 76 |
} else {
|
|
| 77 |
local $TODO; |
|
| 78 |
$TODO = 'schema updates are not required to be strict now' if $file =~ m{^sql/Pg-upgrade2};
|
|
| 79 |
|
|
| 80 |
my $command = "$perlapp -c$T -I modules/fallback -I modules/override $file 2>&1"; |
|
| 81 |
my $loginfo=`$command`; |
|
| 82 |
|
|
| 83 |
if ($loginfo =~ /syntax ok$/im) {
|
|
| 84 |
if ($loginfo ne "$file syntax OK\n") {
|
|
| 85 |
ok(0,$file." --WARNING"); |
|
| 86 |
print $fh $loginfo; |
|
| 87 |
} else {
|
|
| 88 |
ok(1,$file); |
|
| 89 |
} |
|
| 82 | 90 |
} else {
|
| 83 |
ok(1,$file); |
|
| 91 |
ok(0,$file." --ERROR"); |
|
| 92 |
print $fh $loginfo; |
|
| 84 | 93 |
} |
| 85 |
} else {
|
|
| 86 |
ok(0,$file." --ERROR"); |
|
| 87 |
print $fh $loginfo; |
|
| 88 | 94 |
} |
| 89 | 95 |
} |
| 90 | 96 |
|
Auch abrufbar als: Unified diff
Compiling Tests angepasst. Symlinks skippen und schema Updates auf TODO setzen.