add attributes_required to test search results

diff --git a/t/config.pl.template b/t/config.pl.template
index 41b63f4..0f4e6c8 100644 (file)
--- a/t/config.pl.template
+++ b/t/config.pl.template
@@ -6,4 +6,7 @@ $config = {
                base => 'dc=example,dc=com',
                filter => 'uid=login',
        },
+       attributes_required => [ qw/
+               uid
+       / ],
 };

diff --git a/t/ldap-rewrite.pl b/t/ldap-rewrite.pl
index 147a1ad..5e88dbf 100755 (executable)
--- a/t/ldap-rewrite.pl
+++ b/t/ldap-rewrite.pl
@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 
-use Test::More tests => 8;
+use Test::More tests => 9;
 use Data::Dump qw(dump);
 
 BEGIN {
@@ -28,7 +28,18 @@ ok( my $search = $ldap->search( %{ $config->{search} } ), 'search ' . dump( $con
 ldap_check_error $search;
 
 foreach my $entry ( $search->entries ) {
+
        diag dump $entry;
+
+       my $missing = 0;
+       my @required = @{ $config->{attributes_required} };
+       foreach my $attr ( @required ) {
+               next if grep { /^\Q$attr\E$/i } $entry->attributes;
+               $missing++;
+               diag "$missing missing $attr\n";
+       }
+
+       ok( ! $missing, "attributes " . dump( @required ) );
 }
 
 ok( $ldap->unbind, 'unbind' );