Commit 0bea7701 authored by Maxime Besson's avatar Maxime Besson
Browse files

Update unit tests for new location plugin (#2325)

parent ad67800b
......@@ -4,7 +4,7 @@ use IO::String;
use POSIX qw(locale_h);
use locale;
setlocale(LC_TIME, "C");
setlocale( LC_TIME, "C" );
BEGIN {
eval {
......@@ -34,10 +34,7 @@ SKIP: {
newLocationWarning => 1,
loginHistoryEnabled => 1,
newLocationWarningMailSubject => 'Test new location mail',
newLocationWarningMailBody =>
'Test $newLocationIP $newLocationDate $newLocationHost $newLocationUserAgent',
#newLocationWarningMailAttribute => 'email'
newLocationWarningMailBody => 'Test $location $date $ua',
}
}
);
......@@ -72,8 +69,8 @@ SKIP: {
like( subject(), qr#Test new location mail#, ' Subject found' );
like(
mail(),
qr#^Test 127\.0\.0\.2 \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} auth\.example\.com Mozilla/5\.0 \(VAX-4000; rv:36\.0\) Gecko/20350101 Firefox$#,
' Mail sent (IP, Date, Host and UA found)'
qr#^Test 127\.0\.0\.2 \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} Mozilla/5\.0 \(VAX-4000; rv:36\.0\) Gecko/20350101 Firefox$#,
' Mail sent (IP, Date and UA found)'
);
}
......
......@@ -4,7 +4,7 @@ use IO::String;
use POSIX qw(locale_h);
use locale;
setlocale(LC_TIME, "C");
setlocale( LC_TIME, "C" );
BEGIN {
eval {
......@@ -14,7 +14,7 @@ BEGIN {
}
my $res;
my $maintests = 16;
my $maintests = 20;
SKIP: {
eval 'require Email::Sender::Simple;';
......@@ -42,7 +42,8 @@ SKIP: {
my ( $host, $url, $query ) =
expectForm( $res, '#', undef, 'user', 'password' );
## Authentication #1 with IP #1 (Test 1)
## Authentication #1 with IP #1
clear_mail();
ok(
$res = $client->_post(
'/',
......@@ -54,8 +55,10 @@ SKIP: {
);
my $id = expectCookie($res);
$client->logout($id);
ok( !mail(), "First time seeing a new IP, no mail sent" );
## Authentication #2 with IP #1 (Test 2)
## Authentication #2 with IP #1
clear_mail();
ok(
$res = $client->_post(
'/',
......@@ -68,8 +71,10 @@ SKIP: {
$id = expectCookie($res);
expectRedirection( $res, 'http://auth.example.com/' );
$client->logout($id);
ok( !mail(), "Second time seeing a new IP, no mail sent" );
## Authentication #3 with IP #2 (Test 3)
## Authentication #3 with IP #2
clear_mail();
ok(
$res = $client->_post(
'/',
......@@ -86,35 +91,39 @@ SKIP: {
like(
mail(),
qr#<h3><span>Your account was signed in to from a new location\.</span></h3></br>
#, ' Mail sent (Good password)'
#, 'First login on a new IP, email sent'
);
## Authentication #4 with IP #1 wrong password (Test 4)
## Authentication #1 with IP #3 wrong password
clear_mail();
ok(
$res = $client->_post(
'/',
IO::String->new('user=dwho&password=ohwd'),
length => 23,
accept => 'text/html',
ip => "127.0.0.3",
),
'Fourth auth query'
);
ok( $res->[2]->[0] =~ /<span trmsg="5"><\/span>/, ' Bad credential' )
or print STDERR Dumper( $res->[2]->[0] );
ok( !mail(), "Failed login with a new IP, no email sent" );
## Authentication #5 with IP #2 (Test 5)
## Authentication #2 with IP #3
clear_mail();
ok(
$res = $client->_post(
'/',
IO::String->new('user=dwho&password=ohwd'),
IO::String->new('user=dwho&password=dwho'),
length => 23,
accept => 'text/html',
ip => '127.0.0.3',
),
'Fifth auth query'
);
ok( $res->[2]->[0] =~ /<span trmsg="5"><\/span>/, ' Bad credential' )
or print STDERR Dumper( $res->[2]->[0] );
$id = expectCookie($res);
expectRedirection( $res, 'http://auth.example.com/' );
like(
subject(),
qr#\[LemonLDAP::NG\] Sign-in from a new location#,
......@@ -127,8 +136,8 @@ qr#<h3><span>Your account was signed in to from a new location\.</span></h3></br
);
like(
mail(),
qr#<span>Host</span> <b>auth.example.com</b>#,
' Host found in mail body'
qr#<span>Location</span> <b>127.0.0.3</b>#,
' Location found in mail body'
);
like(
mail(),
......@@ -141,19 +150,36 @@ qr#<span>UA</span> <b>Mozilla/5\.0 \(VAX-4000; rv:36\.0\) Gecko/20350101 Firefox
' UserAgent found in mail body'
);
## Authentication #5 with IP #2 (Test 5)
## Authentication #3 with IP #3
clear_mail();
ok(
$res = $client->_post(
'/',
IO::String->new('user=dwho&password=ohwd'),
IO::String->new('user=dwho&password=dwho'),
length => 23,
accept => 'text/html',
ip => '127.0.0.1',
ip => '127.0.0.3',
),
'Fifth auth query'
);
ok( $res->[2]->[0] =~ /<span trmsg="5"><\/span>/, ' Bad credential' )
or print STDERR Dumper( $res->[2]->[0] );
$id = expectCookie($res);
expectRedirection( $res, 'http://auth.example.com/' );
ok( !mail(), "Login on newly learned address, no email" );
## Authentication #3 with IP #1
clear_mail();
ok(
$res = $client->_post(
'/',
IO::String->new('user=dwho&password=dwho'),
length => 23,
accept => 'text/html',
),
'Fifth auth query'
);
$id = expectCookie($res);
expectRedirection( $res, 'http://auth.example.com/' );
ok( !mail(), "Login on previously learned address, no email" );
}
count($maintests);
......
package main;
my ($mail, $mail_envelope, $mail_subject);
my ( $mail, $mail_envelope, $mail_subject );
sub mail {
return $mail;
}
sub clear_mail {
$mail = undef;
$mail_envelope = undef;
$mail_subject = undef;
}
sub envelope {
return $mail_envelope;
}
sub subject {
my $subject = ($mail_subject =~ /=\?utf-8\?B\?(.+?)\?=/)[0];
my $subject = ( $mail_subject =~ /=\?utf-8\?B\?(.+?)\?=/ )[0];
return decode_base64($subject);
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment