use Test::More; use strict; use JSON; use IO::String; require 't/test-lib.pm'; my $res; my $json; my $client = LLNG::Manager::Test->new( { ini => { logLevel => 'error', authentication => 'Choice', userDB => 'Same', passwordDB => 'Choice', authChoiceModules => { '1_demo' => 'Demo;Demo;Null', '2_ssl' => 'SSL;Demo;Null', }, authChoiceFindUser => '1_dem', useSafeJail => 1, requireToken => 1, findUser => 1, impersonationRule => 1, findUserSearchingAttributes => { 'uid##1' => 'Login', 'guy##1' => 'Kind', 'cn##1' => 'Name' }, findUserExcludingAttributes => { type => 'mutant', uid => 'rtyler' }, } } ); ## Simple access ok( $res = $client->_get( '/', accept => 'text/html' ), 'Get Portal', ); my ( $host, $url, $query ) = expectForm( $res, '#', undef, 'user', 'password', 'spoofId', 'token' ); ( $host, $url, $query ) = expectForm( $res, '#', undef, 'uid', 'guy', 'cn', 'token' ); my @form = ( $res->[2]->[0] =~ m#