From 8b54c061aec8edcc21d45b98643e8beee337de05 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Sun, 2 Dec 2007 13:41:46 -0600 Subject: [PATCH] Auth.t - running this test will fail unless Auth.pm patches get trough. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- t/Auth.t | 31 +++++++++++++++++++++++++++++-- 1 file changed, 29 insertions(+), 2 deletions(-) diff --git a/t/Auth.t b/t/Auth.t index 9b1c6409f8..1cacb3195d 100755 --- a/t/Auth.t +++ b/t/Auth.t @@ -6,9 +6,36 @@ use strict; use warnings; -use Test::More tests => 1; +use Test::More tests => 6; BEGIN { - use_ok('C4::Auth'); + 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__ -- 2.11.0