Skip to content

Commit 807144f

Browse files
larshplarshp
committed
downport, #12 
1 parent 5d5f40e commit 807144f

File tree

1 file changed

+90
-84
lines changed

1 file changed

+90
-84
lines changed

‎zcl_abapgit_object_by_sobj.clas.testclasses.abap

Lines changed: 90 additions & 84 deletions
Original file line numberDiff line numberDiff line change
@@ -191,8 +191,11 @@ CLASS ltcl_bobf DEFINITION FINAL FOR TESTING
191191
CLASS-METHODS class_setup RAISING cx_static_check.
192192
CLASS-METHODS class_teardown RAISING cx_static_check.
193193

194-
CLASS-DATA gv_ut_bo_key TYPE /bobf/conf_key.
195-
CLASS-DATA gv_root_node_key TYPE /bobf/conf_key.
194+
* TYPE /bobf/conf_key does not exist in old ABAP systems
195+
TYPES: ty_conf_key TYPE x LENGTH 16.
196+
197+
CLASS-DATA gv_ut_bo_key TYPE ty_conf_key.
198+
CLASS-DATA gv_root_node_key TYPE ty_conf_key.
196199

197200
METHODS:
198201
t001_import_bo FOR TESTING RAISING cx_static_check,
@@ -228,13 +231,12 @@ CLASS ltcl_bobf IMPLEMENTATION.
228231
cl_aunit_assert=>fail(
229232
msg = 'BOPF not available in this system. Test cannot be executed'
230233
level = cl_aunit_assert=>tolerable
231-
quit = cl_aunit_assert=>class
232-
).
234+
quit = cl_aunit_assert=>class ).
233235
ENDTRY.
236+
234237
* purge existing object if it exists from previous execution
235238
go_bridge->delete_object_on_db( ).
236239

237-
238240
* create ddic-structures which are needed by the BOPF runtime lateron
239241
DATA ls_dd02v TYPE dd02v.
240242
DATA lt_dd03p TYPE dd03ptab.
@@ -450,23 +452,24 @@ CLASS ltcl_bobf IMPLEMENTATION.
450452
METHOD t001_import_bo.
451453
go_bridge->import_object( me->get_bobf_container( ) ).
452454

453-
SELECT COUNT(*) FROM /bobf/act_conf WHERE name = 'ZABAPGIT_UNITTEST'.
455+
SELECT COUNT(*) FROM ('/BOBF/ACT_CONF') WHERE name = 'ZABAPGIT_UNITTEST'.
454456
cl_abap_unit_assert=>assert_equals(
455457
msg = 'Database content of /BOBF/ACT_CONF found deviated'
456458
exp = 7
457459
act = sy-dbcnt ).
458460

459461
* check whether the BOPF designtime accepted the imported object
460-
DATA lo_conf TYPE REF TO /bobf/if_frw_configuration.
461-
462-
gv_ut_bo_key = /bobf/cl_frw_factory=>query_bo( iv_bo_name = 'ZABAPGIT_UNITTEST' ).
463-
cl_abap_unit_assert=>assert_not_initial( gv_ut_bo_key ).
464-
465-
lo_conf = /bobf/cl_frw_factory=>get_configuration( gv_ut_bo_key ).
466-
cl_abap_unit_assert=>assert_not_initial( lo_conf ).
467-
468-
gv_root_node_key = lo_conf->query_node( iv_node_name = 'ROOT' ).
469-
cl_abap_unit_assert=>assert_not_initial( gv_root_node_key ).
462+
* TODO, COMMENTED, DOWNPORT
463+
* DATA lo_conf TYPE REF TO /bobf/if_frw_configuration.
464+
*
465+
* gv_ut_bo_key = /bobf/cl_frw_factory=>query_bo( iv_bo_name = 'ZABAPGIT_UNITTEST' ).
466+
* cl_abap_unit_assert=>assert_not_initial( gv_ut_bo_key ).
467+
*
468+
* lo_conf = /bobf/cl_frw_factory=>get_configuration( gv_ut_bo_key ).
469+
* cl_abap_unit_assert=>assert_not_initial( lo_conf ).
470+
*
471+
* gv_root_node_key = lo_conf->query_node( iv_node_name = 'ROOT' ).
472+
* cl_abap_unit_assert=>assert_not_initial( gv_root_node_key ).
470473
ENDMETHOD.
471474

