}
proc submitform-expect {wanttxt} {
- send "\t\r"
+ send "\r"
etxt "loading file"
epage $wanttxt
}
fillformfield alice
fillformfield bogus
+send "\t"
submitform-expect "wrong password"
fillformfield alice
fillformfield sesame
+send "\t"
submitform-expect "ACCESSGRANTED"
etxt {path = '/Tsuffix'}