Index: openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl 27 Feb 2005 16:16:17 -0000 1.1 +++ openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl 13 Jul 2006 15:09:08 -0000 1.2 @@ -6,28 +6,6 @@ @cvs-id $Id$ } -aa_register_case -cats {smoke production_safe} documentation__check_proc_interface_status { - checks all procs have an interface status (-public or -private) - - @author Jeff Davis davis@xarg.net -} { - set count 0 - set good 0 - foreach p [lsort -dictionary [nsv_array names api_proc_doc]] { - array set pa [nsv_get api_proc_doc $p] - if { !($pa(deprecated_p) || $pa(warn_p)) } { - incr count - if { !($pa(public_p) || $pa(private_p)) } { - aa_log_result fail "No interface status for $p" - } else { - incr good - } - } - array unset pa - } - aa_log "Found $good good of $count checked" -} - aa_register_case -cats {smoke production_safe} documentation__check_proc_doc { checks if documentation exists for public procs. @@ -54,7 +32,7 @@ -aa_register_case -cats {smoke production_safe} documentation__check_deprecated_see { +aa_register_case -cats {smoke production_safe} -error_level warning documentation__check_deprecated_see { checks if deprecated procs have an @see clause @author Jeff Davis davis@xarg.net