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

Endurance mode for tests ignore flaky ones

Browse Source 
Former-commit-id: 515bb0e6bda8abcab4f8b4cd693084594c734007
This commit is contained in:
John Sully 2020-06-07 16:59:59 -04:00
parent 0120d23a48
commit 08842f8d6e
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.github/workflows/endurance.yml vendored
View File

@ -18,5 +18,5 @@ jobs:
- name: test-multithread (5X) - name: test-multithread (5X)
run: | run: |
sudo apt-get install -y tcl8.5 sudo apt-get install -y tcl8.5
./runtest --loopn 5 --config server-threads 3 --clients 5 ./runtest --loopn 5 --config server-threads 3 --clients 5 --endurance

9
tests/test_helper.tcl
View File

@ -104,6 +104,7 @@ set ::dont_clean 0
set ::wait_server 0 set ::wait_server 0
set ::stop_on_failure 0 set ::stop_on_failure 0
set ::loop 0 set ::loop 0
set ::endurance 0
set ::tlsdir "tests/tls" set ::tlsdir "tests/tls"
# 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
@ -215,9 +216,13 @@ proc s {args} {
# test server, so that the test server will send them again to # test server, so that the test server will send them again to
# clients once the clients are idle. # clients once the clients are idle.
proc run_solo {name code} { proc run_solo {name code} {
if {$::numclients == 1 || $::loop < 0 || $::external} { if {$::numclients == 1 || $::loop < 0 || $::external || $::endurance} {
# run_solo is not supported in these scenarios, just run the code. # run_solo is not supported in these scenarios, just run the code.
if {$::endurance} {
puts "Skipping solo tests because endurance mode is enabled"
} else {
eval $code eval $code
}
return return
} }
send_data_packet $::test_server_fd run_solo [list $name $code] send_data_packet $::test_server_fd run_solo [list $name $code]
@ -620,6 +625,8 @@ for {set j 0} {$j < [llength $argv]} {incr j} {
} elseif {$opt eq {--timeout}} { } elseif {$opt eq {--timeout}} {
set ::timeout $arg set ::timeout $arg
incr j incr j
} elseif {$opt eq {--endurance}} {
set ::endurance 1
} elseif {$opt eq {--help}} { } elseif {$opt eq {--help}} {
print_help_screen print_help_screen
exit 0 exit 0