1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestRequest;
#test basic auth with keepalives
Apache::TestRequest::user_agent(keep_alive => 1);
Apache::TestRequest::scheme('http')
unless have_module 'LWP::Protocol::https10'; #lwp 5.60
plan tests => 3, need_module 'authany';
my $url = '/authany/index.html';
my $res = GET $url;
ok $res->code == 401;
$res = GET $url, username => 'guest', password => 'guest';
ok $res->code == 200;
my $request_num = Apache::TestRequest::user_agent_request_num($res);
ok $request_num == 3; #1 => no credentials
#2 => 401 response with second request
#3 => 200 with guest/guest credentials
|
