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

fix Macro/FormParam test properly this time

Browse source
This commit is contained in:
Graham Knop 2010-06-15 07:55:24 -05:00
parent 280d5282d9
commit ad19589739
1 changed files with 6 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

25
t/Macro/FormParam.t
View file

@ -70,35 +70,22 @@ TODO: {
sub auto_check {
my ($session, $testBlock) = @_;
my $origSessionRequest = $session->{_request};
##Create a by-name interface to the test to simplify the
##mocked request.
my %tests = map { $_->{key} => $_ } @{ $testBlock };
is(scalar keys %tests, scalar @{ $testBlock }, 'no collisions in testBlock');
my $request = Test::MockObject->new;
$request->mock('body',
sub {
my ($self, $value) = @_;
return unless exists $tests{$value};
if (ref $tests{$value}->{testValue} eq "ARRAY") {
return @{ $tests{$value}->{testValue} } ;
}
else {
return $tests{$value}->{testValue};
}
}
);
$request->mock('param', sub {shift->body(@_)});
$session->{_request} = $request;
my $param_hash = Hash::MultiValue->from_mixed(
map { $_->{key} => $_->{testValue} } @{ $testBlock }
);
local $session->request->env->{'plack.request.query'} = $param_hash;
local $session->request->env->{'plack.request.body'} = $param_hash;
local $session->request->env->{'plack.request.merged'} = $param_hash;
foreach my $test ( @{ $testBlock } ) {
$test->{expected} = $test->{testValue} if $test->{expected} eq 'EQUAL';
my $value = WebGUI::Macro::FormParam::process($session, $test->{key});
is($value, $test->{expected}, $test->{comment});
}
$session->{_request} = $origSessionRequest;
}