diff --git a/src/zabapgit.prog.abap b/src/zabapgit.prog.abap index 25573d5e7..fca72d610 100644 --- a/src/zabapgit.prog.abap +++ b/src/zabapgit.prog.abap @@ -44,7 +44,6 @@ INCLUDE zabapgit_user_exit IF FOUND. INCLUDE zabapgit_gui_pages_userexit IF FOUND. -INCLUDE zabapgit_unit_test. INCLUDE zabapgit_forms. ********************************************************************** diff --git a/src/zabapgit_unit_test.prog.abap b/src/zabapgit_unit_test.prog.abap deleted file mode 100644 index fbdca2614..000000000 --- a/src/zabapgit_unit_test.prog.abap +++ /dev/null @@ -1,183 +0,0 @@ -*&---------------------------------------------------------------------* -*& Include ZABAPGIT_UNIT_TEST -*&---------------------------------------------------------------------* - -* todo, should the tests be in the same include as the classes -* they are testing? - -*CLASS ltcl_oo_serialize DEFINITION FINAL FOR TESTING -* DURATION SHORT -* RISK LEVEL HARMLESS. -* -* PRIVATE SECTION. -* METHODS: -* setup, -* empty_include FOR TESTING RAISING cx_static_check, -* one_line_include FOR TESTING RAISING cx_static_check, -* one_line_include_2 FOR TESTING RAISING cx_static_check, -* one_line_include_3 FOR TESTING RAISING cx_static_check, -* two_line_include FOR TESTING RAISING cx_static_check, -* two_line_include_2 FOR TESTING RAISING cx_static_check, -* two_line_include_3 FOR TESTING RAISING cx_static_check, -* more_than_two_lines FOR TESTING RAISING cx_static_check, -* -* _given_source_is -* IMPORTING -* i_source TYPE LINE OF zif_abapgit_definitions=>ty_string_tt, -* _given_empty_test_include, -* _when_skip_is_calculated, -* _then_should_be_skipped, -* _then_should_not_be_skipped. -* -* DATA: mo_oo_serializer TYPE REF TO lcl_oo_serializer, -* mt_source TYPE zif_abapgit_definitions=>ty_string_tt, -* mv_skip_testclass TYPE abap_bool. -* -*ENDCLASS. -* -* -*CLASS ltcl_oo_serialize IMPLEMENTATION. -* -* METHOD setup. -* -* CREATE OBJECT mo_oo_serializer. -* -* ENDMETHOD. -* -* METHOD empty_include. -* -* _given_empty_test_include( ). -* -* _when_skip_is_calculated( ). -* -* _then_should_be_skipped( ). -* -* ENDMETHOD. -* -* METHOD one_line_include. -* -* _given_source_is( `*"* use this source file for your ABAP unit test classes` ). -* -* _when_skip_is_calculated( ). -* -* _then_should_be_skipped( ). -* -* ENDMETHOD. -* -* METHOD one_line_include_2. -* -* _given_source_is( `*` ). -* -* _when_skip_is_calculated( ). -* -* _then_should_be_skipped( ). -* -* ENDMETHOD. -* -* METHOD one_line_include_3. -* -* _given_source_is( `write: 'This is ABAP'.` ). -* -* _when_skip_is_calculated( ). -* -* _then_should_not_be_skipped( ). -* -* ENDMETHOD. -* -* METHOD two_line_include. -* -* _given_source_is( `*"* use this source file for your ABAP unit test classes` ). -* _given_source_is( `` ). -* -* _when_skip_is_calculated( ). -* -* _then_should_be_skipped( ). -* -* ENDMETHOD. -* -* METHOD two_line_include_2. -* -* _given_source_is( `*"* use this source file for your ABAP unit test classes` ). -* _given_source_is( `write: 'This is ABAP'.` ). -* -* _when_skip_is_calculated( ). -* -* _then_should_not_be_skipped( ). -* -* ENDMETHOD. -* -* METHOD two_line_include_3. -* -* _given_source_is( ` ` ). -* _given_source_is( `*"* use this source file for your ABAP unit test classes` ). -* -* _when_skip_is_calculated( ). -* -* _then_should_not_be_skipped( ). -* -* ENDMETHOD. -* -* METHOD more_than_two_lines. -* -* _given_source_is( `*"* use this source file for your ABAP unit test classes` ). -* _given_source_is( `CLASS ltcl_test DEFINITION FINAL FOR TESTING` ). -* _given_source_is( ` DURATION SHORT` ). -* _given_source_is( ` RISK LEVEL HARMLESS.` ). -* _given_source_is( ` ` ). -* _given_source_is( ` PRIVATE SECTION.` ). -* _given_source_is( ` METHODS:` ). -* _given_source_is( ` first_test FOR TESTING RAISING cx_static_check.` ). -* _given_source_is( `ENDCLASS.` ). -* _given_source_is( ` ` ). -* _given_source_is( `CLASS ltcl_test IMPLEMENTATION.` ). -* _given_source_is( ` ` ). -* _given_source_is( ` METHOD first_test.` ). -* _given_source_is( ` cl_abap_unit_assert=>fail( 'This is a real test' ).` ). -* _given_source_is( ` ENDMETHOD.` ). -* _given_source_is( ` ` ). -* _given_source_is( `ENDCLASS.` ). -* -* _when_skip_is_calculated( ). -* -* _then_should_not_be_skipped( ). -* -* ENDMETHOD. -* -* METHOD _given_source_is. -* -* INSERT i_source INTO TABLE mt_source. -* -* ENDMETHOD. -* -* METHOD _given_empty_test_include. -* -* ENDMETHOD. -* -* METHOD _when_skip_is_calculated. -* -* mv_skip_testclass = mo_oo_serializer->calculate_skip_testclass( mt_source ). -* -* ENDMETHOD. -* -* METHOD _then_should_be_skipped. -* -* cl_abap_unit_assert=>assert_equals( -* act = mv_skip_testclass -* exp = abap_true -* msg = |Testclass should be skipped| ). -* -* ENDMETHOD. -* -* -* METHOD _then_should_not_be_skipped. -* -* cl_abap_unit_assert=>assert_equals( -* act = mv_skip_testclass -* exp = abap_false -* msg = |Testclass should not be skipped| ). -* -* ENDMETHOD. -* -*ENDCLASS. - -INCLUDE zabapgit_unit_test_clas_intf. diff --git a/src/zabapgit_unit_test.prog.xml b/src/zabapgit_unit_test.prog.xml deleted file mode 100644 index 4a8363652..000000000 --- a/src/zabapgit_unit_test.prog.xml +++ /dev/null @@ -1,22 +0,0 @@ - - - - - - ZABAPGIT_UNIT_TEST - A - X - I - E - X - - - - R - Program ZABAPGIT_UNIT_TEST - 26 - - - - - diff --git a/src/zabapgit_unit_test_clas_intf.prog.abap b/src/zabapgit_unit_test_clas_intf.prog.abap deleted file mode 100644 index 94f174850..000000000 --- a/src/zabapgit_unit_test_clas_intf.prog.abap +++ /dev/null @@ -1,1351 +0,0 @@ - -********************* -********************* -********************* -********************* -********************* -* 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. diff --git a/src/zabapgit_unit_test_clas_intf.prog.xml b/src/zabapgit_unit_test_clas_intf.prog.xml deleted file mode 100644 index b5b051403..000000000 --- a/src/zabapgit_unit_test_clas_intf.prog.xml +++ /dev/null @@ -1,25 +0,0 @@ - - - - - - ZABAPGIT_UNIT_TEST_CLAS_INTF - A - X - S - D$ - I - X - D$S - X - - - - R - Unit tests for classes and interfaces objecst - 45 - - - - -