Extract buildForm method from test lib
This commit is contained in:
parent
0f0a73d6ec
commit
bfdf56cfff
|
@ -96,6 +96,29 @@ sub count {
|
||||||
return $count;
|
return $count;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
=head4 buildForm($params)
|
||||||
|
|
||||||
|
Convenience method that builds a url-encoded query string from a hash of arguments
|
||||||
|
|
||||||
|
=cut
|
||||||
|
|
||||||
|
sub buildForm {
|
||||||
|
my $fields = shift;
|
||||||
|
my $query = join(
|
||||||
|
'&',
|
||||||
|
map {
|
||||||
|
"$_="
|
||||||
|
. (
|
||||||
|
$fields->{$_}
|
||||||
|
? uri_escape( uri_unescape( $fields->{$_} ) )
|
||||||
|
: ''
|
||||||
|
)
|
||||||
|
}
|
||||||
|
keys(%$fields)
|
||||||
|
);
|
||||||
|
return $query;
|
||||||
|
}
|
||||||
|
|
||||||
=head4 explain( $result, $expected_result )
|
=head4 explain( $result, $expected_result )
|
||||||
|
|
||||||
Used to display error if test fails:
|
Used to display error if test fails:
|
||||||
|
@ -276,18 +299,7 @@ m@<form.+?action="(?:(?:http://([^/]+))?(/.*?)?|(#))".+method="(post|get)"@is,
|
||||||
m#<input.+?name="([^"]+)"[^>]+(?:value="([^"]*?)")?#gs,
|
m#<input.+?name="([^"]+)"[^>]+(?:value="([^"]*?)")?#gs,
|
||||||
%fields
|
%fields
|
||||||
);
|
);
|
||||||
my $query = join(
|
my $query = buildForm( \%fields );
|
||||||
'&',
|
|
||||||
map {
|
|
||||||
"$_="
|
|
||||||
. (
|
|
||||||
$fields{$_}
|
|
||||||
? uri_escape( uri_unescape( $fields{$_} ) )
|
|
||||||
: ''
|
|
||||||
)
|
|
||||||
}
|
|
||||||
keys(%fields)
|
|
||||||
);
|
|
||||||
foreach my $f (@requiredFields) {
|
foreach my $f (@requiredFields) {
|
||||||
ok( exists $fields{$f}, qq{ Field "$f" is defined} );
|
ok( exists $fields{$f}, qq{ Field "$f" is defined} );
|
||||||
count(1);
|
count(1);
|
||||||
|
|
Loading…
Reference in New Issue
Block a user