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

use strict;
use Test::More tests => 2;
{
like(
exception {
HTTP::Async->new(
proxy_addr => "localhost",
proxy_port => 12345,
)
},
qr/proxy_addr not valid/,
'new dies on invalid option.'
);
}
{
my $q = HTTP::Async->new;
my $r = HTTP::Request->new;
like(
exception {
$q->add_with_opts($r, {
proxy_addr => "localhost",
proxy_port => 12345,
})
},
qr/proxy_addr not valid/,
'add_with_opts dies on invalid option.'
);
}
1;