use LISTEN env variable if defined

[virtual-ldap] / t / ldap-koha.t

diff --git a/t/ldap-koha.t b/t/ldap-koha.t
index cc8191a..2825ad4 100755 (executable)
--- a/t/ldap-koha.t
+++ b/t/ldap-koha.t
@@ -21,7 +21,7 @@ sub ldap_check_error {
        diag $o->error if $o->code;
 }
 
-ok( my $ldap = Net::LDAP->new( 'localhost:2389' ), 'new Net::LDAP' );
+ok( my $ldap = Net::LDAP->new( $ENV{LISTEN} || 'localhost:2389' ), 'new Net::LDAP' );
 
 ok( my $bind = $ldap->bind, 'bind' );
 ldap_check_error $bind;