mirror of
https://github.com/abapGit/abapGit.git
synced 2025-04-30 20:03:20 +08:00
f14ac831ba
* add global classes for objects * fix metadata * comment old code fix serializer class move missing interfaces * keep objects and bridge as local * fix syntax errors and remove SICF -> tadir dependency, instead tadir -> SICF * remove dependency TABL -> lcl_popups * fix indentation * remove old includes * fix parser errors * fix deserializing
1352 lines
42 KiB
ABAP
1352 lines
42 KiB
ABAP
|
|
*********************
|
|
*********************
|
|
*********************
|
|
*********************
|
|
*********************
|
|
* TODO, move contents of this include to global OO serialization/deserialization classes
|
|
*********************
|
|
*********************
|
|
*********************
|
|
*********************
|
|
|
|
*CLASS ltcl_oo_factory_injector DEFINITION FOR TESTING.
|
|
* PUBLIC SECTION.
|
|
* CLASS-METHODS:
|
|
* inject
|
|
* IMPORTING
|
|
* io_object_oriented_object TYPE REF TO zif_abapgit_oo_object_fnc.
|
|
*ENDCLASS.
|
|
*
|
|
*CLASS ltcl_oo_factory_injector IMPLEMENTATION.
|
|
* METHOD inject.
|
|
* lcl_oo_factory=>go_object_oriented_object = io_object_oriented_object.
|
|
* ENDMETHOD.
|
|
*ENDCLASS.
|
|
|
|
*CLASS ltd_spy_oo_object DEFINITION FOR TESTING.
|
|
* PUBLIC SECTION.
|
|
* INTERFACES: if_oo_object_fnc.
|
|
* DATA:
|
|
* mv_package TYPE devclass,
|
|
* mv_overwrite TYPE seox_boolean,
|
|
* ms_interface_properties TYPE vseointerf,
|
|
* ms_class_properties TYPE vseoclass,
|
|
* ms_locals_key TYPE seoclskey,
|
|
* mt_local_definitions TYPE rswsourcet,
|
|
* mt_local_implementations TYPE rswsourcet,
|
|
* mt_local_macros TYPE rswsourcet,
|
|
* mt_local_test_classes TYPE rswsourcet,
|
|
* mv_force TYPE seoflag,
|
|
* ms_deserialize_key TYPE seoclskey,
|
|
* mt_source TYPE zif_abapgit_definitions=>ty_string_tt,
|
|
* ms_item_to_activate TYPE zif_abapgit_definitions=>ty_item,
|
|
* mt_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt,
|
|
* ms_description_key TYPE seoclskey,
|
|
* mv_text_pool_class_name TYPE seoclsname,
|
|
* mt_text_pool TYPE textpool_table,
|
|
* mv_text_pool_inserted TYPE abap_bool,
|
|
* mt_sotr TYPE zif_abapgit_definitions=>ty_sotr_tt,
|
|
* mt_sotr_package TYPE devclass,
|
|
* mv_docu_object_name TYPE dokhl-object,
|
|
* mv_docu_language TYPE spras,
|
|
* mt_docu_lines TYPE tlinetab,
|
|
* mv_get_includes_called TYPE abap_bool,
|
|
* mv_exists TYPE abap_bool,
|
|
* mv_exists_called TYPE abap_bool,
|
|
* ms_serialize_key TYPE seoclskey,
|
|
* ms_delete_key TYPE seoclskey,
|
|
* mv_skip_test_classes TYPE abap_bool.
|
|
* PRIVATE SECTION.
|
|
*
|
|
*
|
|
*ENDCLASS.
|
|
*CLASS ltd_spy_oo_object IMPLEMENTATION.
|
|
* METHOD lif_oo_object_fnc~create.
|
|
* DATA lv_properties_structure_name TYPE string.
|
|
* lv_properties_structure_name = cl_abap_typedescr=>describe_by_data( is_properties )->absolute_name.
|
|
* IF lv_properties_structure_name = cl_abap_typedescr=>describe_by_data( ms_interface_properties )->absolute_name.
|
|
* ms_interface_properties = is_properties.
|
|
* ELSE.
|
|
* ms_class_properties = is_properties.
|
|
* ENDIF.
|
|
* mv_package = iv_package.
|
|
* mv_overwrite = iv_overwrite.
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD lif_oo_object_fnc~generate_locals.
|
|
* ms_locals_key = is_key.
|
|
* mt_local_definitions = it_local_definitions.
|
|
* mt_local_implementations = it_local_implementations.
|
|
* mt_local_macros = it_local_macros.
|
|
* mt_local_test_classes = it_local_test_classes.
|
|
* mv_force = iv_force.
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD lif_oo_object_fnc~deserialize_source.
|
|
* ms_deserialize_key = is_key.
|
|
* mt_source = it_source.
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD lif_oo_object_fnc~add_to_activation_list.
|
|
* ms_item_to_activate = is_item.
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD lif_oo_object_fnc~update_descriptions.
|
|
* ms_description_key = is_key.
|
|
* mt_descriptions = it_descriptions.
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD lif_oo_object_fnc~insert_text_pool.
|
|
* mv_text_pool_inserted = abap_true.
|
|
* mv_text_pool_class_name = iv_class_name.
|
|
* mt_text_pool = it_text_pool.
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = iv_language
|
|
* exp = sy-langu ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD lif_oo_object_fnc~create_sotr.
|
|
* mt_sotr = it_sotr.
|
|
* mt_sotr_package = iv_package.
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD lif_oo_object_fnc~create_documentation.
|
|
* mv_docu_object_name = iv_object_name.
|
|
* mv_docu_language = iv_language.
|
|
* mt_docu_lines = it_lines.
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD lif_oo_object_fnc~get_includes.
|
|
* APPEND 'dummy' TO rt_includes.
|
|
* mv_get_includes_called = abap_true.
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD lif_oo_object_fnc~exists.
|
|
* mv_exists_called = abap_true.
|
|
* rv_exists = mv_exists.
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD lif_oo_object_fnc~serialize_abap.
|
|
* ms_serialize_key = is_class_key.
|
|
* CASE iv_type.
|
|
* WHEN seop_ext_class_locals_def.
|
|
* rt_source = mt_local_definitions.
|
|
* WHEN seop_ext_class_locals_imp.
|
|
* rt_source = mt_local_implementations.
|
|
* WHEN seop_ext_class_macros.
|
|
* rt_source = mt_local_macros.
|
|
* WHEN seop_ext_class_testclasses.
|
|
* rt_source = mt_local_test_classes.
|
|
* WHEN OTHERS.
|
|
* rt_source = mt_source.
|
|
* ENDCASE.
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD lif_oo_object_fnc~get_class_properties.
|
|
* rs_class_properties = ms_class_properties.
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD lif_oo_object_fnc~get_interface_properties.
|
|
* rs_interface_properties = ms_interface_properties.
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD lif_oo_object_fnc~read_text_pool.
|
|
* rt_text_pool = mt_text_pool.
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD lif_oo_object_fnc~read_sotr.
|
|
* rt_sotr = mt_sotr.
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD lif_oo_object_fnc~read_documentation.
|
|
* rt_lines = mt_docu_lines.
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD lif_oo_object_fnc~read_descriptions.
|
|
* rt_descriptions = mt_descriptions.
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD lif_oo_object_fnc~get_skip_test_classes.
|
|
* rv_skip = mv_skip_test_classes.
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD lif_oo_object_fnc~delete.
|
|
* ms_delete_key = is_deletion_key.
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD lif_oo_object_fnc~read_superclass.
|
|
* RETURN.
|
|
* ENDMETHOD.
|
|
*
|
|
*ENDCLASS.
|
|
*
|
|
*CLASS ltd_fake_object_files DEFINITION FOR TESTING
|
|
* INHERITING FROM zcl_abapgit_objects_files.
|
|
*
|
|
* PUBLIC SECTION.
|
|
* METHODS constructor.
|
|
* METHODS add_abap REDEFINITION.
|
|
* METHODS read_abap REDEFINITION.
|
|
* DATA:
|
|
* mt_sources TYPE seop_source_string,
|
|
* mt_local_definitions TYPE seop_source_string,
|
|
* mt_local_implementations TYPE seop_source_string,
|
|
* mt_local_macros TYPE seop_source_string,
|
|
* mt_local_test_classes TYPE seop_source_string.
|
|
*ENDCLASS.
|
|
*CLASS ltd_fake_object_files IMPLEMENTATION.
|
|
* METHOD read_abap.
|
|
* CASE iv_extra.
|
|
* WHEN 'locals_def'.
|
|
* rt_abap = mt_local_definitions.
|
|
* WHEN 'locals_imp'.
|
|
* rt_abap = mt_local_implementations.
|
|
* WHEN 'macros'.
|
|
* rt_abap = mt_local_macros.
|
|
* WHEN 'testclasses'.
|
|
* rt_abap = mt_local_test_classes.
|
|
* WHEN OTHERS.
|
|
* rt_abap = mt_sources.
|
|
* RETURN.
|
|
* ENDCASE.
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals( act = iv_error
|
|
* exp = abap_false ).
|
|
* ENDMETHOD.
|
|
* METHOD constructor.
|
|
* DATA ls_empty_item TYPE zif_abapgit_definitions=>ty_item.
|
|
* super->constructor( ls_empty_item ).
|
|
* APPEND 'source' TO me->mt_sources.
|
|
* APPEND 'definition' TO me->mt_local_definitions.
|
|
* APPEND 'implementation' TO me->mt_local_implementations.
|
|
* APPEND 'macro' TO me->mt_local_macros.
|
|
* APPEND 'test' TO me->mt_local_test_classes.
|
|
* ENDMETHOD.
|
|
* METHOD add_abap.
|
|
* CASE iv_extra.
|
|
* WHEN 'locals_def'.
|
|
* mt_local_definitions = it_abap.
|
|
* WHEN 'locals_imp'.
|
|
* mt_local_implementations = it_abap.
|
|
* WHEN 'macros'.
|
|
* mt_local_macros = it_abap.
|
|
* WHEN 'testclasses'.
|
|
* mt_local_test_classes = it_abap.
|
|
* WHEN OTHERS.
|
|
* mt_sources = it_abap.
|
|
* RETURN.
|
|
* ENDCASE.
|
|
* ENDMETHOD.
|
|
*ENDCLASS.
|
|
*
|
|
*CLASS ltc_oo_test DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT.
|
|
* PROTECTED SECTION.
|
|
* DATA:
|
|
* mo_spy_oo_object_functions TYPE REF TO ltd_spy_oo_object,
|
|
* mo_fake_object_files TYPE REF TO ltd_fake_object_files,
|
|
* mo_xml_input TYPE REF TO zcl_abapgit_xml_input,
|
|
* mo_xml_out TYPE REF TO zcl_abapgit_xml_output,
|
|
* mo_oo_object TYPE REF TO zif_abapgit_object,
|
|
* ms_item TYPE zif_abapgit_definitions=>ty_item.
|
|
*
|
|
* METHODS: when_deserializing
|
|
* RAISING
|
|
* zcx_abapgit_exception,
|
|
* then_should_deserialize_source,
|
|
* given_the_descriptions
|
|
* IMPORTING
|
|
* it_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt
|
|
* RAISING
|
|
* zcx_abapgit_exception,
|
|
* then_shuld_update_descriptions
|
|
* IMPORTING
|
|
* it_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt,
|
|
* then_it_should_add_activation,
|
|
* given_documentation_in_xml_as
|
|
* IMPORTING
|
|
* it_lines TYPE tlinetab
|
|
* RAISING
|
|
* zcx_abapgit_exception,
|
|
* then_docu_should_be_created
|
|
* IMPORTING
|
|
* it_lines TYPE tlinetab,
|
|
* should_serialize_with_obj_key.
|
|
*
|
|
*ENDCLASS.
|
|
*
|
|
*CLASS ltc_oo_test IMPLEMENTATION.
|
|
*
|
|
* METHOD should_serialize_with_obj_key.
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = me->mo_spy_oo_object_functions->ms_serialize_key
|
|
* exp = ms_item-obj_name ).
|
|
*
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD then_docu_should_be_created.
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->mt_docu_lines
|
|
* exp = it_lines ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->mv_docu_object_name
|
|
* exp = ms_item-obj_name ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->mv_docu_language
|
|
* exp = sy-langu ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD given_documentation_in_xml_as.
|
|
* mo_xml_out->add(
|
|
* iv_name = 'LINES'
|
|
* ig_data = it_lines ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD then_it_should_add_activation.
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->ms_item_to_activate
|
|
* exp = ms_item ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD then_shuld_update_descriptions.
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->mt_descriptions
|
|
* exp = it_descriptions ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->ms_description_key
|
|
* exp = ms_item-obj_name ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD given_the_descriptions.
|
|
* mo_xml_out->add(
|
|
* iv_name = 'DESCRIPTIONS'
|
|
* ig_data = it_descriptions ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD then_should_deserialize_source.
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->mt_source
|
|
* exp = mo_fake_object_files->mt_sources ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->ms_deserialize_key
|
|
* exp = ms_item-obj_name ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD when_deserializing.
|
|
* CREATE OBJECT mo_xml_input
|
|
* EXPORTING
|
|
* iv_xml = mo_xml_out->render( ).
|
|
* mo_oo_object->deserialize(
|
|
* iv_package = 'package_name'
|
|
* io_xml = mo_xml_input ).
|
|
* ENDMETHOD.
|
|
*ENDCLASS.
|
|
*
|
|
*CLASS ltcl_class_deserialization DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT
|
|
*INHERITING FROM ltc_oo_test.
|
|
* PRIVATE SECTION.
|
|
* METHODS:
|
|
* setup,
|
|
* given_a_class_properties
|
|
* RAISING
|
|
* zcx_abapgit_exception,
|
|
* then_should_create_class,
|
|
* then_it_should_generate_locals,
|
|
* should_create_class FOR TESTING RAISING cx_static_check,
|
|
* should_generate_locals FOR TESTING RAISING cx_static_check,
|
|
* should_deserialize_source FOR TESTING RAISING cx_static_check,
|
|
* should_update_descriptions FOR TESTING RAISING cx_static_check,
|
|
* should_add_to_activation FOR TESTING RAISING cx_static_check,
|
|
* no_text_pool_no_insert FOR TESTING RAISING cx_static_check,
|
|
* insert_text_pool FOR TESTING RAISING cx_static_check,
|
|
* create_stor_from_xml FOR TESTING RAISING cx_static_check,
|
|
* create_documentation FOR TESTING RAISING cx_static_check.
|
|
* DATA:
|
|
* ms_class_properties TYPE vseoclass.
|
|
*ENDCLASS.
|
|
*
|
|
*CLASS ltcl_class_deserialization IMPLEMENTATION.
|
|
* METHOD setup.
|
|
* CREATE OBJECT mo_fake_object_files.
|
|
* CREATE OBJECT mo_spy_oo_object_functions.
|
|
* CREATE OBJECT mo_xml_out.
|
|
* ltcl_oo_factory_injector=>inject( mo_spy_oo_object_functions ).
|
|
*
|
|
* ms_item-devclass = 'package_name'.
|
|
* ms_item-obj_name = 'zcl_class'.
|
|
* ms_item-obj_type = 'CLAS'.
|
|
*
|
|
* CREATE OBJECT mo_oo_object TYPE lcl_object_clas
|
|
* EXPORTING
|
|
* is_item = ms_item
|
|
* iv_language = sy-langu.
|
|
* mo_oo_object->mo_files = mo_fake_object_files.
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD should_create_class.
|
|
* ms_class_properties-clsname = ms_item-obj_name.
|
|
*
|
|
* given_a_class_properties( ).
|
|
*
|
|
* when_deserializing( ).
|
|
*
|
|
* then_should_create_class( ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD should_generate_locals.
|
|
* given_a_class_properties( ).
|
|
*
|
|
* when_deserializing( ).
|
|
*
|
|
* then_it_should_generate_locals( ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD should_deserialize_source.
|
|
* given_a_class_properties( ).
|
|
*
|
|
* when_deserializing( ).
|
|
*
|
|
* then_should_deserialize_source( ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD should_update_descriptions.
|
|
* DATA:
|
|
* ls_description TYPE seocompotx,
|
|
* lt_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt.
|
|
*
|
|
* given_a_class_properties( ).
|
|
*
|
|
* ls_description-clsname = ms_item-obj_name.
|
|
* ls_description-cmpname = 'a_method'.
|
|
* APPEND ls_description TO lt_descriptions.
|
|
* given_the_descriptions( lt_descriptions ).
|
|
*
|
|
* when_deserializing( ).
|
|
*
|
|
* then_shuld_update_descriptions( lt_descriptions ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD should_add_to_activation.
|
|
* given_a_class_properties( ).
|
|
*
|
|
* when_deserializing( ).
|
|
*
|
|
* then_it_should_add_activation( ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD given_a_class_properties.
|
|
* mo_xml_out->add(
|
|
* iv_name = 'VSEOCLASS'
|
|
* ig_data = ms_class_properties ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD then_should_create_class.
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->ms_class_properties
|
|
* exp = ms_class_properties ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals( act = mo_spy_oo_object_functions->mv_overwrite
|
|
* exp = abap_true ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->mv_package
|
|
* exp = 'package_name' ).
|
|
* ENDMETHOD.
|
|
*
|
|
*
|
|
* METHOD then_it_should_generate_locals.
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->ms_locals_key
|
|
* exp = ms_item-obj_name ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals( act = mo_spy_oo_object_functions->mv_force
|
|
* exp = abap_true ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->mt_local_definitions
|
|
* exp = mo_fake_object_files->mt_local_definitions ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->mt_local_implementations
|
|
* exp = mo_fake_object_files->mt_local_implementations ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->mt_local_macros
|
|
* exp = mo_fake_object_files->mt_local_macros ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->mt_local_test_classes
|
|
* exp = mo_fake_object_files->mt_local_test_classes ).
|
|
* ENDMETHOD.
|
|
* METHOD no_text_pool_no_insert.
|
|
* given_a_class_properties( ).
|
|
*
|
|
* when_deserializing( ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals( act = mo_spy_oo_object_functions->mv_text_pool_inserted
|
|
* exp = abap_false ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD insert_text_pool.
|
|
* DATA: lt_pool_external TYPE textpool_table,
|
|
* ls_pool_external TYPE zif_abapgit_definitions=>ty_tpool.
|
|
* ls_pool_external-id = 'ID'.
|
|
* ls_pool_external-key = 'KEY'.
|
|
* APPEND ls_pool_external TO lt_pool_external.
|
|
*
|
|
* given_a_class_properties( ).
|
|
*
|
|
* mo_xml_out->add(
|
|
* iv_name = 'TPOOL'
|
|
* ig_data = lt_pool_external ).
|
|
*
|
|
* when_deserializing( ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->mt_text_pool
|
|
* exp = lt_pool_external ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->mv_text_pool_class_name
|
|
* exp = 'zcl_class' ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD create_stor_from_xml.
|
|
* DATA:
|
|
* lt_sotr TYPE zif_abapgit_definitions=>ty_sotr_tt,
|
|
* ls_sotr LIKE LINE OF lt_sotr.
|
|
*
|
|
* given_a_class_properties( ).
|
|
*
|
|
* ls_sotr-header-concept = 'HEADER'.
|
|
* APPEND ls_sotr TO lt_sotr.
|
|
* mo_xml_out->add(
|
|
* iv_name = 'SOTR'
|
|
* ig_data = lt_sotr ).
|
|
*
|
|
* when_deserializing( ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->mt_sotr
|
|
* exp = lt_sotr ).
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->mt_sotr_package
|
|
* exp = 'package_name' ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD create_documentation.
|
|
* DATA: lt_lines TYPE tlinetab,
|
|
* ls_line TYPE LINE OF tlinetab.
|
|
* ls_line-tdline = 'Class Line Doc'.
|
|
* APPEND ls_line TO lt_lines.
|
|
*
|
|
* given_a_class_properties( ).
|
|
*
|
|
* given_documentation_in_xml_as( lt_lines ).
|
|
*
|
|
* when_deserializing( ).
|
|
*
|
|
* then_docu_should_be_created( lt_lines ).
|
|
* ENDMETHOD.
|
|
*ENDCLASS.
|
|
*
|
|
*CLASS ltcl_interface_deserialization DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT
|
|
*INHERITING FROM ltc_oo_test.
|
|
* PRIVATE SECTION.
|
|
* METHODS:
|
|
* setup,
|
|
* given_an_interface_properties
|
|
* RAISING
|
|
* zcx_abapgit_exception,
|
|
* then_should_create_interface,
|
|
* create_interface FOR TESTING RAISING cx_static_check,
|
|
* update_descriptions FOR TESTING RAISING cx_static_check,
|
|
* add_to_activation FOR TESTING RAISING cx_static_check,
|
|
* deserialize_source FOR TESTING RAISING cx_static_check,
|
|
* create_documentation FOR TESTING RAISING cx_static_check.
|
|
* DATA:
|
|
* ms_interface_properties TYPE vseointerf.
|
|
*ENDCLASS.
|
|
*CLASS ltcl_interface_deserialization IMPLEMENTATION.
|
|
* METHOD setup.
|
|
* CREATE OBJECT mo_fake_object_files.
|
|
* CREATE OBJECT mo_spy_oo_object_functions.
|
|
* CREATE OBJECT mo_xml_out.
|
|
* ltcl_oo_factory_injector=>inject( mo_spy_oo_object_functions ).
|
|
*
|
|
* ms_item-devclass = 'package_name'.
|
|
* ms_item-obj_name = 'zif_interface'.
|
|
* ms_item-obj_type = 'INTF'.
|
|
*
|
|
* CREATE OBJECT mo_oo_object TYPE lcl_object_intf
|
|
* EXPORTING
|
|
* is_item = ms_item
|
|
* iv_language = sy-langu.
|
|
* mo_oo_object->mo_files = mo_fake_object_files.
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD create_interface.
|
|
* ms_interface_properties-clsname = ms_item-obj_name.
|
|
* given_an_interface_properties( ).
|
|
*
|
|
* when_deserializing( ).
|
|
*
|
|
* then_should_create_interface( ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD update_descriptions.
|
|
* DATA:
|
|
* ls_description TYPE seocompotx,
|
|
* lt_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt.
|
|
*
|
|
* given_an_interface_properties( ).
|
|
*
|
|
* ls_description-clsname = ms_item-obj_name.
|
|
* ls_description-cmpname = 'a_method'.
|
|
* APPEND ls_description TO lt_descriptions.
|
|
* given_the_descriptions( lt_descriptions ).
|
|
*
|
|
* when_deserializing( ).
|
|
*
|
|
* then_shuld_update_descriptions( lt_descriptions ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD add_to_activation.
|
|
* given_an_interface_properties( ).
|
|
*
|
|
* when_deserializing( ).
|
|
*
|
|
* then_it_should_add_activation( ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD deserialize_source.
|
|
* given_an_interface_properties( ).
|
|
*
|
|
* when_deserializing( ).
|
|
*
|
|
* then_should_deserialize_source( ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD given_an_interface_properties.
|
|
* mo_xml_out->add(
|
|
* iv_name = 'VSEOINTERF'
|
|
* ig_data = ms_interface_properties ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD then_should_create_interface.
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->ms_interface_properties
|
|
* exp = ms_interface_properties ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals( act = mo_spy_oo_object_functions->mv_overwrite
|
|
* exp = abap_true ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->mv_package
|
|
* exp = 'package_name' ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD create_documentation.
|
|
* DATA: lt_lines TYPE tlinetab,
|
|
* ls_line TYPE LINE OF tlinetab.
|
|
* ls_line-tdline = 'Interface Line Doc'.
|
|
* APPEND ls_line TO lt_lines.
|
|
*
|
|
* given_an_interface_properties( ).
|
|
*
|
|
* given_documentation_in_xml_as( lt_lines ).
|
|
*
|
|
* when_deserializing( ).
|
|
*
|
|
* then_docu_should_be_created( lt_lines ).
|
|
* ENDMETHOD.
|
|
*ENDCLASS.
|
|
*
|
|
*CLASS ltcl_class_changed DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT
|
|
*INHERITING FROM ltc_oo_test.
|
|
* PRIVATE SECTION.
|
|
* METHODS:
|
|
* setup,
|
|
* changed_by_call_get_includes FOR TESTING RAISING cx_static_check,
|
|
* changed_since_call_get_include FOR TESTING RAISING cx_static_check.
|
|
*
|
|
*ENDCLASS.
|
|
*CLASS ltcl_class_changed IMPLEMENTATION.
|
|
* METHOD setup.
|
|
* CREATE OBJECT mo_fake_object_files.
|
|
* CREATE OBJECT mo_spy_oo_object_functions.
|
|
* CREATE OBJECT mo_xml_out.
|
|
* ltcl_oo_factory_injector=>inject( mo_spy_oo_object_functions ).
|
|
*
|
|
* ms_item-devclass = 'package_name'.
|
|
* ms_item-obj_name = 'zcl_class'.
|
|
* ms_item-obj_type = 'CLAS'.
|
|
*
|
|
* CREATE OBJECT mo_oo_object TYPE lcl_object_clas
|
|
* EXPORTING
|
|
* is_item = ms_item
|
|
* iv_language = sy-langu.
|
|
* mo_oo_object->mo_files = mo_fake_object_files.
|
|
* ENDMETHOD.
|
|
* METHOD changed_by_call_get_includes.
|
|
* DATA lv_username TYPE xubname.
|
|
* lv_username = mo_oo_object->changed_by( ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->mv_get_includes_called
|
|
* exp = abap_true ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = lv_username
|
|
* exp = lcl_objects_super=>c_user_unknown ).
|
|
* ENDMETHOD.
|
|
* METHOD changed_since_call_get_include.
|
|
* DATA lv_timestamp TYPE timestamp.
|
|
* GET TIME STAMP FIELD lv_timestamp.
|
|
* mo_oo_object->has_changed_since( lv_timestamp ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->mv_get_includes_called
|
|
* exp = abap_true ).
|
|
* ENDMETHOD.
|
|
*ENDCLASS.
|
|
*CLASS ltcl_interface_changed DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT
|
|
*INHERITING FROM ltc_oo_test.
|
|
* PRIVATE SECTION.
|
|
* METHODS:
|
|
* setup,
|
|
* changed_by_call_get_includes FOR TESTING RAISING cx_static_check,
|
|
* changed_since_call_get_include FOR TESTING RAISING cx_static_check.
|
|
*ENDCLASS.
|
|
*CLASS ltcl_interface_changed IMPLEMENTATION.
|
|
* METHOD setup.
|
|
* CREATE OBJECT mo_fake_object_files.
|
|
* CREATE OBJECT mo_spy_oo_object_functions.
|
|
* CREATE OBJECT mo_xml_out.
|
|
* ltcl_oo_factory_injector=>inject( mo_spy_oo_object_functions ).
|
|
*
|
|
* ms_item-devclass = 'package_name'.
|
|
* ms_item-obj_name = 'zif_interface'.
|
|
* ms_item-obj_type = 'INTF'.
|
|
*
|
|
* CREATE OBJECT mo_oo_object TYPE lcl_object_intf
|
|
* EXPORTING
|
|
* is_item = ms_item
|
|
* iv_language = sy-langu.
|
|
* mo_oo_object->mo_files = mo_fake_object_files.
|
|
* ENDMETHOD.
|
|
* METHOD changed_by_call_get_includes.
|
|
* DATA lv_username TYPE xubname.
|
|
* lv_username = mo_oo_object->changed_by( ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->mv_get_includes_called
|
|
* exp = abap_true ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = lv_username
|
|
* exp = lcl_objects_super=>c_user_unknown ).
|
|
* ENDMETHOD.
|
|
* METHOD changed_since_call_get_include.
|
|
* DATA lv_timestamp TYPE timestamp.
|
|
* GET TIME STAMP FIELD lv_timestamp.
|
|
* mo_oo_object->has_changed_since( lv_timestamp ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->mv_get_includes_called
|
|
* exp = abap_true ).
|
|
* ENDMETHOD.
|
|
*ENDCLASS.
|
|
*
|
|
*CLASS ltcl_exists_test DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT
|
|
*INHERITING FROM ltc_oo_test.
|
|
* PRIVATE SECTION.
|
|
* METHODS:
|
|
* setup,
|
|
* class_exists FOR TESTING RAISING cx_static_check,
|
|
* interface_exists FOR TESTING RAISING cx_static_check.
|
|
*ENDCLASS.
|
|
*
|
|
*CLASS ltcl_exists_test IMPLEMENTATION.
|
|
* METHOD setup.
|
|
* CREATE OBJECT mo_spy_oo_object_functions.
|
|
* me->mo_spy_oo_object_functions->mv_exists = abap_true.
|
|
* ltcl_oo_factory_injector=>inject( mo_spy_oo_object_functions ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD class_exists.
|
|
* ms_item-devclass = 'package_name'.
|
|
* ms_item-obj_name = 'zcl_class'.
|
|
* ms_item-obj_type = 'CLAS'.
|
|
* CREATE OBJECT mo_oo_object TYPE lcl_object_clas
|
|
* EXPORTING
|
|
* is_item = ms_item
|
|
* iv_language = sy-langu.
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_oo_object->exists( )
|
|
* exp = abap_true ).
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = me->mo_spy_oo_object_functions->mv_exists_called
|
|
* exp = abap_true ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD interface_exists.
|
|
* ms_item-devclass = 'package_name'.
|
|
* ms_item-obj_name = 'zif_interface'.
|
|
* ms_item-obj_type = 'INTF'.
|
|
*
|
|
* CREATE OBJECT mo_oo_object TYPE lcl_object_intf
|
|
* EXPORTING
|
|
* is_item = ms_item
|
|
* iv_language = sy-langu.
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_oo_object->exists( )
|
|
* exp = abap_true ).
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = me->mo_spy_oo_object_functions->mv_exists_called
|
|
* exp = abap_true ).
|
|
* ENDMETHOD.
|
|
*ENDCLASS.
|
|
*
|
|
*CLASS ltcl_serialize_class DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT
|
|
*INHERITING FROM ltc_oo_test.
|
|
* PRIVATE SECTION.
|
|
* METHODS:
|
|
* setup,
|
|
* teardown,
|
|
* serialize_abap FOR TESTING RAISING cx_static_check,
|
|
* no_existing_no_serialize FOR TESTING RAISING cx_static_check,
|
|
* serialize_local_definitions FOR TESTING RAISING cx_static_check,
|
|
* serialize_local_implementation FOR TESTING RAISING cx_static_check,
|
|
* serialize_local_macros FOR TESTING RAISING cx_static_check,
|
|
* serialize_test_classes FOR TESTING RAISING cx_static_check,
|
|
* serialize_properties_to_xml FOR TESTING RAISING cx_static_check,
|
|
* serialize_skipping_tests_xml FOR TESTING RAISING cx_static_check,
|
|
* serialize_textpool FOR TESTING RAISING cx_static_check,
|
|
* read_sotr_if_exception_class FOR TESTING RAISING cx_static_check,
|
|
* do_not_read_sotr_regular_class FOR TESTING RAISING cx_static_check,
|
|
* should_serialize_documentation FOR TESTING RAISING cx_static_check,
|
|
* should_serialize_descriptions FOR TESTING RAISING cx_static_check.
|
|
*ENDCLASS.
|
|
*
|
|
*CLASS ltcl_serialize_class IMPLEMENTATION.
|
|
*
|
|
* METHOD setup.
|
|
* CREATE OBJECT mo_fake_object_files.
|
|
* CREATE OBJECT mo_spy_oo_object_functions.
|
|
* me->mo_spy_oo_object_functions->mv_exists = abap_true.
|
|
* ltcl_oo_factory_injector=>inject( mo_spy_oo_object_functions ).
|
|
*
|
|
* ms_item-devclass = 'package_name'.
|
|
* ms_item-obj_name = 'zcl_class'.
|
|
* ms_item-obj_type = 'CLAS'.
|
|
*
|
|
* CREATE OBJECT mo_oo_object TYPE lcl_object_clas
|
|
* EXPORTING
|
|
* is_item = ms_item
|
|
* iv_language = sy-langu.
|
|
* CREATE OBJECT mo_xml_out.
|
|
* mo_oo_object->mo_files = mo_fake_object_files.
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD serialize_abap.
|
|
* DATA lt_abap_source TYPE zif_abapgit_definitions=>ty_string_tt.
|
|
*
|
|
* APPEND 'a_source_line' TO me->mo_spy_oo_object_functions->mt_source.
|
|
*
|
|
* mo_oo_object->serialize( mo_xml_out ).
|
|
*
|
|
* should_serialize_with_obj_key( ).
|
|
*
|
|
* lt_abap_source = mo_fake_object_files->read_abap( ).
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = lt_abap_source
|
|
* exp = me->mo_spy_oo_object_functions->mt_source ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD serialize_local_definitions.
|
|
* DATA lt_abap_source TYPE zif_abapgit_definitions=>ty_string_tt.
|
|
*
|
|
* APPEND 'a_local_definition' TO me->mo_spy_oo_object_functions->mt_local_definitions.
|
|
*
|
|
* mo_oo_object->serialize( mo_xml_out ).
|
|
*
|
|
* should_serialize_with_obj_key( ).
|
|
*
|
|
* lt_abap_source = mo_fake_object_files->read_abap( iv_extra = 'locals_def' iv_error = abap_false ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = lt_abap_source
|
|
* exp = me->mo_spy_oo_object_functions->mt_local_definitions ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD serialize_local_implementation.
|
|
* DATA lt_abap_source TYPE zif_abapgit_definitions=>ty_string_tt.
|
|
*
|
|
* APPEND 'a_local_implementation' TO me->mo_spy_oo_object_functions->mt_local_implementations.
|
|
*
|
|
* mo_oo_object->serialize( mo_xml_out ).
|
|
*
|
|
* should_serialize_with_obj_key( ).
|
|
*
|
|
* lt_abap_source = mo_fake_object_files->read_abap( iv_extra = 'locals_imp' iv_error = abap_false ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = lt_abap_source
|
|
* exp = me->mo_spy_oo_object_functions->mt_local_implementations ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD serialize_local_macros.
|
|
* DATA lt_abap_source TYPE zif_abapgit_definitions=>ty_string_tt.
|
|
* APPEND 'a_local_macro' TO me->mo_spy_oo_object_functions->mt_local_macros.
|
|
*
|
|
* mo_oo_object->serialize( mo_xml_out ).
|
|
*
|
|
* should_serialize_with_obj_key( ).
|
|
*
|
|
* lt_abap_source = mo_fake_object_files->read_abap( iv_extra = 'macros' iv_error = abap_false ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = lt_abap_source
|
|
* exp = me->mo_spy_oo_object_functions->mt_local_macros ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD serialize_test_classes.
|
|
* DATA lt_abap_source TYPE zif_abapgit_definitions=>ty_string_tt.
|
|
* APPEND 'a_local_test' TO me->mo_spy_oo_object_functions->mt_local_test_classes.
|
|
*
|
|
* mo_oo_object->serialize( mo_xml_out ).
|
|
*
|
|
* should_serialize_with_obj_key( ).
|
|
*
|
|
* lt_abap_source = mo_fake_object_files->read_abap( iv_extra = 'testclasses' iv_error = abap_false ).
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = lt_abap_source
|
|
* exp = me->mo_spy_oo_object_functions->mt_local_test_classes ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD no_existing_no_serialize.
|
|
* me->mo_spy_oo_object_functions->mv_exists = abap_false.
|
|
* mo_oo_object->serialize( mo_xml_out ).
|
|
* ENDMETHOD.
|
|
*
|
|
*
|
|
* METHOD serialize_properties_to_xml.
|
|
* DATA:
|
|
* ls_expected_properties LIKE me->mo_spy_oo_object_functions->ms_class_properties,
|
|
* ls_actual_properties LIKE me->mo_spy_oo_object_functions->ms_class_properties.
|
|
*
|
|
* me->mo_spy_oo_object_functions->ms_class_properties-clsname = ms_item-obj_name.
|
|
* me->mo_spy_oo_object_functions->ms_class_properties-uuid = '123'.
|
|
* me->mo_spy_oo_object_functions->ms_class_properties-author = 'author'.
|
|
* me->mo_spy_oo_object_functions->ms_class_properties-createdon = '2016'.
|
|
* me->mo_spy_oo_object_functions->ms_class_properties-changedby = 'other'.
|
|
* me->mo_spy_oo_object_functions->ms_class_properties-changedon = '2017'.
|
|
* me->mo_spy_oo_object_functions->ms_class_properties-r3release = '1'.
|
|
* me->mo_spy_oo_object_functions->ms_class_properties-chgdanyby = 'other'.
|
|
* me->mo_spy_oo_object_functions->ms_class_properties-chgdanyon = '2017'.
|
|
*
|
|
* mo_oo_object->serialize( mo_xml_out ).
|
|
*
|
|
* ls_expected_properties = me->mo_spy_oo_object_functions->ms_class_properties.
|
|
* CLEAR:
|
|
* ls_expected_properties-uuid,
|
|
* ls_expected_properties-author,
|
|
* ls_expected_properties-createdon,
|
|
* ls_expected_properties-changedby,
|
|
* ls_expected_properties-changedon,
|
|
* ls_expected_properties-r3release,
|
|
* ls_expected_properties-chgdanyby,
|
|
* ls_expected_properties-chgdanyon.
|
|
*
|
|
* CREATE OBJECT mo_xml_input
|
|
* EXPORTING
|
|
* iv_xml = mo_xml_out->render( ).
|
|
*
|
|
* mo_xml_input->read(
|
|
* EXPORTING
|
|
* iv_name = 'VSEOCLASS'
|
|
* CHANGING
|
|
* cg_data = ls_actual_properties ).
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = ls_actual_properties
|
|
* exp = ls_expected_properties ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD serialize_skipping_tests_xml.
|
|
* DATA:
|
|
* ls_actual_properties LIKE me->mo_spy_oo_object_functions->ms_class_properties.
|
|
* APPEND 'a_local_test' TO me->mo_spy_oo_object_functions->mt_local_test_classes.
|
|
* me->mo_spy_oo_object_functions->mv_skip_test_classes = abap_true.
|
|
*
|
|
* me->mo_spy_oo_object_functions->ms_class_properties-clsname = ms_item-obj_name.
|
|
* me->mo_spy_oo_object_functions->ms_class_properties-with_unit_tests = abap_true.
|
|
*
|
|
* mo_oo_object->serialize( mo_xml_out ).
|
|
*
|
|
* CREATE OBJECT mo_xml_input
|
|
* EXPORTING
|
|
* iv_xml = mo_xml_out->render( ).
|
|
*
|
|
* mo_xml_input->read(
|
|
* EXPORTING
|
|
* iv_name = 'VSEOCLASS'
|
|
* CHANGING
|
|
* cg_data = ls_actual_properties ).
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = ls_actual_properties-with_unit_tests
|
|
* exp = abap_false ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD serialize_textpool.
|
|
* DATA:
|
|
* ls_textpool TYPE textpool,
|
|
* lt_actual_text_pool TYPE textpool_table.
|
|
* ls_textpool-id = '1'.
|
|
* ls_textpool-key = '1'.
|
|
* APPEND ls_textpool TO mo_spy_oo_object_functions->mt_text_pool.
|
|
*
|
|
* mo_oo_object->serialize( mo_xml_out ).
|
|
*
|
|
* CREATE OBJECT mo_xml_input
|
|
* EXPORTING
|
|
* iv_xml = mo_xml_out->render( ).
|
|
*
|
|
* mo_xml_input->read(
|
|
* EXPORTING
|
|
* iv_name = 'TPOOL'
|
|
* CHANGING
|
|
* cg_data = lt_actual_text_pool ).
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = lt_actual_text_pool
|
|
* exp = mo_spy_oo_object_functions->mt_text_pool ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD read_sotr_if_exception_class.
|
|
* DATA:
|
|
* lt_sotr TYPE zif_abapgit_definitions=>ty_sotr_tt,
|
|
* lt_actual_sotr TYPE zif_abapgit_definitions=>ty_sotr_tt,
|
|
* ls_sotr LIKE LINE OF lt_sotr.
|
|
*
|
|
* me->mo_spy_oo_object_functions->ms_class_properties-category = seoc_category_exception.
|
|
*
|
|
* ls_sotr-header-concept = 'HEADER'.
|
|
* APPEND ls_sotr TO lt_sotr.
|
|
*
|
|
* me->mo_spy_oo_object_functions->mt_sotr = lt_sotr.
|
|
*
|
|
* mo_oo_object->serialize( mo_xml_out ).
|
|
*
|
|
* CREATE OBJECT mo_xml_input
|
|
* EXPORTING
|
|
* iv_xml = mo_xml_out->render( ).
|
|
*
|
|
* mo_xml_input->read(
|
|
* EXPORTING
|
|
* iv_name = 'SOTR'
|
|
* CHANGING
|
|
* cg_data = lt_actual_sotr ).
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = lt_actual_sotr
|
|
* exp = mo_spy_oo_object_functions->mt_sotr ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD do_not_read_sotr_regular_class.
|
|
* DATA:
|
|
* lt_actual_sotr TYPE zif_abapgit_definitions=>ty_sotr_tt.
|
|
*
|
|
* CLEAR: me->mo_spy_oo_object_functions->ms_class_properties-category.
|
|
*
|
|
* mo_oo_object->serialize( mo_xml_out ).
|
|
*
|
|
* CREATE OBJECT mo_xml_input
|
|
* EXPORTING
|
|
* iv_xml = mo_xml_out->render( ).
|
|
*
|
|
* mo_xml_input->read(
|
|
* EXPORTING
|
|
* iv_name = 'SOTR'
|
|
* CHANGING
|
|
* cg_data = lt_actual_sotr ).
|
|
* cl_abap_unit_assert=>assert_initial( lt_actual_sotr ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD should_serialize_documentation.
|
|
* DATA:
|
|
* lt_lines TYPE tlinetab,
|
|
* lt_actual_lines TYPE tlinetab,
|
|
* ls_line LIKE LINE OF lt_lines.
|
|
*
|
|
* ls_line-tdline = 'a_line'.
|
|
* APPEND ls_line TO lt_lines.
|
|
*
|
|
* me->mo_spy_oo_object_functions->mt_docu_lines = lt_lines.
|
|
*
|
|
* mo_oo_object->serialize( mo_xml_out ).
|
|
*
|
|
* CREATE OBJECT mo_xml_input
|
|
* EXPORTING
|
|
* iv_xml = mo_xml_out->render( ).
|
|
*
|
|
* mo_xml_input->read(
|
|
* EXPORTING
|
|
* iv_name = 'LINES'
|
|
* CHANGING
|
|
* cg_data = lt_actual_lines ).
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = lt_actual_lines
|
|
* exp = me->mo_spy_oo_object_functions->mt_docu_lines ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD should_serialize_descriptions.
|
|
* DATA:
|
|
* lt_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt,
|
|
* lt_actual_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt,
|
|
* ls_description TYPE LINE OF zif_abapgit_definitions=>ty_seocompotx_tt.
|
|
*
|
|
* ls_description-clsname = 'class'.
|
|
* APPEND ls_description TO lt_descriptions.
|
|
*
|
|
*
|
|
* me->mo_spy_oo_object_functions->mt_descriptions = lt_descriptions.
|
|
*
|
|
* mo_oo_object->serialize( mo_xml_out ).
|
|
*
|
|
* CREATE OBJECT mo_xml_input
|
|
* EXPORTING
|
|
* iv_xml = mo_xml_out->render( ).
|
|
*
|
|
* mo_xml_input->read(
|
|
* EXPORTING
|
|
* iv_name = 'DESCRIPTIONS'
|
|
* CHANGING
|
|
* cg_data = lt_actual_descriptions ).
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = lt_actual_descriptions
|
|
* exp = me->mo_spy_oo_object_functions->mt_descriptions ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD teardown.
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->mv_exists_called
|
|
* exp = abap_true ).
|
|
* ENDMETHOD.
|
|
*ENDCLASS.
|
|
*
|
|
*CLASS ltcl_serialize_interface DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT
|
|
*INHERITING FROM ltc_oo_test.
|
|
* PRIVATE SECTION.
|
|
* METHODS:
|
|
* setup,
|
|
* teardown,
|
|
* serialize_abap FOR TESTING RAISING cx_static_check,
|
|
* no_existing_no_serialize FOR TESTING RAISING cx_static_check,
|
|
* serialize_properties_to_xml FOR TESTING RAISING cx_static_check,
|
|
* should_serialize_documentation FOR TESTING RAISING cx_static_check,
|
|
* should_serialize_descriptions FOR TESTING RAISING cx_static_check.
|
|
*ENDCLASS.
|
|
*
|
|
*CLASS ltcl_serialize_interface IMPLEMENTATION.
|
|
* METHOD setup.
|
|
* CREATE OBJECT mo_fake_object_files.
|
|
* CREATE OBJECT mo_spy_oo_object_functions.
|
|
* me->mo_spy_oo_object_functions->mv_exists = abap_true.
|
|
* ltcl_oo_factory_injector=>inject( mo_spy_oo_object_functions ).
|
|
*
|
|
* ms_item-devclass = 'package_name'.
|
|
* ms_item-obj_name = 'zif_interface'.
|
|
* ms_item-obj_type = 'INTF'.
|
|
*
|
|
* CREATE OBJECT mo_oo_object TYPE lcl_object_intf
|
|
* EXPORTING
|
|
* is_item = ms_item
|
|
* iv_language = sy-langu.
|
|
* CREATE OBJECT mo_xml_out.
|
|
* mo_oo_object->mo_files = mo_fake_object_files.
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD serialize_abap.
|
|
* DATA lt_abap_source TYPE zif_abapgit_definitions=>ty_string_tt.
|
|
*
|
|
* APPEND 'a_source_line' TO me->mo_spy_oo_object_functions->mt_source.
|
|
*
|
|
* mo_oo_object->serialize( mo_xml_out ).
|
|
*
|
|
* should_serialize_with_obj_key( ).
|
|
*
|
|
* lt_abap_source = mo_fake_object_files->read_abap( ).
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = lt_abap_source
|
|
* exp = me->mo_spy_oo_object_functions->mt_source ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD no_existing_no_serialize.
|
|
* me->mo_spy_oo_object_functions->mv_exists = abap_false.
|
|
* mo_oo_object->serialize( mo_xml_out ).
|
|
* ENDMETHOD.
|
|
*
|
|
*
|
|
* METHOD serialize_properties_to_xml.
|
|
* DATA:
|
|
* ls_expected_properties LIKE me->mo_spy_oo_object_functions->ms_interface_properties,
|
|
* ls_actual_properties LIKE me->mo_spy_oo_object_functions->ms_interface_properties.
|
|
*
|
|
* me->mo_spy_oo_object_functions->ms_interface_properties-clsname = ms_item-obj_name.
|
|
* me->mo_spy_oo_object_functions->ms_interface_properties-uuid = '123'.
|
|
* me->mo_spy_oo_object_functions->ms_interface_properties-author = 'author'.
|
|
* me->mo_spy_oo_object_functions->ms_interface_properties-createdon = '2016'.
|
|
* me->mo_spy_oo_object_functions->ms_interface_properties-changedby = 'other'.
|
|
* me->mo_spy_oo_object_functions->ms_interface_properties-changedon = '2017'.
|
|
* me->mo_spy_oo_object_functions->ms_interface_properties-r3release = '1'.
|
|
*
|
|
* mo_oo_object->serialize( mo_xml_out ).
|
|
*
|
|
* ls_expected_properties = me->mo_spy_oo_object_functions->ms_interface_properties.
|
|
* CLEAR:
|
|
* ls_expected_properties-uuid,
|
|
* ls_expected_properties-author,
|
|
* ls_expected_properties-createdon,
|
|
* ls_expected_properties-changedby,
|
|
* ls_expected_properties-changedon,
|
|
* ls_expected_properties-r3release.
|
|
*
|
|
* CREATE OBJECT mo_xml_input
|
|
* EXPORTING
|
|
* iv_xml = mo_xml_out->render( ).
|
|
*
|
|
* mo_xml_input->read(
|
|
* EXPORTING
|
|
* iv_name = 'VSEOINTERF'
|
|
* CHANGING
|
|
* cg_data = ls_actual_properties ).
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = ls_actual_properties
|
|
* exp = ls_expected_properties ).
|
|
* ENDMETHOD.
|
|
* METHOD should_serialize_documentation.
|
|
* DATA:
|
|
* lt_lines TYPE tlinetab,
|
|
* lt_actual_lines TYPE tlinetab,
|
|
* ls_line LIKE LINE OF lt_lines.
|
|
*
|
|
* ls_line-tdline = 'a_line'.
|
|
* APPEND ls_line TO lt_lines.
|
|
*
|
|
* me->mo_spy_oo_object_functions->mt_docu_lines = lt_lines.
|
|
*
|
|
* mo_oo_object->serialize( mo_xml_out ).
|
|
*
|
|
* CREATE OBJECT mo_xml_input
|
|
* EXPORTING
|
|
* iv_xml = mo_xml_out->render( ).
|
|
*
|
|
* mo_xml_input->read(
|
|
* EXPORTING
|
|
* iv_name = 'LINES'
|
|
* CHANGING
|
|
* cg_data = lt_actual_lines ).
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = lt_actual_lines
|
|
* exp = me->mo_spy_oo_object_functions->mt_docu_lines ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD should_serialize_descriptions.
|
|
* DATA:
|
|
* lt_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt,
|
|
* lt_actual_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt,
|
|
* ls_description TYPE LINE OF zif_abapgit_definitions=>ty_seocompotx_tt.
|
|
*
|
|
* ls_description-clsname = 'class'.
|
|
* APPEND ls_description TO lt_descriptions.
|
|
*
|
|
*
|
|
* me->mo_spy_oo_object_functions->mt_descriptions = lt_descriptions.
|
|
*
|
|
* mo_oo_object->serialize( mo_xml_out ).
|
|
*
|
|
* CREATE OBJECT mo_xml_input
|
|
* EXPORTING
|
|
* iv_xml = mo_xml_out->render( ).
|
|
*
|
|
* mo_xml_input->read(
|
|
* EXPORTING
|
|
* iv_name = 'DESCRIPTIONS'
|
|
* CHANGING
|
|
* cg_data = lt_actual_descriptions ).
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = lt_actual_descriptions
|
|
* exp = me->mo_spy_oo_object_functions->mt_descriptions ).
|
|
* ENDMETHOD.
|
|
* METHOD teardown.
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = mo_spy_oo_object_functions->mv_exists_called
|
|
* exp = abap_true ).
|
|
* ENDMETHOD.
|
|
*ENDCLASS.
|
|
*
|
|
*CLASS ltcl_delete_oo_test DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT
|
|
*INHERITING FROM ltc_oo_test.
|
|
* PRIVATE SECTION.
|
|
* METHODS:
|
|
* setup,
|
|
* class_delete FOR TESTING RAISING cx_static_check,
|
|
* interface_delete FOR TESTING RAISING cx_static_check.
|
|
*ENDCLASS.
|
|
*
|
|
*CLASS ltcl_delete_oo_test IMPLEMENTATION.
|
|
* METHOD setup.
|
|
* CREATE OBJECT mo_spy_oo_object_functions.
|
|
* me->mo_spy_oo_object_functions->mv_exists = abap_true.
|
|
* ltcl_oo_factory_injector=>inject( mo_spy_oo_object_functions ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD class_delete.
|
|
* DATA ls_expected_delete_key TYPE seoclskey.
|
|
*
|
|
* ms_item-devclass = 'package_name'.
|
|
* ms_item-obj_name = 'zcl_class'.
|
|
* ms_item-obj_type = 'CLAS'.
|
|
* CREATE OBJECT mo_oo_object TYPE lcl_object_clas
|
|
* EXPORTING
|
|
* is_item = ms_item
|
|
* iv_language = sy-langu.
|
|
*
|
|
* mo_oo_object->delete( ).
|
|
*
|
|
* ls_expected_delete_key-clsname = ms_item-obj_name.
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = me->mo_spy_oo_object_functions->ms_delete_key
|
|
* exp = ls_expected_delete_key ).
|
|
* ENDMETHOD.
|
|
*
|
|
* METHOD interface_delete.
|
|
* DATA ls_expected_delete_key TYPE seoclskey.
|
|
*
|
|
* ms_item-devclass = 'package_name'.
|
|
* ms_item-obj_name = 'zif_interface'.
|
|
* ms_item-obj_type = 'INTF'.
|
|
*
|
|
* CREATE OBJECT mo_oo_object TYPE lcl_object_intf
|
|
* EXPORTING
|
|
* is_item = ms_item
|
|
* iv_language = sy-langu.
|
|
*
|
|
* mo_oo_object->delete( ).
|
|
*
|
|
* ls_expected_delete_key-clsname = ms_item-obj_name.
|
|
*
|
|
* cl_abap_unit_assert=>assert_equals(
|
|
* act = me->mo_spy_oo_object_functions->ms_delete_key
|
|
* exp = ls_expected_delete_key ).
|
|
* ENDMETHOD.
|
|
*ENDCLASS.
|