Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ruanhaishen
redis
Commits
73bd6c58
Commit
73bd6c58
authored
Jun 02, 2010
by
Pieter Noordhuis
Browse files
pass tags to filter and match via arguments
parent
6e0e5bed
Changes
3
Hide whitespace changes
Inline
Side-by-side
Makefile
View file @
73bd6c58
...
@@ -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
...
...
tests/support/test.tcl
View file @
73bd6c58
...
@@ -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
}
}
}
}
...
...
tests/test_helper.tcl
View file @
73bd6c58
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment