Index: openacs-4/packages/notifications/tcl/test/notifications-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/test/Attic/notifications-test-procs.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/notifications/tcl/test/notifications-test-procs.tcl	7 Jul 2022 15:52:27 -0000	1.1.2.2
+++ openacs-4/packages/notifications/tcl/test/notifications-test-procs.tcl	8 Jul 2022 08:47:16 -0000	1.1.2.3
@@ -26,6 +26,8 @@
     -procs {
         acs_sc::impl::new_from_spec
         notification::type::new
+        notification::type::get_type_id
+        notification::type::get_impl_key
         notification::type::delete
         notification::request::new
         notification::request::delete
@@ -40,7 +42,7 @@
         notification::delete
     } \
     notification_api_tests {
-        Test the registration of a parameter
+        Tests various API in the package
     } {
         aa_run_with_teardown -rollback -test_code {
             aa_section "Creating a notification type..."
@@ -74,6 +76,13 @@
                              -pretty_name $pretty_name \
                              -description $description]
 
+            set api_type_id [notification::type::get_type_id -short_name $short_name]
+            aa_equals "id from API is the same as that from creation" $api_type_id $type_id
+
+            set impl_key [notification::type::get_impl_key -type_id $type_id]
+            aa_equals "Implementation key retrieval works as expected" \
+                "notifications_test_notif_type" $impl_key
+
             aa_equals "Short name is correct" \
                 $short_name [db_string q {select short_name from notification_types where type_id = :type_id}]
             aa_equals "Description is correct" \