Commit e56b99dc authored by Christophe Maudoux's avatar Christophe Maudoux 🐛

Merge branch 'master' of gitlab.ow2.org:lemonldap-ng/lemonldap-ng

parents 3401089e 22c1b553
......@@ -391,8 +391,8 @@ t/24-AuthKerberos.t
t/25-AuthSlave.t
t/26-AuthRemote.t
t/27-AuthProxy.t
t/28-AuthChoice-and-password.t
t/28-AuthChoice-with-rules.t
t/28-AuthChoice.t
t/29-AuthSSL.t
t/30-Auth-and-issuer-SAML-Artifact-with-SOAP-SLO-IdP-initiated.t
t/30-Auth-and-issuer-SAML-Artifact-with-SOAP-SLO.t
......
......@@ -5,7 +5,7 @@ use IO::String;
require 't/test-lib.pm';
my $res;
my $maintests = 6;
my $maintests = 10;
eval { unlink 't/userdb.db' };
......@@ -23,10 +23,12 @@ SKIP: {
my $client = LLNG::Manager::Test->new(
{
ini => {
logLevel => 'error',
useSafeJail => 1,
authentication => 'Choice',
userDB => 'Same',
logLevel => 'error',
useSafeJail => 1,
authentication => 'Choice',
userDB => 'Same',
passwordDB => 'Choice',
portalRequireOldPassword => 1,
authChoiceParam => 'test',
authChoiceModules => {
......@@ -74,6 +76,33 @@ SKIP: {
'Auth query'
);
my $id = expectCookie($res);
ok(
$res = $client->_post(
'/',
IO::String->new(
'oldpassword=dwho&newpassword=test&confirmpassword=test'),
cookie => "lemonldap=$id",
accept => 'application/json',
length => 54
),
'Change password'
);
expectOK($res);
$client->logout($id);
my $tmp = $postString;
$tmp =~ s/password=dwho/password=test/;
ok(
$res = $client->_post(
'/',
IO::String->new($tmp),
length => length($tmp),
),
'Auth query with new password'
);
expectOK($res);
$id = expectCookie($res);
$client->logout($id);
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment