view release on metacpan or  search on metacpan

t/03auth.t  view on Meta::CPAN

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

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

plan tests => 7, have_lwp;

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

my $response = GET $url;

ok $response->code == 401;

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

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

ok $response->code == 200;

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

ok $response->code == 401;

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

ok $response->code == 401;

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

ok $response->code == 200;

$response = GET $url, username => 'nouser', password => 'nopass';

ok $response->code == 401;