SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 12:20:51 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Fixes test_classes on ABAP 7.02

Browse Source
This commit is contained in:
eduardocopat 2017-01-31 09:37:25 +01:00
parent c6d1bb8e69
commit e47811c97d
2 changed files with 19 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/zabapgit_object_clas.prog.abap
View File

@ -82,15 +82,16 @@ INTERFACE lif_object_oriented_object_fnc.
VALUE(rv_exists) TYPE abap_bool, VALUE(rv_exists) TYPE abap_bool,
serialize_abap serialize_abap
IMPORTING IMPORTING
is_class_key TYPE seoclskey is_class_key TYPE seoclskey
iv_type TYPE seop_include_ext_app OPTIONAL iv_type TYPE seop_include_ext_app OPTIONAL
CHANGING
cv_test_classes_skipped TYPE abap_bool OPTIONAL
RETURNING RETURNING
VALUE(rt_source) TYPE ty_string_tt VALUE(rt_source) TYPE ty_string_tt
RAISING RAISING
lcx_exception lcx_exception
cx_sy_dyn_call_error, cx_sy_dyn_call_error,
get_skip_test_classes
RETURNING
VALUE(rv_skip) TYPE abap_bool,
get_class_properties get_class_properties
IMPORTING IMPORTING
is_class_key TYPE seoclskey is_class_key TYPE seoclskey
@ -391,6 +392,7 @@ CLASS lcl_object_oriented_base DEFINITION ABSTRACT.
PUBLIC SECTION. PUBLIC SECTION.
INTERFACES: lif_object_oriented_object_fnc. INTERFACES: lif_object_oriented_object_fnc.
PRIVATE SECTION. PRIVATE SECTION.
DATA mv_skip_test_classes TYPE abap_bool.
METHODS deserialize_abap_source_old METHODS deserialize_abap_source_old
IMPORTING is_clskey TYPE seoclskey IMPORTING is_clskey TYPE seoclskey
it_source TYPE ty_string_tt it_source TYPE ty_string_tt
@ -549,10 +551,14 @@ CLASS lcl_object_oriented_base IMPLEMENTATION.
rt_source = lo_oo_serializer->serialize_macros( is_class_key ). rt_source = lo_oo_serializer->serialize_macros( is_class_key ).
WHEN seop_ext_class_testclasses. WHEN seop_ext_class_testclasses.
rt_source = lo_oo_serializer->serialize_testclasses( is_class_key ). rt_source = lo_oo_serializer->serialize_testclasses( is_class_key ).
mv_skip_test_classes = lo_oo_serializer->are_test_classes_skipped( ).
WHEN OTHERS. WHEN OTHERS.
rt_source = lo_oo_serializer->serialize_abap_clif_source( is_class_key ). rt_source = lo_oo_serializer->serialize_abap_clif_source( is_class_key ).
ENDCASE. ENDCASE.
ENDMETHOD. ENDMETHOD.
METHOD lif_object_oriented_object_fnc~get_skip_test_classes.
rv_skip = mv_skip_test_classes.
ENDMETHOD.
METHOD lif_object_oriented_object_fnc~get_class_properties. METHOD lif_object_oriented_object_fnc~get_class_properties.
ASSERT 0 = 1. ASSERT 0 = 1.
ENDMETHOD. ENDMETHOD.
@ -1158,11 +1164,10 @@ CLASS lcl_object_clas IMPLEMENTATION.
ENDIF. ENDIF.
lt_source = mo_object_oriented_object_fct->serialize_abap( lt_source = mo_object_oriented_object_fct->serialize_abap(
EXPORTING is_class_key = ls_class_key
is_class_key = ls_class_key iv_type = seop_ext_class_testclasses ).
iv_type = seop_ext_class_testclasses
CHANGING mv_skip_testclass = mo_object_oriented_object_fct->get_skip_test_classes( ).
cv_test_classes_skipped = mv_skip_testclass ).
IF NOT lt_source[] IS INITIAL AND mv_skip_testclass = abap_false. IF NOT lt_source[] IS INITIAL AND mv_skip_testclass = abap_false.
mo_files->add_abap( iv_extra = 'testclasses' mo_files->add_abap( iv_extra = 'testclasses'
it_abap = lt_source ). "#EC NOTEXT it_abap = lt_source ). "#EC NOTEXT

5
src/zabapgit_unit_test_clas_intf.prog.abap
View File

@ -111,7 +111,6 @@ CLASS ltd_spy_oo_object IMPLEMENTATION.
rt_source = mt_local_macros. rt_source = mt_local_macros.
WHEN seop_ext_class_testclasses. WHEN seop_ext_class_testclasses.
rt_source = mt_local_test_classes. rt_source = mt_local_test_classes.
cv_test_classes_skipped = mv_skip_test_classes.
WHEN OTHERS. WHEN OTHERS.
rt_source = mt_source. rt_source = mt_source.
ENDCASE. ENDCASE.
@ -141,6 +140,10 @@ CLASS ltd_spy_oo_object IMPLEMENTATION.
rt_descriptions = mt_descriptions. rt_descriptions = mt_descriptions.
ENDMETHOD. ENDMETHOD.
METHOD lif_object_oriented_object_fnc~get_skip_test_classes.
rv_skip = mv_skip_test_classes.
ENDMETHOD.
ENDCLASS. ENDCLASS.
CLASS ltd_fake_object_files DEFINITION FOR TESTING CLASS ltd_fake_object_files DEFINITION FOR TESTING