[PATCH 10/10] ktest: Allow perl regex expressions in conditional statements

[Steven Rostedt]

From: Steven Rostedt <srost...@redhat.com>

Add '=~' and '!~' to the list of allowed conditionals for DEFAULT and
TEST_START section if statements.

ie.

 TEST_START IF TEST =~ .*test$

Signed-off-by: Steven Rostedt <rost...@goodmis.org>
---
 tools/testing/ktest/ktest.pl |    6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/tools/testing/ktest/ktest.pl b/tools/testing/ktest/ktest.pl
index a022fb7..52b7959 100755
--- a/tools/testing/ktest/ktest.pl
+++ b/tools/testing/ktest/ktest.pl
@@ -623,6 +623,10 @@ sub process_compare {
        return $lval eq $rval;
     } elsif ($cmp eq "!=") {
        return $lval ne $rval;
+    } elsif ($cmp eq "=~") {
+       return $lval =~ m/$rval/;
+    } elsif ($cmp eq "!~") {
+       return $lval !~ m/$rval/;
     }
 
     my $statement = "$lval $cmp $rval";
@@ -678,7 +682,7 @@ sub process_expression {
        }
     }
 
-    if ($val =~ /(.*)(==|\!=|>=|<=|>|<)(.*)/) {
+    if ($val =~ /(.*)(==|\!=|>=|<=|>|<|=~|\!~)(.*)/) {
        my $ret = process_compare($1, $2, $3);
        if ($ret < 0) {
            die "$name: $.: Unable to process comparison\n";
-- 
1.7.10.4

signature.asc
Description: This is a digitally signed message part