use Test;
plan tests => 6;

use LWP::UserAgent;
$ua = LWP::UserAgent->new();

$ua->protocols_forbidden(['hTtP']);
ok(scalar(@{$ua->protocols_forbidden()}), 1);
ok(@{$ua->protocols_forbidden()}[0], 'hTtP');

$response = $ua->get('http://www.cpan.org/');
ok($response->is_error());
ok(!$ua->is_protocol_supported('http'));
ok(!$ua->protocols_allowed());

$ua->protocols_forbidden(undef);
ok(!$ua->protocols_forbidden());