Commit | Line | Data |
---|---|---|
c25ce589 | 1 | #!/usr/bin/env perl |
b2441318 | 2 | # SPDX-License-Identifier: GPL-2.0 |
dbc6d0aa SR |
3 | |
4 | open (IN,"ktest.pl"); | |
5 | while (<IN>) { | |
c2857cb4 | 6 | # hashes are now used |
dbc6d0aa | 7 | if (/\$opt\{"?([A-Z].*?)(\[.*\])?"?\}/ || |
c2857cb4 | 8 | /^\s*"?([A-Z].*?)"?\s*=>\s*/ || |
dbc6d0aa SR |
9 | /set_test_option\("(.*?)"/) { |
10 | $opt{$1} = 1; | |
11 | } | |
12 | } | |
13 | close IN; | |
14 | ||
15 | open (IN, "sample.conf"); | |
16 | while (<IN>) { | |
c2857cb4 | 17 | if (/^\s*#?\s*([A-Z]\S*)\s*=/) { |
dbc6d0aa SR |
18 | $samp{$1} = 1; |
19 | } | |
20 | } | |
21 | close IN; | |
22 | ||
23 | foreach $opt (keys %opt) { | |
24 | if (!defined($samp{$opt})) { | |
25 | print "opt = $opt\n"; | |
26 | } | |
27 | } | |
28 | ||
29 | foreach $samp (keys %samp) { | |
30 | if (!defined($opt{$samp})) { | |
31 | print "samp = $samp\n"; | |
32 | } | |
33 | } |