Declare PE_BADURL (#1142)

lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Issuer/OpenIDConnect.pm

@@ -4,6 +4,7 @@ use strict;
 use JSON;
 use Mouse;
 use Lemonldap::NG::Portal::Main::Constants qw(
+  PE_BADURL
   PE_CONFIRM
   PE_ERROR
   PE_LOGOUT_OK

lemonldap-ng-portal/t/32-Auth-and-issuer-OIDC-authorization_code.t

@@ -15,12 +15,14 @@ my %handlerOR = ( op => [], rp => [] );
 ok( $op = op(), 'OP portal' );
 
 ok( $res = $op->_get('/oauth2/jwks'), 'Get JWKS,     endpoint /oauth2/jwks' );
+expectOK($res);
 my $jwks = $res->[2]->[0];
 
 ok(
     $res = $op->_get('/.well-known/openid-configuration'),
     'Get metadata, endpoint /.well-known/openid-configuration'
 );
+expectOK($res);
 my $metadata = $res->[2]->[0];
 count(3);
 

lemonldap-ng-portal/t/32-Auth-and-issuer-OIDC-hybrid.t

@@ -15,12 +15,14 @@ my %handlerOR = ( op => [], rp => [] );
 ok( $op = op(), 'OP portal' );
 
 ok( $res = $op->_get('/oauth2/jwks'), 'Get JWKS,     endpoint /oauth2/jwks' );
+expectOK($res);
 my $jwks = $res->[2]->[0];
 
 ok(
     $res = $op->_get('/.well-known/openid-configuration'),
     'Get metadata, endpoint /.well-known/openid-configuration'
 );
+expectOK($res);
 my $metadata = $res->[2]->[0];
 count(3);
 

lemonldap-ng-portal/t/32-Auth-and-issuer-OIDC-implicit.t

@@ -15,12 +15,14 @@ my %handlerOR = ( op => [], rp => [] );
 ok( $op = op(), 'OP portal' );
 
 ok( $res = $op->_get('/oauth2/jwks'), 'Get JWKS,     endpoint /oauth2/jwks' );
+expectOK($res);
 my $jwks = $res->[2]->[0];
 
 ok(
     $res = $op->_get('/.well-known/openid-configuration'),
     'Get metadata, endpoint /.well-known/openid-configuration'
 );
+expectOK($res);
 my $metadata = $res->[2]->[0];
 count(3);