/[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

Diff of /t/ldap-rewrite.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 72 by dpavlin, Mon Feb 22 23:20:44 2010 UTC revision 74 by dpavlin, Tue Feb 23 00:22:39 2010 UTC
# Line 3  Line 3 
3  use warnings;  use warnings;
4  use strict;  use strict;
5    
6  use Test::More tests => 8;  use Test::More tests => 9;
7  use Data::Dump qw(dump);  use Data::Dump qw(dump);
8    
9  BEGIN {  BEGIN {
# Line 28  ok( my $search = $ldap->search( %{ $conf Line 28  ok( my $search = $ldap->search( %{ $conf
28  ldap_check_error $search;  ldap_check_error $search;
29    
30  foreach my $entry ( $search->entries ) {  foreach my $entry ( $search->entries ) {
31    
32          diag dump $entry;          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' );  ok( $ldap->unbind, 'unbind' );

Legend:
Removed from v.72  
changed lines
  Added in v.74

  ViewVC Help
Powered by ViewVC 1.1.26