Revision 035d1c70
Von Tamino Steinert vor fast 2 Jahren hinzugefügt
| t/001compile.t | ||
|---|---|---|
| 75 | 75 |
|
| 76 | 76 |
if ($loginfo =~ /syntax ok$/im) {
|
| 77 | 77 |
if ($loginfo ne "$file syntax OK\n") {
|
| 78 |
ok(0,$file." --WARNING");
|
|
| 78 |
ok(0,$file." --WARNING\n" . ( split /\n/, $loginfo )[0]);
|
|
| 79 | 79 |
print $fh $loginfo; |
| 80 | 80 |
} else {
|
| 81 | 81 |
ok(1,$file); |
| 82 | 82 |
} |
| 83 | 83 |
} else {
|
| 84 |
ok(0,$file." --ERROR");
|
|
| 84 |
ok(0,$file." --ERROR\n" . ( split /\n/, $loginfo )[0]);
|
|
| 85 | 85 |
print $fh $loginfo; |
| 86 | 86 |
} |
| 87 | 87 |
} |
Auch abrufbar als: Unified diff
Tests: 001compile: gebe den Fehlergrund mit aus