xref: /f-stack/app/redis-5.0.5/tests/cluster/run.tcl (revision 572c4311) 
1# Cluster 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/cluster
6source cluster.tcl
7source ../instances.tcl
8source ../../support/cluster.tcl ; # Redis Cluster client.
9
10set ::instances_count 20 ; # How many instances we use at max.
11
12proc main {} {
13    parse_options
14    spawn_instance redis $::redis_base_port $::instances_count {
15        "cluster-enabled yes"
16        "appendonly yes"
17    }
18    run_tests
19    cleanup
20    end_tests
21}
22
23if {[catch main e]} {
24    puts $::errorInfo
25    if {$::pause_on_error} pause_on_error
26    cleanup
27    exit 1
28}
29