my
$t_obj
= TestAppWithoutLogger->new(
QUERY
=> CGI->new(
'one=1&two=2&three=3&four=4'
),
);
is(
$t_obj
->query->param(
'one'
), 1,
'Reality check: Query properly set?'
);
is(
$t_obj
->query->param(
'two'
), 2,
'Reality check: Query properly set?'
);
is(
$t_obj
->query->param(
'three'
), 3,
'Reality check: Query properly set?'
);
is(
$t_obj
->query->param(
'four'
), 4,
'Reality check: Query properly set?'
);
$t_obj
->validate_query_config(
error_mode
=>
'fail_mode'
,
);
my
@before_p
=
sort
$t_obj
->query->param;
eval
{
my
$output
=
$t_obj
->validate_query({
one
=> {
type
=>SCALAR,
optional
=>0 },
extra_fields_optional
=> 1,
});
};
my
@after_p
=
sort
$t_obj
->query->param;
is_deeply(\
@before_p
, \
@after_p
,
'Query not clobbered?'
);
unlike($@,
qr/not listed in the validation options/
,
"Properly ignored rest of query?"
);