ABAP OData Test Tools
You can use this in writing unit-tests or in ADT for console run or in standalone programs.
ADT console run (Single GET)
TRY.
DATA(url) = `/sap/opu/odata/IWFND/CATALOGSERVICE;v=2/ServiceCollection?$format=json`.
DATA(odata_test_client) = zcl_odata_test=>new( ).
out->write( odata_test_client->get_csrf_token( ) ).
odata_test_client->get(
url = url
csrf_fetch = abap_true
)->assert_http_200( "HTTP 200 assertion
)->assert_json_content_type( "'application/json; charset=utf-8'
)->assert_csrf_token_not_initial( "'x-csrf-token' fetch
)->assert_json_not_empty( "Empty JSON check
)->assert_json_path_exists( '/d/results/1/Title' "follows AJSON project
).
out->write( |INFO: | & |"GET | & |{ url }| & |"| & | passed | ).
out->write( odata_test_client->get(
url = url
csrf_fetch = abap_true
)->get_json_path_value( '/d/results/5/Title'
) ).
CATCH BEFORE UNWIND zcx_rest_client INTO DATA(exception).
out->write( exception->get_text( ) ).
CATCH cx_aunit_sbx_quit_test_method INTO DATA(uncaught_exception).
out->write( |ERROR: | & |"GET | & |{ url }| & |"| & | failed| ).
ENDTRY.ADT Console Run (Multiple GETs)
METHOD if_oo_adt_classrun~main.
TRY.
DATA(bp_tab) = test_data( ). "prepare test data = 20 BP numbers
LOOP AT bp_tab ASSIGNING FIELD-SYMBOL(<bp>).
"prepare URL with variables
"v1 = variable value - name can be any as long as it is enclosed with {}
DATA(url) = `/sap/opu/odata/IWBEP/GWSAMPLE_BASIC/BusinessPartnerSet({v1})?$format=json`.
"construct key-value table with variables and their respective values
DATA vars TYPE zif_odata_test=>t_vars.
vars = VALUE #( ( key = `v1` value = <bp> ) ).
"call GET with URL & VARS
DATA(odata_test_client) = zcl_odata_test=>new( ).
DATA(result) =
odata_test_client->get(
url = url
vars = vars ).
"check response body (one can check response time, response status, header etc)
out->write( result->response->body ).
ENDLOOP.
CATCH zcx_odata_client INTO DATA(error).
out->write( error->get_text( ) ).
ENDTRY.
ENDMETHOD.