configure OPAC_URL

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

diff --git a/t/ldap-koha.t b/t/ldap-koha.t
index ddd856b..2825ad4 100755 (executable)
--- a/t/ldap-koha.t
+++ b/t/ldap-koha.t
@@ -3,20 +3,25 @@
 use warnings;
 use strict;
 
-use Test::More tests => 75;
+use Test::More tests => 76;
 use Data::Dump qw(dump);
 
 BEGIN {
        use_ok 'Net::LDAP';
 }
 
+our $config;
+ok( require( ( shift @ARGV || 't/config.pl' ) ), 'config.pl' );
+
+diag "config ",dump($config);
+
 sub ldap_check_error {
        my $o = shift;
        ok( ! $o->code, 'no errror' );
        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;
@@ -32,10 +37,10 @@ sub check_search_attributes {
 
 sub search {
        my ($ldap,$search) = @_;
-       ok( my $search = $ldap->search( filter => $search ), "search $search" );
-       ldap_check_error $search;
-       ok( $search->entries, 'have results' );
-       return $search;
+       ok( my $result = $ldap->search( filter => $search ), "search $search" );
+       ldap_check_error $result;
+       ok( $result->entries, 'have results' );
+       return $result;
 }
 
 foreach my $search ( qw/