From 3453117170e7835d7e5f1c4c4a8f481a33351bcf Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 22 Feb 2010 22:44:56 +0000
Subject: [PATCH] test ldap-rewrite

---
 t/config.pl.template |  9 +++++++++
 t/ldap-rewrite.pl    | 34 ++++++++++++++++++++++++++++++++++
 2 files changed, 43 insertions(+)
 create mode 100644 t/config.pl.template
 create mode 100755 t/ldap-rewrite.pl

diff --git a/t/config.pl.template b/t/config.pl.template
new file mode 100644
index 0000000..41b63f4
--- /dev/null
+++ b/t/config.pl.template
@@ -0,0 +1,9 @@
+$config = {
+	server => 'localhost:1389',
+	bind_as => 'login@example.com', # test rewrite on bind
+	password => 'password',
+	search => {
+		base => 'dc=example,dc=com',
+		filter => 'uid=login',
+	},
+};
diff --git a/t/ldap-rewrite.pl b/t/ldap-rewrite.pl
new file mode 100755
index 0000000..e5cc3eb
--- /dev/null
+++ b/t/ldap-rewrite.pl
@@ -0,0 +1,34 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+use Test::More tests => 8;
+use Data::Dump qw(dump);
+
+BEGIN {
+	use_ok 'Net::LDAP';
+}
+
+our $config;
+ok( require "t/config.pl", 'config.pl' );
+
+sub ldap_check_error {
+	my $o = shift;
+	ok( ! $o->code, 'no errror' );
+	diag $o->error if $o->code;
+}
+
+ok( my $ldap = Net::LDAP->new( $config->{server} ), 'new Net::LDAP ' . dump( $config->{server} ) );
+
+ok( my $bind = $ldap->bind( $config->{bind_as}, password => $config->{password} ), 'bind ' . $config->{bind_as} );
+ldap_check_error $bind;
+
+ok( my $search = $ldap->search( %{ $config->{search} } ), 'search ' . dump( $config->{search} ) );
+ldap_check_error $search;
+
+foreach my $entry ( $search->entries ) {
+	diag dump $entry;
+}
+
+ok( $ldap->unbind, 'unbind' );
-- 
2.20.1