SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 11:46:38 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

add page for running unit tests (#5719)

Browse Source
This commit is contained in:
Lars Hvam 2022-09-02 08:43:28 +02:00 committed by GitHub
parent ae8d471d4a
commit 6743ac5fda
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 262 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
abaplint.json
View File

@ -158,7 +158,13 @@
"^if_wb_adt_plugin_resource_co$",
"^if_wb_object_data_selection_co$",
"^if_wb_object_operator$",
"^cl_abap_syst"
"^cl_abap_syst",
"^SABP_T_TADIR_KEYS$",
"^CL_SAUNIT_INTERNAL_RESULT$",
"^CL_AUCV_TEST_RUNNER_ABSTRACT$",
"^IF_SAUNIT_INTERNAL_RESULT$",
"^IF_SAUNIT_INTERNAL_RESULT_TYPE$",
"^CL_AUCV_TEST_RUNNER_STANDARD$"
]
},
"forbidden_identifier": true,

13
src/ui/zcl_abapgit_gui_page_repo_view.clas.abap
View File

@ -17,6 +17,7 @@ CLASS zcl_abapgit_gui_page_repo_view DEFINITION
toggle_diff_first TYPE string VALUE 'toggle_diff_first ' ##NO_TEXT,
display_more TYPE string VALUE 'display_more' ##NO_TEXT,
go_data TYPE string VALUE 'go_data',
go_unit TYPE string VALUE 'go_unit',
END OF c_actions .
METHODS constructor
@ -123,7 +124,7 @@ CLASS zcl_abapgit_gui_page_repo_view DEFINITION
VALUE(rv_inactive_html_code) TYPE string .
METHODS build_srcsystem_code
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_repo_item
!is_item TYPE zif_abapgit_definitions=>ty_repo_item
RETURNING
VALUE(rv_srcsystem_html_code) TYPE string .
METHODS open_in_main_language
@ -192,7 +193,7 @@ ENDCLASS.
CLASS zcl_abapgit_gui_page_repo_view IMPLEMENTATION.
CLASS ZCL_ABAPGIT_GUI_PAGE_REPO_VIEW IMPLEMENTATION.
METHOD apply_order_by.
@ -311,6 +312,8 @@ CLASS zcl_abapgit_gui_page_repo_view IMPLEMENTATION.
iv_typ = zif_abapgit_html=>c_action_type-separator ).
ro_advanced_dropdown->add( iv_txt = 'Syntax Check'
iv_act = |{ zif_abapgit_definitions=>c_action-repo_syntax_check }?key={ mv_key }| ).
ro_advanced_dropdown->add( iv_txt = 'Unit Test'
iv_act = |{ c_actions-go_unit }| ).
ro_advanced_dropdown->add( iv_txt = 'Run Code Inspector'
iv_act = |{ zif_abapgit_definitions=>c_action-repo_code_inspector }?key={ mv_key }| ).
@ -1275,6 +1278,12 @@ CLASS zcl_abapgit_gui_page_repo_view IMPLEMENTATION.
iv_key = |{ ii_event->query( )->get( 'KEY' ) }|.
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN c_actions-go_unit.
CREATE OBJECT rs_handled-page TYPE zcl_abapgit_gui_page_runit
EXPORTING
iv_devclass = mo_repo->get_package( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-new_page.
WHEN c_actions-toggle_hide_files. " Toggle file diplay
mv_hide_files = zcl_abapgit_persistence_user=>get_instance( )->toggle_hide_files( ).
rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.

228
src/ui/zcl_abapgit_gui_page_runit.clas.abap Normal file
View File

@ -0,0 +1,228 @@
CLASS zcl_abapgit_gui_page_runit DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_gui_page
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
METHODS constructor
IMPORTING
!iv_devclass TYPE devclass
RAISING
zcx_abapgit_exception .
METHODS:
zif_abapgit_gui_event_handler~on_event
REDEFINITION.
PROTECTED SECTION.
METHODS render_content
REDEFINITION .
PRIVATE SECTION.
TYPES: BEGIN OF ty_key,
obj_name TYPE tadir-obj_name,
obj_type TYPE tadir-object,
END OF ty_key.
TYPES ty_keys_tt TYPE STANDARD TABLE OF ty_key WITH DEFAULT KEY.
DATA mv_devclass TYPE devclass .
METHODS build_tadir
RETURNING
VALUE(rt_tadir) TYPE ty_keys_tt
RAISING
zcx_abapgit_exception .
METHODS run
RETURNING
VALUE(ro_result) TYPE REF TO object
RAISING
zcx_abapgit_exception .
ENDCLASS.
CLASS ZCL_ABAPGIT_GUI_PAGE_RUNIT IMPLEMENTATION.
METHOD build_tadir.
DATA lt_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt.
DATA ls_tadir LIKE LINE OF lt_tadir.
DATA ls_row LIKE LINE OF rt_tadir.
lt_tadir = zcl_abapgit_factory=>get_tadir( )->read(
iv_package = mv_devclass
iv_only_local_objects = abap_true ).
LOOP AT lt_tadir INTO ls_tadir.
CLEAR ls_row.
ls_row-obj_type = ls_tadir-object.
ls_row-obj_name = ls_tadir-obj_name.
APPEND ls_row TO rt_tadir.
ENDLOOP.
ENDMETHOD.
METHOD constructor.
super->constructor( ).
ms_control-page_title = |Run Unit Tests { iv_devclass }|.
mv_devclass = iv_devclass.
ENDMETHOD.
METHOD render_content.
DATA lo_result TYPE REF TO object.
DATA lv_program_ndx TYPE i.
DATA lv_class_ndx TYPE i.
DATA lv_method_ndx TYPE i.
DATA lv_text TYPE string.
DATA lv_count TYPE i.
DATA lv_params TYPE string.
FIELD-SYMBOLS <ls_task_data> TYPE any.
FIELD-SYMBOLS <lt_programs> TYPE ANY TABLE.
FIELD-SYMBOLS <ls_alert_by_index> TYPE any.
FIELD-SYMBOLS <lt_indices> TYPE ANY TABLE.
FIELD-SYMBOLS <lt_alerts> TYPE ANY TABLE.
FIELD-SYMBOLS <lt_classes> TYPE ANY TABLE.
FIELD-SYMBOLS <lt_methods> TYPE ANY TABLE.
FIELD-SYMBOLS <ls_alert> TYPE any.
FIELD-SYMBOLS <ls_program> TYPE any.
FIELD-SYMBOLS <ls_class> TYPE any.
FIELD-SYMBOLS <ls_method> TYPE any.
FIELD-SYMBOLS <lv_any> TYPE any.
FIELD-SYMBOLS <lt_params> TYPE string_table.
CREATE OBJECT ri_html TYPE zcl_abapgit_html.
ri_html->add( '<div class="repo">' ).
lo_result = run( ).
ASSIGN lo_result->('F_TASK_DATA') TO <ls_task_data>.
ASSIGN COMPONENT 'ALERTS_BY_INDICIES' OF STRUCTURE <ls_task_data> TO <lt_indices>.
ASSIGN COMPONENT 'PROGRAMS' OF STRUCTURE <ls_task_data> TO <lt_programs>.
LOOP AT <lt_indices> ASSIGNING <ls_alert_by_index>.
ASSIGN COMPONENT 'ALERTS' OF STRUCTURE <ls_alert_by_index> TO <lt_alerts>.
LOOP AT <lt_alerts> ASSIGNING <ls_alert> WHERE ('KIND = ''F'' OR KIND = ''S'''). " check level=F(ail?) instead?
ASSIGN COMPONENT 'HEADER-PARAMS' OF STRUCTURE <ls_alert> TO <lt_params>.
LOOP AT <lt_params> INTO lv_params.
lv_text = lv_params.
ENDLOOP.
ri_html->add( |<span class="boxed red-filled-set">{ lv_text }</span><br>| ).
lv_count = lv_count + 1.
ENDLOOP.
ENDLOOP.
ri_html->add( |<b>{ lv_count } Errors</b><br>| ).
ri_html->add( |<hr><table>| ).
LOOP AT <lt_programs> ASSIGNING <ls_program>.
lv_program_ndx = sy-tabix.
ASSIGN COMPONENT 'INFO-KEY-OBJ_TYPE' OF STRUCTURE <ls_program> TO <lv_any>.
IF sy-subrc = 0.
ri_html->add( |<tr><td>{ <lv_any> } | ).
ASSIGN COMPONENT 'INFO-KEY-OBJ_NAME' OF STRUCTURE <ls_program> TO <lv_any>.
ri_html->add( |{ <lv_any> }</td><td></td></tr>| ).
ELSE.
* KEY field does not exist in 750
ASSIGN COMPONENT 'INFO-NAME' OF STRUCTURE <ls_program> TO <lv_any>.
ri_html->add( |<tr><td>{ <lv_any> }</td><td></td></tr>| ).
ENDIF.
ASSIGN COMPONENT 'CLASSES' OF STRUCTURE <ls_program> TO <lt_classes>.
LOOP AT <lt_classes> ASSIGNING <ls_class>.
lv_class_ndx = sy-tabix.
ASSIGN COMPONENT 'INFO-NAME' OF STRUCTURE <ls_class> TO <lv_any>.
ri_html->add( |<tr><td>&nbsp;&nbsp;&nbsp;&nbsp;{ <lv_any> }</td><td></td></tr>| ).
ASSIGN COMPONENT 'METHODS' OF STRUCTURE <ls_class> TO <lt_methods>.
LOOP AT <lt_methods> ASSIGNING <ls_method>.
lv_method_ndx = sy-tabix.
CLEAR lv_text.
READ TABLE <lt_indices> WITH KEY
('PROGRAM_NDX') = lv_program_ndx
('CLASS_NDX') = lv_class_ndx
('METHOD_NDX') = lv_method_ndx
ASSIGNING <ls_alert_by_index>.
IF sy-subrc = 0.
ASSIGN COMPONENT 'ALERTS' OF STRUCTURE <ls_alert_by_index> TO <lt_alerts>.
LOOP AT <lt_alerts> ASSIGNING <ls_alert>.
ASSIGN COMPONENT 'HEADER-PARAMS' OF STRUCTURE <ls_alert> TO <lt_params>.
LOOP AT <lt_params> INTO lv_params.
lv_text = lv_params.
ENDLOOP.
ENDLOOP.
ENDIF.
IF lv_text IS INITIAL.
lv_text = |<span class="boxed green-filled-set">PASSED</span>|.
ELSE.
lv_text = |<span class="boxed red-filled-set">{ lv_text }</span>|.
ENDIF.
ASSIGN COMPONENT 'INFO-NAME' OF STRUCTURE <ls_method> TO <lv_any>.
ri_html->add( |<tr><td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{
<lv_any> }</td><td>{ lv_text }</td></tr>| ).
ENDLOOP.
ENDLOOP.
ENDLOOP.
ri_html->add( '</table></div>' ).
ENDMETHOD.
METHOD run.
DATA lo_passport TYPE REF TO object.
DATA lo_runner TYPE REF TO object.
DATA lt_keys TYPE ty_keys_tt.
DATA li_result TYPE REF TO data.
FIELD-SYMBOLS <li_result> TYPE any.
lt_keys = build_tadir( ).
TRY.
CALL METHOD ('\PROGRAM=SAPLSAUCV_GUI_RUNNER\CLASS=PASSPORT')=>get
RECEIVING
result = lo_passport.
CALL METHOD ('CL_AUCV_TEST_RUNNER_STANDARD')=>create
EXPORTING
i_passport = lo_passport
RECEIVING
result = lo_runner.
CATCH cx_root.
zcx_abapgit_exception=>raise( |Not supported in your NW release| ).
ENDTRY.
CREATE DATA li_result TYPE REF TO ('IF_SAUNIT_INTERNAL_RESULT').
ASSIGN li_result->* TO <li_result>.
CALL METHOD lo_runner->('RUN_FOR_PROGRAM_KEYS')
EXPORTING
i_limit_on_duration_category = '36' " long
i_limit_on_risk_level = '33' " critical
i_program_keys = lt_keys
IMPORTING
e_aunit_result = <li_result>.
ro_result = <li_result>.
ENDMETHOD.
METHOD zif_abapgit_gui_event_handler~on_event.
RETURN.
ENDMETHOD.
ENDCLASS.

16
src/ui/zcl_abapgit_gui_page_runit.clas.xml Normal file
View File

@ -0,0 +1,16 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<VSEOCLASS>
<CLSNAME>ZCL_ABAPGIT_GUI_PAGE_RUNIT</CLSNAME>
<LANGU>E</LANGU>
<DESCRIPT>abapGit - Run Unit Tests</DESCRIPT>
<STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT>
<UNICODE>X</UNICODE>
</VSEOCLASS>
</asx:values>
</asx:abap>
</abapGit>