Index: openacs-4/packages/xotcl-core/tcl/test/03-doc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/test/03-doc-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/xotcl-core/tcl/test/03-doc-procs.tcl	29 Oct 2024 11:58:21 -0000	1.1
@@ -0,0 +1,37 @@
+ad_library {
+  Test of parts of the xotcl-core API
+}
+
+
+aa_register_case -cats {
+  api smoke
+} -procs {
+    "::xo::api update_object_doc"
+    "::xo::api update_nx_docs"
+} xo_update_object_doc {
+
+    Test rebuilding object documentation in relevant corner cases.
+
+} {
+    namespace eval ::__test_xo {
+        nx::Class create AClass {
+            :public method "blueprint get info" {} {
+                #
+                # A method with a cornercase name meant to potentially
+                # collide with other "special words" in nsf.
+                #
+            }
+        }
+    }
+
+    try {
+        ::xo::api update_nx_docs
+    } on ok {d} {
+        set failed_p false
+    } on error {errmsg} {
+        set failed_p true
+        aa_log "Regenerating the docs reports: $errmsg"
+    }
+
+    aa_false "Updating the docs works" $failed_p
+}