Adapt unit test for Register LDAP (#1338)

This commit is contained in:
Clément OUDOT 2017-12-18 18:50:10 +01:00
parent 46a3df41ac
commit ca61f22254

View File

@ -83,10 +83,11 @@ SKIP: {
$pwd = $2;
ok( $user eq 'fbar', 'Get good login' );
my $postString = 'user='.$user.'&password='.$pwd;
ok(
$res = $client->_post(
'/', IO::String->new('user=fbar&password=fbar'),
length => 23,
'/', IO::String->new($postString),
length => length($postString),
accept => 'text/html'
),
'Try to authenticate'