use
strict;
use
warnings;
use
HTTP::Async;
use
HTTP::Async::Polite;
foreach
my
$class
(
'HTTP::Async'
,
'HTTP::Async::Polite'
) {
foreach
my
$number
( 0, 3 ) {
my
$q1
=
$class
->new;
is
$q1
->max_redirect(
$number
),
$number
,
"set to $number"
;
is
$q1
->max_redirect,
$number
,
"got $number"
;
my
$q2
=
$class
->new(
max_redirect
=>
$number
);
ok
$q2
,
"created object"
;
is
$q2
->max_redirect,
$number
,
"got $number"
;
}
}