Rename redis.tcl to valkey.tcl (#283)
Includes some more changes e.g. the README under tests and some script under utils. Signed-off-by: hwware <wen.hui.ware@gmail.com>
This commit is contained in:
parent
8baf322742
commit
191be272b4
@ -16,7 +16,7 @@ match different external server configurations:
|
||||
| `--singledb` | Only use database 0, don't assume others are supported. |
|
||||
| `--ignore-encoding` | Skip all checks for specific encoding. |
|
||||
| `--ignore-digest` | Skip key value digest validations. |
|
||||
| `--cluster-mode` | Run in strict Redis Cluster compatibility mode. |
|
||||
| `--cluster-mode` | Run in strict Valkey Cluster compatibility mode. |
|
||||
| `--large-memory` | Enables tests that consume more than 100mb |
|
||||
|
||||
Tags
|
||||
|
@ -1,4 +1,4 @@
|
||||
source tests/support/redis.tcl
|
||||
source tests/support/valkey.tcl
|
||||
source tests/support/util.tcl
|
||||
|
||||
set ::tlsdir "tests/tls"
|
||||
|
@ -1,4 +1,4 @@
|
||||
source tests/support/redis.tcl
|
||||
source tests/support/valkey.tcl
|
||||
source tests/support/util.tcl
|
||||
|
||||
set ::tlsdir "tests/tls"
|
||||
|
@ -1,4 +1,4 @@
|
||||
source tests/support/redis.tcl
|
||||
source tests/support/valkey.tcl
|
||||
|
||||
set ::tlsdir "tests/tls"
|
||||
|
||||
|
@ -10,7 +10,7 @@
|
||||
package require Tcl 8.5
|
||||
|
||||
set tcl_precision 17
|
||||
source ../support/redis.tcl
|
||||
source ../support/valkey.tcl
|
||||
source ../support/util.tcl
|
||||
source ../support/aofmanifest.tcl
|
||||
source ../support/server.tcl
|
||||
|
@ -5,7 +5,7 @@
|
||||
package require Tcl 8.5
|
||||
|
||||
set tcl_precision 17
|
||||
source tests/support/redis.tcl
|
||||
source tests/support/valkey.tcl
|
||||
source tests/support/aofmanifest.tcl
|
||||
source tests/support/server.tcl
|
||||
source tests/support/cluster_util.tcl
|
||||
@ -424,7 +424,7 @@ proc kill_clients {} {
|
||||
|
||||
proc force_kill_all_servers {} {
|
||||
foreach p $::active_servers {
|
||||
puts "Killing still running Redis server $p"
|
||||
puts "Killing still running Valkey server $p"
|
||||
catch {exec kill -9 $p}
|
||||
}
|
||||
}
|
||||
@ -560,7 +560,7 @@ proc print_help_screen {} {
|
||||
"--wait-server Wait after server is started (so that you can attach a debugger)."
|
||||
"--dump-logs Dump server log on test failure."
|
||||
"--tls Run tests in TLS mode."
|
||||
"--tls-module Run tests in TLS mode with Redis module."
|
||||
"--tls-module Run tests in TLS mode with Valkey module."
|
||||
"--host <addr> Run tests against an external host."
|
||||
"--port <port> TCP port to use against external host."
|
||||
"--baseport <port> Initial port number for spawned valkey servers."
|
||||
|
@ -2,7 +2,7 @@
|
||||
# Copyright (C) 2011 Salvatore Sanfilippo
|
||||
# Released under the BSD license like Redis itself
|
||||
|
||||
source ../tests/support/redis.tcl
|
||||
source ../tests/support/valkey.tcl
|
||||
set ::port 12123
|
||||
set ::tests {PING,SET,GET,INCR,LPUSH,LPOP,SADD,SPOP,LRANGE_100,LRANGE_600,MSET}
|
||||
set ::datasize 16
|
||||
@ -20,25 +20,25 @@ proc run-tests branches {
|
||||
exec -ignorestderr make 2> /dev/null
|
||||
|
||||
if {$branch_id == 0} {
|
||||
puts " copy redis-benchmark from unstable to /tmp..."
|
||||
exec -ignorestderr cp ./redis-benchmark /tmp
|
||||
puts " copy valkey-benchmark from unstable to /tmp..."
|
||||
exec -ignorestderr cp ./valkey-benchmark /tmp
|
||||
incr branch_id
|
||||
continue
|
||||
}
|
||||
|
||||
# Start the server
|
||||
puts " starting the server... [exec ./redis-server -v]"
|
||||
set pids [exec echo "port $::port\nloglevel warning\n" | ./redis-server - > /dev/null 2> /dev/null &]
|
||||
puts " starting the server... [exec ./valkey-server -v]"
|
||||
set pids [exec echo "port $::port\nloglevel warning\n" | ./valkey-server - > /dev/null 2> /dev/null &]
|
||||
puts " pids: $pids"
|
||||
after 1000
|
||||
puts " running the benchmark"
|
||||
|
||||
set r [redis 127.0.0.1 $::port]
|
||||
set i [$r info]
|
||||
puts " redis INFO shows version: [lindex [split $i] 0]"
|
||||
puts " valkey INFO shows version: [lindex [split $i] 0]"
|
||||
$r close
|
||||
|
||||
set output [exec /tmp/redis-benchmark -n $::requests -t $::tests -d $::datasize --csv -p $::port]
|
||||
set output [exec /tmp/valkey-benchmark -n $::requests -t $::tests -d $::datasize --csv -p $::port]
|
||||
lappend runs $b $output
|
||||
puts " killing server..."
|
||||
catch {exec kill -9 [lindex $pids 0]}
|
||||
|
Loading…
x
Reference in New Issue
Block a user