tests/loginout.at

   1 # -*- Tcl -*-
   2
   3 dospawn
   4
   5 loginas alice bogus "wrong password"
   6
   7 loginas alice
   8
   9 etxt {path = '/Tsuffix'}
  10
  11 send "/Make worms\r"
  12 submitform-expect "MAKING-worms"
  13
  14 send "/Logout\r"
  15 submitform-expect "You have been logged out"
  16
  17 send "B\x10/Make sponges\r"
  18 submitform-expect "You need to log in"
  19
  20 loginas bob
  21
  22 send "/Logout\r"
  23 submitform-expect "You have been logged out"
  24
  25 send "/Log in again\r"
  26 submitform-expect "need to log in"
  27
  28 loginas bob
  29
  30 send "BBB\x10/Make sponges\r"
  31 submitform-expect "Login session interrupted"