dani
/
lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update unit tests

This commit is contained in:
Christophe Maudoux 2022-01-07 21:28:35 +01:00
parent 505f1a7527
commit 940a950996
3 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lemonldap-ng-handler/t/64-Lemonldap-NG-Handler-PSGI-DevOps-vhostOptions.t
View File

@ -2,7 +2,6 @@ use Test::More;
use JSON;
use MIME::Base64;
use LWP::UserAgent;
use Data::Dumper;
BEGIN {
require 't/test-psgi-lib.pm';

15
lemonldap-ng-handler/t/64-Lemonldap-NG-Handler-PSGI-DevOps-with-param.t
View File

@ -2,7 +2,6 @@ use Test::More;
use JSON;
use MIME::Base64;
use LWP::UserAgent;
use Data::Dumper;
BEGIN {
require 't/test-psgi-lib.pm';
@ -12,9 +11,11 @@ BEGIN {
init(
'Lemonldap::NG::Handler::Server',
{
#logLevel => 'debug',
vhostOptions => {
'test3.example.com' => {
vhostDevOpsRulesUrl => 'http://donotuse.example.com/myfile.json',
vhostDevOpsRulesUrl =>
'http://donotuse.example.com/myfile.json',
},
},
}
@ -54,6 +55,8 @@ ok(
ok( $res->[0] == 200, 'Code is 200' ) or explain( $res->[0], 200 );
count(2);
Time::Fake->offset("+100s");
# Denied queries
ok(
$res = $client->_get(
@ -67,6 +70,8 @@ ok(
ok( $res->[0] == 403, 'Code is 403' ) or explain( $res->[0], 403 );
count(2);
Time::Fake->offset("+600s");
ok(
$res = $client->_get(
'/testno', undef,
@ -88,12 +93,12 @@ no warnings 'redefine';
sub LWP::UserAgent::request {
my ( $self, $req ) = @_;
ok( $req->header('host') eq 'devops.example.com',
'Host header found' )
ok( $req->header('host') eq 'devops.example.com', 'Host header found' )
or explain( $req->headers(), 'devops.example.com' );
ok( $req->as_string() =~ m#http://devops.example.com/file.json#,
'Rules file URL found' )
or explain( $req->as_string(), 'GET http://devops.example.com/file.json' );
or
explain( $req->as_string(), 'GET http://devops.example.com/file.json' );
count(2);
my $httpResp;
my $s = '{

1
lemonldap-ng-handler/t/64-Lemonldap-NG-Handler-PSGI-DevOps.t
View File

@ -2,7 +2,6 @@ use Test::More;
use JSON;
use MIME::Base64;
use LWP::UserAgent;
use Data::Dumper;
BEGIN {
require 't/test-psgi-lib.pm';