use strict; use warnings; use Test::More; use LWP::UserAgent (); # Prevent environment from interfering with test: delete $ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}; delete $ENV{HTTPS_CA_FILE}; delete $ENV{HTTPS_CA_DIR}; delete $ENV{PERL_LWP_SSL_CA_FILE}; delete $ENV{PERL_LWP_SSL_CA_PATH}; delete $ENV{PERL_LWP_ENV_PROXY}; my $ua = LWP::UserAgent->new; $ua->default_header( 'Content-Type' => 'application/json' ); $ua->proxy( http => "loopback:" ); $ua->agent("foo/0.1"); is( $ua->get("http://www.example.org")->content, <no_proxy('ample.org'); is_deeply( $ua->{no_proxy}, ['ample.org'], "no_proxy with partial domain got set" ); is( $ua->get("http://www.example.org")->content, <no_proxy(); is_deeply( $ua->{no_proxy}, [], "no_proxy was cleared" ); $ua->no_proxy('example.org'); is_deeply( $ua->{no_proxy}, ['example.org'], "no_proxy with base domain got set" ); isnt( $ua->get("http://www.example.org")->content, <no_proxy(); is_deeply( $ua->{no_proxy}, [], "no_proxy was cleared" ); $ua->no_proxy('.example.org'); is_deeply( $ua->{no_proxy}, ['.example.org'], "no_proxy with dot-prefixed base domain got set" ); isnt( $ua->get("http://www.example.org")->content, <