All files / test/src/inject zcl_abapgit_inject_fm.clas.abap

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
1x
1x
1x
1x
1x
1x
1x
1x
1x
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
CLASS zcl_abapgit_inject_fm DEFINITION PUBLIC.
  PUBLIC SECTION.
    INTERFACES if_ftd_invocation_answer.
    CLASS-METHODS inject.
    CLASS-METHODS clear.
  PRIVATE SECTION.
    CLASS-DATA gi_env TYPE REF TO if_function_test_environment.
ENDCLASS.
 
CLASS zcl_abapgit_inject_fm IMPLEMENTATION.

  METHOD if_ftd_invocation_answer~answer.
    RETURN.
  ENDMETHOD.

  METHOD inject.

    DATA lt_deps    TYPE if_function_test_environment=>tt_function_dependencies.
    DATA lv_dep     LIKE LINE OF lt_deps.
    DATA lo_handler TYPE REF TO zcl_abapgit_inject_fm.
    DATA lo_doma_put_handler TYPE REF TO zcl_abapgit_fm_ddif_doma_put.
    DATA lo_doma_get_handler TYPE REF TO zcl_abapgit_fm_ddif_doma_get.


    INSERT 'ENQUEUE_EZABAPGIT' INTO TABLE lt_deps.
    INSERT 'DEQUEUE_EZABAPGIT' INTO TABLE lt_deps.
    INSERT 'SAPGUI_PROGRESS_INDICATOR' INTO TABLE lt_deps.
    INSERT 'TR_OBJECT_TABLE' INTO TABLE lt_deps.
    INSERT 'SEO_INTERFACE_IMPLEM_GET_ALL' INTO TABLE lt_deps.
    INSERT 'DDIF_DOMA_PUT' INTO TABLE lt_deps.
    INSERT 'DDIF_DOMA_GET' INTO TABLE lt_deps.
    gi_env = cl_function_test_environment=>create( lt_deps ).

    CREATE OBJECT lo_handler.
    CREATE OBJECT lo_doma_put_handler.
    CREATE OBJECT lo_doma_get_handler.
    LOOP AT lt_deps INTO lv_dep.
      IF lv_dep = 'DDIF_DOMA_PUT'.
        gi_env->get_double( lv_dep )->configure_call( )->ignore_all_parameters( )->then_answer( lo_doma_put_handler ).
      ELSEIF lv_dep = 'DDIF_DOMA_GET'.
        gi_env->get_double( lv_dep )->configure_call( )->ignore_all_parameters( )->then_answer( lo_doma_get_handler ).
      ELSE.
        gi_env->get_double( lv_dep )->configure_call( )->ignore_all_parameters( )->then_answer( lo_handler ).
      ENDIF.
    ENDLOOP.

  ENDMETHOD.

  METHOD clear.
    gi_env->clear_doubles( ).
    CLEAR gi_env.
  ENDMETHOD.

ENDCLASS.