Index: openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl,v diff -u -r1.4.2.31 -r1.4.2.32 --- openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl 2 Sep 2021 16:40:49 -0000 1.4.2.31 +++ openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl 6 Oct 2021 14:26:53 -0000 1.4.2.32 @@ -350,6 +350,7 @@ -cats { api smoke production_safe } \ -procs { apidoc::tclcode_to_html + apidoc::tcl_to_html ad_looks_like_html_p ad_urldecode_query } \ @@ -392,6 +393,18 @@ {[string first [ns_quotehtml [ad_urldecode_query $script]] $output] > -1} } + foreach script $commands { + set output [apidoc::tcl_to_html $script] + aa_true "Proc '$script' returns some HTML" \ + [ad_looks_like_html_p $output] + aa_true "Proc '$script' contains links to commands documentation" \ + { + [string first /api-doc/proc-view $output] > -1 || + [string first /api-doc/tcl-proc $output] > -1 || + [string first /xotcl/show-object $output] > -1 + } + } + aa_true "Specifying OO flags on non-OO commands is not harmful" \ {[apidoc::tclcode_to_html -scope [ad_generate_random_string] apidoc::tclcode_to_html] eq [apidoc::tclcode_to_html apidoc::tclcode_to_html]}