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

second batch of test automation done

Browse source
This commit is contained in:
Colin Kuskie 2006-03-27 21:18:58 +00:00
parent 4e8f962982
commit 556ab65f5e
3 changed files with 116 additions and 75 deletions
Download patch file Download diff file Expand all files Collapse all files

66
t/Form/Integer.t
View file

@ -17,7 +17,8 @@ use WebGUI::Form;
use WebGUI::Form::Integer;
use WebGUI::Session;
use HTML::Form;
use Test::MockObject;
use Tie::IxHash;
use WebGUI::Form_Checking;
#The goal of this test is to verify that Integer form elements work
@ -27,7 +28,22 @@ my $session = WebGUI::Test->session;
# put your tests here
my $numTests = 10;
my %testBlock;
tie %testBlock, 'Tie::IxHash';
%testBlock = (
INT1 => [ '-123456', 'EQUAL', 'valid, negative integer'],
INT1 => [ '002300', 'EQUAL', 'valid, leading zeroes'],
INT2 => [ '+123456', 0, 'reject explicitly positive integer'],
INT3 => [ '123-456.', 0, 'rejects non-sense integer with negative sign'],
INT4 => [ '123.456', 0, 'rejects float'],
);
my $formClass = 'WebGUI::Form::Integer';
my $formType = 'Integer';
my $numTests = 12 + scalar keys %testBlock;
diag("Planning on running $numTests tests\n");
@ -37,7 +53,7 @@ my ($header, $footer) = (WebGUI::Form::formHeader($session), WebGUI::Form::formF
my $html = join "\n",
$header,
WebGUI::Form::Integer->new($session, {
$formClass->new($session, {
name => 'TestInteger',
value => '123456',
})->toHtml,
@ -59,30 +75,30 @@ is($input->name, 'TestInteger', 'Checking input name');
is($input->type, 'text', 'Checking input type');
is($input->value, '123456', 'Checking default value');
is($input->disabled, undef, 'Disabled param not sent to form');
is($input->{size}, 11, 'Default size');
is($input->{maxlength}, 11, 'Default maxlength');
##Test Form Output parsing
my $request = Test::MockObject->new;
$request->mock('body',
sub {
my ($self, $value) = @_;
my @return = ();
return '-123456' if ($value eq 'TestInteger');
return "+123456" if ($value eq 'TestInteger2');
return "123-456" if ($value eq 'TestInteger3');
return "123.456" if ($value eq 'TestInteger4');
return;
}
);
$session->{_request} = $request;
my $html = join "\n",
$header,
$formClass->new($session, {
name => 'TestInt2',
value => '98765',
size => 15,
maxlength => 20,
})->toHtml,
$footer;
my $value = $session->form->get('TestInteger', 'integer');
is($value, '-123456', 'checking negative integer');
$value = $session->form->get('TestInteger2', 'integer');
is($value, 0, 'checking form rejects explicitly postive integer');
$value = $session->form->get('TestInteger3', 'integer');
is($value, 0, 'checking form rejects non-sense integer');
$value = $session->form->get('TestInteger4', 'integer');
is($value, 0, 'checking form rejects non-sense integer');
@forms = HTML::Form->parse($html, 'http://www.webgui.org');
@inputs = $forms[0]->inputs;
my $input = $inputs[0];
is($input->name, 'TestInt2', 'Checking input name');
is($input->value, '98765', 'Checking default value');
is($input->{size}, 15, 'set size');
is($input->{maxlength}, 20, 'set maxlength');
##Test Form Output parsing
WebGUI::Form_Checking::auto_check($session, $formType, %testBlock);
##Integer Forms have no special value preprocessing,