Testing: Test going back

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

diff --git a/tests/autotest b/tests/autotest
index 60143a275d752a56d8772f11954c32a370f81766..2561f5667fb24e268f2a344baf996d633477a943 100755 (executable)
--- a/tests/autotest
+++ b/tests/autotest
@@ -48,19 +48,30 @@ proc fillformfield {value} {
 }
 
 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'}
 
+send "/Make worms\r"
+submitform-expect "MAKING-worms"
+
+send "/Logout\r"
+submitform-expect "You have been logged out"
+
+send "B\x10/Make sponges\r"
+#submitform-expect "Something sane"
+
 puts ok