The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

use strict;
use Test::More tests => 16;
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";
}
}