Add Redis source code for testing

1 files changed, 6 insertions, 0 deletions

diff --git a/examples/redis-unstable/tests/unit/printver.tcl b/examples/redis-unstable/tests/unit/printver.tcl
new file mode 100644
index 0000000..c80f451
--- /dev/null
+++ b/examples/redis-unstable/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)"
+}