ktest: Add IF and ELSE to config sections

[pandora-kernel.git] / tools / testing / ktest / ktest.pl

diff --git a/tools/testing/ktest/ktest.pl b/tools/testing/ktest/ktest.pl
index 057676a..c76e18f 100755 (executable)
--- a/tools/testing/ktest/ktest.pl
+++ b/tools/testing/ktest/ktest.pl
@@ -361,6 +361,21 @@ sub set_variable {
     }
 }
 
+sub process_if {
+    my ($name, $value) = @_;
+
+    my $val = process_variables($value);
+
+    if ($val =~ /^\s*0\s*$/) {
+       return 0;
+    } elsif ($val =~ /^\s*\d+\s*$/) {
+       return 1;
+    }
+
+    die ("$name: $.: Undefined variable $val in if statement\n");
+    return 1;
+}
+
 sub read_config {
     my ($config) = @_;
 
@@ -376,6 +391,8 @@ sub read_config {
     my $skip = 0;
     my $rest;
     my $test_case = 0;
+    my $if = 0;
+    my $if_set = 0;
 
     while (<IN>) {
 
@@ -397,7 +414,7 @@ sub read_config {
            $default = 0;
            $repeat = 1;
 
-           if ($rest =~ /\s+SKIP(.*)/) {
+           if ($rest =~ /\s+SKIP\b(.*)/) {
                $rest = $1;
                $skip = 1;
            } else {
@@ -411,9 +428,16 @@ sub read_config {
                $repeat_tests{"$test_num"} = $repeat;
            }
 
-           if ($rest =~ /\s+SKIP(.*)/) {
-               $rest = $1;
-               $skip = 1;
+           if ($rest =~ /\sIF\s+(\S*)(.*)/) {
+               $rest = $2;
+               if (process_if($name, $1)) {
+                   $if_set = 1;
+               } else {
+                   $skip = 1;
+               }
+               $if = 1;
+           } else {
+               $if = 0;
            }
 
            if ($rest !~ /^\s*$/) {
@@ -437,10 +461,42 @@ sub read_config {
                $skip = 0;
            }
 
+           if ($rest =~ /\sIF\s+(\S*)(.*)/) {
+               $if = 1;
+               $rest = $2;
+               if (process_if($name, $1)) {
+                   $if_set = 1;
+               } else {
+                   $skip = 1;
+               }
+           } else {
+               $if = 0;
+           }
+
            if ($rest !~ /^\s*$/) {
                die "$name: $.: Gargbage found after DEFAULTS\n$_";
            }
 
+       } elsif (/^\s*ELSE(.*)$/) {
+           if (!$if) {
+               die "$name: $.: ELSE found with out matching IF section\n$_";
+           }
+           $rest = $1;
+           if ($if_set) {
+               $skip = 1;
+           } else {
+               $skip = 0;
+
+               if ($rest =~ /\sIF\s+(\S*)(.*)/) {
+                   # May be a ELSE IF section.
+                   if (!process_if($name, $1)) {
+                       $skip = 1;
+                   }
+               } else {
+                   $if = 0;
+               }
+           }
+
        } elsif (/^\s*([A-Z_\[\]\d]+)\s*=\s*(.*?)\s*$/) {
 
            next if ($skip);