diff --git a/t/LDAP.t b/t/LDAP.t index f11fb60..a882953 100644 --- a/t/LDAP.t +++ b/t/LDAP.t @@ -7,12 +7,12 @@ use utf8; use LDV::LDAP; use File::Slurp; use Data::Dumper; -use Test::More tests => 9; +use Test::More tests => 13; my $hash = read_file('conf/ldv.conf'); my $config = eval "$hash"; SKIP: { - skip "Can't load config", 9 unless (ref($config) eq 'HASH'); + skip "Can't load config", 13 unless (ref($config) eq 'HASH'); my $ldap = LDV::LDAP->new($config->{ldap}); isa_ok($ldap, "LDV::LDAP", "LDV::LDAP->new"); @@ -30,6 +30,12 @@ SKIP: { $attrs->{mail} = 'abigvalg@example.com'; is_deeply($ldap->get("test20"), $attrs, "getting data of updated user"); + my $pass = '{SSHA}K/LOxZB1fnNtQuRc1mApdoL7CGR2Akn/'; # 'test' + is($ldap->update("test20", {userPassword => $pass}), undef, "updating user password"); + is($ldap->auth("test20", "test"), 1, "check auth success"); + is($ldap->auth("test20", "test1"), undef, "check auth falure (wrong pass)"); + is($ldap->auth("test20", undef), undef, "check auth falure (empty pass)"); + is($ldap->delete("test20"), undef, "deleting user"); };