src/apachetests/test/hello.test

# $Id$

# hello world test

set testfilename    "my_script_hello.ws3"
set testinterpclass "hello.ws3"

set CWD [pwd]
set response "Hello, World\n"
append response "script: $CWD/docs/$testfilename\n"
append response "server_root: $CWD\n"
append response "document_root: $CWD/docs\n"
append response "interpclass: $CWD/docs/$testinterpclass\n"

::tcltest::test hello-1.1 {hello world test} {
    set page [::http::geturl "${urlbase}$testfilename/path_info_dummy" ]
    set match [::http::data $page]
} $response

::tcltest::test hello-1.2 {pathinfo test} {
    set page [::http::geturl "${urlbase}$testfilename/path_info_dummy?cmd=pi" ]
    set match [::http::data $page]
} /path_info_dummy