Commit dcdf7383 authored by Per Cederqvist's avatar Per Cederqvist
Browse files

Test handling of a write-only client. It should be disconnected after

a while.
parent 34023f3a
......@@ -40,7 +40,7 @@ proc monitor_progress {} {
unset test
}
get_time_client_start 0 --time-limit
get_time_client_start 0 {"--time-limit"}
monitor_progress
extracting_expect "($any_num) reqs, $any_num bytes, $any_num reads" reqs 1
simple_expect "$reqs reqs, $any_num bytes, $any_num writes"
......@@ -48,7 +48,7 @@ simple_expect "0 pending reqs"
simple_expect ""
get_time_client_death 0
get_time_client_start 1 --time-abort
get_time_client_start 1 {"--time-abort"}
monitor_progress
simple_expect "$any_num reqs, $any_num bytes, $any_num reads"
simple_expect "$any_num reqs, $any_num bytes, $any_num writes"
......@@ -56,8 +56,8 @@ simple_expect "\[1-9\]\[0-9\]* pending reqs"
simple_expect ""
get_time_client_death 1
get_time_client_start 2 --time-abort
get_time_client_start 3 --time-limit
get_time_client_start 2 {"--time-abort"}
get_time_client_start 3 {"--time-limit"}
talk_to get_time_client 2
monitor_progress
simple_expect "$any_num reqs, $any_num bytes, $any_num reads"
......@@ -73,5 +73,16 @@ simple_expect "0 pending reqs"
simple_expect ""
get_time_client_death 3
get_time_client_start 4 {"--time-abort" "--write-only"}
set old $timeout
set timeout 20
simple_expect "End of progress reports"
set timeout $old
simple_expect "$any_num reqs, $any_num bytes, $any_num reads"
extracting_expect "($any_num) reqs, $any_num bytes, $any_num writes" reqs 1
simple_expect "$reqs pending reqs"
simple_expect ""
get_time_client_death 4
system "kill -HUP $lyskomd_pid"
lyskomd_death "" signal
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment