summaryrefslogtreecommitdiff
path: root/tests/support/test.tcl
diff options
context:
space:
mode:
authorOran Agra <oran@redislabs.com>2020-08-31 11:05:30 +0300
committerOran Agra <oran@redislabs.com>2020-09-06 09:59:19 +0300
commit677d14c2137ab50fa25c8163d20b14bc563261c7 (patch)
tree155f2e367d3a4fec475565e75ef13d6e59907f2a /tests/support/test.tcl
parente3e69c25fd05b608f5ea8d612bc0e377922a6115 (diff)
downloadredis-677d14c2137ab50fa25c8163d20b14bc563261c7.tar.gz
test infra - improve test skipping ability
- skip full units - skip a single test (not just a list of tests) - when skipping tag, skip spinning up servers, not just the tests - skip tags when running against an external server too - allow using multiple tags (split them)
Diffstat (limited to 'tests/support/test.tcl')
-rw-r--r--tests/support/test.tcl11
1 files changed, 1 insertions, 10 deletions
diff --git a/tests/support/test.tcl b/tests/support/test.tcl
index d266eba41..773461abb 100644
--- a/tests/support/test.tcl
+++ b/tests/support/test.tcl
@@ -99,16 +99,7 @@ proc wait_for_condition {maxtries delay e _else_ elsescript} {
}
}
-proc test {name code {okpattern undefined}} {
- # abort if tagged with a tag to deny
- foreach tag $::denytags {
- if {[lsearch $::tags $tag] >= 0} {
- incr ::num_aborted
- send_data_packet $::test_server_fd ignore $name
- return
- }
- }
-
+proc test {name code {okpattern undefined} {options undefined}} {
# abort if test name in skiptests
if {[lsearch $::skiptests $name] >= 0} {
incr ::num_skipped