2020-12-22 22:51:37 +01:00
|
|
|
use Test::More;
|
|
|
|
use strict;
|
|
|
|
use JSON;
|
|
|
|
use IO::String;
|
|
|
|
|
|
|
|
require 't/test-lib.pm';
|
|
|
|
|
|
|
|
my $res;
|
2020-12-22 23:04:47 +01:00
|
|
|
my $maintests = 34;
|
2020-12-22 22:51:37 +01:00
|
|
|
|
|
|
|
my $userdb = tempdb();
|
|
|
|
|
|
|
|
SKIP: {
|
|
|
|
eval { require DBI; require DBD::SQLite; };
|
|
|
|
if ($@) {
|
|
|
|
skip 'DBD::SQLite not found', $maintests;
|
|
|
|
}
|
|
|
|
my $res;
|
|
|
|
my $json;
|
|
|
|
my $request;
|
|
|
|
my $dbh = DBI->connect("dbi:SQLite:dbname=$userdb");
|
|
|
|
$dbh->do(
|
|
|
|
'CREATE TABLE users (user text,password text,name text, type text, guy text)'
|
|
|
|
);
|
|
|
|
$dbh->do(
|
|
|
|
"INSERT INTO users VALUES ('dwho','dwho','Doctor who', 'serie', 'good')"
|
|
|
|
);
|
|
|
|
$dbh->do(
|
|
|
|
"INSERT INTO users VALUES ('rtyler','rtyler','Rose Tyler', 'serie', 'good')"
|
|
|
|
);
|
|
|
|
$dbh->do(
|
|
|
|
"INSERT INTO users VALUES ('davros','davros','Davros', 'serie', 'bad')"
|
|
|
|
);
|
|
|
|
$dbh->do(
|
|
|
|
"INSERT INTO users VALUES ('msmith','msmith','Mr Smith', 'serie', 'good')"
|
|
|
|
);
|
|
|
|
$dbh->do(
|
|
|
|
"INSERT INTO users VALUES ('spoke','spoke','Mr Spoke', 'movie', 'good')"
|
|
|
|
);
|
|
|
|
my $client = LLNG::Manager::Test->new( {
|
|
|
|
ini => {
|
2020-12-22 23:04:47 +01:00
|
|
|
logLevel => 'error',
|
2020-12-22 22:51:37 +01:00
|
|
|
useSafeJail => 1,
|
|
|
|
authentication => 'DBI',
|
|
|
|
userDB => 'Same',
|
|
|
|
dbiAuthChain => "dbi:SQLite:dbname=$userdb",
|
|
|
|
dbiAuthUser => '',
|
|
|
|
dbiAuthPassword => '',
|
|
|
|
dbiAuthTable => 'users',
|
|
|
|
dbiAuthLoginCol => 'user',
|
|
|
|
dbiAuthPasswordCol => 'password',
|
|
|
|
dbiAuthPasswordHash => '',
|
|
|
|
dbiDynamicHashEnabled => 0,
|
|
|
|
passwordDB => 'DBI',
|
|
|
|
requireToken => 1,
|
|
|
|
findUser => 1,
|
|
|
|
impersonationRule => 1,
|
|
|
|
findUserSearchingAttributes =>
|
|
|
|
{ user => 'Login', guy => 'Kind' },
|
|
|
|
findUserExcludingAttributes => { type => 'movie' },
|
|
|
|
}
|
|
|
|
}
|
|
|
|
);
|
|
|
|
|
|
|
|
## Simple access
|
|
|
|
ok( $res = $client->_get( '/', accept => 'text/html' ), 'Get Portal', );
|
|
|
|
my ( $host, $url, $query ) =
|
|
|
|
expectForm( $res, '#', undef, 'user', 'password', 'spoofId', 'token' );
|
|
|
|
|
|
|
|
$request = 'user=dwho';
|
|
|
|
ok(
|
|
|
|
$res = $client->_post(
|
|
|
|
'/finduser', IO::String->new($request),
|
|
|
|
accept => 'text/html',
|
|
|
|
length => length($request)
|
|
|
|
),
|
|
|
|
'Post FindFuser request'
|
|
|
|
);
|
|
|
|
( $host, $url, $query ) =
|
|
|
|
expectForm( $res, '#', undef, 'user', 'password', 'spoofId', 'token' );
|
|
|
|
ok( $res->[2]->[0] =~ m%value="dwho"%, 'value="dwho"' )
|
|
|
|
or explain( $res->[2]->[0], 'value="dwho"' );
|
|
|
|
ok( $res->[2]->[0] =~ m%autocomplete="off"%, 'autocomplete="off"' )
|
|
|
|
or explain( $res->[2]->[0], 'autocomplete="off"' );
|
2020-12-22 23:04:47 +01:00
|
|
|
ok( $res->[2]->[0] =~ m%<span trspan="searchAccount">Search an account</span>%, 'Search an account' )
|
|
|
|
or explain( $res->[2]->[0], 'Search an account' );
|
|
|
|
ok(
|
|
|
|
$res->[2]->[0] =~
|
|
|
|
m%<input id="findUserguy" name="guy" type="text" autocomplete="off" class="form-control" placeholder="Kind" />%,
|
|
|
|
'id="findUserguy"'
|
|
|
|
) or explain( $res->[2]->[0], 'id="findUserguy"' );
|
|
|
|
ok(
|
|
|
|
$res->[2]->[0] =~
|
|
|
|
m%<input id="findUseruser" name="user" type="text" autocomplete="off" class="form-control" placeholder="Login" />%,
|
|
|
|
'id="findUseruser"'
|
|
|
|
) or explain( $res->[2]->[0], 'id="findUseruser"' );
|
2020-12-22 22:51:37 +01:00
|
|
|
|
|
|
|
$request = 'user=dwho';
|
|
|
|
ok(
|
|
|
|
$res = $client->_post(
|
|
|
|
'/finduser', IO::String->new($request),
|
|
|
|
accept => 'application/json',
|
|
|
|
length => length($request)
|
|
|
|
),
|
|
|
|
'Post FindFuser request'
|
|
|
|
);
|
|
|
|
ok( $json = eval { from_json( $res->[2]->[0] ) }, 'Response is JSON' )
|
|
|
|
or print STDERR "$@\n" . Dumper($res);
|
|
|
|
ok( $json->{user} eq 'dwho', ' Good user' )
|
|
|
|
or explain( $json, 'user => dwho' );
|
|
|
|
|
|
|
|
$request = 'user=dwo';
|
|
|
|
ok(
|
|
|
|
$res = $client->_post(
|
|
|
|
'/finduser', IO::String->new($request),
|
|
|
|
accept => 'application/json',
|
|
|
|
length => length($request)
|
|
|
|
),
|
|
|
|
'Post FindFuser request no result'
|
|
|
|
);
|
|
|
|
ok( $json = eval { from_json( $res->[2]->[0] ) }, 'Response is JSON' )
|
|
|
|
or print STDERR "$@\n" . Dumper($res);
|
|
|
|
ok( $json->{user} eq '', ' No user' )
|
|
|
|
or explain( $json, "user => ''" );
|
|
|
|
|
|
|
|
$request = 'guy=bad';
|
|
|
|
ok(
|
|
|
|
$res = $client->_post(
|
|
|
|
'/finduser', IO::String->new($request),
|
|
|
|
accept => 'application/json',
|
|
|
|
length => length($request)
|
|
|
|
),
|
|
|
|
'Post FindFuser request one result'
|
|
|
|
);
|
|
|
|
ok( $json = eval { from_json( $res->[2]->[0] ) }, 'Response is JSON' )
|
|
|
|
or print STDERR "$@\n" . Dumper($res);
|
|
|
|
ok( $json->{user} eq 'davros', ' Good user' )
|
|
|
|
or explain( $json, "user => 'davros'" );
|
|
|
|
|
|
|
|
$request = 'guy=good&type=serie';
|
|
|
|
ok(
|
|
|
|
$res = $client->_post(
|
|
|
|
'/finduser', IO::String->new($request),
|
|
|
|
accept => 'application/json',
|
|
|
|
length => length($request)
|
|
|
|
),
|
|
|
|
'Post FindFuser request multi results'
|
|
|
|
);
|
|
|
|
ok( $json = eval { from_json( $res->[2]->[0] ) }, 'Response is JSON' )
|
|
|
|
or print STDERR "$@\n" . Dumper($res);
|
|
|
|
ok( $json->{user} =~ /^(dwho|rtyler|msmith)$/, " Good user ($1)" )
|
|
|
|
or explain( $json, "user => $1" );
|
|
|
|
|
|
|
|
$request = 'arg=good';
|
|
|
|
ok(
|
|
|
|
$res = $client->_post(
|
|
|
|
'/finduser', IO::String->new($request),
|
|
|
|
accept => 'application/json',
|
|
|
|
length => length($request)
|
|
|
|
),
|
|
|
|
'Post FindFuser request with bad arg'
|
|
|
|
);
|
|
|
|
ok( $json = eval { from_json( $res->[2]->[0] ) }, 'Response is JSON' )
|
|
|
|
or print STDERR "$@\n" . Dumper($res);
|
|
|
|
ok( $json->{result} == 1, ' Good result' )
|
|
|
|
or explain( $json, 'result => 1' );
|
|
|
|
ok( $json->{user} eq '', ' No user' )
|
|
|
|
or explain( $json, 'user => ?' );
|
|
|
|
|
|
|
|
$request = 'guy=good&user=msmith';
|
|
|
|
ok(
|
|
|
|
$res = $client->_post(
|
|
|
|
'/finduser', IO::String->new($request),
|
|
|
|
accept => 'application/json',
|
|
|
|
length => length($request)
|
|
|
|
),
|
|
|
|
'Post FindFuser request with two args'
|
|
|
|
);
|
|
|
|
ok( $json = eval { from_json( $res->[2]->[0] ) }, 'Response is JSON' )
|
|
|
|
or print STDERR "$@\n" . Dumper($res);
|
|
|
|
ok( $json->{user} eq 'msmith', ' Good user' )
|
|
|
|
or explain( $json, 'user => msmith' );
|
|
|
|
|
|
|
|
$request = 'guy=bad&user=msmith';
|
|
|
|
ok(
|
|
|
|
$res = $client->_post(
|
|
|
|
'/finduser', IO::String->new($request),
|
|
|
|
accept => 'application/json',
|
|
|
|
length => length($request)
|
|
|
|
),
|
|
|
|
'Post FindFuser request with wrong args'
|
|
|
|
);
|
|
|
|
ok( $json = eval { from_json( $res->[2]->[0] ) }, 'Response is JSON' )
|
|
|
|
or print STDERR "$@\n" . Dumper($res);
|
|
|
|
ok( $json->{result} == 1, ' Good result' )
|
|
|
|
or explain( $json, 'result => 1' );
|
|
|
|
ok( $json->{user} eq '', ' No user' )
|
|
|
|
or explain( $json, 'user => ?' );
|
|
|
|
|
|
|
|
$request = 'user=spoke&type=good';
|
|
|
|
ok(
|
|
|
|
$res = $client->_post(
|
|
|
|
'/finduser', IO::String->new($request),
|
|
|
|
accept => 'application/json',
|
|
|
|
length => length($request)
|
|
|
|
),
|
|
|
|
'Post FindFuser request with excluding result'
|
|
|
|
);
|
|
|
|
ok( $json = eval { from_json( $res->[2]->[0] ) }, 'Response is JSON' )
|
|
|
|
or print STDERR "$@\n" . Dumper($res);
|
|
|
|
ok( $json->{result} == 1, ' Good result' )
|
|
|
|
or explain( $json, 'result => 1' );
|
|
|
|
ok( $json->{user} eq '', ' No user' )
|
|
|
|
or explain( $json, 'user => ?' );
|
|
|
|
}
|
|
|
|
count($maintests);
|
|
|
|
done_testing( count() );
|