Append unit test (#2342)
parent
b2306cc8ad
commit
41889e5ee2
@ -0,0 +1,30 @@ |
||||
use Test::More; |
||||
use strict; |
||||
|
||||
require 't/test-lib.pm'; |
||||
|
||||
my $res; |
||||
my $client = LLNG::Manager::Test->new( |
||||
{ ini => { logLevel => 'debug', useSafeJail => 1 } } ); |
||||
|
||||
# Test normal first access |
||||
ok( |
||||
$res = $client->_get( |
||||
'/', |
||||
query => 'logout', |
||||
accept => 'text/html' |
||||
), |
||||
'Get logout page' |
||||
); |
||||
ok( $res->[2]->[0] =~ m%<span id="languages"></span>%, ' Language icons found' ) |
||||
or print STDERR Dumper( $res->[2]->[0] ); |
||||
ok( $res->[2]->[0] =~ m%<div class="message message-positive alert"><span trmsg="47">%, ' PE_LOGOUT_OK' ) |
||||
or print STDERR Dumper( $res->[2]->[0] ); |
||||
expectCookie($res); |
||||
count(3); |
||||
|
||||
#print STDERR Dumper($res); |
||||
|
||||
clean_sessions(); |
||||
|
||||
done_testing( count() ); |
Loading…
Reference in new issue