mirrors/valkey
1
0
Fork 0
mirror of http://github.com/valkey-io/valkey synced 2024-11-22 00:52:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

Skip cluster test unit in TLS mode.

Browse Source 
see 7d6744c739
This commit is contained in:
Oran Agra 2022-04-27 15:22:47 +03:00
parent afb48c6cc9
commit 215c5eacb0
1 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
tests/support/server.tcl
View File

@ -160,12 +160,13 @@ proc server_is_up {host port retrynum} {
# case err_return names a return variable for the message to be logged.
proc tags_acceptable {err_return} {
upvar $err_return err
set tags $::tags
# If tags are whitelisted, make sure there's match
if {[llength $::allowtags] > 0} {
set matched 0
foreach tag $::allowtags {
if {[lsearch $::tags $tag] >= 0} {
if {[lsearch $tags $tag] >= 0} {
incr matched
}
}
@ -176,12 +177,27 @@ proc tags_acceptable {err_return} {
}
foreach tag $::denytags {
if {[lsearch $::tags $tag] >= 0} {
if {[lsearch $tags $tag] >= 0} {
set err "Tag: $tag denied"
return 0
}
}
if {$::external && [lsearch $tags "external:skip"] >= 0} {
set err "Not supported on external server"
return 0
}
if {$::singledb && [lsearch $tags "singledb:skip"] >= 0} {
set err "Not supported on singledb"
return 0
}
if {$::tls && [lsearch $tags "tls:skip"] >= 0} {
set err "Not supported in tls mode"
return 0
}
return 1
}
@ -320,7 +336,9 @@ proc start_server {options {code undefined}} {
dict set srv "port" $::port
set client [redis $::host $::port 0 $::tls]
dict set srv "client" $client
$client select 9
if {!$::singledb} {
$client select 9
}
set config {}
dict set config "port" $::port