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