mirror of
https://github.com/adulau/aha.git
synced 2024-12-27 11:16:11 +00:00
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>
This commit is contained in:
parent
1bdab9e588
commit
a1ef277e2c
1 changed files with 10 additions and 0 deletions
|
@ -66,6 +66,7 @@ if ($#ARGV < 0) {
|
|||
my $dbg_values = 0;
|
||||
my $dbg_possible = 0;
|
||||
my $dbg_type = 0;
|
||||
my $dbg_attr = 0;
|
||||
for my $key (keys %debug) {
|
||||
eval "\${dbg_$key} = '$debug{$key}';"
|
||||
}
|
||||
|
@ -1367,6 +1368,15 @@ sub process {
|
|||
}
|
||||
next;
|
||||
}
|
||||
# TEST: allow direct testing of the attribute matcher.
|
||||
if ($dbg_attr) {
|
||||
if ($line =~ /^.\s*$Attribute\s*$/) {
|
||||
ERROR("TEST: is attr\n" . $herecurr);
|
||||
} elsif ($dbg_attr > 1 && $line =~ /^.+($Attribute)/) {
|
||||
ERROR("TEST: is not attr ($1 is)\n". $herecurr);
|
||||
}
|
||||
next;
|
||||
}
|
||||
|
||||
# check for initialisation to aggregates open brace on the next line
|
||||
if ($prevline =~ /$Declare\s*$Ident\s*=\s*$/ &&
|
||||
|
|
Loading…
Reference in a new issue