1# Sentinel test suite. Copyright (C) 2014 Salvatore Sanfilippo [email protected] 2# This software is released under the BSD License. See the COPYING file for 3# more information. 4 5cd tests/sentinel 6source ../instances.tcl 7 8set ::instances_count 5 ; # How many instances we use at max. 9 10proc main {} { 11 parse_options 12 spawn_instance sentinel $::sentinel_base_port $::instances_count 13 spawn_instance redis $::redis_base_port $::instances_count 14 run_tests 15 cleanup 16 end_tests 17} 18 19if {[catch main e]} { 20 puts $::errorInfo 21 cleanup 22 exit 1 23} 24