Index: openacs-4/packages/attachments/tcl/test/attachments-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/tcl/test/Attic/attachments-procs.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/attachments/tcl/test/attachments-procs.tcl	18 Feb 2021 14:19:48 -0000	1.1.2.2
+++ openacs-4/packages/attachments/tcl/test/attachments-procs.tcl	22 Jun 2021 14:43:04 -0000	1.1.2.3
@@ -81,6 +81,17 @@
     }
 }
 
+aa_register_case -procs {
+    attachments::get_package_key
+} -cats {
+    api
+    production_safe
+} attachments_package_key {
+    Test attachments::get_package_key.
+} {
+    aa_equals "Package_key" [attachments::get_package_key] "attachments"
+}
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4