X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=cgi-auth-flexible.git;a=blobdiff_plain;f=tests%2Floginout.at;fp=tests%2Floginout.at;h=64c7f5f9f5073cbaef7174349c644bf3ecbdbfa8;hp=0000000000000000000000000000000000000000;hb=b658a7c7ef72d52e7318dfb45beb593a022840bd;hpb=48521dbb3f433c4a63df6564c4f095555a2dee95

diff --git a/tests/loginout.at b/tests/loginout.at
new file mode 100644
index 0000000..64c7f5f
--- /dev/null
+++ b/tests/loginout.at
@@ -0,0 +1,31 @@
+# -*- Tcl -*-
+
+dospawn
+
+loginas alice bogus "wrong password"
+
+loginas alice
+
+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 "You need to log in"
+
+loginas bob
+
+send "/Logout\r"
+submitform-expect "You have been logged out"
+
+send "/Log in again\r"
+submitform-expect "need to log in"
+
+loginas bob
+
+send "BBB\x10/Make sponges\r"
+submitform-expect "Login session interrupted"