|
Lines 97-103
subtest 'Net::OAuth2::AuthorizationServer missing tests' => sub {
Link Here
|
| 97 |
my $form_data = { |
97 |
my $form_data = { |
| 98 |
grant_type => 'client_credentials', |
98 |
grant_type => 'client_credentials', |
| 99 |
client_id => $api_key->client_id, |
99 |
client_id => $api_key->client_id, |
| 100 |
client_secret => $api_key->secret |
100 |
client_secret => $api_key->plain_text_secret |
| 101 |
}; |
101 |
}; |
| 102 |
|
102 |
|
| 103 |
$t->post_ok( '/api/v1/oauth/token', form => $form_data )->status_is(200) |
103 |
$t->post_ok( '/api/v1/oauth/token', form => $form_data )->status_is(200) |
|
Lines 138-144
sub run_oauth_tests {
Link Here
|
| 138 |
|
138 |
|
| 139 |
my $formData; |
139 |
my $formData; |
| 140 |
my $client_id = $api_key->client_id; |
140 |
my $client_id = $api_key->client_id; |
| 141 |
my $client_secret = $api_key->secret; |
141 |
my $client_secret = $api_key->plain_text_secret; |
| 142 |
|
142 |
|
| 143 |
if ( $test_case eq 'header' ) { |
143 |
if ( $test_case eq 'header' ) { |
| 144 |
|
144 |
|
|
Lines 154-160
sub run_oauth_tests {
Link Here
|
| 154 |
$formData = { |
154 |
$formData = { |
| 155 |
grant_type => 'client_credentials', |
155 |
grant_type => 'client_credentials', |
| 156 |
client_id => $api_key->client_id, |
156 |
client_id => $api_key->client_id, |
| 157 |
client_secret => $api_key->secret |
157 |
client_secret => $api_key->plain_text_secret |
| 158 |
}; |
158 |
}; |
| 159 |
|
159 |
|
| 160 |
$t->post_ok('/api/v1/oauth/token', form => $formData) |
160 |
$t->post_ok('/api/v1/oauth/token', form => $formData) |
| 161 |
- |
|
|