diff options
author | Andy Whitcroft <apw@shadowen.org> | 2008-10-16 01:02:17 -0400 |
---|---|---|
committer | Linus Torvalds <torvalds@linux-foundation.org> | 2008-10-16 14:21:35 -0400 |
commit | a1ef277e2c88c80cfa00580469133e2215442c8d (patch) | |
tree | d5306eda9a9d765fc05af689c7e0611a7b33e593 /scripts/checkpatch.pl | |
parent | 1bdab9e5881fde3bf66528db5b91477ce4b35b3b (diff) |
checkpatch: add tests for the attribute matcher
Add support for direct testing of the attribute matcher, add basic tests
for it.
Signed-off-by: Andy Whitcroft <apw@shadowen.org>
Signed-off-by: Andrew Morton <akpm@linux-foundation.org>
Signed-off-by: Linus Torvalds <torvalds@linux-foundation.org>
Diffstat (limited to 'scripts/checkpatch.pl')
-rwxr-xr-x | scripts/checkpatch.pl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/scripts/checkpatch.pl b/scripts/checkpatch.pl index c6782ac6f130..1c032b1fa9eb 100755 --- a/scripts/checkpatch.pl +++ b/scripts/checkpatch.pl | |||
@@ -66,6 +66,7 @@ if ($#ARGV < 0) { | |||
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 { | |||
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*$/ && |