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