Index: openacs-4/packages/calendar/tcl/test/cal-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/test/cal-item-procs.tcl,v
diff -u -r1.8.2.6 -r1.8.2.7
--- openacs-4/packages/calendar/tcl/test/cal-item-procs.tcl	14 Feb 2023 13:43:31 -0000	1.8.2.6
+++ openacs-4/packages/calendar/tcl/test/cal-item-procs.tcl	14 Feb 2023 14:18:25 -0000	1.8.2.7
@@ -269,25 +269,11 @@
                  -description $ci_description \
                  -calendar_id $calendar_id]
 
-        aa_log "Create a notification request for the calendar item"
-        set type_id [notification::type::get_type_id -short_name calendar_notif]
-        set delivery_method_id [lindex [notification::get_delivery_methods -type_id $type_id] 0 1]
-        set interval_id [lindex [notification::get_intervals -type_id $type_id] 0 1]
         set package_id [ad_conn package_id]
-        notification::request::new \
-            -type_id $type_id \
-            -user_id $user_id \
-            -object_id $package_id \
-            -interval_id $interval_id \
-            -delivery_method_id $delivery_method_id
-
-        aa_log "Do notifications"
-        calendar::do_notifications \
-            -mode TestMode \
-            -cal_item_id $cal_item_id
+        set mode_pretty [_ calendar.New]
         aa_true "Notification was generated" [db_0or1row check {
             select 1 from notifications where object_id = :package_id
-            and notif_subject like '%TestMode%'
+            and notif_subject like '%' || :mode_pretty || '%'
             and response_id = :cal_item_id
         }]