tests/makeurl.test

# $Id$

set testfilename1 makeurl.rvt

::tcltest::test makeurl-1.1 {makeurl} {
    set page [ ::http::geturl "${urlbase}${testfilename1}?urltype=absolute" ]
    set match [string trim [ ::http::data $page ]]
    set match
} {http://localhost:8081/foo}

::tcltest::test makeurl-1.2 {makeurl} {
    set page [ ::http::geturl "${urlbase}${testfilename1}?urltype=relative" ]
    set match [string trim [ ::http::data $page ]]
    set match
} {http://localhost:8081/makeurl.rvt/foo/}

::tcltest::test makeurl-1.3 {makeurl} {
    set page [ ::http::geturl "${urlbase}${testfilename1}" ]
    set match [string trim [ ::http::data $page ]]
    set match
} {http://localhost:8081/makeurl.rvt}