34413e0862
Occurrences of "redis" in TCL test suites and helpers, such as TCL client used in tests, are replaced with "valkey". Occurrences of uppercase "Redis" are not changed in this PR. No files are renamed in this PR. --------- Signed-off-by: Shivshankar-Reddy <shiva.sheri.github@gmail.com>
37 lines
945 B
Tcl
37 lines
945 B
Tcl
# Sentinel test suite. Copyright (C) 2014 Salvatore Sanfilippo antirez@gmail.com
|
|
# This software is released under the BSD License. See the COPYING file for
|
|
# more information.
|
|
|
|
cd tests/sentinel
|
|
source ../instances.tcl
|
|
|
|
set ::instances_count 5 ; # How many instances we use at max.
|
|
set ::tlsdir "../../tls"
|
|
|
|
proc main {} {
|
|
parse_options
|
|
if {$::leaked_fds_file != ""} {
|
|
set ::env(LEAKED_FDS_FILE) $::leaked_fds_file
|
|
}
|
|
spawn_instance sentinel $::sentinel_base_port $::instances_count {
|
|
"sentinel deny-scripts-reconfig no"
|
|
"enable-protected-configs yes"
|
|
"enable-debug-command yes"
|
|
} "../tests/includes/sentinel.conf"
|
|
|
|
spawn_instance valkey $::valkey_base_port $::instances_count {
|
|
"enable-protected-configs yes"
|
|
"enable-debug-command yes"
|
|
"save ''"
|
|
}
|
|
run_tests
|
|
cleanup
|
|
end_tests
|
|
}
|
|
|
|
if {[catch main e]} {
|
|
puts $::errorInfo
|
|
cleanup
|
|
exit 1
|
|
}
|