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