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.

  DATA:
        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.