Improve unit test (#2618)

This commit is contained in:
Christophe Maudoux 2021-09-20 22:00:14 +02:00
parent aec371f66a
commit c5c1c76415

View File

@ -78,6 +78,10 @@ no warnings 'redefine';
sub LWP::UserAgent::request {
my ( $self, $req ) = @_;
ok( $req->header('host') eq 'devops.example.com',
'Host header found' )
or explain( $req->headers(), 'Header' );
count(1);
my $httpResp;
my $s = '{
"rules": {