8 use vars qw(%cases $dbh $config $context $ldap);
12 # users from t/LDAP/example3.ldif
18 plan tests => 7 + scalar(keys %cases);
19 use_ok('C4::Context');
20 use_ok('C4::Auth_with_ldap', qw(checkpw_ldap));
23 sub do_checkpw_ldap (;$$) {
24 my ($user,$pass) = (shift,shift);
27 return ($ret = checkpw_ldap($dbh,$user,$pass), sprintf("(%s,%s) returns '%s'",$user,$pass,$ret));
30 ok($context= C4::Context->new(), "Getting new C4::Context object");
31 ok($dbh = C4::Context->dbh(), "Getting dbh from C4::Context");
32 ok($dbh = $context->dbh(), "Getting dbh from \$context object");
34 diag("The basis of Authentication is that we don't auth everybody.");
35 diag("Let's make sure we reject on bad calls.");
37 ok(!($ret = checkpw_ldap($dbh)), "should reject ( no arguments) returns '$ret'");
38 ok(!($ret = checkpw_ldap($dbh,'','')), "should reject (empty arguments) returns '$ret'");
40 diag("Now let's check " . scalar(keys %cases) . " test cases: ");
41 foreach (sort keys %cases) {
42 ok do_checkpw_ldap($_, $cases{$_});