Index: openacs-4/packages/calendar-portlet/tcl/test/calendar-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/tcl/test/calendar-portlet-procs.tcl,v
diff -u -r1.5 -r1.5.2.1
--- openacs-4/packages/calendar-portlet/tcl/test/calendar-portlet-procs.tcl	22 May 2018 16:44:55 -0000	1.5
+++ openacs-4/packages/calendar-portlet/tcl/test/calendar-portlet-procs.tcl	19 Aug 2020 16:20:58 -0000	1.5.2.1
@@ -309,6 +309,41 @@
 
     }
 }
+
+aa_register_case -procs {
+        calendar_full_portlet::link
+        calendar_admin_portlet::link
+        calendar_list_portlet::link
+        calendar_portlet::link
+    } -cats {
+        api
+        production_safe
+    } calendar_portlet_links {
+        Test diverse link procs.
+} {
+    aa_equals "Calendar full portlet link"  "[calendar_full_portlet::link]" ""
+    aa_equals "Calendar admin portlet link" "[calendar_admin_portlet::link]" ""
+    aa_equals "Calendar list portlet link"  "[calendar_list_portlet::link]" ""
+    aa_equals "Calendar portlet link"       "[calendar_portlet::link]" ""
+}
+
+aa_register_case -procs {
+        calendar_full_portlet::link
+        calendar_admin_portlet::link
+        calendar_list_portlet::link
+        calendar_portlet::link
+    } -cats {
+        api
+        production_safe
+    } calendar_portlet_links {
+        Test diverse link procs.
+} {
+    aa_equals "Calendar full portlet link"  "[calendar_full_portlet::link]" ""
+    aa_equals "Calendar admin portlet link" "[calendar_admin_portlet::link]" ""
+    aa_equals "Calendar list portlet link"  "[calendar_list_portlet::link]" ""
+    aa_equals "Calendar portlet link"       "[calendar_portlet::link]" ""
+}
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4