Fix unit test (#2564)

This commit is contained in:
Christophe Maudoux 2021-07-28 12:28:47 +02:00
parent 4d2dfe4abc
commit 02b702b416

View File

@ -20,13 +20,13 @@ SKIP: {
my $client = LLNG::Manager::Test->new( {
ini => {
logLevel => 'debug',
logLevel => 'error',
useSafeJail => 1,
portalDisplayRegister => 1,
authentication => 'Demo',
userDB => 'Same',
registerDB => 'Demo',
#registerTimeout => '600',
registerTimeout => '600',
registerConfirmSubject => 'Registration demonstration',
registerConfirmBody =>
'Hello $firstname $lastname, follows this link to register your account $url
@ -73,7 +73,7 @@ Go to Portal $url',
m#Hello Fôo Bà Bar, follows this link to register your account http://auth\.example\.com/register#s,
'Found custom body'
) or explain( $mail, 'Custom body (link)' );
ok( $mail =~ /[?&](register_token=\w+)[$&]/s, 'Found register_token' );
ok( $mail =~ /[?&](register_token=\w+)/s, 'Found register_token' );
$query = $1;
ok( $mail =~ /Fôo/, 'UTF-8 works' ) or explain( $mail, 'Fôo' );
ok( $mail =~ m#Expired time: \d{2}/\d{2}/\d{4} \d{2}:\d{2}#s, 'Found time' )