Commit 73bd6c58 authored by Pieter Noordhuis's avatar Pieter Noordhuis
Browse files

pass tags to filter and match via arguments

parent 6e0e5bed
...@@ -86,7 +86,7 @@ staticsymbols: ...@@ -86,7 +86,7 @@ staticsymbols:
tclsh utils/build-static-symbols.tcl > staticsymbols.h tclsh utils/build-static-symbols.tcl > staticsymbols.h
test: test:
tclsh8.5 tests/test_helper.tcl tclsh8.5 tests/test_helper.tcl --tags "${TAGS}"
bench: bench:
./redis-benchmark ./redis-benchmark
......
...@@ -15,7 +15,7 @@ proc test {name code okpattern} { ...@@ -15,7 +15,7 @@ proc test {name code okpattern} {
if {[llength $::allowtags] > 0} { if {[llength $::allowtags] > 0} {
set matched 0 set matched 0
foreach tag $::allowtags { foreach tag $::allowtags {
if {[lsearch $::tags $tag]} { if {[lsearch $::tags $tag] >= 0} {
incr matched incr matched
} }
} }
......
...@@ -93,6 +93,25 @@ proc main {} { ...@@ -93,6 +93,25 @@ proc main {} {
cleanup cleanup
} }
# parse arguments
for {set j 0} {$j < [llength $argv]} {incr j} {
set opt [lindex $argv $j]
set arg [lindex $argv [expr $j+1]]
if {$opt eq {--tags}} {
foreach tag $arg {
if {[string index $tag 0] eq "-"} {
lappend ::denytags [string range $tag 1 end]
} else {
lappend ::allowtags $tag
}
}
incr j
} else {
puts "Wrong argument: $opt"
exit 1
}
}
if {[catch { main } err]} { if {[catch { main } err]} {
if {[string length $err] > 0} { if {[string length $err] > 0} {
# only display error when not generated by the test suite # only display error when not generated by the test suite
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment