Index: openacs-4/packages/dotlrn-homework/tcl/test/dotlrn-homework-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/tcl/test/dotlrn-homework-procs.tcl,v
diff -u -r1.4.2.3 -r1.4.2.4
--- openacs-4/packages/dotlrn-homework/tcl/test/dotlrn-homework-procs.tcl	21 Aug 2020 18:01:11 -0000	1.4.2.3
+++ openacs-4/packages/dotlrn-homework/tcl/test/dotlrn-homework-procs.tcl	21 Aug 2020 18:06:44 -0000	1.4.2.4
@@ -100,6 +100,18 @@
     aa_equals "Applet key"      "[dotlrn_homework_applet::applet_key]"      "dotlrn_homework_applet"
 }
 
+aa_register_case -procs {
+        dotlrn_homework::get_file_storage_url
+    } -cats {
+        api
+        smoke
+        production_safe
+    } dotlrn_homework_get_file_storage_url {
+        Simple test for the dotlrn_homework::get_file_storage_url proc.
+} {
+    aa_equals "File storage URL" "[dotlrn_homework::get_file_storage_url]" "/dotlrn/file-storage"
+}
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4