Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl,v diff -u -N -r1.79.2.41 -r1.79.2.42 --- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl 18 Feb 2021 14:41:14 -0000 1.79.2.41 +++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl 28 Feb 2021 09:03:55 -0000 1.79.2.42 @@ -590,6 +590,8 @@ global aa_init_class_logs global aa_in_init_class + aa::coverage::add_traces + set aa_run_quietly_p $quiet_p # # Work out the list of initialization classes. Index: openacs-4/packages/acs-automated-testing/www/admin/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/index.adp,v diff -u -N -r1.21.2.10 -r1.21.2.11 --- openacs-4/packages/acs-automated-testing/www/admin/index.adp 27 Feb 2021 20:17:05 -0000 1.21.2.10 +++ openacs-4/packages/acs-automated-testing/www/admin/index.adp 28 Feb 2021 09:03:55 -0000 1.21.2.11 @@ -1,5 +1,6 @@ -@title;literal@ +doc +@context;literal@ Index: openacs-4/packages/acs-automated-testing/www/admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/index.tcl,v diff -u -N -r1.16.2.8 -r1.16.2.9 --- openacs-4/packages/acs-automated-testing/www/admin/index.tcl 27 Feb 2021 20:17:05 -0000 1.16.2.8 +++ openacs-4/packages/acs-automated-testing/www/admin/index.tcl 28 Feb 2021 09:03:55 -0000 1.16.2.9 @@ -10,7 +10,6 @@ {populator:boolean 0} } -properties { context_bar:onevalue - title:onevalue server_name:onevalue tests:multirow packages:multirow @@ -20,18 +19,22 @@ view_by:onevalue quiet:onevalue } -set title "System test cases" +set doc(title) "System test cases" +set context "" + set return_url [ad_return_url] template::head::add_css -href /resources/acs-automated-testing/tests.css if {$by_package_key ne ""} { - append title " for package $by_package_key" + append doc(title) " for package $by_package_key" + set context "Package $by_package_key" } if {$by_category ne ""} { - append title ", category $by_category" + append doc(title) ", category $by_category" + set context "Category $by_category" } else { - append title ", all categories" + append doc(title) ", all categories" } # Include all enabled packages in the package view list Index: openacs-4/packages/acs-automated-testing/www/admin/testcase.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/testcase.adp,v diff -u -N -r1.25.2.4 -r1.25.2.5 --- openacs-4/packages/acs-automated-testing/www/admin/testcase.adp 20 Sep 2019 12:42:12 -0000 1.25.2.4 +++ openacs-4/packages/acs-automated-testing/www/admin/testcase.adp 28 Feb 2021 09:03:55 -0000 1.25.2.5 @@ -1,7 +1,7 @@ - @title;noquote@ (@package_key@) + doc @context;literal@ -

@title@

+

@doc.title@

Description:
@testcase_desc@
@@ -36,24 +36,22 @@
+
+
Actions:
+ +
+
Category
@@ -130,6 +131,5 @@ Index: openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl,v diff -u -N -r1.22.2.4 -r1.22.2.5 --- openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl 14 Feb 2021 21:05:52 -0000 1.22.2.4 +++ openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl 28 Feb 2021 09:03:55 -0000 1.22.2.5 @@ -7,7 +7,6 @@ {quiet:boolean 1} {return_url:localurl ""} } -properties { - title:onevalue context_bar:onevalue tests:multirow showsource:onevalue @@ -18,8 +17,10 @@ quiet:onevalue fails:onevalue } -set title "Test case $testcase_id" -set context [list $title] +set doc(title) "Test case $testcase_id" +set context [list \ + [list "./index?by_package_key=$package_key&view_by=testcase" "Package $package_key"] \ + "Test case"] template::head::add_css -href /resources/acs-automated-testing/tests.css @@ -130,11 +131,6 @@ } } -set resource_file_url [export_vars -base init-file-resource { - {return_url [ad_return_url]} - {absolute_file_path $testcase_file} -}] - set rerun_url [export_vars -base rerun { testcase_id package_key quiet {return_url [ad_return_url]} }]