mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-01 12:20:51 +08:00
87 lines
2.2 KiB
ABAP
87 lines
2.2 KiB
ABAP
CLASS ltcl_test DEFINITION DEFERRED.
|
|
CLASS zcl_abapgit_data_serializer DEFINITION LOCAL FRIENDS ltcl_test.
|
|
|
|
CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL.
|
|
|
|
PRIVATE SECTION.
|
|
DATA mi_cut TYPE REF TO zif_abapgit_data_serializer.
|
|
DATA mi_config TYPE REF TO zif_abapgit_data_config.
|
|
|
|
METHODS:
|
|
setup,
|
|
serialize FOR TESTING RAISING zcx_abapgit_exception,
|
|
serialize_error_table FOR TESTING RAISING zcx_abapgit_exception,
|
|
serialize_error_field FOR TESTING RAISING zcx_abapgit_exception.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS ltcl_test IMPLEMENTATION.
|
|
|
|
METHOD setup.
|
|
CREATE OBJECT mi_cut TYPE zcl_abapgit_data_serializer.
|
|
CREATE OBJECT mi_config TYPE zcl_abapgit_data_config.
|
|
ENDMETHOD.
|
|
|
|
METHOD serialize.
|
|
|
|
DATA ls_config TYPE zif_abapgit_data_config=>ty_config.
|
|
DATA lt_files TYPE zif_abapgit_definitions=>ty_files_tt.
|
|
DATA lv_where LIKE LINE OF ls_config-where.
|
|
|
|
ls_config-type = 'TABU'.
|
|
ls_config-name = 'T000'.
|
|
lv_where = |MANDT = '{ sy-mandt }'|.
|
|
APPEND lv_where TO ls_config-where.
|
|
|
|
mi_config->add_config( ls_config ).
|
|
|
|
lt_files = mi_cut->serialize( mi_config ).
|
|
|
|
cl_abap_unit_assert=>assert_equals(
|
|
act = lines( lt_files )
|
|
exp = 1 ).
|
|
|
|
ENDMETHOD.
|
|
|
|
METHOD serialize_error_table.
|
|
|
|
DATA ls_config TYPE zif_abapgit_data_config=>ty_config.
|
|
DATA lv_where LIKE LINE OF ls_config-where.
|
|
|
|
ls_config-type = 'TABU'.
|
|
ls_config-name = 'SDFSDFSDFSDFSDF'.
|
|
lv_where = |MANDT = '{ sy-mandt }'|.
|
|
APPEND lv_where TO ls_config-where.
|
|
|
|
mi_config->add_config( ls_config ).
|
|
|
|
TRY.
|
|
mi_cut->serialize( mi_config ).
|
|
cl_abap_unit_assert=>fail( ).
|
|
CATCH zcx_abapgit_exception.
|
|
ENDTRY.
|
|
|
|
ENDMETHOD.
|
|
|
|
METHOD serialize_error_field.
|
|
|
|
DATA ls_config TYPE zif_abapgit_data_config=>ty_config.
|
|
DATA lv_where LIKE LINE OF ls_config-where.
|
|
|
|
ls_config-type = 'TABU'.
|
|
ls_config-name = 'T000'.
|
|
lv_where = |SDFSDFSDF = '{ sy-mandt }'|.
|
|
APPEND lv_where TO ls_config-where.
|
|
|
|
mi_config->add_config( ls_config ).
|
|
|
|
TRY.
|
|
mi_cut->serialize( mi_config ).
|
|
cl_abap_unit_assert=>fail( ).
|
|
CATCH zcx_abapgit_exception.
|
|
ENDTRY.
|
|
|
|
ENDMETHOD.
|
|
|
|
ENDCLASS.
|