Donate to e Foundation | Murena handsets with /e/OS | Own a part of Murena! Learn more

Commit 8fddbe9b authored by Steven Rostedt's avatar Steven Rostedt Committed by Steven Rostedt
Browse files

ktest: Allow perl regex expressions in conditional statements 



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: default avatarSteven Rostedt <rostedt@goodmis.org>
parent 9b1d367d

tools/testing/ktest/ktest.pl

+5 −1
Original line number Diff line number Diff line
@@ -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";