From a405979f5f6b4bbf36ab30543bd418461794918a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Johan=20Bergstr=C3=B6m?= <bugs@bergstroem.nu>
Date: Thu, 24 Jan 2013 09:25:47 +1100
Subject: [PATCH] Check available tcl versions

---
 runtest | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/runtest b/runtest
index 0eb384c24..d8451df57 100755
--- a/runtest
+++ b/runtest
@@ -1,9 +1,14 @@
 #!/bin/sh
-TCL=tclsh8.5
-which $TCL
-if [ "$?" != "0" ]
+TCL_VERSIONS="8.5 8.6"
+TCLSH=""
+
+for VERSION in $TCL_VERSIONS; do
+	TCL=`which tclsh$VERSION 2>/dev/null` && TCLSH=$TCL
+done
+
+if [ -z $TCLSH ]
 then
-    echo "You need '$TCL' in order to run the Redis test"
+    echo "You need tcl 8.5 or newer in order to run the Redis test"
     exit 1
 fi
-$TCL tests/test_helper.tcl $*
+$TCLSH tests/test_helper.tcl $*