1 # local test ldap server
7 use Net::LDAP::Server::Test;
11 sub server_port {10636}
12 sub server_host { 'ldap://127.0.0.1:' . server_port() }
15 my $server = Net::LDAP::Server::Test->new( server_port(), auto_schema => 1, @_ );
17 my $ldap = Net::LDAP->new(server_host()) or die "Can't connect: $@";
18 my $msg = $ldap->bind;
19 die "Can't bind: " . $msg->error if $msg->is_error;
24 displayName => 'Some Body',
25 cn => [qw(value1 value2)]
29 displayName => 'Some Star',
30 cn => [qw(value1 value2)]
34 displayName => 'Sunn O)))',
35 cn => [qw(value1 value2)]
38 my $msg = $ldap->add("uid=$user->{uid},ou=foobar", attrs => [
39 objectClass => 'person',
43 die "Can't bind: " . $msg->error if $msg->is_error;
45 return bless { server => $server, client => $ldap }, 'ServerWrapper';
48 sub ServerWrapper::stop {
50 $self->{client}->unbind;
51 $self->{server}->stop;