10 use Util qw(:test :ua);
12 plan tests => scalar user_agents;
14 test_all_user_agents {
18 my $any_ua = HTTP::AnyUA->new($ua, response_is_future => 1);
20 my $url = 'invalidscheme://acme.tld/hello';
21 my $future = $any_ua->get($url);
23 $future->on_ready(sub {
25 my $resp = $self->is_done ? $self->get : $self->failure;
27 note explain 'RESPONSE: ', $resp;
29 is_response_reason($resp, 'Internal Exception');
30 is_response_status($resp, 599);
31 is_response_success($resp, 0);