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

Merge remote-tracking branch 'refs/remotes/larshp/master'

Browse Source
This commit is contained in:
EduardoCopat 2017-01-31 10:58:06 +01:00
commit db4cadf88d
5 changed files with 1679 additions and 814 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1730
src/zabapgit_object_clas.prog.abap
View File

File diff suppressed because it is too large Load Diff

8
src/zabapgit_page_debug.prog.abap
View File

@ -13,7 +13,8 @@ CLASS lcl_gui_page_debuginfo DEFINITION FINAL INHERITING FROM lcl_gui_page.
PRIVATE SECTION.
METHODS render_debug_info
RETURNING VALUE(ro_html) TYPE REF TO lcl_html.
RETURNING VALUE(ro_html) TYPE REF TO lcl_html
RAISING lcx_exception.
METHODS render_supported_object_types
RETURNING VALUE(rv_html) TYPE string.
@ -57,6 +58,8 @@ CLASS lcl_gui_page_debuginfo IMPLEMENTATION.
ro_html->add( |<p>abapGit version: { gc_abap_version }</p>| ).
ro_html->add( |<p>XML version: { gc_xml_version }</p>| ).
ro_html->add( |<p>GUI version: { lv_gui_version }</p>| ).
ro_html->add( |<p>LCL_TIME: { lcl_time=>get( ) }</p>| ).
ro_html->add( |<p>SY time: { sy-datum } { sy-uzeit } { sy-tzone }</p>| ).
ENDMETHOD. "render_debug_info
@ -93,7 +96,8 @@ CLASS lcl_gui_page_debuginfo IMPLEMENTATION.
CREATE OBJECT ro_html.
ro_html->add( 'debugOutput("Browser: " + navigator.userAgent, "debug_info");' ).
ro_html->add( 'debugOutput("Browser: " + navigator.userAgent + ' &&
'"<br>Frontend time: " + new Date(), "debug_info");' ).
ENDMETHOD. "scripts

8
src/zabapgit_persistence.prog.abap
View File

@ -1349,7 +1349,8 @@ CLASS lcl_persistence_migrate IMPLEMENTATION.
METHOD table_create.
DATA: lv_obj_name TYPE tadir-obj_name,
DATA: lv_rc LIKE sy-subrc,
lv_obj_name TYPE tadir-obj_name,
ls_dd02v TYPE dd02v,
ls_dd09l TYPE dd09l,
lt_dd03p TYPE STANDARD TABLE OF dd03p WITH DEFAULT KEY.
@ -1427,11 +1428,14 @@ CLASS lcl_persistence_migrate IMPLEMENTATION.
CALL FUNCTION 'DDIF_TABL_ACTIVATE'
EXPORTING
name = lcl_persistence_db=>c_tabname
auth_chk = abap_false
IMPORTING
rc = lv_rc
EXCEPTIONS
not_found = 1
put_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
IF sy-subrc <> 0 OR lv_rc <> 0.
lcx_exception=>raise( 'migrate, error from DDIF_TABL_ACTIVATE' ).
ENDIF.

725
src/zabapgit_unit_test_clas_intf.prog.abap
View File

