X-Git-Url: https://git.saurik.com/redis.git/blobdiff_plain/22c9c4076baec3d14b16421ab3b7fe830479fbac..ffe003dcbe9e719659f9a9d690f5bc5fd7b0615e:/tests/test_helper.tcl diff --git a/tests/test_helper.tcl b/tests/test_helper.tcl index 7978d8a4..598a3929 100644 --- a/tests/test_helper.tcl +++ b/tests/test_helper.tcl @@ -38,7 +38,9 @@ set ::all_tests { unit/scripting unit/maxmemory unit/introspection + unit/limits unit/obuf-limits + unit/dump } # Index to the next test to run in the ::all_tests list. set ::next_test 0 @@ -344,6 +346,7 @@ proc print_help_screen {} { "--quiet Don't show individual tests." "--single Just execute the specified unit (see next option)." "--list-tests List all the available test units." + "--clients Number of test clients (16)." "--force-failure Force the execution of a test that always fails." "--help Print this help screen." } "\n"] @@ -389,6 +392,9 @@ for {set j 0} {$j < [llength $argv]} {incr j} { set ::client 1 set ::test_server_port $arg incr j + } elseif {$opt eq {--clients}} { + set ::numclients $arg + incr j } elseif {$opt eq {--help}} { print_help_screen exit 0