Index: openacs-4/packages/bulk-mail/tcl/test/bulk-mail-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bulk-mail/tcl/test/Attic/bulk-mail-procs.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/bulk-mail/tcl/test/bulk-mail-procs.tcl	18 Feb 2021 14:25:27 -0000	1.1.2.2
+++ openacs-4/packages/bulk-mail/tcl/test/bulk-mail-procs.tcl	18 Feb 2021 15:06:00 -0000	1.1.2.3
@@ -75,6 +75,18 @@
         }
 }
 
+aa_register_case -cats {
+        api
+        smoke
+        production_safe
+    } -procs {
+        bulk_mail::package_key
+    } bulk_mail__keys {
+        Trivial test for the package_key proc.
+} {
+        aa_equals "Package key" "[bulk_mail::package_key]" "bulk-mail"
+}
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4