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

Form auto checker

Browse source
This commit is contained in:
Colin Kuskie 2006-03-27 20:30:55 +00:00
parent 29ee2c313d
commit 16a6c2cc00
1 changed files with 30 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

30
t/lib/WebGUI/Form_Checking.pm Normal file
View file

@ -0,0 +1,30 @@
package WebGUI::Form_Checking;
use Test::MockObject;
use Test::More;
sub auto_check {
my ($session, $formType, %testBlock) = @_;
my $origSessionRequest = $session->{_request};
my $request = Test::MockObject->new;
$request->mock('body',
sub {
my ($self, $value) = @_;
return $testBlock{$value}->[0] if (exists $testBlock{$value});
return;
}
);
$session->{_request} = $request;
foreach my $key (keys %testBlock) {
my ($testValue, $expected, $comment) = @{ $testBlock{$key} };
my $value = $session->form->get($key, $formType);
is($value, ($expected eq 'EQUAL' ? $testValue : $expected), $comment);
}
$session->{_request} = $origSessionRequest;
}
1;