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.4 -r1.1.2.5
--- openacs-4/packages/acs-tcl/tcl/test/utilities-procs.tcl	23 Jun 2021 10:20:32 -0000	1.1.2.4
+++ openacs-4/packages/acs-tcl/tcl/test/utilities-procs.tcl	23 Jun 2021 13:50:03 -0000	1.1.2.5
@@ -92,6 +92,7 @@
 } -procs {
     ad_outgoing_sender
     ad_host_administrator
+    util_email_valid_p
 } host_admin_and_outgoing_sender {
     Test the ad_outgoing_sender and ad_host_administrator procs.
 } {
@@ -106,6 +107,40 @@
         {$out_sender eq "" || [util_email_valid_p $out_sender]}
 }
 
+aa_register_case -cats {
+    api
+    smoke
+    production_safe
+} -procs {
+    util_email_valid_p
+} util_email_valid_p {
+    Test the util_email_valid_p proc.
+} {
+    #
+    # Valid emails
+    #
+    set valid_mails {
+        la@lala.la
+        openacs@openacs.org
+        whatever.is.this@my.mail.com
+    }
+    foreach mail $valid_mails {
+        aa_true "Is $mail valid?" [util_email_valid_p $mail]
+    }
+    #
+    # Invalid emails
+    #
+    set invalid_mails {
+        @no.valid
+        no@valid
+        no.valid
+        nope
+    }
+    foreach mail $invalid_mails {
+        aa_false "Is $mail valid?" [util_email_valid_p $mail]
+    }
+}
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4