Index: openacs-4/packages/categories/tcl/test/categories-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/test/categories-procs.tcl,v
diff -u -r1.3.2.14 -r1.3.2.15
--- openacs-4/packages/categories/tcl/test/categories-procs.tcl	8 Sep 2022 15:59:11 -0000	1.3.2.14
+++ openacs-4/packages/categories/tcl/test/categories-procs.tcl	8 Sep 2022 16:02:05 -0000	1.3.2.15
@@ -454,6 +454,7 @@
     category::get_mapped_categories
     category::get_mapped_categories_multirow
     category::get_objects
+    category::get_object_context
 } -cats {
     api smoke
 } category_object_mapping {
@@ -476,6 +477,10 @@
                                -content_type content_revision \
                                -text {some text}]
 
+        aa_equals "Object context for the object is as expected" \
+            [list "/o/$one_object_id" [acs_object_name $one_object_id]] \
+            [category::get_object_context $one_object_id]
+
         aa_section "Create tree"
         set tree_name foo
         set tree_description "Just a dummy category tree"