Index: openacs-4/packages/acs-automated-testing/www/admin/proc-coverage.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/proc-coverage.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-automated-testing/www/admin/proc-coverage.adp	15 Feb 2004 12:14:37 -0000	1.1
@@ -0,0 +1,9 @@
+<master>
+
+<p>
+The following procs are not listed as being tested by any test cases.
+</p>
+
+<p>
+@uncovered_procs;noquote@
+</p>
Index: openacs-4/packages/acs-automated-testing/www/admin/proc-coverage.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/proc-coverage.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-automated-testing/www/admin/proc-coverage.tcl	15 Feb 2004 12:14:37 -0000	1.1
@@ -0,0 +1,37 @@
+ad_page_contract {
+    Displays procs not covered by test cases in the given package
+
+    @author Peter Marklund
+} {
+    package_key
+}
+
+set all_proc_names [list]
+foreach file_path [nsv_array names api_proc_doc_scripts] {
+    if { [regexp "^packages/$package_key" $file_path] } {
+	foreach proc_name [nsv_get api_proc_doc_scripts $file_path] {
+	    lappend all_proc_names $proc_name
+	}
+    }
+}
+
+set tested_proc_names [list]
+foreach testcase [nsv_get aa_test cases] {
+    set testcase_package_key [lindex $testcase 3]
+
+    if { [string equal $testcase_package_key $package_key] } {
+	set tested_procs [lindex $testcase 10]
+	if { [llength $tested_procs] > 0 } {
+	    set tested_proc_names [concat $tested_proc_names $tested_procs] 
+	}
+    }
+}
+
+set uncovered_procs [list]
+foreach proc_name $all_proc_names {
+    if { [lsearch -exact $tested_proc_names $proc_name] == -1 } {
+	lappend uncovered_procs $proc_name
+    }
+}
+
+set uncovered_procs [join $uncovered_procs "<br>"]
\ No newline at end of file