loafle/openapi-generator
3
0
Fork 0
forked from loafle/openapi-generator-original
Code Pull Requests Activity

throw exception if username, password is not set in http auth in r client (#13035)

Browse Source
This commit is contained in:
William Cheng
2022-07-28 17:06:52 +08:00
committed by GitHub
parent c905760898
commit e5e4e8fc07
3 changed files with 20 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
modules/openapi-generator/src/main/resources/r/api.mustache vendored
View File

@@ -308,6 +308,17 @@
{{#isBasic}}
{{#isBasicBasic}}
# HTTP basic auth
if (is.null(self$api_client$username) || is.null(self$api_client$password)) {
{{#useDefaultExceptionHandling}}
stop("username, password in `api_client` must be set for authentication in the endpoint `{{{operationId}}}`.")
{{/useDefaultExceptionHandling}}
{{#useRlangExceptionHandling}}
rlang::abort(message = "username, password in `api_client` must be set for authentication in the endpoint `{{{operationId}}}`.",
.subclass = "ApiException",
ApiException = ApiException$new(status = 0,
reason = "username, password in `api_client` must be set for authentication in the endpoint `{{{operationId}}}`."))
{{/useRlangExceptionHandling}}
}
header_params["Authorization"] <- paste("Basic", base64enc::base64encode(charToRaw(paste(self$api_client$username, self$api_client$password, sep = ":"))))
{{/isBasicBasic}}
{{#isBasicBearer}}

6
samples/client/petstore/R/R/pet_api.R
View File

@@ -586,6 +586,12 @@ PetApi <- R6::R6Class(
local_var_url_path <- "/pet"
# HTTP basic auth
if (is.null(self$api_client$username) || is.null(self$api_client$password)) {
rlang::abort(message = "username, password in `api_client` must be set for authentication in the endpoint `AddPet`.",
.subclass = "ApiException",
ApiException = ApiException$new(status = 0,
reason = "username, password in `api_client` must be set for authentication in the endpoint `AddPet`."))
}
header_params["Authorization"] <- paste("Basic", base64enc::base64encode(charToRaw(paste(self$api_client$username, self$api_client$password, sep = ":"))))
# The Accept request HTTP header

5
samples/client/petstore/R/tests/testthat/test_petstore.R
View File

@@ -11,8 +11,9 @@ pet <- Pet$new("name_test",
),
status = "available"
)
pet_api$api_client$username <- "username123"
pet_api$api_client$password <- "password123"
pet_api$api_client$username <- ""
pet_api$api_client$password <- ""
result <- pet_api$AddPet(pet)
test_that("Test toJSONString", {