| #!/bin/sh |
| # the next line restarts using tclsh \ |
| exec tclsh "$0" "$@" |
| |
| # mod_websh test suite, by David N. Welton <davidw@dedasys.com> |
| |
| # See README file for more information. |
| |
| # $Id$ |
| |
| set host localhost |
| set port 8081 |
| |
| set urlbase "http://$host:$port/" |
| |
| package require tcltest |
| package require http |
| |
| # Test stanzas are created by giving the test a name and a |
| # description. The code is then executed, and the results |
| # compared with the desired result, which is placed after the |
| # block of code. See man tcltest for more information. |
| |
| foreach Test {hello.test pool.test headers.test} { |
| source $Test |
| } |
| |
| ::tcltest::cleanupTests |