Redis Cluster test framework skeleton.

1 files changed, 22 insertions, 0 deletions

diff --git a/tests/cluster/run.tcl b/tests/cluster/run.tcl
new file mode 100644
index 000000000..acb6d49cd
--- /dev/null
+++ b/tests/cluster/run.tcl
@@ -0,0 +1,22 @@
+# Cluster test suite. Copyright (C) 2014 Salvatore Sanfilippo antirez@gmail.com
+# This softare is released under the BSD License. See the COPYING file for
+# more information.
+
+cd tests/cluster
+source cluster.tcl
+source ../instances.tcl
+
+proc main {} {
+    parse_options
+    spawn_instance redis $::redis_base_port $::instances_count {
+        "cluster-enabled yes"
+        "appendonly yes"
+    }
+    run_tests
+    cleanup
+}
+
+if {[catch main e]} {
+    puts $::errorInfo
+    cleanup
+}