Реализация ABAP Unit test
И не говорите мне, что я зануда.
Дело было так. Я когда-то уже вещал вам про TDD методологию, а сегодня решил на практике попробовать как оно работает в SAP. Сделал простой OData сервис, его и решил протестировать автоматизированно.
А теперь я хочу его автоматизированно тестировать. Ранее я рассказывал про sECATT. Сегодня поговорим про Unit тестирование. Это такая штука, которая программируется на языке программирования ABAP и позволяет проверять логику работы _внутри_ программы. То есть, она не имитирует работу пользователя, а проверяет внутренние процедуры, методы, функции на ожидаемый результат. Например, всегда должно сохранять данные с корректным форматом, никогда нельзя сохранять данные с некорректным форматом. Делаем для этого два метода – тест на положительный результат и тест на отрицательный результат.
Так, вернемся к нашим баранам. Есть класс Data Provider Class (DPC), который для OData модели поставляет данные по CRUD. То есть мы его мучаем HTTP запросом типа GET, например, а он нам данные отдает после аутентификации и авторизации. Нам нужно написать тест, который проверит, что данные на самом деле отдаются и соответствуют эталонным.
Для этого нам нужно сделать локальный класс, который будет тестировать методы DPC. Исходники ниже. Программист быстро разберется.
Все дело в плюшках!
Вот смотрите. Кроме того, что программулька умеет запускать эти тесты, собирать по ним статистику, делать это в фоне, тем самым автоматизируя контроль качества, уживается с код инспектором; программулька умеет думать! Ну как думать, она смотрит какие строчки исходного кода были протестированы или, говоря иначе, покрыты тестами.
То есть, прелесть ситуации в том, что система покажет, какие бизнес-ситуации вы еще не описали в тестах. Такая подсказка напомнит нам о нужной ситуации, мы ее напишем в виде теста.
Завтра прилетает из смежной области новая заявка. Кто-то что-то правит, все ломается. Вот чтобы это сломанное хозяйство не перенести в продуктив и нужны тесты. Тест уже в разработке проверит, что тот или иной алгоритм в куске кода не работает так, как было заложено в эталонном тесте. И тогда нужно либо искать ошибку в нововведениях, либо изменять тест под новые требования.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 |
class zcl_Ut_Z_Hrbot definition for testing duration short risk level harmless . *? *? *? *?zcl_Ut_Z_Hrbot *? *?f_Cut *? *?ZCL_Z_HRBOT_01_DPC_EXT *? *? *?X *? *? *? *?X *? *? *? *? 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. |
Один комментарий
Vitaly Potseluev
Проверка связи 😉