gvsafronov/futriix
1
0
Fork 0
Code Issues Pull Requests Actions 8 Packages Projects Releases Wiki Activity

implemented --single, --list-tests. --accurante and --help are now recognized but not actually implemented.

Browse Source
This commit is contained in:
antirez 2011-07-11 11:59:55 +02:00
parent 6209797d37
commit 524d515f0c
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/test_helper.tcl
View File

@ -45,6 +45,7 @@ set ::allowtags {}
set ::external 0; # If "1" this means, we are running against external instance 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 ::file ""; # If set, runs only the tests in this comma separated list
set ::curfile ""; # Hold the filename of the current suite set ::curfile ""; # Hold the filename of the current suite
set ::accurate 0; # If true runs fuzz tests with more iterations
# Set to 1 when we are running in client mode. The Redis test uses a # Set to 1 when we are running in client mode. The Redis test uses a
# server-client model to run tests simultaneously. The server instance # server-client model to run tests simultaneously. The server instance
@ -325,10 +326,23 @@ for {set j 0} {$j < [llength $argv]} {incr j} {
incr j incr j
} elseif {$opt eq {--verbose}} { } elseif {$opt eq {--verbose}} {
set ::verbose 1 set ::verbose 1
} elseif {$opt eq {--accurate}} {
set ::accurate 1
} elseif {$opt eq {--single}} {
set ::all_tests $arg
incr j
} elseif {$opt eq {--list-tests}} {
foreach t $::all_tests {
puts $t
}
exit 0
} elseif {$opt eq {--client}} { } elseif {$opt eq {--client}} {
set ::client 1 set ::client 1
set ::test_server_port $arg set ::test_server_port $arg
incr j incr j
} elseif {$opt eq {--help}} {
puts "TODO print an help screen"
exit 0
} else { } else {
puts "Wrong argument: $opt" puts "Wrong argument: $opt"
exit 1 exit 1