1 files changed, 17 insertions, 0 deletions
diff --git a/t/base/proxy.t b/t/base/proxy.t
new file mode 100644
index 0000000..69a38ea
--- /dev/null
+++ b/t/base/proxy.t
@@ -0,0 +1,17 @@
+#!perl -w
+
+use strict;
+use Test;
+
+plan tests => 2;
+
+use LWP::UserAgent;
+
+for my $varname ( qw(ABSURDLY_NAMED_PROXY MY_PROXY) ) {
+
+    $ENV{ $varname } = "foobar";
+
+    my $ua = LWP::UserAgent->new;
+    eval { $ua->env_proxy(); };
+    ok($@, "");
+}