#!/usr/bin/perl

#

# This Koha test module is a stub!  

# Add more tests here!!!

use strict;

use warnings;

use Test::More tests => 6;

BEGIN {

	use FindBin;

	use lib $FindBin::Bin;

	use override_context_prefs;

        use_ok('C4::Auth', qw(checkpw));

        use_ok('C4::Context');

}

use vars qw($dbh $ldap);

can_ok('C4::Context', 'config');

can_ok('C4::Context', 'dbh');

can_ok('C4::Auth', qw(checkpw));

    ok($dbh  = C4::Context->dbh(),  "Getting dbh from C4::Context");

$ldap = C4::Context->config('useldapserver') || 0;

diag("Using LDAP? $ldap");

while (1) {		# forever!

	print "Do you want to test further accounts? (If not, just hit return.)\n";

	my ($user, $pass);

	print "Enter username: ";

	chomp($user = <>);

	($user) or exit;

	print "Enter password: ";

	chomp($pass = <>);

	my ($retval,$retcard) = checkpw($dbh,$user,$pass);

	$retval  ||= '';

	$retcard ||= '';

	diag ("checkpw(\$dbh,$user,$pass) " . ($retval ? 'SUCCEEDS' : ' FAILS  ') . "\treturns ($retval,$retcard)");

}

END {

	diag("C4::Auth - end of test");

}

__END__

#!/bin/perl

#

use strict;

use warnings;

use Test::More;

use vars qw(%cases $dbh $config $context $ldap);

BEGIN {

	%cases = (

		# users from t/LDAP/example3.ldif

		sss => 'password1',

		jts => 'password1',

		rch => 'password2',

		jmf => 'password3',

	);

	plan tests => 8 + scalar(keys %cases);

	use_ok('C4::Context');

	use_ok('C4::Auth_with_ldap', qw(checkpw_ldap));

}

sub do_checkpw_ldap (;$$) { 

	my ($user,$pass) = (shift,shift);

	diag "($user,$pass)";

	my $ret;

	return ($ret = checkpw_ldap($dbh,$user,$pass), sprintf("(%s,%s) returns '%s'",$user,$pass,$ret));

}

ok($context= C4::Context->new(), 	"Getting new C4::Context object");

ok($dbh    = C4::Context->dbh(), 	"Getting dbh from C4::Context");

ok($dbh    = $context->dbh(), 		"Getting dbh from \$context object");

$ldap = $ENV{KOHA_USELDAPSERVER};

if(defined($ldap)) {

    diag "Overriding KOHA_CONF <useldapserver> with \$ENV{KOHA_USELDAPSERVER} = $ldap";

} else {

    diag 'Note: You can use $ENV{KOHA_USELDAPSERVER} to override KOHA_CONF <useldapserver> for this test';

    $ldap = C4::Context->config('useldapserver');

}

ok(defined($ldap), "Checking if \$ENV{KOHA_USELDAPSERVER} or <useldapserver> is defined");

SKIP: {

    $ldap or skip("LDAP is disabled.", scalar(keys %cases) + 2);

    diag("The basis of Authentication is that we don't auth everybody.");

    diag("Let's make sure we reject on bad calls.");

    my $ret;

    ok(!($ret = checkpw_ldap($dbh)),       "should reject (  no  arguments) returns '$ret'");

    ok(!($ret = checkpw_ldap($dbh,'','')), "should reject (empty arguments) returns '$ret'");

    print "\n";

    diag("Now let's check " . scalar(keys %cases) . " test cases: ");

    foreach (sort keys %cases) {

        ok do_checkpw_ldap($_, $cases{$_});

    }

}

1;

-