tests/inspect.test

::tcltest::test inspect-1.1 {basic introspection 1.1} {
    apachetest::start { 
            -c "RivetServerConf ChildInitScript \"set init 1\"" } {} {
        catch {
            set inspect_page [::http::geturl "${urlbase}inspect.tcl?p=childinit"]
            set match [string trim [::http::data $inspect_page]]
            ::http::cleanup $inspect_page
        }
    }
    set match
} {set init 1}

::tcltest::test inspect-1.2 {basic introspection 1.2} {
    apachetest::start { 
            -c "RivetServerConf ChildInitScript \"set init 1\"" } {} {
        catch {
            set inspect_page [::http::geturl "${urlbase}inspect.tcl"]
            set match [string trim [::http::data $inspect_page]]
            ::http::cleanup $inspect_page
        }
    }
    set match
} {server {ChildInitScript {set init 1}}}

::tcltest::test inspect-1.3 {basic introspection 1.3} {
    file copy -force inspect.tcl /tmp/
    apachetest::start {
        -c "DocumentRoot /tmp" } {} {
        catch {
            set inspect_page [::http::geturl "${urlbase}inspect.tcl?p=script"]
            set match [::http::data $inspect_page]
            ::http::cleanup $inspect_page
        }
    }
    file delete /tmp/inspect.tcl
    set match
} {/tmp/inspect.tcl}