]> git.openfabrics.org - ~shefty/rdma-dev.git/blob - tools/testing/ktest/compare-ktest-sample.pl
ktest: Add INGORE_ERRORS to ignore warnings in boot up
[~shefty/rdma-dev.git] / tools / testing / ktest / compare-ktest-sample.pl
1 #!/usr/bin/perl
2
3 open (IN,"ktest.pl");
4 while (<IN>) {
5     # hashes are now used
6     if (/\$opt\{"?([A-Z].*?)(\[.*\])?"?\}/ ||
7         /^\s*"?([A-Z].*?)"?\s*=>\s*/ ||
8         /set_test_option\("(.*?)"/) {
9         $opt{$1} = 1;
10     }
11 }
12 close IN;
13
14 open (IN, "sample.conf");
15 while (<IN>) {
16     if (/^\s*#?\s*([A-Z]\S*)\s*=/) {
17         $samp{$1} = 1;
18     }
19 }
20 close IN;
21
22 foreach $opt (keys %opt) {
23     if (!defined($samp{$opt})) {
24         print "opt = $opt\n";
25     }
26 }
27
28 foreach $samp (keys %samp) {
29     if (!defined($opt{$samp})) {
30         print "samp = $samp\n";
31     }
32 }