Index: openacs-4/packages/acs-automated-testing/www/admin/install/server.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/install/Attic/server.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/acs-automated-testing/www/admin/install/server.adp 16 Feb 2004 16:49:21 -0000 1.2 +++ openacs-4/packages/acs-automated-testing/www/admin/install/server.adp 24 Feb 2004 10:22:30 -0000 1.3 @@ -58,7 +58,7 @@

- Unknown. Server has no test report file at $test_path. + Unknown. Missing test report file at path @test_path@

Index: openacs-4/packages/acs-automated-testing/www/admin/install/server.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/install/Attic/server.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/acs-automated-testing/www/admin/install/server.tcl 16 Feb 2004 16:49:21 -0000 1.2 +++ openacs-4/packages/acs-automated-testing/www/admin/install/server.tcl 24 Feb 2004 10:22:30 -0000 1.3 @@ -8,14 +8,16 @@ set test_path [aa_test::test_file_path -install_file_path $path] set has_test_report_p [file exists $test_path] + +multirow create testcase_failures testcase_id count + if { $has_test_report_p } { aa_test::parse_test_file -path $test_path -array test -} -multirow create testcase_failures testcase_id count -array set testcase_failure $test(testcase_failure) -foreach testcase_id [array names testcase_failure] { - multirow append testcase_failures $testcase_id $testcase_failure($testcase_id) + array set testcase_failure $test(testcase_failure) + foreach testcase_id [array names testcase_failure] { + multirow append testcase_failures $testcase_id $testcase_failure($testcase_id) + } } set page_title "Control Page For $service(name)"