Index: openacs-4/etc/install/tcl-api-test.test =================================================================== RCS file: /usr/local/cvsroot/openacs-4/etc/install/tcl-api-test.test,v diff -u -r1.4 -r1.5 --- openacs-4/etc/install/tcl-api-test.test 15 Oct 2003 10:08:43 -0000 1.4 +++ openacs-4/etc/install/tcl-api-test.test 23 Oct 2003 12:35:21 -0000 1.5 @@ -12,17 +12,17 @@ # Grep for packages with failed tests if { [regexp -nocase {fail} [response body]] } { - puts "$alert_keyword - There are failed tests at $server_url" + ::twt::log "$alert_keyword - There are failed tests at $server_url" } # Test Execution END } result] } { global errorInfo - puts stderr $result - puts stderr "*** Tcl TRACE ***" - puts stderr $errorInfo + ::twt::log $result + ::twt::log "*** Tcl TRACE ***" + ::twt::log $errorInfo - puts "The response body is: [response body]" + ::twt::log "The response body is: [response body]" error "Test failed: $result" }