Print version info before running the test

diff --git a/tests/test_helper.tcl b/tests/test_helper.tcl
index c594f6f6dcce39c14be89c9a2ebfd57eb44df66e..6dc85eff37c4a137fad0c382d76af675335f0d52 100644 (file)
--- 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 (file)
index 0000000..c80f451
--- /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)"
+}