Add support for direct testing of the attribute matcher, add basic tests for it.
Showing the changes to scripts/checkpatch.pl (1 of 1 file). Show all
Unified · Split
| @@ -66,6 +66,7 @@ if ($#ARGV < 0) { · 65 unmodified lines | ||
| 66 | 66 | my $dbg_values = 0; |
| 67 | 67 | my $dbg_possible = 0; |
| 68 | 68 | my $dbg_type = 0; |
| 69 | +my $dbg_attr = 0; | |
| 69 | 70 | for my $key (keys %debug) { |
| 70 | 71 | eval "\${dbg_$key} = '$debug{$key}';" |
| 71 | 72 | } |
| @@ -1367,6 +1368,15 @@ sub process { · 1295 unmodified lines | ||
| 1367 | 1368 | } |
| 1368 | 1369 | next; |
| 1369 | 1370 | } |
| 1371 | +# TEST: allow direct testing of the attribute matcher. | |
| 1372 | + if ($dbg_attr) { | |
| 1373 | + if ($line =~ /^.\s*$Attribute\s*$/) { | |
| 1374 | + ERROR("TEST: is attr\n" . $herecurr); | |
| 1375 | + } elsif ($dbg_attr > 1 && $line =~ /^.+($Attribute)/) { | |
| 1376 | + ERROR("TEST: is not attr ($1 is)\n". $herecurr); | |
| 1377 | + } | |
| 1378 | + next; | |
| 1379 | + } | |
| 1370 | 1380 | |
| 1371 | 1381 | # check for initialisation to aggregates open brace on the next line |
| 1372 | 1382 | if ($prevline =~ /$Declare\s*$Ident\s*=\s*$/ && |