1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
#!perl -T
use strict;
use warnings;
use Test::More tests => 47;
use Net::LDAP::Constant qw(
LDAP_SUCCESS LDAP_NO_SUCH_OBJECT
LDAP_INVALID_CREDENTIALS LDAP_INAPPROPRIATE_AUTH
);
use Test::Net::LDAP::Mock::Data;
my $data = Test::Net::LDAP::Mock::Data->new;
$data->bind_ok();
# Set code only
$data->mock_bind(LDAP_INVALID_CREDENTIALS);
$data->bind_is([], LDAP_INVALID_CREDENTIALS);
$data->mock_bind(LDAP_SUCCESS);
$data->bind_ok();
# Set code & message
$data->mock_bind(LDAP_INVALID_CREDENTIALS, 'mock_bind error');
is($data->mock_bind(), LDAP_INVALID_CREDENTIALS);
my $mesg = $data->bind();
is($mesg->code, LDAP_INVALID_CREDENTIALS);
is($mesg->error, 'mock_bind error');
$data->mock_bind(LDAP_SUCCESS);
is($data->mock_bind(), LDAP_SUCCESS);
$data->bind_ok();
# Set Net::LDAP::Message
my $mesg1 = bless({
type => 'Net::LDAP::Message',
parent => undef,
callback => undef,
raw => undef,
resultCode => LDAP_INVALID_CREDENTIALS,
errorMessage => '', # empty errorMessage
}, 'Net::LDAP::Message');
my $mesg2 = bless({
type => 'Net::LDAP::Message',
parent => undef,
callback => undef,
raw => undef,
resultCode => LDAP_INAPPROPRIATE_AUTH,
errorMessage => 'Net::LDAP::Message error',
}, 'Net::LDAP::Message');
$data->mock_bind($mesg1, '');
$mesg = $data->bind();
is($mesg->code, LDAP_INVALID_CREDENTIALS);
is($mesg->error, 'Invalid credentials');
$data->mock_bind(LDAP_SUCCESS);
$data->bind_ok();
$data->mock_bind($mesg1, 'mock_bind error');
$mesg = $data->bind();
is($mesg->code, LDAP_INVALID_CREDENTIALS);
is($mesg->error, 'mock_bind error');
$data->mock_bind(LDAP_SUCCESS);
$data->bind_ok();
$data->mock_bind($mesg2);
$mesg = $data->bind();
is($mesg->code, LDAP_INAPPROPRIATE_AUTH);
is($mesg->error, 'Net::LDAP::Message error');
$data->mock_bind(LDAP_SUCCESS);
$data->bind_ok();
$data->mock_bind($mesg2, 'mock_bind error');
$mesg = $data->bind();
is($mesg->code, LDAP_INAPPROPRIATE_AUTH);
is($mesg->error, 'mock_bind error'); # 2nd arg in mock_bind() has higher precedence
$data->mock_bind(LDAP_SUCCESS);
$data->bind_ok();
# Callback returning undef
$data->mock_bind(sub {
my ($arg) = @_;
is($arg->{dn}, 'cn=test1');
is($arg->{password}, 'secret1');
return undef;
}, 'mock_bind error');
$data->bind_ok('cn=test1', password => 'secret1');
$data->mock_bind(LDAP_SUCCESS);
$data->bind_ok();
# Callback returning code only
$data->mock_bind(sub {
my ($arg) = @_;
is($arg->{dn}, 'cn=test2');
is($arg->{password}, 'secret2');
return LDAP_INAPPROPRIATE_AUTH;
}, 'mock_bind error');
$mesg = $data->bind('cn=test2', password => 'secret2');
is($mesg->code, LDAP_INAPPROPRIATE_AUTH);
is($mesg->error, 'mock_bind error');
$data->mock_bind(LDAP_SUCCESS);
$data->bind_ok();
# Callback returning code & message
$data->mock_bind(sub {
my ($arg) = @_;
is($arg->{dn}, 'cn=test3');
is($arg->{password}, 'secret3');
return (LDAP_INAPPROPRIATE_AUTH, 'mock_bind callback error');
}, 'mock_bind error');
$mesg = $data->bind('cn=test3', password => 'secret3');
is($mesg->code, LDAP_INAPPROPRIATE_AUTH);
is($mesg->error, 'mock_bind callback error');
$data->mock_bind(LDAP_SUCCESS);
$data->bind_ok();
# Bind with password should succeed until some passwords are mocked
is($data->mock_password('cn=test1, dc=example, dc=com'), undef);
$data->bind_ok();
$data->bind_ok(['cn=test1,dc=example,dc=com', password => 'test1_password']);
$data->bind_ok(['cn=test2,dc=example,dc=com', password => 'wrong_password']);
$data->bind_ok(['cn=test3,dc=example,dc=com', password => 'any_password']);
# Set passwords
$data->mock_password('cn=test1, dc=example, dc=com' => 'test1_password');
$data->mock_password('cn=test2, dc=example, dc=com' => 'test2_password');
is($data->mock_password('cn=test1, dc=example, dc=com'), 'test1_password');
is($data->mock_password('cn=test2, dc=example, dc=com'), 'test2_password');
is($data->mock_password('cn=test3, dc=example, dc=com'), undef);
$data->bind_ok(); # anonymous bind should succeed
$data->bind_ok(['cn=test1,dc=example,dc=com', password => 'test1_password']);
$data->bind_is(['cn=test2,dc=example,dc=com', password => 'wrong_password'], LDAP_INVALID_CREDENTIALS);
$data->bind_is(['cn=test3,dc=example,dc=com', password => 'any_password'], LDAP_NO_SUCH_OBJECT);
$data->bind_is([password => 'any_password'], LDAP_INAPPROPRIATE_AUTH);
|
