aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xtools/testing/ktest/ktest.pl6
1 files changed, 5 insertions, 1 deletions
diff --git a/tools/testing/ktest/ktest.pl b/tools/testing/ktest/ktest.pl
index a022fb7d113d..52b7959cd513 100755
--- a/tools/testing/ktest/ktest.pl
+++ b/tools/testing/ktest/ktest.pl
@@ -623,6 +623,10 @@ sub process_compare {
623 return $lval eq $rval; 623 return $lval eq $rval;
624 } elsif ($cmp eq "!=") { 624 } elsif ($cmp eq "!=") {
625 return $lval ne $rval; 625 return $lval ne $rval;
626 } elsif ($cmp eq "=~") {
627 return $lval =~ m/$rval/;
628 } elsif ($cmp eq "!~") {
629 return $lval !~ m/$rval/;
626 } 630 }
627 631
628 my $statement = "$lval $cmp $rval"; 632 my $statement = "$lval $cmp $rval";
@@ -678,7 +682,7 @@ sub process_expression {
678 } 682 }
679 } 683 }
680 684
681 if ($val =~ /(.*)(==|\!=|>=|<=|>|<)(.*)/) { 685 if ($val =~ /(.*)(==|\!=|>=|<=|>|<|=~|\!~)(.*)/) {
682 my $ret = process_compare($1, $2, $3); 686 my $ret = process_compare($1, $2, $3);
683 if ($ret < 0) { 687 if ($ret < 0) {
684 die "$name: $.: Unable to process comparison\n"; 688 die "$name: $.: Unable to process comparison\n";