Commit 7203d228 authored by Per Cederqvist's avatar Per Cederqvist
Browse files

(any_num): New constant.

(lyskomd_start): Increase the timeout around the start of lyskomd,
	since it can take quite a while on slow computers.
parent bb177059
......@@ -11,6 +11,7 @@ set any "\[ -
set deep_any "\\\[ -\\\]"
set hollerith "\[0-9\]*H$any*"
set any_time "\[0-9\]* \[0-9\]* \[0-9\]* \[0-9\]* \[0-9\]* \[0-9\]* \[0-9\]* \[0-9\]* \[0-9\]*"
set any_num "\[0-9\]\[0-9\]*"
set maxint 2147483647
......@@ -173,12 +174,15 @@ proc lyskomd_start {} {
talk_to lyskomd
set test "server started"
set t $timeout
set timeout [expr {2 * $timeout}]
expect {
-re "MSG: garb ready. 0 texts deleted.$nl" {pass "$test"}
timeout {fail "$test (timeout)"}
buffer_full {fail "$test (buffer_full)"}
eof {fail "$test (eof)"; wait}
}
set timeout $t
if {$attach} {
send_user "Please attach to lyskomd process $pid and press RETURN\n"
......
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