use Test::More; use strict; use Data::Dumper; require 't/test-lib.pm'; my $res; my $client = LLNG::Manager::Test->new( { ini => { logLevel => 'error', useSafeJail => 1, authentication => 'Null', userDB => 'Same', scrollTop => 100 } } ); ok( $res = $client->_get( '/', accept => 'text/html' ), 'Auth query' ); ok( $res->[2]->[0] =~ m%"scrollTop":100%, 'scrollTop param found' ) or print STDERR Dumper( $res->[2]->[0] ); ok( $res->[2]->[0] =~ m%id="btn-back-to-top"%, 'scrollTop button found' ) or print STDERR Dumper( $res->[2]->[0] ); count(3); expectOK($res); my $id = expectCookie($res); ok( $res = $client->_get( '/lmerror/403', accept => 'text/html' ), 'lmerror 403 query' ); expectOK($res); ok( $res->[2]->[0] =~ qq%[2]->[0] ); ok( $res->[2]->[0] =~ m%%, 'Language icons found' ) or print STDERR Dumper( $res->[2]->[0] ); count(3); ok( $res = $client->_get( '/logout', accept => 'text/html' ), 'Get logout page' ); ok( $res->[2]->[0] =~ m%%, ' PE_LOGOUT_OK' ) or print STDERR Dumper( $res->[2]->[0] ); count(2); clean_sessions(); done_testing( count() );