You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
411 B
23 lines
411 B
7 years ago
|
#!/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;
|