From ec6c0dce135a081fd2ebbe11fb20c6aec0745dbf Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Tue, 4 Oct 2016 14:02:21 +0200 Subject: [PATCH] use FILTER enviroment variable to specify LDAP filter --- t/ldap-rewrite.t | 2 ++ 1 file changed, 2 insertions(+) diff --git a/t/ldap-rewrite.t b/t/ldap-rewrite.t index 3b8a3ff..070c64b 100755 --- a/t/ldap-rewrite.t +++ b/t/ldap-rewrite.t @@ -24,6 +24,8 @@ 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; -- 2.20.1