--- t/ldap-rewrite.pl	2010/02/22 23:20:44	72
+++ t/ldap-rewrite.pl	2010/02/23 00:22:39	74
@@ -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 @@
 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' );