Fix an infinite loop in getting LDAP error messages. Fixes bug #11296

This commit is contained in:
Colin Kuskie 2009-12-07 18:43:09 -08:00
parent c845849da0
commit 7261ecd29d
4 changed files with 15 additions and 13 deletions

View file

@ -30,7 +30,7 @@ my $session = WebGUI::Test->session;
#----------------------------------------------------------------------------
# Tests
plan tests => 8; # Increment this number for each test you create
plan tests => 9; # Increment this number for each test you create
###########################################################################
@ -79,4 +79,5 @@ plan tests => 8; # Increment this number for each test you create
isa_ok $connection, 'Net::LDAP', 'returned by bind';
is $ldap->{_error}, 104, 'auth error due to bad identifier';
is $ldap->getErrorCode, 104, 'getErrorCode returns the stored error code';
ok $ldap->getErrorMessage, 'getErrorMessage returns an error message';
}