Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

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