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.8 -r1.3.2.9
--- openacs-4/packages/categories/tcl/test/categories-procs.tcl	24 Jun 2021 12:38:39 -0000	1.3.2.8
+++ openacs-4/packages/categories/tcl/test/categories-procs.tcl	24 Jun 2021 13:07:36 -0000	1.3.2.9
@@ -222,6 +222,7 @@
     category_tree::delete
     category::add
     category::count_children
+    category::change_parent
     category::get_children
     category::get_name
     category::get_names
@@ -362,6 +363,17 @@
         aa_equals "Count category children" \
             [category::count_children -category_id $copy_root_category_id] 3
         #
+        # Change parent (make bar1 parent of bar2)
+        #
+        set bar1_id [dict get $children bar1]
+        set bar2_id [dict get $children bar2]
+        category::change_parent \
+            -category_id $bar1_id \
+            -tree_id $copy_tree_id \
+            -parent_id $bar2_id
+        aa_equals "Check new parent category children" \
+                    "[category::get_children -category_id $bar2_id]" "$bar1_id"
+        #
         # Update
         #
         set new_description "The new description"