Index: openacs-4/packages/dotlrn-portlet/tcl/test/dotlrn-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/tcl/test/Attic/dotlrn-portlet-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-portlet/tcl/test/dotlrn-portlet-procs.tcl	19 Aug 2020 17:08:34 -0000	1.1.2.1
@@ -0,0 +1,30 @@
+ad_library {
+    Automated tests for the dotlrn-portlet package.
+
+    @author Héctor Romojaro <hector.romojaro@gmail.com>
+    @creation-date 2020-08-19
+    @cvs-id $Id: dotlrn-portlet-procs.tcl,v 1.1.2.1 2020/08/19 17:08:34 hectorr Exp $
+}
+
+aa_register_case -procs {
+        dotlrn_admin_portlet::link
+        dotlrn_portlet::link
+        dotlrn_members_portlet::link
+        dotlrn_members_staff_portlet::link
+    } -cats {
+        api
+        production_safe
+    } dotlrn_portlet_links {
+        Test diverse link procs.
+} {
+    aa_equals "dotLRN admin portlet link"           "[dotlrn_admin_portlet::link]" ""
+    aa_equals "dotLRN portlet link"                 "[dotlrn_portlet::link]" ""
+    aa_equals "dotLRN members portlet link"         "[dotlrn_members_portlet::link]" ""
+    aa_equals "dotLRN members staff portlet link"   "[dotlrn_members_staff_portlet::link]" ""
+}
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: