Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 28 lines (16 sloc) 0.536 kb
455ad0f Graham Barr Initial revision
gbarr authored
1 #!perl
2
3 BEGIN {
4 require "t/common.pl";
5 start_server();
6 }
7
58b0c38 Graham Barr A few tweaks to share some more code
gbarr authored
8 print "1..7\n";
455ad0f Graham Barr Initial revision
gbarr authored
9
10 $ldap = client();
ccae27f Graham Barr Some testcase tweaks
gbarr authored
11 ok($ldap, "client");
455ad0f Graham Barr Initial revision
gbarr authored
12
13 $mesg = $ldap->bind($MANAGERDN, password => $PASSWD);
14
ccae27f Graham Barr Some testcase tweaks
gbarr authored
15 ok(!$mesg->code, "bind: " . $mesg->code . ": " . $mesg->error);
455ad0f Graham Barr Initial revision
gbarr authored
16
ccae27f Graham Barr Some testcase tweaks
gbarr authored
17 ok(ldif_populate($ldap, "data/52-in.ldif"), "data/52-in.ldif");
455ad0f Graham Barr Initial revision
gbarr authored
18
19 # load modify LDIF
ccae27f Graham Barr Some testcase tweaks
gbarr authored
20 ok(ldif_populate($ldap, "data/52-mod.ldif", 'modify'), "data/52-mod.ldif");
455ad0f Graham Barr Initial revision
gbarr authored
21
22 # now search the database
23
24 $mesg = $ldap->search(base => $BASEDN, filter => 'objectclass=*');
25
ccae27f Graham Barr Some testcase tweaks
gbarr authored
26 compare_ldif("52",$mesg,$mesg->sorted);
455ad0f Graham Barr Initial revision
gbarr authored
27
Something went wrong with that request. Please try again.