| Steven Rostedt | dbc6d0a | 2010-11-08 17:18:37 -0500 | [diff] [blame] | 1 | #!/usr/bin/perl |
| Greg Kroah-Hartman | b244131 | 2017-11-01 15:07:57 +0100 | [diff] [blame] | 2 | # SPDX-License-Identifier: GPL-2.0 |
| Steven Rostedt | dbc6d0a | 2010-11-08 17:18:37 -0500 | [diff] [blame] | 3 | |
| 4 | open (IN,"ktest.pl"); |
| 5 | while (<IN>) { |
| Steven Rostedt | c2857cb | 2011-12-22 22:06:59 -0500 | [diff] [blame] | 6 | # hashes are now used |
| Steven Rostedt | dbc6d0a | 2010-11-08 17:18:37 -0500 | [diff] [blame] | 7 | if (/\$opt\{"?([A-Z].*?)(\[.*\])?"?\}/ || |
| Steven Rostedt | c2857cb | 2011-12-22 22:06:59 -0500 | [diff] [blame] | 8 | /^\s*"?([A-Z].*?)"?\s*=>\s*/ || |
| Steven Rostedt | dbc6d0a | 2010-11-08 17:18:37 -0500 | [diff] [blame] | 9 | /set_test_option\("(.*?)"/) { |
| 10 | $opt{$1} = 1; |
| 11 | } |
| 12 | } |
| 13 | close IN; |
| 14 | |
| 15 | open (IN, "sample.conf"); |
| 16 | while (<IN>) { |
| Steven Rostedt | c2857cb | 2011-12-22 22:06:59 -0500 | [diff] [blame] | 17 | if (/^\s*#?\s*([A-Z]\S*)\s*=/) { |
| Steven Rostedt | dbc6d0a | 2010-11-08 17:18:37 -0500 | [diff] [blame] | 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 | } |