1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
#!perl -T
use strict;
use warnings;
use Test::More tests => 8;
use Net::LDAP::Constant qw(
LDAP_SUCCESS LDAP_NO_SUCH_OBJECT LDAP_ALREADY_EXISTS
);
use Test::Net::LDAP::Mock;
use Test::Net::LDAP::Util qw(
ldap_result_ok ldap_result_is
);
# Result - status code only
ldap_result_ok(LDAP_SUCCESS);
ldap_result_is(LDAP_NO_SUCH_OBJECT, LDAP_NO_SUCH_OBJECT);
# Result - message object
my $ldap = Test::Net::LDAP::Mock->new;
my $mesg = $ldap->message('Net::LDAP::Message' => {});
$mesg->{resultCode} = LDAP_SUCCESS;
ldap_result_ok($mesg);
$mesg = $ldap->message('Net::LDAP::Message' => {});
$mesg->{resultCode} = LDAP_ALREADY_EXISTS;
ldap_result_is($mesg, LDAP_ALREADY_EXISTS);
# Export
{
package TestPackage1;
use Test::Net::LDAP::Util qw(ldap_result_is);
}
ok(TestPackage1->can('ldap_result_is'));
ok(!TestPackage1->can('ldap_result_ok'));
{
package TestPackage2;
use Test::Net::LDAP::Util qw(:all);
}
ok(TestPackage2->can('ldap_result_is'));
ok(TestPackage2->can('ldap_result_ok'));
|
