From ca61f222542cb0ac96cf81a0cc7d9b2359f1b3fb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Cl=C3=A9ment=20OUDOT?= <clement@oodo.net>
Date: Mon, 18 Dec 2017 18:50:10 +0100
Subject: [PATCH] Adapt unit test for Register LDAP (#1338)

---
 lemonldap-ng-portal/t/42-Register-LDAP.t | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lemonldap-ng-portal/t/42-Register-LDAP.t b/lemonldap-ng-portal/t/42-Register-LDAP.t
index 1a3f51281..fb3e23d5b 100644
--- a/lemonldap-ng-portal/t/42-Register-LDAP.t
+++ b/lemonldap-ng-portal/t/42-Register-LDAP.t
@@ -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'