Testing: Log in

[cgi-auth-flexible.git] / tests / autotest

diff --git a/tests/autotest b/tests/autotest
index 0d84c63ffa91934d15bb384beb0c5714e85a7c46..29863bca319e34197e17cb6220731e2786ae6512 100755 (executable)
--- a/tests/autotest
+++ b/tests/autotest
@@ -37,11 +37,28 @@ proc etxt {str} {
      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