No functional change.
Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
log_user 0
log_file -a $tt/expect.log
-proc dospawn {} {
- global pwd spawn_id
-
- spawn -nottycopy \
- w3m -config /dev/null -o cgi_bin=$pwd/tests file:///cgi-bin/wrap/Tsuffix
-}
-
-dospawn
-
proc timeout-abort {} {
send_log "\r\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n"
error "aborting due to timeout"
etxt $str
}
-epage {You need to log in}
+proc dospawn {} {
+ global pwd spawn_id
+
+ spawn -nottycopy \
+ w3m -config /dev/null -o cgi_bin=$pwd/tests file:///cgi-bin/wrap/Tsuffix
+
+ epage {You need to log in}
+}
proc fillformfield {value} {
send "\t\r$value\r"
submitform-expect $wanttxt
}
+dospawn
+
loginas alice bogus "wrong password"
loginas alice