--- t/10-ldap.t	2008/03/30 00:02:18	36
+++ t/10-ldap.t	2008/03/31 21:11:45	47
@@ -8,22 +8,33 @@
 
 =cut
 
-use Jifty::Test tests => 5;
+use Jifty::Test tests => 25;
 
 use_ok('A3C::LDAP');
 
+ok( my $ldap = A3C::LDAP->new, 'new' );
+
+isa_ok( $ldap, 'A3C::LDAP' );
+
 ok(
-	my $msg = A3C::LDAP->search(
+	$ldap->search(
 		base	=> 'dc=skole,dc=hr',
 		filter	=> '(objectClass=hrEduOrg)',
+		sizelimit => 10,
 	)
 ), 'search';
 
-diag 'code: ', $msg->code, ' count: ', $msg->count;
-
-isa_ok( $msg, 'Net::LDAP::Search' );
-
-is( $msg->code, 0, 'code' );
+isa_ok( $ldap, 'A3C::LDAP' );
 
-cmp_ok( $msg->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' );
+}