view release on metacpan or  search on metacpan

t/02api.t  view on Meta::CPAN

use strict;
use warnings FATAL => 'all';

use Apache::Test;
use Apache::TestRequest;

plan tests => 4, have_lwp;

# most of this is taken right from 
# perl-framework/t/http11/basicauth.t
#
# many kudos to LWP for supporting Digest authentication natively!

my $url = '/protected/index.html';

my $response = GET $url;

ok $response->code == 401;

ok $response->header('WWW-Authenticate') =~ m/Digest realm="cookbook"/;

$response = GET $url, username => 'geoff', password => 'geoff';

ok $response->code == 200;

$response = GET $url, username => 'geoff', password => 'badpass';

ok $response->code == 401;