diff options
author | Pieter Noordhuis <pcnoordhuis@gmail.com> | 2010-06-02 23:04:22 +0200 |
---|---|---|
committer | Pieter Noordhuis <pcnoordhuis@gmail.com> | 2010-06-02 23:22:20 +0200 |
commit | 73bd6c583b9a3e29dbbbf4f1ba8259cfe5e131b8 (patch) | |
tree | 68c107263a819290b44aa7516ff1acb3a0b1c41d /tests/support/test.tcl | |
parent | 6e0e5bedd9c3a4bf0f53f43c427c88e2866bda0a (diff) | |
download | redis-73bd6c583b9a3e29dbbbf4f1ba8259cfe5e131b8.tar.gz |
pass tags to filter and match via arguments
Diffstat (limited to 'tests/support/test.tcl')
-rw-r--r-- | tests/support/test.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/support/test.tcl b/tests/support/test.tcl index c13072f04..d2674da19 100644 --- a/tests/support/test.tcl +++ b/tests/support/test.tcl @@ -15,7 +15,7 @@ proc test {name code okpattern} { if {[llength $::allowtags] > 0} { set matched 0 foreach tag $::allowtags { - if {[lsearch $::tags $tag]} { + if {[lsearch $::tags $tag] >= 0} { incr matched } } |