[redis.git] / tests / unit / printver.tcl

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)"
}
Commit	Line	Data
206d6271	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	}