Index: openacs-4/packages/search/tcl/test/search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/tcl/test/search-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/search/tcl/test/search-procs.tcl	21 Nov 2024 12:49:29 -0000	1.4
+++ openacs-4/packages/search/tcl/test/search-procs.tcl	21 Nov 2024 13:27:49 -0000	1.5
@@ -225,6 +225,7 @@
     -procs {
         search::searchable_type_p
         search::object_index
+        search::object_unindex
     } \
     object_utilities {
         Test object-related utilities.
@@ -258,6 +259,10 @@
                 aa_true \
                     "Object '$object_id' of type '$object_type' will return a non null datasource" \
                     [llength $datasource]
+
+                aa_false "Unindexing does not bomb." [catch {
+                    search::object_unindex -object_id $object_id
+                }]
             }
         }
     }