<p>And don&#8217;t tell me I&#8217;m a bore. ABAP unit test worth it!</p>
<p>Here how it was. Once I told you about Test Driven Development methodology, but today I decided to try it in practice how it works in SAP. I created basic OData Service and decided to test it automatically.</p>
<p><a href="http://saphr.ru/wp-content/uploads/segw_01.png"><img class="alignnone size-full wp-image-2200" src="http://saphr.ru/wp-content/uploads/segw_01.png" alt="" width="1208" height="371" /></a></p>
<p>Now I want to test it automatically. Earlier I told about <a href="https://saphcmsolutions.com/howto-organize-sap-testing/" target="_blank" rel="noopener">SECATT</a>. Today let&#8217;s talk about Unit testing. It such a thing which is developed in ABAP and allows to test logic inside of a program. It does not simulate user input but verifies internal procedures, methods, functions for a supposed result. For example, it should always save correct data but never allows to save incorrect data. To implement we create two methods &#8211; positive result test and negative result test.<br />
<!--more--></p>
<p>There is the class Data Provider Class (DPC), which provides data over CRUD for OData model. It means we send HTTP GET request, for example, and it sends us back some data after authentification. We need a test which verifies the data is sent and data is equal to etalon.</p>
<p>For this, we need to develop a local class which tests DPC methods. Sources are below.</p>
<p>Benefits!</p>
<h3>ABAP Unit Test Example</h3>
<p>Look. Except that program can run these tests, gather statistics, run everything in the background, thereby automating quality assurance, could live together with Code Inspector; besides all of these, it can think! Well, think in its own way &#8211; it finds out what code is covered and what is not by our test cases.</p>
<div id="attachment_2201" style="width: 868px" class="wp-caption alignnone"><a href="http://saphr.ru/wp-content/uploads/abu_01.png"><img aria-describedby="caption-attachment-2201" class="wp-image-2201 size-full" src="http://saphr.ru/wp-content/uploads/abu_01.png" alt="ABAP Unit Test" width="858" height="238" /></a><p id="caption-attachment-2201" class="wp-caption-text">ABAP Unit Test</p></div>
<p><a href="http://saphr.ru/wp-content/uploads/abu_02.png"><img class="alignnone size-full wp-image-2202" src="http://saphr.ru/wp-content/uploads/abu_02.png" alt="" width="702" height="318" /></a></p>
<p>The cool thing is the system shows what business-cases you have are not covered in the unit-test (test scenarios). Such hint will remind what business case is not developed in the test scenario.</p>
<p>Imagine tomorrow you&#8217;ll get a new support request. Somebody fix something and everything goes down. Here not to move all these broken stuff to production system we run unit-tests. Unit test will check everything in the development system, ensure this or that piece of code works not how it was supposed in test-case, And then you need to fix code in case of business logic change or fix error in your code. Don&#8217;t forget, it runs not only one particular unit-test, but dozens and hundreds of them being developed by other developers during system maintenance. Very convenient!</p>
<pre lang="abap">class zcl_Ut_Z_Hrbot definition for testing 
 duration short 
 risk level harmless 
. 
 
 private section. 
 
 data: mo_request_context_object type ref to /iwbep/cl_mgw_request_unittst. 
 data: ms_request_context_struct type /iwbep/cl_mgw_request_unittst=>;ty_s_mgw_request_context_unit. 
 data: mo_data_provider type ref to zcl_Z_Hrbot_01_Dpc_Ext. 
 
 methods: setup. 
 methods: teardown. 
 methods: lt_get_Entityset for testing. 
endclass. "zcl_Ut_Z_Hrbot 
 
 
class zcl_Ut_Z_Hrbot implementation. 
 
 method setup. 
 
 create object mo_data_provider . 
 
 endmethod. 
 
 
 method teardown. 
 
 
 endmethod. 
 
 
 method lt_get_Entityset. 
 
 DATA: lr_data TYPE REF TO data. 
 DATA: ls_response_context TYPE /iwbep/if_mgw_appl_types=>;ty_s_mgw_response_context. 
 DATA: ls_data TYPE zmes_quota. 
 FIELD-SYMBOLS: TYPE ANY TABLE. 
 
 ms_request_context_struct-technical_request-source_entity_type = 'Quota'. 
 ms_request_context_struct-technical_request-target_entity_type = 'Quota'. 
 ms_request_context_struct-technical_request-source_entity_set = 'QuotaSet'. 
 ms_request_context_struct-technical_request-target_entity_set = 'QuotaSet'. 
 
 mo_request_context_object = mo_data_provider->;/iwbep/if_mgw_conv_srv_runtime~init_dp_for_unit_test( 
 is_request_context = ms_request_context_struct ). 
 
 try . 
 mo_data_provider->;/IWBEP/IF_MGW_APPL_SRV_RUNTIME~GET_ENTITYSET( 
 exporting 
 io_tech_request_context = mo_request_context_object 
 importing 
 er_entityset = lr_data 
 es_response_context = ls_response_context 
 ). 
 
 catch /iwbep/cx_mgw_busi_exception. 
 
 catch /iwbep/cx_mgw_tech_exception. 
 
 endtry. 
 
 assign lr_data->;* to . 
 loop at into ls_data. 
 exit. 
 ENDLOOP. 
 
 cl_Abap_Unit_Assert=>;assert_Equals( 
 act = ls_data-pernr 
 exp = 1 
 msg = 'Testing one employee' 
* level = 
 ). 
 
 endmethod. 
 
 
 
endclass. 
</pre>