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 -N -r1.4.2.10 -r1.4.2.11
--- openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl	10 Sep 2019 14:07:12 -0000	1.4.2.10
+++ openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl	10 Sep 2019 15:15:38 -0000	1.4.2.11
@@ -331,7 +331,57 @@
             {[apidoc::format_see apidoc::format_see] eq [::apidoc::format_see apidoc::format_see]}
     }
 
+aa_register_case \
+    -cats { api smoke } \
+    -procs {
+        apidoc::tclcode_to_html
+    } \
+    acs_api_browser_apidoc_tclcode_to_html {
+        Check apidoc::tclcode_to_html
+    } {
+        set bogus_value [ad_generate_random_string]
+        aa_true "Bogus value returns itself" \
+            {[apidoc::tclcode_to_html $bogus_value] eq $bogus_value}
 
+        aa_log "Fetching a few commands to test..."
+        set commands [list]
+        foreach command [info commands] {
+            # Skip XoTcl methods
+            if {[info commands ::xotcl::Object] ne "" && [::xotcl::Object isobject [lindex $command 0]]} {
+                continue
+            }
+            # Skip some corner-case command names created by the platform... is this a bug or not?
+            if {![regexp {(template_tag_listfilters|AcsSc\.|validator1\.|!|^_[^ ]|^\d+)} $command]} {
+                lappend commands $command
+            }
+            if {[llength $commands] >= 50} {
+                break
+            }
+        }
+        if {[info commands ::xotcl::Object] ne ""} {
+            aa_log "Adding a few XoTcl classes"
+            lappend commands {*}[lrange [::xotcl::Object info instances] 0 100]
+        }
+        foreach script $commands {
+            set output [apidoc::tclcode_to_html $script]
+            aa_true "Valid input '$script' returns some HTML" \
+                [ad_looks_like_html_p $output]
+            aa_true "Valid input '$script' contains itself" \
+                {[string first $script $output] > -1}
+            aa_true "Valid input '$script' contains some sort of URL of itself" \
+                {[string first [ns_quotehtml [ad_urldecode_query $script]] $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]}
+
+        aa_true "Specifying namespace works as expected" \
+            {[string first \
+                  [ns_quotehtml [ad_urldecode_query apidoc::tclcode_to_html]] \
+                  [apidoc::tclcode_to_html -proc_namespace apidoc tclcode_to_html]] > -1}
+    }
+
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4