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.7 -r1.3.2.8
--- openacs-4/packages/categories/tcl/test/categories-procs.tcl	16 Feb 2021 20:59:03 -0000	1.3.2.7
+++ openacs-4/packages/categories/tcl/test/categories-procs.tcl	24 Jun 2021 12:38:39 -0000	1.3.2.8
@@ -221,6 +221,7 @@
     category_tree::update
     category_tree::delete
     category::add
+    category::count_children
     category::get_children
     category::get_name
     category::get_names
@@ -358,6 +359,8 @@
                      "[lsort [category::get_names [category::get_children \
                                 -category_id $copy_root_category_id]]]" \
                      "[lsort [dict keys $children]]"
+        aa_equals "Count category children" \
+            [category::count_children -category_id $copy_root_category_id] 3
         #
         # Update
         #