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

Update unit tests

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