virtual-ldap/t/ldap-koha.t

#!/usr/bin/perl

use warnings;
use strict;

use Test::More tests => 75;
use Data::Dump qw(dump);

BEGIN {
        use_ok 'Net::LDAP';
}

sub ldap_check_error {
        my $o = shift;
        ok( ! $o->code, 'no errror' );
        diag $o->error if $o->code;
}

ok( my $ldap = Net::LDAP->new( 'localhost:2389' ), 'new Net::LDAP' );

ok( my $bind = $ldap->bind, 'bind' );
ldap_check_error $bind;

sub check_search_attributes {
        my $search = shift;

        foreach my $entry ( $search->entries ) {
                diag dump $entry;
                map { ok( $_, "attribute $_" ) } grep { /^\Q$_\E$/i } $entry->attributes;
        }
}

sub search {
        my ($ldap,$search) = @_;
        ok( my $search = $ldap->search( filter => $search ), "search $search" );
        ldap_check_error $search;
        ok( $search->entries, 'have results' );
        return $search;
}

foreach my $search ( qw/
uid=dpavlin@ffzg.hr
pager=E00401001F77E218
/ ) {
        my $entries = search $ldap => $search;
        check_search_attributes $entries => 'uid', 'mail', 'pager', 'memberOf';

        $entries = search $ldap => "(&(objectclass=HrEduPerson)($search))";
        check_search_attributes $entries => 'uid', 'mail', 'pager', 'memberOf';
}

search $ldap => $_ foreach ( qw/
objectclass=organizationalUnit
objectclass=group
/ );

ok( $ldap->unbind, 'unbind' );
1	dpavlin	75	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6	dpavlin	77	use Test::More tests => 75;
7	dpavlin	75	use Data::Dump qw(dump);
8
9			BEGIN {
10			use_ok 'Net::LDAP';
11			}
12
13			sub ldap_check_error {
14			my $o = shift;
15			ok( ! $o->code, 'no errror' );
16			diag $o->error if $o->code;
17			}
18
19			ok( my $ldap = Net::LDAP->new( 'localhost:2389' ), 'new Net::LDAP' );
20
21			ok( my $bind = $ldap->bind, 'bind' );
22			ldap_check_error $bind;
23
24			sub check_search_attributes {
25			my $search = shift;
26
27			foreach my $entry ( $search->entries ) {
28			diag dump $entry;
29			map { ok( $_, "attribute $_" ) } grep { /^\Q$_\E$/i } $entry->attributes;
30			}
31			}
32
33	dpavlin	77	sub search {
34			my ($ldap,$search) = @_;
35	dpavlin	75	ok( my $search = $ldap->search( filter => $search ), "search $search" );
36			ldap_check_error $search;
37			ok( $search->entries, 'have results' );
38	dpavlin	77	return $search;
39			}
40	dpavlin	75
41	dpavlin	77	foreach my $search ( qw/
42			uid=dpavlin@ffzg.hr
43			pager=E00401001F77E218
44			/ ) {
45			my $entries = search $ldap => $search;
46			check_search_attributes $entries => 'uid', 'mail', 'pager', 'memberOf';
47
48			$entries = search $ldap => "(&(objectclass=HrEduPerson)($search))";
49			check_search_attributes $entries => 'uid', 'mail', 'pager', 'memberOf';
50	dpavlin	75	}
51
52	dpavlin	77	search $ldap => $_ foreach ( qw/
53			objectclass=organizationalUnit
54			objectclass=group
55			/ );
56	dpavlin	75
57			ok( $ldap->unbind, 'unbind' );