8 |
|
|
9 |
=cut |
=cut |
10 |
|
|
11 |
use Jifty::Test tests => 16; |
use Jifty::Test tests => 19; |
12 |
|
|
13 |
use_ok('A3C::LDAP'); |
use_ok('A3C::LDAP'); |
14 |
|
|
20 |
$ldap->search( |
$ldap->search( |
21 |
base => 'dc=skole,dc=hr', |
base => 'dc=skole,dc=hr', |
22 |
filter => '(objectClass=hrEduOrg)', |
filter => '(objectClass=hrEduOrg)', |
23 |
|
sizelimit => 10, |
24 |
) |
) |
25 |
), 'search'; |
), 'search'; |
26 |
|
|
27 |
isa_ok( $ldap, 'A3C::LDAP' ); |
isa_ok( $ldap, 'A3C::LDAP' ); |
28 |
|
|
29 |
cmp_ok( $ldap->count, '>', 1000, 'count' ); |
cmp_ok( $ldap->count, '==', 10, 'count' ); |
30 |
|
|
31 |
foreach my $i ( 1 .. 10 ) { |
foreach my $i ( 1 .. 10 ) { |
32 |
ok( my $entry = $ldap->next, "next $i" ); |
ok( my $entry = $ldap->next, "next $i" ); |
33 |
# $entry->dump; |
# $entry->dump; |
34 |
} |
} |
35 |
|
|
36 |
|
ok( my $collection = $ldap->collection('Organization', 3), 'collection Organization' ); |
37 |
|
|
38 |
|
isa_ok( $collection, 'A3C::Model::OrganizationCollection' ); |
39 |
|
|
40 |
|
is( $collection->count, 3, 'count' ); |