#!/usr/bin/env perl

use strict;
use warnings;
use utf8;

use LDV::DB;
use File::Slurp;
use Test::More tests => 2;

my $hash = read_file('conf/ldv.conf');
my $config = eval "$hash";
SKIP: {
  skip "Can't load config", 2 unless (ref($config) eq 'HASH');

  my $ldap = LDV::DB->new($config->{db});
  isa_ok($ldap, "LDV::DB", "LDV::DB->new");
  can_ok($ldap, qw(connect select insert update delete));

};

exit 0;