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

Backport code to run test on CentOS 7

Browse Source
This commit is contained in:
Clément OUDOT 2019-04-11 11:18:22 +02:00
parent 1c1aa5c147
commit 6b2920522d
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lemonldap-ng-portal/t/lib/Lemonldap/NG/Handler/Test.pm
View File

@ -67,11 +67,23 @@ sub run {
my ( $req, $res );
$req = HTTP::Request->new( @{ JSON::from_json($_) } );
$res = $server->request($req);
my @flatten = &flatten($res);
print $out JSON::to_json(
[ $res->code, [ $res->flatten ], [ $res->content ] ] )
[ $res->code, [@flatten], [ $res->content ] ] )
. "\n";
}
}
# Copy from HTTP::Headers code
sub flatten {
my ($self) = @_;
(
map {
my $k = $_;
map { ( $k => $_ ) } $self->header($_);
} $self->header_field_names
);
}
1;