Index: openacs-4/packages/acs-tcl/tcl/test/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/Attic/utilities-procs.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/acs-tcl/tcl/test/utilities-procs.tcl	26 Dec 2020 16:40:05 -0000	1.1.2.3
+++ openacs-4/packages/acs-tcl/tcl/test/utilities-procs.tcl	23 Jun 2021 10:20:32 -0000	1.1.2.4
@@ -84,6 +84,28 @@
         aa_equals "Sanitizing to an existing filename with resolving is fine" $resolved [string tolower "A_ßCoOOetcpasswdl#_f__ilename_.extension"]_2
     }
 
+
+aa_register_case -cats {
+    api
+    smoke
+    production_safe
+} -procs {
+    ad_outgoing_sender
+    ad_host_administrator
+} host_admin_and_outgoing_sender {
+    Test the ad_outgoing_sender and ad_host_administrator procs.
+} {
+    #
+    # HostAdministrator and OutgoingSender should be empty, or valid emails
+    #
+    set host_admin [ad_host_administrator]
+    aa_true "HostAdministrator email ($host_admin) is valid or empty" \
+        {$host_admin eq "" || [util_email_valid_p $host_admin]}
+    set out_sender [ad_outgoing_sender]
+    aa_true "OutgoingSender email ($out_sender) is valid or empty" \
+        {$out_sender eq "" || [util_email_valid_p $out_sender]}
+}
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4