Initial Release
How many times do we find ourselves rebuilding, copy-pasting, adapting, Business Operations that make calls to REST services, and only adapting one or another part of the final code. This is annoying a lot. To resolve this our inconvenience, I present to you Interopway REST, a set of classes (a micro framework) that allows us to just add Business Operation to Production and use it.
Let’s understand how this works.
The objects responsible for transporting the data are grouped in the cjs.interopway.rest.dto package. Below we see a class diagram of its structure.
In this package we find 3 classes:
The Request/Response messages are defined in the package cjs.interopway.rest.bo. In the class diagram below we present only the most generic messages in the hierarchy that define the standard structure.
There are 12 message classes in this package.
The class cjs.interopway.rest.bo.Operation extends the default Business Operation EnsLib.REST.Operation which has some utility methods and is already configured with then EnsLib.HTTP.OutboundAdapter adapter.
This Business Operation has 5 Business Operation Methods, which are the methods that are in the MessageMap and are triggered when request messages are received:
These 5 methods only dispatch the call to the CallEndPoint method, which is responsible for invoking the REST service according to each HTTP verb associated with each message.
The GetHttpRequest method instantiates an object of type %Net.HttpResponse and fills in the HTTP headers.
The GetResponseHeaders method retrieves all headers returned in the request response.
The BeforeCallEndPoint and AfterCallEndPoint methods are hook methods to be implemented in Business Operation subclasses, to perform actions before and after invoking the EndPoint, respectively. An example of use would be to call a login method before requests, and process the response object.
Installation takes place via studio by importing the xml file with the project sources contained in the /src/xmlexport/Interopway_REST.xml.
The IPM package is also available for installation:
zpm "install interopway_rest"
The project has a Test Production cjs.interopway.rest.samples.InteropProducion and a class with unit tests cjs.interopway.rest.tests.InteropProduction. Only the Business Operation is used in the tests, as he is the one who does all the work.
To run the unit tests, copy the /src/xmlexport/Interopway_REST.xml
file to a directory, such as C:\temp\test.
Open a terminal session and assign the path in the global ^UnitTestRoot
Set ^UnitTestRoot = "C:\temp\tests"
After defining the global run the unit test:
Do ##Class(%UnitTest.Manager).RunTest("", "/nodelete")
This line of code will import, compile, run the class containing the unit tests. The /nodelete flag keeps the class source on the server.
Access the URL presented at the end of the execution and see the test results.
If everything went well, it should look something like the image below.
Below is the code for the TestPostUser and CallBusinessService method:
Method TestPostUser() As %Status { #Dim statusCode As %Status = ..IsProductionRunning() #Dim request As cjs.interopway.rest.bo.PostRequest = ##Class(cjs.interopway.rest.bo.PostRequest).%New() #Dim response As cjs.interopway.rest.bo.PostResponse = "" #Dim requestDTO As cjs.interopway.rest.dto.Request = ##Class(cjs.interopway.rest.dto.Request).%New() #Dim user As %DynamicObject = {} // Set user.email = "cristiano.js@gmail.com" Set user."first_name" = "Cristiano José" Set user."last_name" = "Silva" Set requestDTO.JSONPayload = user Set requestDTO.URL = ..#APIURL _ ..#USERENDPOINT Set request.RequestDTO = requestDTO Set statusCode = ..CallBusinesService(..#TARGETOPERATION, request, .response) If ($System.Status.IsOK(statusCode)) { Do ..LogMessage("Usuário criado com uscesso: " _ response.ResponseDTO.JSONPayload.id) } Return statusCode }
Method CallBusinesService(targetBusinessOperation As %String, request As cjs.interopway.rest.bo.BaseRequest, ByRef response As cjs.interopway.rest.bo.BaseResponse) As %Status [ Private ]
{
#Dim statusCode As %Status = $System.Status.OK()
#Dim exception As %Exception.General = ""
Try
{
Set statusCode = ##Class(EnsLib.Testing.Service).SendTestRequest(targetBusinessOperation, request, .response,, 1)
//
Do $$$AssertStatusOK(statusCode, "Status Code from GetUser")
//
#Dim httpStatus As %Integer = $Extract(response.ResponseDTO.HTTPStatus, 1, 1)
// Teste se o retorno é HTTPStatus está entre os status 200 é ok
Do $$$AssertEquals(httpStatus, 2, "HTTP Status "_ response.ResponseDTO.HTTPStatus)
}
Catch (exception)
{
Set statusCode = exception.AsStatus()
}
Return statusCode
}
The TestPostUser method instantiates a message to make the post of type cjs.interopway.rest.bo.PostRequest and fills the body with a dynamic object containing the JSON to be sent to the REST Service, assigns the url of the service and invokes the CallBusinessService method which invokes the testing service and dispatches the message to Business Operation. Note that all other test methods follow the same principle, except for the GET and DELETE method which have no body.
With Interopway REST, we only add the Business Operation to Production, configure or pass the access data via messages and we worry about implementing the business rules of the integrations and no longer with the code to make the connection with external services.