tests/unit/printver.tcl

   1 start_server {} {
   2     set i [r info]
   3     regexp {redis_version:(.*?)\r\n} $i - version
   4     regexp {redis_git_sha1:(.*?)\r\n} $i - sha1
   5     puts "Testing Redis version $version ($sha1)"
   6 }