/[virtual-ldap]/t/ldap-rewrite.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /t/ldap-rewrite.t

Parent Directory Parent Directory | Revision Log Revision Log


Revision 74 - (show annotations)
Tue Feb 23 00:22:39 2010 UTC (14 years, 1 month ago) by dpavlin
Original Path: t/ldap-rewrite.pl
File MIME type: text/plain
File size: 1039 byte(s)
add attributes_required to test search results

1 #!/usr/bin/perl
2
3 use warnings;
4 use strict;
5
6 use Test::More tests => 9;
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 sub ldap_check_error {
17 my $o = shift;
18 ok( ! $o->code, 'no errror' );
19 diag $o->error if $o->code;
20 }
21
22 ok( my $ldap = Net::LDAP->new( $config->{server} ), 'new Net::LDAP ' . dump( $config->{server} ) );
23
24 ok( my $bind = $ldap->bind( $config->{bind_as}, password => $config->{password} ), 'bind ' . $config->{bind_as} );
25 ldap_check_error $bind;
26
27 ok( my $search = $ldap->search( %{ $config->{search} } ), 'search ' . dump( $config->{search} ) );
28 ldap_check_error $search;
29
30 foreach my $entry ( $search->entries ) {
31
32 diag dump $entry;
33
34 my $missing = 0;
35 my @required = @{ $config->{attributes_required} };
36 foreach my $attr ( @required ) {
37 next if grep { /^\Q$attr\E$/i } $entry->attributes;
38 $missing++;
39 diag "$missing missing $attr\n";
40 }
41
42 ok( ! $missing, "attributes " . dump( @required ) );
43 }
44
45 ok( $ldap->unbind, 'unbind' );

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26