472475
METHOD t002_check_existence.
@@ -507,80 +510,83 @@ CLASS ltcl_bobf IMPLEMENTATION.
507510

508511
METHOD t100_use_imported_object.
509512

510-
511-
DATA lo_mo_serv_mgr TYPE REF TO /bobf/if_tra_service_manager.
512-
lo_mo_serv_mgr = /bobf/cl_tra_serv_mgr_factory=>get_service_manager( gv_ut_bo_key ).
513-
514-
DATA lt_modification TYPE /bobf/t_frw_modification.
515-
DATA ls_modification LIKE LINE OF lt_modification.
516-
517-
ls_modification-node = gv_root_node_key.
518-
ls_modification-change_mode = /bobf/if_frw_c=>sc_modify_create.
519-
ls_modification-key = /bobf/cl_frw_factory=>get_new_key( ).
520-
INSERT ls_modification INTO TABLE lt_modification.
521-
522-
lo_mo_serv_mgr->modify(
523-
lt_modification " Changes
524-
).
525-
526-
DATA lt_key TYPE /bobf/t_frw_key.
527-
DATA ls_key LIKE LINE OF lt_key.
528-
DATA lt_failed_ley LIKE lt_key.
529-
530-
ls_key-key = ls_modification-key.
531-
INSERT ls_key INTO TABLE lt_key.
532-
533-
DATA lr_root_node_tab TYPE REF TO data.
534-
CREATE DATA lr_root_node_tab TYPE ('ZAGUT_T_ROOT').
535-
FIELD-SYMBOLS <lt_root> TYPE ANY TABLE.
536-
ASSIGN lr_root_node_tab->* TO <lt_root>.
537-
538-
lo_mo_serv_mgr->retrieve(
539-
EXPORTING
540-
iv_node_key = gv_root_node_key " Node
541-
it_key = lt_key " Key Table
542-
IMPORTING
543-
et_data = <lt_root>
544-
et_failed_key = lt_failed_ley " Key Table
545-
).
546-
547-
cl_aunit_assert=>assert_not_initial(
548-
act = <lt_root> " Actual Data Object
549-
msg = |The BO instance which has been created previously could not be retrieved|
550-
).
551-
552-
cl_aunit_assert=>assert_initial(
553-
act = lt_failed_ley " Actual Data Object
554-
msg = |The BO instance which has been created previously could not be retrieved|
555-
).
556-
557-
* Save the transaction in order to be able to see the DB access in the log ;)
558-
DATA lv_save_rejected TYPE abap_bool.
559-
/bobf/cl_tra_trans_mgr_factory=>get_transaction_manager( )->save(
560-
IMPORTING
561-
ev_rejected = lv_save_rejected " Data element for domain BOOLE: TRUE (='X') and FALSE (=' ')
562-
).
563-
564-
cl_aunit_assert=>assert_initial(
565-
act = lv_save_rejected " Actual Data Object
566-
msg = |The BO instance could not be persisted|
567-
).
568-
569-
DATA lv_key_from_db TYPE /bobf/conf_key.
570-
CLEAR lv_key_from_db.
571-
SELECT SINGLE db_key FROM ('ZAGUT_D_ROOT') INTO lv_key_from_db WHERE db_key = ls_key-key.
572-
cl_aunit_assert=>assert_not_initial(
573-
act = <lt_root> " Actual Data Object
574-
msg = |The BO instance which has been saved previously could not be SELECTed|
575-
).
513+
* TODO, COMMENTED, DOWNPORT
514+
* DATA lo_mo_serv_mgr TYPE REF TO /bobf/if_tra_service_manager.
515+
* lo_mo_serv_mgr = /bobf/cl_tra_serv_mgr_factory=>get_service_manager( gv_ut_bo_key ).
516+
*
517+
* DATA lt_modification TYPE /bobf/t_frw_modification.
518+
* DATA ls_modification LIKE LINE OF lt_modification.
519+
*
520+
* ls_modification-node = gv_root_node_key.
521+
* ls_modification-change_mode = /bobf/if_frw_c=>sc_modify_create.
522+
* ls_modification-key = /bobf/cl_frw_factory=>get_new_key( ).
523+
* INSERT ls_modification INTO TABLE lt_modification.
524+
*
525+
* lo_mo_serv_mgr->modify(
526+
* lt_modification " Changes
527+
* ).
528+
*
529+
* DATA lt_key TYPE /bobf/t_frw_key.
530+
* DATA ls_key LIKE LINE OF lt_key.
531+
* DATA lt_failed_ley LIKE lt_key.
532+
*
533+
* ls_key-key = ls_modification-key.
534+
* INSERT ls_key INTO TABLE lt_key.
535+
*
536+
* DATA lr_root_node_tab TYPE REF TO data.
537+
* CREATE DATA lr_root_node_tab TYPE ('ZAGUT_T_ROOT').
538+
* FIELD-SYMBOLS <lt_root> TYPE ANY TABLE.
539+
* ASSIGN lr_root_node_tab->* TO <lt_root>.
540+
*
541+
* lo_mo_serv_mgr->retrieve(
542+
* EXPORTING
543+
* iv_node_key = gv_root_node_key " Node
544+
* it_key = lt_key " Key Table
545+
* IMPORTING
546+
* et_data = <lt_root>
547+
* et_failed_key = lt_failed_ley " Key Table
548+
* ).
549+
*
550+
* cl_aunit_assert=>assert_not_initial(
551+
* act = <lt_root> " Actual Data Object
552+
* msg = |The BO instance which has been created previously could not be retrieved|
553+
* ).
554+
*
555+
* cl_aunit_assert=>assert_initial(
556+
* act = lt_failed_ley " Actual Data Object
557+
* msg = |The BO instance which has been created previously could not be retrieved|
558+
* ).
559+
*
560+
** Save the transaction in order to be able to see the DB access in the log ;)
561+
* DATA lv_save_rejected TYPE abap_bool.
562+
* /bobf/cl_tra_trans_mgr_factory=>get_transaction_manager( )->save(
563+
* IMPORTING
564+
* ev_rejected = lv_save_rejected " Data element for domain BOOLE: TRUE (='X') and FALSE (=' ')
565+
* ).
566+
*
567+
* cl_aunit_assert=>assert_initial(
568+
* act = lv_save_rejected " Actual Data Object
569+
* msg = |The BO instance could not be persisted|
570+
* ).
571+
*
572+
* DATA lv_key_from_db TYPE /bobf/conf_key.
573+
* CLEAR lv_key_from_db.
574+
* SELECT SINGLE db_key FROM ('ZAGUT_D_ROOT') INTO lv_key_from_db WHERE db_key = ls_key-key.
575+
* cl_aunit_assert=>assert_not_initial(
576+
* act = <lt_root> " Actual Data Object
577+
* msg = |The BO instance which has been saved previously could not be SELECTed|
578+
* ).
576579

577580
ENDMETHOD.
578581

579582
METHOD t200_delete_object.
580583
go_bridge->delete_object_on_db( ).
581584

582-
SELECT COUNT(*) FROM /bobf/act_conf WHERE name = 'ZABAPGIT_UNITTEST'.
583-
cl_abap_unit_assert=>assert_equals( msg = 'Database content of /BOBF/ACT_CONF found deviated' exp = 0 act = sy-dbcnt ).
585+
SELECT COUNT(*) FROM ('/BOBF/ACT_CONF') WHERE name = 'ZABAPGIT_UNITTEST'.
586+
cl_abap_unit_assert=>assert_equals(
587+
msg = 'Database content of /BOBF/ACT_CONF found deviated'
588+
exp = 0
589+
act = sy-dbcnt ).
584590

585591
ENDMETHOD.
586592

0 commit comments

Comments
 (0)