84 lines
3 KiB
Perl
84 lines
3 KiB
Perl
# vim:syntax=perl
|
|
#-------------------------------------------------------------------
|
|
# WebGUI is Copyright 2001-2012 Plain Black Corporation.
|
|
#-------------------------------------------------------------------
|
|
# Please read the legal notices (docs/legal.txt) and the license
|
|
# (docs/license.txt) that came with this distribution before using
|
|
# this software.
|
|
#------------------------------------------------------------------
|
|
# http://www.plainblack.com info@plainblack.com
|
|
#------------------------------------------------------------------
|
|
|
|
# Test Auth::LDAP to make sure it works with both ldap and ldaps
|
|
#
|
|
#
|
|
|
|
use strict;
|
|
use Test::More;
|
|
use Test::Deep;
|
|
use Data::Dumper;
|
|
use WebGUI::Test; # Must use this before any other WebGUI modules
|
|
use WebGUI::Session;
|
|
use WebGUI::LDAPLink;
|
|
|
|
#----------------------------------------------------------------------------
|
|
# Init
|
|
my $session = WebGUI::Test->session;
|
|
|
|
#----------------------------------------------------------------------------
|
|
# Tests
|
|
|
|
plan tests => 9; # Increment this number for each test you create
|
|
|
|
|
|
###########################################################################
|
|
#
|
|
# new
|
|
#
|
|
###########################################################################
|
|
|
|
{
|
|
my $ldap = WebGUI::LDAPLink->new($session, "new");
|
|
WebGUI::Test->addToCleanup($ldap);
|
|
isa_ok($ldap, 'WebGUI::LDAPLink');
|
|
is $ldap->{_ldapLinkId}, "new", '... created with correct linkId';
|
|
}
|
|
|
|
###########################################################################
|
|
#
|
|
# successful bind
|
|
#
|
|
###########################################################################
|
|
|
|
SKIP: {
|
|
skip "Test LDAP server is down", 3;
|
|
my $ldapProps = WebGUI::Test->getSmokeLDAPProps();
|
|
$session->db->setRow('ldapLink', 'ldapLinkId', $ldapProps, $ldapProps->{ldapLinkId});
|
|
my $ldap = WebGUI::LDAPLink->new($session, $ldapProps->{ldapLinkId});
|
|
WebGUI::Test->addToCleanup($ldap);
|
|
cmp_deeply $ldap->get(), superhashof($ldapProps), 'all db properties retrieved';
|
|
my $connection = $ldap->bind();
|
|
isa_ok $connection, 'Net::LDAP', 'returned by bind';
|
|
is $ldap->getErrorCode, undef, 'no errors from binding';
|
|
|
|
}
|
|
|
|
###########################################################################
|
|
#
|
|
# failed bind
|
|
#
|
|
###########################################################################
|
|
|
|
SKIP: {
|
|
skip "Test LDAP server is down", 4;
|
|
my $ldapProps = WebGUI::Test->getSmokeLDAPProps();
|
|
$ldapProps->{identifier} = 'hadley';
|
|
$session->db->setRow('ldapLink', 'ldapLinkId', $ldapProps, $ldapProps->{ldapLinkId});
|
|
my $ldap = WebGUI::LDAPLink->new($session, $ldapProps->{ldapLinkId});
|
|
WebGUI::Test->addToCleanup($ldap);
|
|
my $connection = $ldap->bind();
|
|
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';
|
|
}
|