1 |
dpavlin |
36 |
#!/usr/bin/env perl |
2 |
|
|
use warnings; |
3 |
|
|
use strict; |
4 |
|
|
|
5 |
|
|
=head1 DESCRIPTION |
6 |
|
|
|
7 |
|
|
test LDAP module |
8 |
|
|
|
9 |
|
|
=cut |
10 |
|
|
|
11 |
dpavlin |
40 |
use Jifty::Test tests => 16; |
12 |
dpavlin |
36 |
|
13 |
|
|
use_ok('A3C::LDAP'); |
14 |
|
|
|
15 |
dpavlin |
40 |
ok( my $ldap = A3C::LDAP->new, 'new' ); |
16 |
|
|
|
17 |
|
|
isa_ok( $ldap, 'A3C::LDAP' ); |
18 |
|
|
|
19 |
dpavlin |
36 |
ok( |
20 |
dpavlin |
40 |
$ldap->search( |
21 |
dpavlin |
36 |
base => 'dc=skole,dc=hr', |
22 |
|
|
filter => '(objectClass=hrEduOrg)', |
23 |
|
|
) |
24 |
|
|
), 'search'; |
25 |
|
|
|
26 |
dpavlin |
40 |
isa_ok( $ldap, 'A3C::LDAP' ); |
27 |
dpavlin |
36 |
|
28 |
dpavlin |
40 |
cmp_ok( $ldap->count, '>', 1000, 'count' ); |
29 |
dpavlin |
36 |
|
30 |
dpavlin |
40 |
foreach my $i ( 1 .. 10 ) { |
31 |
|
|
ok( my $entry = $ldap->next, "next $i" ); |
32 |
|
|
# $entry->dump; |
33 |
|
|
} |