diff auth_basic.t @ 152:c9be30f65be7

Tests: various password schemes are in 1.0.3.
author Maxim Dounin <mdounin@mdounin.ru>
date Wed, 01 Jun 2011 14:11:42 +0400
parents 6b73d6c8f26c
children c0ae29632905
line wrap: on
line diff
--- a/auth_basic.t
+++ b/auth_basic.t
@@ -75,12 +75,17 @@ unlike(http_get_auth('/', 'crypt', '123'
 like(http_get_auth('/', 'crypt1', 'password'), qr!SEETHIS!, 'crypt $1$ (md5)');
 unlike(http_get_auth('/', 'crypt1', '123'), qr!SEETHIS!, 'crypt $1$ wrong');
 
-TODO: {
-local $TODO = 'not yet';
-
 like(http_get_auth('/', 'apr1', 'password'), qr!SEETHIS!, 'apr1 md5');
 like(http_get_auth('/', 'plain', 'password'), qr!SEETHIS!, 'plain password');
-like(http_get_auth('/', 'ssha', 'password'), qr!SEETHIS!, 'ssha');
+
+SKIP: {
+	# SHA1 may not be available unless we have OpenSSL
+
+	skip 'no sha1', 1 unless $t->has_module('--with-http_ssl_module')
+		or $t->has_module('--with-sha1')
+		or $t->has_module('--with-openssl');
+
+	like(http_get_auth('/', 'ssha', 'password'), qr!SEETHIS!, 'ssha');
 }
 
 unlike(http_get_auth('/', 'apr1', '123'), qr!SEETHIS!, 'apr1 md5 wrong');