|
|
|
@ -48,6 +48,8 @@ EOF
|
|
|
|
|
$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
|
|
|
|
|
ok($tf->handle_http($t) == 0, 'Basic-Auth: Valid Auth-token - plain');
|
|
|
|
|
|
|
|
|
|
SKIP: {
|
|
|
|
|
skip "no crypt-des under openbsd", 2 if $^O eq 'openbsd';
|
|
|
|
|
$t->{REQUEST} = ( <<EOF
|
|
|
|
|
GET /server-config HTTP/1.0
|
|
|
|
|
Host: auth-htpasswd.example.org
|
|
|
|
@ -65,6 +67,7 @@ EOF
|
|
|
|
|
);
|
|
|
|
|
$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200 } ];
|
|
|
|
|
ok($tf->handle_http($t) == 0, 'Basic-Auth: Valid Auth-token - htpasswd (des) (lowercase)');
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$t->{REQUEST} = ( <<EOF
|
|
|
|
|
GET /server-config HTTP/1.0
|
|
|
|
@ -105,6 +108,7 @@ ok($tf->handle_http($t) == 0, 'Basic-Auth: Valid Auth-token - htpasswd (apr-md5,
|
|
|
|
|
SKIP: {
|
|
|
|
|
skip "no crypt-md5 under cygwin", 1 if $^O eq 'cygwin';
|
|
|
|
|
skip "no crypt-md5 under darwin", 1 if $^O eq 'darwin';
|
|
|
|
|
skip "no crypt-md5 under openbsd",1 if $^O eq 'openbsd';
|
|
|
|
|
$t->{REQUEST} = ( <<EOF
|
|
|
|
|
GET /server-config HTTP/1.0
|
|
|
|
|
Host: auth-htpasswd.example.org
|
|
|
|
|