Revision 4000444b
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| t/structure/no_lexicals_in_postif.t | ||
|---|---|---|
| 24 | 24 |
my @testitems = @Support::Files::testitems; |
| 25 | 25 |
|
| 26 | 26 |
foreach my $file (@testitems) {
|
| 27 |
next unless -f $file; |
|
| 28 | 27 |
my $clean = 1; |
| 29 | 28 |
my $doc = PPI::Document->new($file) or do {
|
| 30 |
ok 0, "PPI error for file $file: " . PPI::Document::errstr(); |
|
| 29 |
print $fh "?: PPI error for file $file: " . PPI::Document::errstr() . "\n"; |
|
| 30 |
ok 0, $file; |
|
| 31 | 31 |
next; |
| 32 | 32 |
}; |
| 33 | 33 |
my $stmts = $doc->find('Statement::Variable');
|
Auch abrufbar als: Unified diff
Testoutput bei PPI Parsingfehlern angepasst.