ktest: Fix compare script to test if options are not documented
authorSteven Rostedt <srostedt@redhat.com>
Fri, 23 Dec 2011 03:06:59 +0000 (22:06 -0500)
committerSteven Rostedt <rostedt@goodmis.org>
Fri, 23 Dec 2011 03:06:59 +0000 (22:06 -0500)
The compare script compare-ktest-sample.pl checks for options
that are defined in ktest.pl and not documented in samples.conf,
as well as samples in samples.conf that are not used in ktest.pl.

With the switch to the hash format to initialize the ktest variables
the compare script needs to be updated to handle the change.

Signed-off-by: Steven Rostedt <rostedt@goodmis.org>
tools/testing/ktest/compare-ktest-sample.pl

index 9a571e71683c2dfea90ddcf03911d93abee75081..a373a5bfff683cc4b395588af358a2aa92b2171d 100755 (executable)
@@ -2,7 +2,9 @@
 
 open (IN,"ktest.pl");
 while (<IN>) {
+    # hashes are now used
     if (/\$opt\{"?([A-Z].*?)(\[.*\])?"?\}/ ||
+       /^\s*"?([A-Z].*?)"?\s*=>\s*/ ||
        /set_test_option\("(.*?)"/) {
        $opt{$1} = 1;
     }
@@ -11,7 +13,7 @@ close IN;
 
 open (IN, "sample.conf");
 while (<IN>) {
-    if (/^\s*#?\s*(\S+)\s*=/) {
+    if (/^\s*#?\s*([A-Z]\S*)\s*=/) {
        $samp{$1} = 1;
     }
 }