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

Add Checkbox form test

Browse source 
Completely rework output postprocessing to make it more flexible
and added a test for duplicate test keys.
This commit is contained in:
Colin Kuskie 2006-03-31 23:04:14 +00:00
parent 833e5238eb
commit 29635395cf
14 changed files with 485 additions and 177 deletions
Download patch file Download diff file Expand all files Collapse all files

27
t/Form/Text.t
View file

@ -17,7 +17,6 @@ use WebGUI::Form;
use WebGUI::Form::Text;
use WebGUI::Session;
use HTML::Form;
use Tie::IxHash;
use WebGUI::Form_Checking;
#The goal of this test is to verify that Text form elements work
@ -28,18 +27,24 @@ my $session = WebGUI::Test->session;
# put your tests here
my %testBlock;
tie %testBlock, 'Tie::IxHash';
%testBlock = (
TestText => [ 'some user value', 'EQUAL', 'Regular text'],
TestText2 => [ "some user value\nwith\r\nwhitespace", "some user valuewithwhitespace", 'Embedded whitespace is stripped'],
);
my $testBlock = [
{
key => 'Text1',
testValue => 'some user value',
expected => 'EQUAL',
comment => 'Regular text',
},
{
key => 'Text2',
testValue => "some user value\nwith\r\nwhitespace",
expected => "some user valuewithwhitespace",
comment => 'Embedded whitespace is stripped',
},
];
my $formType = 'text';
my $numTests = 12 + scalar keys %testBlock;
my $numTests = 12 + scalar @{ $testBlock } + 1;
diag("Planning on running $numTests tests\n");
@ -97,4 +102,4 @@ is($input->{maxlength}, 200, 'Checking maxlength param, set');
##Test Form Output parsing
WebGUI::Form_Checking::auto_check($session, $formType, %testBlock);
WebGUI::Form_Checking::auto_check($session, $formType, $testBlock);