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