diff --git a/t/Form/Email.t b/t/Form/Email.t
index 25d925346..04ffe12c2 100644
--- a/t/Form/Email.t
+++ b/t/Form/Email.t
@@ -49,6 +49,18 @@ my $testBlock = [
 	},
 	{
 		key => 'EMAIL4',
+		testValue => 'web-gui@nowhere.org',
+		expected  => 'EQUAL',
+		comment   => 'dashed email address'
+	},
+	{
+		key => 'EMAIL5',
+		testValue => 'web_gui@nowhere.org',
+		expected  => 'EQUAL',
+		comment   => 'underscore email address'
+	},
+	{
+		key => 'EMAIL6',
 		testValue => 'what do you want?',
 		expected  => undef,
 		comment   => 'not an email address'