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

(client_expect): New proc.

parent 1e504db8
......@@ -330,6 +330,18 @@ proc lyskomd_expect {regex} {
talk_to $what $nr
}
proc client_expect {nr regex} {
global current_talk_what
global current_talk_nr
set oldwhat $current_talk_what
set oldnr $current_talk_nr
talk_to client $nr
simple_expect "$regex"
talk_to $oldwhat $oldnr
}
proc good_bad_expect {good_regex bad_regex {xreason ""}} {
global test
global any
......
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