| # | |
| # invoked from failtest.test | |
| # | |
| # performs a sorted dump of the ::failtest array built | |
| # in the ChildInitScript procedure (source checkfail.tcl) | |
| # | |
| # | |
| ::rivet::apache_log_error info "running [info script]" | |
| foreach cmd [lsort [array names ::failtest]] { | |
| puts "$cmd->$::failtest($cmd)" | |
| } | |
| ::rivet::apache_log_error info "failtest terminates" |