3 set testfile [lindex $argv 0]
5 switch -glob -- $testfile {
7 regsub {^tests/} $testfile {tests/tmp/} tt
8 regsub {\.at$} $tt {} tt
11 set tt tests/tmp/[info pid]
16 file mkdir tests/tmp $tt
21 set env(CAFTEST_CAF) $pwd
22 set env(CAFTEST_TMP) $pwd/$tt
24 set env(CAFTEST_NOSRCDUMP) 1
25 set env(LC_ALL) en_GB.utf-8
28 log_file -a $tt/expect.log
30 proc timeout-abort {} {
31 send_log "\r\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n"
32 error "aborting due to timeout"
37 set m "[list expect [lindex $args end]]"
44 regsub -all { } $str {\W{0,3}\w?} str
56 w3m -config /dev/null -o cgi_bin=$pwd/tests file:///cgi-bin/wrap/Tsuffix
58 expect_after timeout timeout-abort
60 epage {You need to log in}
63 proc fillformfield {value} {
67 proc submitform-expect {wanttxt} {
73 proc loginas {user {password sesame} {wanttxt ACCESSGRANTED}} {
75 fillformfield $password
77 submitform-expect $wanttxt