From 3464ee7fc8e4e77dffc41e054b6a44430486924d Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 6 May 2010 06:22:09 +0000
Subject: [PATCH] dump config and don't re-use $search for results of search

---
 t/ldap-koha.t | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/t/ldap-koha.t b/t/ldap-koha.t
index ddd856b..cc8191a 100755
--- a/t/ldap-koha.t
+++ b/t/ldap-koha.t
@@ -3,13 +3,18 @@
 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' );
@@ -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/
-- 
2.20.1