# $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"

apachetest::start {} {

    ::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

}