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.24 -r1.3.2.25
--- openacs-4/packages/categories/tcl/test/categories-procs.tcl	27 Feb 2023 14:08:26 -0000	1.3.2.24
+++ openacs-4/packages/categories/tcl/test/categories-procs.tcl	27 Feb 2023 14:24:22 -0000	1.3.2.25
@@ -628,6 +628,7 @@
     category::get_mapped_categories_multirow
     category::get_objects
     category::get_object_context
+    category_tree::get_trees
 } -cats {
     api smoke
 } category_object_mapping {
@@ -685,6 +686,11 @@
         }
 
         aa_section "Map categories"
+
+        aa_equals "category_tree::get_trees returns expected" \
+            [category_tree::get_trees $one_object_id] \
+            ""
+
         set categories [list \
                             $root_category_id \
                             {*}[dict values $children]]
@@ -719,6 +725,10 @@
             incr i
         }
 
+        aa_equals "category_tree::get_trees returns expected" \
+            [category_tree::get_trees $one_object_id] \
+            [list $tree_id]
+
         foreach category_id $categories {
             set object_ids [category::get_objects -category_id $category_id]
             aa_equals "Getting the object from one of the mapped categories '$category_id' returns our object" \