add more email addresses for testing in Form/Email.t

2008-04-24 23:23:13 +00:00 · 2008-04-24 23:23:13 +00:00 · 89829bb4da
commit 89829bb4da
parent 0bc02e173d
1 changed files with 12 additions and 0 deletions
--- 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'