From 89829bb4daf3e16254548d022533b5dc1c65c723 Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Thu, 24 Apr 2008 23:23:13 +0000 Subject: [PATCH] add more email addresses for testing in Form/Email.t --- t/Form/Email.t | 12 ++++++++++++ 1 file changed, 12 insertions(+) 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'