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 | my $dbg_values = 0; | 66 | my $dbg_values = 0; |
| 67 | my $dbg_possible = 0; | 67 | my $dbg_possible = 0; |
| 68 | my $dbg_type = 0; | 68 | my $dbg_type = 0; |
| 69 | my $dbg_attr = 0; | ||
| 69 | for my $key (keys %debug) { | 70 | for my $key (keys %debug) { |
| 70 | eval "\${dbg_$key} = '$debug{$key}';" | 71 | eval "\${dbg_$key} = '$debug{$key}';" |
| 71 | } | 72 | } |
| @@ -1367,6 +1368,15 @@ sub process { · 1295 unmodified lines | |||
| 1367 | } | 1368 | } |
| 1368 | next; | 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 | # check for initialisation to aggregates open brace on the next line | 1381 | # check for initialisation to aggregates open brace on the next line |
| 1372 | if ($prevline =~ /$Declare\s*$Ident\s*=\s*$/ && | 1382 | if ($prevline =~ /$Declare\s*$Ident\s*=\s*$/ && |