use Test::More;
use strict;
use IO::String;

BEGIN {
    require 't/test-lib.pm';
}

my $res;

my $client = LLNG::Manager::Test->new( {
        ini => {
            logLevel              => 'error',
            authentication        => 'Demo',
            userDB                => 'Same',
            loginHistoryEnabled   => 1,
            brutForceProtection   => 0,
            portalMainLogo        => 'common/logos/logo_llng_old.png',
            customPlugins         => "t::HistoryPlugin",
            sessionDataToRemember =>
              { uid => 'identity', _auth => 'AuthModule' },
        }
    }
);

## First successful connection
ok(
    $res = $client->_post(
        '/',
        IO::String->new('user=dwho&password=dwho&checkLogins=1'),
        length => 37,
        accept => 'text/html',
    ),
    'Auth query'
);
count(1);
expectOK($res);
my $id1 = expectCookie($res);
ok( $res->[2]->[0] =~ qr%<img src="/static/common/logos/logo_llng_old.png"%,
    'Found custom Main Logo' )
  or print STDERR Dumper( $res->[2]->[0] );
count(1);
ok( $res->[2]->[0] =~ /trspan="lastLogins"/, 'History found' )
  or explain( $res->[2]->[0], 'trspan="lastLogins"' );
my @c = ( $res->[2]->[0] =~ /<td>127.0.0.1/gs );

# History with 1 successLogin
ok( @c == 1, " -> One entry found" );
count(2);
ok( $res = $client->_get( '/', cookie => "lemonldap=$id1" ),
    'Verify connection' );
count(1);
expectOK($res);

$client->logout($id1);

## Second successful connection
ok(
    $res = $client->_post(
        '/',
        IO::String->new('user=dwho&password=dwho&checkLogins=1'),
        length => 37,
        accept => 'text/html',
    ),
    'Auth query'
);
count(1);
expectOK($res);
$id1 = expectCookie($res);

ok( $res->[2]->[0] =~ /trspan="lastLogins"/, 'History found' );
@c = ( $res->[2]->[0] =~ /<td>127.0.0.1/gs );

# History with 2 success
ok( @c == 2, ' -> Two entries found' );
count(2);

$client->logout($id1);

## First failed connection
ok(
    $res = $client->_post(
        '/',
        IO::String->new('user=dwho&password=ohwd'),
        length => 23
    ),
    'Auth query'
);
count(1);
expectReject($res);

## Second failed connection
ok(
    $res = $client->_post(
        '/',
        IO::String->new('user=dwho&password=ohwd'),
        length => 23
    ),
    'Auth query'
);
count(1);
expectReject($res);

## Third successful connection
ok(
    $res = $client->_post(
        '/',
        IO::String->new('user=dwho&password=dwho&checkLogins=1'),
        length => 37,
        accept => 'text/html',
    ),
    'Auth query'
);
count(1);
expectOK($res);
$id1 = expectCookie($res);

ok( $res->[2]->[0] =~ /trspan="lastLogins"/, 'History found' );
ok( $res->[2]->[0] =~ /trspan="lastLoginsCaptionLabel"/,
    'History array caption found' )
  or explain( $res->[2]->[0] );
ok( $res->[2]->[0] =~ /trspan="lastFailedLoginsCaptionLabel"/,
    'Failed history array caption found' )
  or explain( $res->[2]->[0] );
count(3);

like(
    $res->[2]->[0],
    qr,<th trspan="Language">Language</th>,,
    "Found plugin-set label"
);
count(1);

@c = ( $res->[2]->[0] =~ /<td>127.0.0.1/gs );
my @cf   = ( $res->[2]->[0] =~ /PE5<\/td>/gs );
my @ccv1 = ( $res->[2]->[0] =~ /<td>dwho<\/td>/gs );
my @ccv2 = ( $res->[2]->[0] =~ /<td>Demo<\/td>/gs );
my @ccv3 = ( $res->[2]->[0] =~ /<td>en<\/td>/gs );
my @ccv4 = ( $res->[2]->[0] =~ /<td>1<\/td>/gs );

# History with 5 entries and 10 custom values
ok( @c == 5,  ' -> Five entries found' );
ok( @cf == 2, "  -> Two 'failedLogin' entries found" );
is( @ccv1 + @ccv2 + @ccv3, 15, "Custom value entries found" );
is( @ccv4,                 0,  "Hidden history field is missing" );
count(4);

# Check psession content
my $psession = getPSession('dwho');

is( $psession->{data}->{_loginHistory}->{successLogin}->[0]->{_language},
    'en', "Field found in psession" );
is(
    $psession->{data}->{_loginHistory}->{successLogin}->[0]
      ->{authenticationLevel},
    '1', "Hidden field found in psession"
);
count(2);

$client->logout($id1);
clean_sessions();

done_testing( count() );