virtual-ldap/t/ldap-koha.t

#!/usr/bin/perl

use warnings;
use strict;

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

BEGIN {
        use_ok 'Net::LDAP';
}

our $config;
ok( require( ( shift @ARGV || 't/config.pl' ) ), 'config.pl' );

diag "config ",dump($config);

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 $result = $ldap->search( filter => $search ), "search $search" );
        ldap_check_error $result;
        ok( $result->entries, 'have results' );
        return $result;
}

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