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.19 -r1.20
--- openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl	19 Jul 2018 13:30:11 -0000	1.19
+++ openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl	24 Jul 2018 14:36:27 -0000	1.20
@@ -58,9 +58,11 @@
     } {
         lassign $testcase . testcase_desc testcase_file . \
             testcase_cats testcase_inits \
-            testcase_on_error testcase_bodys testcase_error_level testcase_bugs testcase_procs
-        set testcase_cats  [join $testcase_cats ", "]
-        set testcase_inits [join $testcase_inits ", "]
+            testcase_on_error testcase_bodys testcase_error_level \
+            testcase_bugs testcase_procs testcase_urls
+        ns_log notice "testcase_urls $testcase_urls"
+        set testcase_cats  [join [lsort $testcase_cats] ", "]
+        set testcase_inits [join [lsort $testcase_inits] ", "]
         break
     }
 }
@@ -79,7 +81,16 @@
 }
 set proc_blurb [join $proc_list ", "]
 
+set url_list [list]
+foreach url $testcase_urls {
+    #http://localhost:8100/api-doc/content-page-view?version_id=13092&path=packages/forums/www/admin/forum-edit.adp
+    set path packages/$package_key/www/$url.tcl
+    set href [export_vars -base "/api-doc/content-page-view" { path {source_p 1} }]
+    lappend url_list [subst {<a href="[ns_quotehtml $href]">$url</a>}]
+}
+set url_blurb [join $url_list ", "]
 
+
 template::multirow create bodys body_number body
 if {[llength $testcase_bodys] == 0} {
     set testcase_desc ""