diff options
author | Yossi Gottlieb <yossigo@gmail.com> | 2021-09-26 15:12:37 +0300 |
---|---|---|
committer | GitHub <noreply@github.com> | 2021-09-26 15:12:37 +0300 |
commit | 0af7fe2cab04309e57733b428817f477d06ecbda (patch) | |
tree | 66ed61afd0dc63ce8cbf8b3b8997490f6faee9f8 /tests/support/test.tcl | |
parent | 7c1f9ef503fbf24183f262c86898f2005882f9ee (diff) | |
download | redis-0af7fe2cab04309e57733b428817f477d06ecbda.tar.gz |
Add --skipfile and --skiptest regex support. (#9555)
Empty patterns are not considered and skipped.
Also, improve help text.
Diffstat (limited to 'tests/support/test.tcl')
-rw-r--r-- | tests/support/test.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/support/test.tcl b/tests/support/test.tcl index 4d6b035ec..22f7926da 100644 --- a/tests/support/test.tcl +++ b/tests/support/test.tcl @@ -118,7 +118,7 @@ proc wait_for_condition {maxtries delay e _else_ elsescript} { proc search_pattern_list {value pattern_list} { set n 0 foreach el $pattern_list { - if {[regexp -- $el $value]} { + if {[string length $el] > 0 && [regexp -- $el $value]} { return $n } incr n @@ -128,7 +128,7 @@ proc search_pattern_list {value pattern_list} { proc test {name code {okpattern undefined} {tags {}}} { # abort if test name in skiptests - if {[lsearch $::skiptests $name] >= 0} { + if {[search_pattern_list $name $::skiptests] >= 0} { incr ::num_skipped send_data_packet $::test_server_fd skip $name return |