Koha/t/db_dependent/Auth.t
Galen Charlton 156cbf4eb6 DB-dependent tests moved
Moved test cases that depend on the DBMS and having
an initialized Koha database to a subdirectory
of t so that they will not be swept up into
the default 'make test'.  Goal is to have
these DB-dependent tests runnable either via
a special make target or perhaps from the
web installer.

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
2008-01-08 14:07:38 -06:00

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__