Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 23 lines (14 sloc) 0.479 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);
16
17 ok(ldif_populate($ldap, "data/50-in.ldif"), "data/50-in.ldif");
455ad0ff » gbarr
2000-05-03 Initial revision
18
19
20 $mesg = $ldap->search(base => $BASEDN, filter => 'objectclass=*');
ccae27f0 » gbarr
2002-02-04 Some testcase tweaks
21 ok(!$mesg->code, "search: " . $mesg->code . ": " . $mesg->error);
455ad0ff » gbarr
2000-05-03 Initial revision
22
ccae27f0 » gbarr
2002-02-04 Some testcase tweaks
23 compare_ldif("50",$mesg,$mesg->sorted);
Something went wrong with that request. Please try again.