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

a while.

src/server/testsuite/lyskomd.0/38.exp

@@ -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