tests/autotest

   1 #!/usr/bin/expect -f
   2
   3 set tt tests/tmp
   4
   5 exec rm -rf $tt
   6 exec mkdir $tt
   7
   8 set pwd [pwd]
   9
  10 set env(HOME) $tt
  11 set env(CAFTEST_CAF) $pwd
  12 set env(TERM) vt100
  13
  14 log_user 0
  15 log_file -a $tt/expect.log
  16
  17 proc timeout-abort {} {
  18      send_log "\r\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n"
  19      error "aborting due to timeout"
  20 }
  21 set timeout 5
  22
  23 expect_after timeout timeout-abort
  24
  25 proc elog {args} {
  26      set m "[list expect [lindex $args end]]"
  27      puts stderr $m
  28 #     send_log "\n$m\n"
  29      eval expect $args
  30 }
  31
  32 proc etxt {str} {
  33      regsub -all { } $str {\W{0,3}\w?} str
  34      elog -re $str
  35 }
  36
  37 proc epage {str} {
  38     etxt $str
  39 }
  40
  41 proc dospawn {} {
  42      global pwd spawn_id
  43
  44      spawn -nottycopy \
  45      w3m -config /dev/null -o cgi_bin=$pwd/tests file:///cgi-bin/wrap/Tsuffix
  46
  47      epage {You need to log in}
  48 }
  49
  50 proc fillformfield {value} {
  51     send "\t\r$value\r"
  52 }
  53
  54 proc submitform-expect {wanttxt} {
  55     send "\r"
  56     etxt "loading file"
  57     epage $wanttxt
  58 }
  59
  60 proc loginas {user {password sesame} {wanttxt ACCESSGRANTED}} {
  61      fillformfield $user
  62      fillformfield $password
  63      send "\t"
  64      submitform-expect $wanttxt
  65 }
  66
  67 dospawn
  68
  69 loginas alice bogus "wrong password"
  70
  71 loginas alice
  72
  73 etxt {path = '/Tsuffix'}
  74
  75 send "/Make worms\r"
  76 submitform-expect "MAKING-worms"
  77
  78 send "/Logout\r"
  79 submitform-expect "You have been logged out"
  80
  81 send "B\x10/Make sponges\r"
  82 submitform-expect "You need to log in"
  83
  84 loginas bob
  85
  86 send "/Logout\r"
  87 submitform-expect "You have been logged out"
  88
  89 send "/Log in again\r"
  90 submitform-expect "need to log in"
  91
  92 loginas bob
  93
  94 send "BBB\x10/Make sponges\r"
  95 submitform-expect "Login session interrupted"
  96
  97 puts ok