Index: openacs-4/packages/dotlrn-fs/tcl/test/dotlrn-fs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/test/dotlrn-fs-procs.tcl,v
diff -u -N -r1.4.2.2 -r1.4.2.3
--- openacs-4/packages/dotlrn-fs/tcl/test/dotlrn-fs-procs.tcl	3 Apr 2019 07:53:09 -0000	1.4.2.2
+++ openacs-4/packages/dotlrn-fs/tcl/test/dotlrn-fs-procs.tcl	10 Sep 2019 09:20:40 -0000	1.4.2.3
@@ -82,6 +82,25 @@
         }
 }
 
+aa_register_case \
+    -cats {api smoke production_safe} \
+    -procs {
+        dotlrn_fs::package_key
+        dotlrn_fs::my_package_key
+        dotlrn_fs::applet_key
+    } \
+    dotlrn_fs__keys {
+
+        Simple test for the various dotlrn_fs::..._key procs.
+
+        @author Héctor Romojaro <hector.romojaro@gmail.com>
+        @creation-date 2019-09-10
+} {
+    aa_equals "Package key" "[dotlrn_fs::package_key]" "file-storage"
+    aa_equals "My Package key" "[dotlrn_fs::my_package_key]" "dotlrn-fs"
+    aa_equals "Applet key" "[dotlrn_fs::applet_key]" "dotlrn_fs"
+}
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4