X-Git-Url: http://git.rot13.org/?p=virtual-ldap;a=blobdiff_plain;f=t%2Fldap-rewrite.t;h=070c64b99f85356a8f741b68b9098600661074f6;hp=5e88dbfcdd8e0ea9f638820271e8f4e50f7115da;hb=ec6c0dce135a081fd2ebbe11fb20c6aec0745dbf;hpb=7279da95fb2ab53a7ee6251f74c2d1efcf79f116

diff --git a/t/ldap-rewrite.t b/t/ldap-rewrite.t
index 5e88dbf..070c64b 100755
--- a/t/ldap-rewrite.t
+++ b/t/ldap-rewrite.t
@@ -24,12 +24,15 @@ ok( my $ldap = Net::LDAP->new( $config->{server} ), 'new Net::LDAP ' . dump( $co
 ok( my $bind = $ldap->bind( $config->{bind_as}, password => $config->{password} ), 'bind ' . $config->{bind_as} );
 ldap_check_error $bind;
 
+$config->{search}->{filter} = $ENV{FILTER} if $ENV{FILTER};
+
 ok( my $search = $ldap->search( %{ $config->{search} } ), 'search ' . dump( $config->{search} ) );
 ldap_check_error $search;
 
 foreach my $entry ( $search->entries ) {
 
-	diag dump $entry;
+#	diag dump $entry;
+	$entry->dump;
 
 	my $missing = 0;
 	my @required = @{ $config->{attributes_required} };