chiark / gitweb /
Testing: autotest: Move some code about
[cgi-auth-flexible.git] / 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