1 files changed, 17 insertions, 0 deletions
diff --git a/t/base/protocols.t b/t/base/protocols.t
new file mode 100644
index 0000000..db5bbf4
--- /dev/null
+++ b/t/base/protocols.t
@@ -0,0 +1,17 @@
+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());