A3C/t/10-ldap.t

#!/usr/bin/env perl
use warnings;
use strict;

=head1 DESCRIPTION

test LDAP module

=cut

use Jifty::Test tests => 16;

use_ok('A3C::LDAP');

ok( my $ldap = A3C::LDAP->new, 'new' );

isa_ok( $ldap, 'A3C::LDAP' );

ok(
        $ldap->search(
                base    => 'dc=skole,dc=hr',
                filter  => '(objectClass=hrEduOrg)',
        )
), 'search';

isa_ok( $ldap, 'A3C::LDAP' );

cmp_ok( $ldap->count, '>', 1000, 'count' );

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