List test files dynamically (#313)
Motivation: Currently we have to manually update the all_tests variable when introducing new test files. Fix: I've modified it to list test files dynamically, but rather than modify it to add all test files, I've first modified it to only add test files from the following 4 paths so that it doesn't deviate too much from what we already do - unit - unit/type - unit/cluster - integration Related issue: https://github.com/valkey-io/valkey/issues/302 --------- Signed-off-by: jonghoonpark <dev@jonghoonpark.com>
This commit is contained in:
jonghoonpark
GitHub
parent
1221b3951a
commit
c090874ed4
@ -1150,3 +1150,10 @@ proc system_backtrace_supported {} {
|
||||
}
|
||||
return 0
|
||||
}
|
||||
|
||||
proc generate_largevalue_test_array {} {
|
||||
array set largevalue {}
|
||||
set largevalue(listpack) "hello"
|
||||
set largevalue(quicklist) [string repeat "x" 8192]
|
||||
return [array get largevalue]
|
||||
}
|
||||
|
||||
@ -13,99 +13,22 @@ source tests/support/tmpfile.tcl
|
||||
source tests/support/test.tcl
|
||||
source tests/support/util.tcl
|
||||
|
||||
set ::all_tests {
|
||||
unit/printver
|
||||
unit/dump
|
||||
unit/auth
|
||||
unit/protocol
|
||||
unit/keyspace
|
||||
unit/scan
|
||||
unit/info
|
||||
unit/info-command
|
||||
unit/type/string
|
||||
unit/type/incr
|
||||
unit/type/list
|
||||
unit/type/list-2
|
||||
unit/type/list-3
|
||||
unit/type/set
|
||||
unit/type/zset
|
||||
unit/type/hash
|
||||
unit/type/stream
|
||||
unit/type/stream-cgroups
|
||||
unit/sort
|
||||
unit/expire
|
||||
unit/other
|
||||
unit/multi
|
||||
unit/quit
|
||||
unit/aofrw
|
||||
unit/acl
|
||||
unit/acl-v2
|
||||
unit/latency-monitor
|
||||
integration/block-repl
|
||||
integration/replication
|
||||
integration/replication-2
|
||||
integration/replication-3
|
||||
integration/replication-4
|
||||
integration/replication-psync
|
||||
integration/replication-buffer
|
||||
integration/shutdown
|
||||
integration/aof
|
||||
integration/aof-race
|
||||
integration/aof-multi-part
|
||||
integration/rdb
|
||||
integration/corrupt-dump
|
||||
integration/corrupt-dump-fuzzer
|
||||
integration/convert-zipmap-hash-on-load
|
||||
integration/convert-ziplist-hash-on-load
|
||||
integration/convert-ziplist-zset-on-load
|
||||
integration/logging
|
||||
integration/psync2
|
||||
integration/psync2-reg
|
||||
integration/psync2-pingoff
|
||||
integration/psync2-master-restart
|
||||
integration/failover
|
||||
integration/valkey-cli
|
||||
integration/valkey-benchmark
|
||||
integration/dismiss-mem
|
||||
unit/pubsub
|
||||
unit/pubsubshard
|
||||
unit/slowlog
|
||||
unit/scripting
|
||||
unit/functions
|
||||
unit/maxmemory
|
||||
unit/introspection
|
||||
unit/introspection-2
|
||||
unit/limits
|
||||
unit/obuf-limits
|
||||
unit/bitops
|
||||
unit/bitfield
|
||||
unit/geo
|
||||
unit/memefficiency
|
||||
unit/hyperloglog
|
||||
unit/lazyfree
|
||||
unit/wait
|
||||
unit/pause
|
||||
unit/querybuf
|
||||
unit/tls
|
||||
unit/tracking
|
||||
unit/oom-score-adj
|
||||
unit/shutdown
|
||||
unit/networking
|
||||
unit/client-eviction
|
||||
unit/violations
|
||||
unit/replybufsize
|
||||
unit/cluster/announced-endpoints
|
||||
unit/cluster/misc
|
||||
unit/cluster/cli
|
||||
unit/cluster/scripting
|
||||
unit/cluster/hostnames
|
||||
unit/cluster/human-announced-nodename
|
||||
unit/cluster/multi-slot-operations
|
||||
unit/cluster/slot-ownership
|
||||
unit/cluster/links
|
||||
unit/cluster/cluster-response-tls
|
||||
unit/cluster/failure-marking
|
||||
unit/cluster/sharded-pubsub
|
||||
set dir [pwd]
|
||||
set ::all_tests []
|
||||
|
||||
set test_dirs {
|
||||
unit
|
||||
unit/type
|
||||
unit/cluster
|
||||
integration
|
||||
}
|
||||
|
||||
foreach test_dir $test_dirs {
|
||||
set files [glob -nocomplain $dir/tests/$test_dir/*.tcl]
|
||||
|
||||
foreach file $files {
|
||||
lappend ::all_tests $test_dir/[file root [file tail $file]]
|
||||
}
|
||||
}
|
||||
# Index to the next test to run in the ::all_tests list.
|
||||
set ::next_test 0
|
||||
|
||||
@ -252,7 +252,7 @@ start_server {tags {"keyspace"}} {
|
||||
assert {[r get mynewkey{t}] eq "foobar"}
|
||||
}
|
||||
|
||||
source "tests/unit/type/list-common.tcl"
|
||||
array set largevalue [generate_largevalue_test_array]
|
||||
foreach {type large} [array get largevalue] {
|
||||
set origin_config [config_get_set list-max-listpack-size -1]
|
||||
test "COPY basic usage for list - $type" {
|
||||
|
||||
@ -483,6 +483,7 @@ start_server {tags {"hash"}} {
|
||||
} {1 0 1 0}
|
||||
|
||||
test {Is a ziplist encoded Hash promoted on big payload?} {
|
||||
r config set hash-max-listpack-value 64
|
||||
r hset smallhash foo [string repeat a 1024]
|
||||
r debug object smallhash
|
||||
} {*hashtable*} {needs:debug}
|
||||
|
||||
@ -4,7 +4,7 @@ start_server {
|
||||
"list-max-ziplist-size" 4
|
||||
}
|
||||
} {
|
||||
source "tests/unit/type/list-common.tcl"
|
||||
array set largevalue [generate_largevalue_test_array]
|
||||
|
||||
foreach {type large} [array get largevalue] {
|
||||
tags {"slow"} {
|
||||
|
||||
@ -1,4 +0,0 @@
|
||||
# We need a value to make sure the list has the right encoding when it is inserted.
|
||||
array set largevalue {}
|
||||
set largevalue(listpack) "hello"
|
||||
set largevalue(quicklist) [string repeat "x" 8192]
|
||||
@ -448,7 +448,7 @@ start_server {
|
||||
"list-max-ziplist-size" -1
|
||||
}
|
||||
} {
|
||||
source "tests/unit/type/list-common.tcl"
|
||||
array set largevalue [generate_largevalue_test_array]
|
||||
|
||||
# A helper function to execute either B*POP or BLMPOP* with one input key.
|
||||
proc bpop_command {rd pop key timeout} {
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user