Commit | Line | Data |
f66d606b |
1 | # local test ldap server |
2 | |
3 | package LDAPTest; |
4 | |
5 | use Net::LDAP::Server::Test; |
6 | use Net::LDAP::Entry; |
7 | |
8 | sub server_port {10636} |
9 | sub server_host { 'ldap://127.0.0.1:' . server_port() } |
10 | |
11 | sub spawn_server { |
12 | my @mydata; |
13 | my $entry = Net::LDAP::Entry->new; |
14 | $entry->dn('ou=foobar'); |
15 | $entry->add( |
16 | dn => 'ou=foobar', |
17 | uid => 'somebody', |
18 | displayName => 'Some Body', |
19 | cn => [qw(value1 value2)] |
20 | ); |
21 | push @mydata, $entry; |
22 | |
1404e859 |
23 | return Net::LDAP::Server::Test->new( server_port(), data => \@mydata ); |
f66d606b |
24 | } |
25 | |
26 | 1; |