view release on metacpan or  search on metacpan

t/auth-code-flow-IT.t  view on Meta::CPAN

use Plack::Test;
use Test::More;
use Test::MockModule;
use HTTP::Request::Common;
use HTTP::Cookies;
use FindBin qw($Bin);

local $ENV{MOJO_LOG_LEVEL} = 'error';

local @ARGV = ('version');
my $provider_app = require "$Bin/auth-code-flow-IT/MyProviderApp.pl";

my $mock_oidc_client = Test::MockModule->new('OIDC::Client');
$mock_oidc_client->redefine('user_agent' => $provider_app->ua);

my $mock_data_uuid = Test::MockModule->new('Data::UUID');
$mock_data_uuid->redefine('create_str' => sub { 'fake_uuid' });

use lib "$Bin/auth-code-flow-IT";
use_ok('MyTestApp');
my $test = Plack::Test->create( MyTestApp->to_app );

t/resource-server-IT.t  view on Meta::CPAN

use warnings;
use FindBin qw($Bin);
use Plack::Test;
use HTTP::Request::Common;
use Test::More;
use Test::MockModule;

local $ENV{MOJO_LOG_LEVEL} = 'error';

local @ARGV = ('version');
my $provider_app = require "$Bin/auth-code-flow-IT/MyProviderApp.pl";

my $mock_oidc_client = Test::MockModule->new('OIDC::Client');
$mock_oidc_client->redefine('user_agent' => $provider_app->ua);

my $mock_crypt_jwt = Test::MockModule->new('Crypt::JWT');
$mock_crypt_jwt->redefine('decode_jwt' => sub {
  my %params = @_;
  my %claims = $params{token} eq 'Doe'
                 ? (iss       => 'my_issuer',
                    exp       => 12345,