From 206d62710c2cf35ae036f55d59c8a523ad22abd8 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Fri, 20 May 2011 11:44:09 +0200
Subject: [PATCH] Print version info before running the test

---
 tests/test_helper.tcl   | 1 +
 tests/unit/printver.tcl | 6 ++++++
 2 files changed, 7 insertions(+)
 create mode 100644 tests/unit/printver.tcl

diff --git a/tests/test_helper.tcl b/tests/test_helper.tcl
index c594f6f6..6dc85eff 100644
--- a/tests/test_helper.tcl
+++ b/tests/test_helper.tcl
@@ -110,6 +110,7 @@ proc cleanup {} {
 }
 
 proc execute_everything {} {
+    execute_tests "unit/printver"
     execute_tests "unit/auth"
     execute_tests "unit/protocol"
     execute_tests "unit/basic"
diff --git a/tests/unit/printver.tcl b/tests/unit/printver.tcl
new file mode 100644
index 00000000..c80f4514
--- /dev/null
+++ b/tests/unit/printver.tcl
@@ -0,0 +1,6 @@
+start_server {} {
+    set i [r info]
+    regexp {redis_version:(.*?)\r\n} $i - version
+    regexp {redis_git_sha1:(.*?)\r\n} $i - sha1
+    puts "Testing Redis version $version ($sha1)"
+}