From 4ceb75c9703a9ca5f9fa8872d141fe63904c2c27 Mon Sep 17 00:00:00 2001
From: Maxime Besson <maxime.besson@worteks.com>
Date: Mon, 16 Nov 2020 18:37:12 +0100
Subject: [PATCH] Add urlencode helper to test lib

---
 lemonldap-ng-portal/t/test-lib.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/lemonldap-ng-portal/t/test-lib.pm b/lemonldap-ng-portal/t/test-lib.pm
index 13e82a4b2..f4a378e51 100644
--- a/lemonldap-ng-portal/t/test-lib.pm
+++ b/lemonldap-ng-portal/t/test-lib.pm
@@ -59,6 +59,7 @@ use File::Find;
 use LWP::UserAgent;
 use Time::Fake;
 use URI::Escape;
+use MIME::Base64;
 use Lemonldap::NG::Common::FormEncode;
 
 #use 5.10.0;
@@ -569,6 +570,17 @@ sub switch {
     };
 }
 
+=head4 encodeUrl( $url );
+
+Encode URL like the handler would, see ::Handler::Main
+
+=cut
+
+sub encodeUrl {
+    my ($url) = @_;
+    return uri_escape( encode_base64( $url, '' ) );
+}
+
 =head2 LLNG::Manager::Test Class
 
 =cut