--- t/10-ldap.t 2008/03/30 15:02:55 40 +++ t/10-ldap.t 2008/03/31 21:11:45 47 @@ -8,7 +8,7 @@ =cut -use Jifty::Test tests => 16; +use Jifty::Test tests => 25; use_ok('A3C::LDAP'); @@ -20,14 +20,21 @@ $ldap->search( base => 'dc=skole,dc=hr', filter => '(objectClass=hrEduOrg)', + sizelimit => 10, ) ), 'search'; isa_ok( $ldap, 'A3C::LDAP' ); -cmp_ok( $ldap->count, '>', 1000, 'count' ); +cmp_ok( $ldap->count, '==', 10, 'count' ); foreach my $i ( 1 .. 10 ) { ok( my $entry = $ldap->next, "next $i" ); # $entry->dump; } + +foreach my $limit ( 3, 7, 14 ) { + ok( my $collection = $ldap->collection('Organization', limit => $limit), "collection Organization limit = $limit" ); + isa_ok( $collection, 'A3C::Model::OrganizationCollection' ); + is( $collection->count, $limit, 'count' ); +}