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.
22 lines
411 B
22 lines
411 B
#!/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;
|
|
|