# -*- 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"