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.27 -r1.3.2.28
--- openacs-4/packages/categories/tcl/test/categories-procs.tcl	27 Feb 2023 15:37:16 -0000	1.3.2.27
+++ openacs-4/packages/categories/tcl/test/categories-procs.tcl	27 Feb 2023 15:59:08 -0000	1.3.2.28
@@ -686,6 +686,8 @@
     category::get_objects
     category::get_object_context
     category_tree::get_trees
+    category::tagcloud::get_tags
+    category::tagcloud::tagcloud
 } -cats {
     api smoke
 } category_object_mapping {
@@ -786,6 +788,24 @@
             [category_tree::get_trees $one_object_id] \
             [list $tree_id]
 
+        set cloud_tags [category::tagcloud::get_tags -tree_id $tree_id]
+        aa_equals "category::tagcloud::get_tags returns expected" \
+            [lsort -index 0 $cloud_tags] \
+            [list \
+                 [list $root_category_id 1 $tree_name] \
+                 [list [lindex $categories 1] 1 "bar1"] \
+                 [list [lindex $categories 2] 1 "bar2"] \
+                 [list [lindex $categories 3] 1 "bar3"] \
+                ]
+
+        set tag_cloud [category::tagcloud::tagcloud -tree_id $tree_id]
+        set rgxp <.*
+        foreach tag $cloud_tags {
+            append rgxp [join $tag .*].*
+        }
+        append rgxp >
+        aa_true "Tagcloud looks like '$rgxp'" [regexp $rgxp $tag_cloud]
+
         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" \