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 + @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