view release on metacpan or  search on metacpan

t/Proxy.t  view on Meta::CPAN

        try {
            $proxy->add_basic_auth({
                username => 'missing keys'
            });
        }
        catch {
            ok($_ =~ /required parameter/, 'basic auth checks for required parameters');
        };

        $proxy->add_basic_auth({
            domain => '.google.com',
            username => 'bmp',
            password => 'pass'
        });
    }

  INTEGRATION: {
      SKIP: {
            skip 'Bug in LittleProxy does not set auth', 1;
            use Net::Ping;
            my $p = Net::Ping->new('tcp', 1);
            skip 'cannot reach webdav.org', 1 unless $p->ping('test.webdav.org');

            my $proxy;
            try {
                $proxy = Browsermob::Proxy->new;
            }
            catch {
                print $_ . "\n";
            };
            skip 'no server running', 1 unless defined $proxy;

            $proxy->add_basic_auth({
                domain => '.webdav.org',
                username => 'user1',
                password => 'user1'
            });

            use LWP::UserAgent;
            my $ua = LWP::UserAgent->new;
            $ua->proxy($proxy->ua_proxy);
            my $res = $ua->get('http://test.webdav.org/auth-basic/');
            ok($res->code eq 404 && $res->code ne 401, 'the proxy authorizes us into webdav.org');
        }
    }
}

EXPORTS: {
    my $proxy = Browsermob::Proxy->new(
        server_port => $server_port,
        port => $port,
        mock => generate_mock_server()
    );

    $proxy->set_env_proxy('inhibit');
    is($ENV{http_proxy}, 'http://127.0.0.1:9091', 'can export our HTTP proxy');
    is($ENV{https_proxy}, 'http://127.0.0.1:9091', 'can export our HTTPS proxy');
}

sub fake_har_fixture {
    return '{"log":{"creator":{"comment":"","version":"2.0","name":"BrowserMob Proxy"},"comment":"","version":"1.2","entries":[{"request":{"bodySize":0,"cookies":[],"headers":[],"httpVersion":"HTTP","headersSize":102,"comment":"","url":"http://www.go...
}

done_testing;