使用代碼執行ABAP unit test

METHOD call_unit_test.

 DATA:

   lr_au_factory   TYPE REF TO cl_aunit_factory,

   lr_au_task      TYPE REF TO if_aunit_task,

   lr_listener     TYPE REF TO cl_crm_soc_aunit_listener,

   lv_alert        TYPE string,

   ls_alert        TYPE cl_crm_soc_aunit_listener=>ty_s_alert,

   lt_alerts       TYPE cl_crm_soc_aunit_listener=>ty_t_alerts,

   lc_class_method_sep TYPE string VALUE '->',

   lv_class_method_line TYPE string.

       lv_prog_info    TYPE if_aunit_prog_info_types=>ty_s_program,

       lv_test_class TYPE if_aunit_prog_info_types=>ty_s_testclass,

       lr_test_class_handle TYPE REF TO cl_aunit_test_class.

 lv_prog_info = cl_aunit_prog_info=>get_program_info(

 obj_name =       iv_class_name

 obj_type =       iv_object_type "'FUGR' " 'CLAS'

 skip_class_info = abap_false

 allow_commit = abap_true ).

 READ TABLE lv_prog_info-testclasses INTO lv_test_class INDEX 1.

 lr_test_class_handle = cl_aunit_test_class=>create_by_info_structure(lv_test_class

       ).

 " assembly

 CREATE OBJECT lr_listener.

 CREATE OBJECT lr_au_factory.

 lr_au_task = lr_au_factory->create_task( listener = lr_listener ).

 " instrument and execute test task

 lr_au_task->add_test_class_handle( lr_test_class_handle ).

 lr_au_task->run( ).

 " do own custom evaluation

 lr_listener->get_result( IMPORTING et_alerts = lt_alerts ).

 IF lt_alerts IS NOT INITIAL.

   LOOP AT lt_alerts INTO ls_alert .

     CONCATENATE 'CLASS: ' ls_alert-class lc_class_method_sep ls_alert-method INTO lv_class_method_line.

     CONCATENATE lv_class_method_line ls_alert-title INTO lv_alertSEPARATED BY space.

     APPEND lv_alert TO et_alerts.

   ENDLOOP.

 ENDIF.

ENDMETHOD.