#!/usr/bin/perl

use strict;
use warnings;
use utf8;

use Test;
use LDV::LDAP;
use Data::Dumper;

BEGIN { plan test => 2 };

my $ldap = LDV::LDAP->new({
  server       => '127.0.0.1',
  binddn       => undef,
  bindpass     => undef,
  userbase     => undef,
});

print Dumper $ldap->get("ad_user");
#print Dumper $ldap->create("test20");
#print Dumper $ldap->get("test20");
#print Dumper $ldap->delete("test20");
print Dumper $ldap->get("test20");