diff options
Diffstat (limited to 'tests/instances.tcl')
| -rw-r--r-- | tests/instances.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/instances.tcl b/tests/instances.tcl index cf0e80f6c..e1516c1ac 100644 --- a/tests/instances.tcl +++ b/tests/instances.tcl @@ -257,7 +257,7 @@ proc parse_options {} { set val [lindex $::argv [expr $j+1]] if {$opt eq "--single"} { incr j - set ::run_matching "*${val}*" + lappend ::run_matching "*${val}*" } elseif {$opt eq "--pause-on-error"} { set ::pause_on_error 1 } elseif {$opt eq {--dont-clean}} { @@ -441,7 +441,7 @@ proc run_tests {} { file delete $::leaked_fds_file } - if {$::run_matching ne {} && [string match $::run_matching $test] == 0} { + if {[llength $::run_matching] != 0 && [search_pattern_list $test $::run_matching true] == -1} { continue } if {[file isdirectory $test]} continue |