oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix multiple email handling in the Inbox.

Browse source 
Put an email regex into WebGUI::Utility, and use it in Form/Email and Account/Inbox.
This commit is contained in:
Colin Kuskie 2009-06-03 17:11:36 +00:00
parent 4bf3f457de
commit 29759ede9c
6 changed files with 111 additions and 53 deletions
Download patch file Download diff file Expand all files Collapse all files

15
t/Utility.t
View file

@ -17,7 +17,7 @@ use Tie::IxHash;
use WebGUI::Test;
use WebGUI::Session;
use Test::More tests => 44; # increment this value for each test you create
use Test::More tests => 46; # increment this value for each test you create
use Test::Deep;
my $session = WebGUI::Test->session;
@ -140,6 +140,19 @@ is(WebGUI::Utility::isInSubnet('192.168.0.1', ['192.257.0.1/32']), undef, 'isInS
is(WebGUI::Utility::isInSubnet('192.168.0.1', ['192.168.258.1/32']), undef, 'isInSubnet: ip has an out of range quad');
is(WebGUI::Utility::isInSubnet('192.168.0.1', ['192.168.0.259/32']), undef, 'isInSubnet: ip has an out of range quad');
#####################################################################
#
# emailRegex
#
#####################################################################
isa_ok(WebGUI::Utility::emailRegex, 'Regexp');
TODO: {
local $TODO = 'Things to do';
ok(0, 'Move email validation tests out of Form/Email into here');
}
# Local variables:
# mode: cperl
# End: