set ::external 0; # If "1" this means, we are running against external instance
set ::file ""; # If set, runs only the tests in this comma separated list
set ::curfile ""; # Hold the filename of the current suite
+set ::diskstore 0; # Don't touch this by hand. The test itself will toggle it.
proc execute_tests name {
set path "tests/$name.tcl"
}
proc cleanup {} {
+ puts "Cleanup: warning may take some time..."
catch {exec rm -rf {*}[glob tests/tmp/redis.conf.*]}
catch {exec rm -rf {*}[glob tests/tmp/server.*]}
}
# execute_tests "integration/redis-cli"
execute_tests "unit/pubsub"
- # run tests with VM enabled
- set ::global_overrides {vm-enabled yes}
+ # run tests with diskstore enabled
+ puts "\nRunning diskstore tests... this is slow, press Ctrl+C if not interested.."
+ set ::diskstore 1
+ lappend ::denytags nodiskstore
+ set ::global_overrides {diskstore-enabled yes}
execute_tests "unit/protocol"
execute_tests "unit/basic"
execute_tests "unit/type/list"