@ -1,7 +1,7 @@
CLASS ltd_spy_oo_object DEFINITION FOR TESTING.
PUBLIC SECTION.
INTERFACES: lif_object_oriented_object.
INTERFACES: lif_object_oriented_object_fnc.
DATA:
mv_package TYPE devclass,
mv_overwrite TYPE seox_boolean,
@ -26,10 +26,17 @@ CLASS ltd_spy_oo_object DEFINITION FOR TESTING.
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_get_includes_called TYPE abap_bool,
mv_exists TYPE abap_bool,
mv_exists_called TYPE abap_bool,
ms_serialize_key TYPE seoclskey,
mv_skip_test_classes TYPE abap_bool.
PRIVATE SECTION.
ENDCLASS.
CLASS ltd_spy_oo_object IMPLEMENTATION.
METHOD lif_object_oriented_object~create.
METHOD lif_object_oriented_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.
@ -40,7 +47,7 @@ CLASS ltd_spy_oo_object IMPLEMENTATION.
mv_package = iv_package.
mv_overwrite = iv_overwrite.
ENDMETHOD.
METHOD lif_object_oriented_object~generate_locals.
METHOD lif_object_oriented_object_fnc~generate_locals.
ms_locals_key = is_key.
mt_local_definitions = it_local_definitions.
mt_local_implementations = it_local_implementations.
@ -49,51 +56,101 @@ CLASS ltd_spy_oo_object IMPLEMENTATION.
mv_force = iv_force.
ENDMETHOD.
METHOD lif_object_oriented_object~deserialize_source.
METHOD lif_object_oriented_object_fnc~deserialize_source.
ms_deserialize_key = is_key.
mt_source = it_source.
ENDMETHOD.
METHOD lif_object_oriented_object~add_to_activation_list.
METHOD lif_object_oriented_object_fnc~add_to_activation_list.
ms_item_to_activate = is_item.
ENDMETHOD.
METHOD lif_object_oriented_object~update_descriptions.
METHOD lif_object_oriented_object_fnc~update_descriptions.
ms_description_key = is_key.
mt_descriptions = it_descriptions.
ENDMETHOD.
METHOD lif_object_oriented_object~insert_text_pool.
mv_text_pool_inserted = abap_true.
METHOD lif_object_oriented_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.
mt_text_pool = it_text_pool.
cl_abap_unit_assert=>assert_equals(
act = iv_language
exp = sy-langu ).
ENDMETHOD.
METHOD lif_object_oriented_object~create_sotr.
METHOD lif_object_oriented_object_fnc~create_sotr.
mt_sotr = it_sotr.
mt_sotr_package = iv_package.
ENDMETHOD.
METHOD lif_object_oriented_object~create_documentation.
METHOD lif_object_oriented_object_fnc~create_documentation.
mv_docu_object_name = iv_object_name.
mv_docu_language = iv_language.
mt_docu_lines = it_lines.
ENDMETHOD.
METHOD lif_object_oriented_object~get_includes.
METHOD lif_object_oriented_object_fnc~get_includes.
APPEND 'dummy' TO rt_includes.
mv_get_includes_called = abap_true.
ENDMETHOD.
METHOD lif_object_oriented_object_fnc~exists.
mv_exists_called = abap_true.
rv_exists = mv_exists.
ENDMETHOD.
METHOD lif_object_oriented_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_object_oriented_object_fnc~get_class_properties.
rs_class_properties = ms_class_properties.
ENDMETHOD.
METHOD lif_object_oriented_object_fnc~get_interface_properties.
rs_interface_properties = ms_interface_properties.
ENDMETHOD.
METHOD lif_object_oriented_object_fnc~read_text_pool.
rt_text_pool = mt_text_pool.
ENDMETHOD.
METHOD lif_object_oriented_object_fnc~read_sotr.
rt_sotr = mt_sotr.
ENDMETHOD.
METHOD lif_object_oriented_object_fnc~read_documentation.
rt_lines = mt_docu_lines.
ENDMETHOD.
METHOD lif_object_oriented_object_fnc~read_descriptions.
rt_descriptions = mt_descriptions.
ENDMETHOD.
METHOD lif_object_oriented_object_fnc~get_skip_test_classes.
rv_skip = mv_skip_test_classes.
ENDMETHOD.
ENDCLASS.
CLASS ltd_fake_object_files DEFINITION FOR TESTING
INHERITING FROM lcl_objects_files.
PUBLIC SECTION.
METHODS constructor.
METHODS add_abap REDEFINITION.
METHODS read_abap REDEFINITION.
DATA:
mt_sources TYPE seop_source_string,
@ -130,18 +187,32 @@ CLASS ltd_fake_object_files IMPLEMENTATION.
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 TYPE REF TO ltd_spy_oo_object,
mo_fake_object_files TYPE REF TO ltd_fake_object_files,
mo_xml_input TYPE REF TO lcl_xml_input,
mo_xml_out TYPE REF TO lcl_xml_output,
mo_oo_object TYPE REF TO lif_object,
ms_item TYPE ty_item.
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 lcl_xml_input,
mo_xml_out TYPE REF TO lcl_xml_output,
mo_oo_object TYPE REF TO lif_object,
ms_item TYPE ty_item.
METHODS: when_deserializing
RAISING
lcx_exception,
@ -162,22 +233,31 @@ CLASS ltc_oo_test DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT.
lcx_exception,
then_docu_should_be_created
IMPORTING
it_lines TYPE tlinetab.
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->mt_docu_lines
act = mo_spy_oo_object_functions->mt_docu_lines
exp = it_lines ).
cl_abap_unit_assert=>assert_equals(
act = mo_spy_oo_object->mv_docu_object_name
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->mv_docu_language
act = mo_spy_oo_object_functions->mv_docu_language
exp = sy-langu ).
ENDMETHOD.
@ -189,17 +269,17 @@ CLASS ltc_oo_test IMPLEMENTATION.
METHOD then_it_should_add_activation.
cl_abap_unit_assert=>assert_equals(
act = mo_spy_oo_object->ms_item_to_activate
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->mt_descriptions
act = mo_spy_oo_object_functions->mt_descriptions
exp = it_descriptions ).
cl_abap_unit_assert=>assert_equals(
act = mo_spy_oo_object->ms_description_key
act = mo_spy_oo_object_functions->ms_description_key
exp = ms_item-obj_name ).
ENDMETHOD.
@ -211,11 +291,11 @@ CLASS ltc_oo_test IMPLEMENTATION.
METHOD then_should_deserialize_source.
cl_abap_unit_assert=>assert_equals(
act = mo_spy_oo_object->mt_source
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->ms_deserialize_key
act = mo_spy_oo_object_functions->ms_deserialize_key
exp = ms_item-obj_name ).
ENDMETHOD.
@ -255,9 +335,9 @@ ENDCLASS.
CLASS ltcl_class_deserialization IMPLEMENTATION.
METHOD setup.
CREATE OBJECT mo_fake_object_files.
CREATE OBJECT mo_spy_oo_object.
CREATE OBJECT mo_spy_oo_object_functions.
CREATE OBJECT mo_xml_out.
lth_oo_factory_injector=>inject( mo_spy_oo_object ).
lth_oo_factory_injector=>inject( mo_spy_oo_object_functions ).
ms_item-devclass = 'package_name'.
ms_item-obj_name = 'zcl_class'.
@ -329,40 +409,40 @@ CLASS ltcl_class_deserialization IMPLEMENTATION.
METHOD then_should_create_class.
cl_abap_unit_assert=>assert_equals(
act = mo_spy_oo_object->ms_class_properties
act = mo_spy_oo_object_functions->ms_class_properties
exp = ms_class_properties ).
cl_abap_unit_assert=>assert_equals( act = mo_spy_oo_object->mv_overwrite
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->mv_package
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->ms_locals_key
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->mv_force
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->mt_local_definitions
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->mt_local_implementations
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->mt_local_macros
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->mt_local_test_classes
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.
@ -370,7 +450,7 @@ CLASS ltcl_class_deserialization IMPLEMENTATION.
when_deserializing( ).
cl_abap_unit_assert=>assert_equals( act = mo_spy_oo_object->mv_text_pool_inserted
cl_abap_unit_assert=>assert_equals( act = mo_spy_oo_object_functions->mv_text_pool_inserted
exp = abap_false ).
ENDMETHOD.
@ -390,11 +470,11 @@ CLASS ltcl_class_deserialization IMPLEMENTATION.
when_deserializing( ).
cl_abap_unit_assert=>assert_equals(
act = mo_spy_oo_object->mt_text_pool
act = mo_spy_oo_object_functions->mt_text_pool
exp = lt_pool_external ).
cl_abap_unit_assert=>assert_equals(
act = mo_spy_oo_object->mv_text_pool_class_name
act = mo_spy_oo_object_functions->mv_text_pool_class_name
exp = 'zcl_class' ).
ENDMETHOD.
@ -414,10 +494,10 @@ CLASS ltcl_class_deserialization IMPLEMENTATION.
when_deserializing( ).
cl_abap_unit_assert=>assert_equals(
act = mo_spy_oo_object->mt_sotr
act = mo_spy_oo_object_functions->mt_sotr
exp = lt_sotr ).
cl_abap_unit_assert=>assert_equals(
act = mo_spy_oo_object->mt_sotr_package
act = mo_spy_oo_object_functions->mt_sotr_package
exp = 'package_name' ).
ENDMETHOD.
@ -457,9 +537,9 @@ ENDCLASS.
CLASS ltcl_interface_deserialization IMPLEMENTATION.
METHOD setup.
CREATE OBJECT mo_fake_object_files.
CREATE OBJECT mo_spy_oo_object.
CREATE OBJECT mo_spy_oo_object_functions.
CREATE OBJECT mo_xml_out.
lth_oo_factory_injector=>inject( mo_spy_oo_object ).
lth_oo_factory_injector=>inject( mo_spy_oo_object_functions ).
ms_item-devclass = 'package_name'.
ms_item-obj_name = 'zif_interface'.
@ -522,14 +602,14 @@ CLASS ltcl_interface_deserialization IMPLEMENTATION.
METHOD then_should_create_interface.
cl_abap_unit_assert=>assert_equals(
act = mo_spy_oo_object->ms_interface_properties
act = mo_spy_oo_object_functions->ms_interface_properties
exp = ms_interface_properties ).
cl_abap_unit_assert=>assert_equals( act = mo_spy_oo_object->mv_overwrite
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->mv_package
act = mo_spy_oo_object_functions->mv_package
exp = 'package_name' ).
ENDMETHOD.
@ -561,9 +641,9 @@ ENDCLASS.
CLASS ltcl_class_changed IMPLEMENTATION.
METHOD setup.
CREATE OBJECT mo_fake_object_files.
CREATE OBJECT mo_spy_oo_object.
CREATE OBJECT mo_spy_oo_object_functions.
CREATE OBJECT mo_xml_out.
lth_oo_factory_injector=>inject( mo_spy_oo_object ).
lth_oo_factory_injector=>inject( mo_spy_oo_object_functions ).
ms_item-devclass = 'package_name'.
ms_item-obj_name = 'zcl_class'.
@ -580,7 +660,7 @@ CLASS ltcl_class_changed IMPLEMENTATION.
lv_username = mo_oo_object->changed_by( ).
cl_abap_unit_assert=>assert_equals(
act = mo_spy_oo_object->mv_get_includes_called
act = mo_spy_oo_object_functions->mv_get_includes_called
exp = abap_true ).
cl_abap_unit_assert=>assert_equals(
@ -593,7 +673,7 @@ CLASS ltcl_class_changed IMPLEMENTATION.
mo_oo_object->has_changed_since( lv_timestamp ).
cl_abap_unit_assert=>assert_equals(
act = mo_spy_oo_object->mv_get_includes_called
act = mo_spy_oo_object_functions->mv_get_includes_called
exp = abap_true ).
ENDMETHOD.
ENDCLASS.
@ -608,9 +688,9 @@ ENDCLASS.
CLASS ltcl_interface_changed IMPLEMENTATION.
METHOD setup.
CREATE OBJECT mo_fake_object_files.
CREATE OBJECT mo_spy_oo_object.
CREATE OBJECT mo_spy_oo_object_functions.
CREATE OBJECT mo_xml_out.
lth_oo_factory_injector=>inject( mo_spy_oo_object ).
lth_oo_factory_injector=>inject( mo_spy_oo_object_functions ).
ms_item-devclass = 'package_name'.
ms_item-obj_name = 'zif_interface'.
@ -627,7 +707,7 @@ CLASS ltcl_interface_changed IMPLEMENTATION.
lv_username = mo_oo_object->changed_by( ).
cl_abap_unit_assert=>assert_equals(
act = mo_spy_oo_object->mv_get_includes_called
act = mo_spy_oo_object_functions->mv_get_includes_called
exp = abap_true ).
cl_abap_unit_assert=>assert_equals(
@ -640,7 +720,536 @@ CLASS ltcl_interface_changed IMPLEMENTATION.
mo_oo_object->has_changed_since( lv_timestamp ).
cl_abap_unit_assert=>assert_equals(
act = mo_spy_oo_object->mv_get_includes_called
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.
lth_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.
lth_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 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 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 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 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 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 ty_sotr_tt,
lt_actual_sotr TYPE 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 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 ty_seocompotx_tt,
lt_actual_descriptions TYPE ty_seocompotx_tt,
ls_description TYPE LINE OF 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.
lth_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 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 ty_seocompotx_tt,
lt_actual_descriptions TYPE ty_seocompotx_tt,
ls_description TYPE LINE OF 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.

22
src/zabapgit_view_tutorial.prog.abap
View File

@ -66,12 +66,24 @@ CLASS lcl_gui_view_tutorial IMPLEMENTATION.
_add '<h2>abapGit related repositories</h2>'.
_add '<p><ul>'.
_add '<li>'.
ro_html->add_a( iv_txt = 'install abapGit repo' iv_act = gc_action-abapgit_install ).
_add ' - To keep abapGit up-to-date (or also to contribute) you need to'.
_add 'install it as a repository.</li>'.
IF lcl_services_abapgit=>is_installed( ) = abap_true.
_add 'abapGit installed in package&nbsp;'.
_add lcl_services_abapgit=>c_package_abapgit.
ELSE.
ro_html->add_a( iv_txt = 'install abapGit repo' iv_act = gc_action-abapgit_install ).
_add ' - To keep abapGit up-to-date (or also to contribute) you need to'.
_add 'install it as a repository.'.
ENDIF.
_add '</li>'.
_add '<li>'.
ro_html->add_a( iv_txt = 'install abapGit plugins' iv_act = gc_action-abapgit_install_pi ).
_add ' - you can also install plugins to extend supported object types</li>'.
IF lcl_services_abapgit=>is_installed_pi( ) = abap_true.
_add 'abapGit plugins installed in package&nbsp;'.
_add lcl_services_abapgit=>c_package_plugins.
ELSE.
ro_html->add_a( iv_txt = 'install abapGit plugins' iv_act = gc_action-abapgit_install_pi ).
_add ' - you can also install plugins to extend supported object types'.
ENDIF.
_add '</li>'.
_add '</ul></p>'.
ENDMETHOD. " render_content.