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 }