Index: openacs-4/packages/dotlrn-bm/tcl/test/dotlrn-bm-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bm/tcl/test/Attic/dotlrn-bm-test-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-bm/tcl/test/dotlrn-bm-test-procs.tcl	10 Sep 2019 09:20:40 -0000	1.1.2.1
@@ -0,0 +1,33 @@
+ad_library {
+
+        Automated tests for the dotlrn-bm package.
+
+        @author Héctor Romojaro <hector.romojaro@gmail.com>
+        @creation-date 2019-09-10
+
+}
+
+aa_register_case \
+    -cats {api smoke production_safe} \
+    -procs {
+        dotlrn_bm::package_key
+        dotlrn_bm::my_package_key
+        dotlrn_bm::applet_key
+    } \
+    dotlrn_bm__keys {
+
+        Simple test for the various dotlrn_bm::..._key procs.
+
+        @author Héctor Romojaro <hector.romojaro@gmail.com>
+        @creation-date 2019-09-10
+} {
+    aa_equals "Package key" "[dotlrn_bm::package_key]" "bulk-mail"
+    aa_equals "My Package key" "[dotlrn_bm::my_package_key]" "dotlrn-bm"
+    aa_equals "Applet key" "[dotlrn_bm::applet_key]" "dotlrn_bm"
+}
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: