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.9 -r1.3.2.10
--- openacs-4/packages/categories/tcl/test/categories-procs.tcl	24 Jun 2021 13:07:36 -0000	1.3.2.9
+++ openacs-4/packages/categories/tcl/test/categories-procs.tcl	24 Jun 2021 13:49:04 -0000	1.3.2.10
@@ -226,8 +226,11 @@
     category::get_children
     category::get_name
     category::get_names
+    category::relation::add_meta_category
+    category::relation::get_meta_categories
     category_tree::exists_p
     package_instantiate_object
+    relation::get_object_one
 } -cats {
     api
 } category_tree_procs {
@@ -374,6 +377,24 @@
         aa_equals "Check new parent category children" \
                     "[category::get_children -category_id $bar2_id]" "$bar1_id"
         #
+        # Create a meta category from bar1 and bar2
+        #
+        set user_info [acs::test::user::create]
+        set user_id [dict get $user_info user_id]
+        set user_meta_category_id [category::relation::add_meta_category \
+            -category_id_one $bar1_id \
+            -category_id_two $bar2_id \
+            -user_id $user_id]
+        set meta_category_id [relation::get_object_one \
+                -rel_type "user_meta_category_rel" \
+                -object_id_two $user_id]
+        aa_log "New meta category $meta_category_id from $bar1_id and $bar2_id"
+        aa_equals "Check categories from a meta category" \
+            "[lsort [category::relation::get_meta_categories \
+                        -rel_id $meta_category_id]]" \
+            "[lsort [list $bar1_id $bar2_id]]"
+
+        #
         # Update
         #
         set new_description "The new description"