Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
elog -re $str
}
-etxt {You need to log in}
-etxt {Source available}
+proc epage {str} {
+ etxt $str
+}
+
+epage {You need to log in}
+
+proc fillformfield {value} {
+ send "\t\r$value\r"
+}
+
+proc submitform-expect {wanttxt} {
+ send "\t\r"
+ etxt "loading file"
+ epage $wanttxt
+}
+
+fillformfield alice
+fillformfield bogus
+submitform-expect "wrong password"
-send "\t\ralice\r\t\rbogus\r\t\r"
-etxt "loading file"
-etxt "wrong password"
+fillformfield alice
+fillformfield sesame
+submitform-expect "ACCESSGRANTED"
puts ok
Set-Cookie: $cookie
<html><head><title>TITLE</title></head>
-<body><h1>H1</h1>
+<body><h1>ACCESSGRANTED</h1>
<h1>again</h1>
<h1>info<h1>