tools/testing/ktest/compare-ktest-sample.pl

   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 }