11 set env(CAFTEST_CAF) $pwd
15 log_file -a $tt/expect.log
18 w3m -config /dev/null -o cgi_bin=$pwd/tests file:///cgi-bin/wrap
20 proc timeout-abort {} {
21 send_log "\r\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n"
22 error "aborting due to timeout"
26 expect_after timeout timeout-abort
29 set m "[list expect [lindex $args end]]"
36 regsub -all { } $str {\W{0,3}\w?} str
40 etxt {You need to log in}
41 etxt {Source available}
43 send "\t\ralice\r\t\rbogus\r\t\r"