t/lib/LDAPTest.pm

   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
  23     return Net::LDAP::Server::Test->new( server_port(), data => \@mydata );
  24 }
  25
  26 1;