Index: openacs-4/packages/general-comments/tcl/test/general-comments-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/tcl/test/Attic/general-comments-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/general-comments/tcl/test/general-comments-procs.tcl	11 Aug 2020 13:55:44 -0000	1.1.2.1
@@ -0,0 +1,39 @@
+ad_library {
+    Test general-comments API
+}
+
+aa_register_case \
+    -cats {api smoke} \
+    -procs {
+        general_comments_create_link
+    } \
+    general_comments_create_link {
+        Test general_comments_create_link
+    } {
+        set vars {
+            object_name
+            link_text
+            context_id
+            category
+            link_attributes
+            object_id
+            return_url
+        }
+        foreach var $vars {
+            set $var [ad_generate_random_string]
+        }
+
+        set url [general_comments_create_link \
+                     -object_name $object_name \
+                     -link_text $link_text \
+                     -context_id $context_id \
+                     -category $category \
+                     -link_attributes $link_attributes \
+                     $object_id $return_url]
+
+        aa_true "Generated link is HTML" [ad_looks_like_html_p $url]
+
+        foreach var $vars {
+            aa_true "Link contains suplied argument '$var'" {[string first [set $var] $url] >= 0}
+        }
+    }