44 lines
1 KiB
Perl
Executable file
44 lines
1 KiB
Perl
Executable file
#!/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__
|