From 091ad048ea9ee9bf19e0ebfdd2cdcfc7b5eacd64 Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Tue, 15 Aug 2006 23:39:58 +0000 Subject: [PATCH] add test for single character username at domain --- t/Form/Email.t | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/t/Form/Email.t b/t/Form/Email.t index 08cbf6943..3a8a799cb 100644 --- a/t/Form/Email.t +++ b/t/Form/Email.t @@ -37,6 +37,12 @@ my $testBlock = [ }, { key => 'EMAIL2', + testValue => 'i@nowhere.com', + expected => undef, + comment => 'single character email fails' + }, + { + key => 'EMAIL3', testValue => 'what do you want?', expected => undef, comment => 'not an email address'