view release on metacpan or  search on metacpan

t/32-OIDC-Hooks.t  view on Meta::CPAN

    "Registration attempt with allowed redirect_uri"
);

# RFC 7591: Successful registration returns 201 Created
is( $res->[0], 201, "Registration returns 201 Created" );
$json = from_json( $res->[2]->[0] );
ok( $json->{client_id}, "Registration succeeded with client_id" );

# Verify that the oidcRegisterClient hook modified the saved RP options
my $savedConf = from_json(
    do { local ( @ARGV, $/ ) = "$main::tmpDir/lmConf-2.json"; <> }
);
my ($newRpKey) =
  grep {
    ( $savedConf->{oidcRPMetaDataOptions}->{$_}
          ->{oidcRPMetaDataOptionsClientID} || '' ) eq $json->{client_id}
  } keys %{ $savedConf->{oidcRPMetaDataOptions} };
ok( $newRpKey, "Newly registered RP found in saved configuration" );
is(
    $savedConf->{oidcRPMetaDataOptions}->{$newRpKey}
      ->{oidcRPMetaDataOptionsBypassConsent},