From 7bb84f5bb12e477e788b9c9de2bf86b700ce6ce7 Mon Sep 17 00:00:00 2001
From: Maxime Besson <maxime.besson@worteks.com>
Date: Mon, 3 Oct 2022 16:17:06 +0200
Subject: [PATCH] Store MIME message in smtp lib

---
 lemonldap-ng-portal/t/smtp.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lemonldap-ng-portal/t/smtp.pm b/lemonldap-ng-portal/t/smtp.pm
index 94cc53543..d40638562 100644
--- a/lemonldap-ng-portal/t/smtp.pm
+++ b/lemonldap-ng-portal/t/smtp.pm
@@ -1,6 +1,10 @@
 package main;
 
-my ( $mail, $mail_envelope, $mail_subject );
+my ( $mail, $mail_envelope, $mail_subject, $mime );
+
+sub mime {
+    return $mime;
+}
 
 sub mail {
     return $mail;
@@ -31,6 +35,7 @@ extends 'Email::Sender::Transport';
 
 sub send_email {
     my ( $self, $email, $envelope ) = @_;
+    $mime = $email->cast('MIME::Entity');
     $mail          = $email->get_body;
     $mail_subject  = $email->get_header("Subject");
     $mail_envelope = $envelope;