All files / test/src zcl_abapgit_integration_gitv2.clas.testclasses.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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
1x
1x
1x
1x
1x
1x
1x
1x
1x
1x
1x
1x
1x
1x
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
CLASS ltcl_test DEFINITION FOR TESTING DURATION MEDIUM RISK LEVEL CRITICAL FINAL.
 
  PRIVATE SECTION.
    INTERFACES if_ftd_invocation_answer.
    METHODS setup.
    METHODS teardown.
    METHODS list_branches FOR TESTING RAISING cx_static_check.
    METHODS list_no_blobs FOR TESTING RAISING cx_static_check.
    METHODS commits_last_days FOR TESTING RAISING cx_static_check.
 
    DATA mi_env TYPE REF TO if_function_test_environment.
ENDCLASS.
 
 
CLASS ltcl_test IMPLEMENTATION.
  METHOD setup.
    DATA lt_deps TYPE if_function_test_environment=>tt_function_dependencies.

    INSERT 'SAPGUI_PROGRESS_INDICATOR' INTO TABLE lt_deps.
    mi_env = cl_function_test_environment=>create( lt_deps ).

    mi_env->get_double( 'SAPGUI_PROGRESS_INDICATOR' )->configure_call( )->ignore_all_parameters( )->then_answer( me ).
  ENDMETHOD.

  METHOD teardown.
    mi_env->clear_doubles( ).
  ENDMETHOD.

  METHOD if_ftd_invocation_answer~answer.
    RETURN.
  ENDMETHOD.

  METHOD list_branches.

    DATA lo_list     TYPE REF TO zif_abapgit_git_branch_list.
    DATA lt_branches TYPE zif_abapgit_git_definitions=>ty_git_branch_list_tt.

    lo_list = zcl_abapgit_git_factory=>get_v2_porcelain( )->list_branches(
      iv_url    = 'https://github.com/abapGit/abapGit.git'
      iv_prefix = 'refs/heads' ).

    lt_branches = lo_list->get_all( ).

    cl_abap_unit_assert=>assert_number_between(
      number = lines( lt_branches )
      lower  = 0
      upper  = 100 ).

  ENDMETHOD.

  METHOD list_no_blobs.

    DATA lt_expanded TYPE zif_abapgit_git_definitions=>ty_expanded_tt.

    lt_expanded = zcl_abapgit_git_factory=>get_v2_porcelain( )->list_no_blobs(
       iv_url  = 'https://github.com/abapGit/abapGit.git'
       iv_sha1 = '7bdd8f9f4c6bb0ece461b78c7b559957fad6c3ae' ).

    cl_abap_unit_assert=>assert_number_between(
      number = lines( lt_expanded )
      lower  = 0
      upper  = 5000 ).

  ENDMETHOD.

  METHOD commits_last_days.

    DATA lt_objects TYPE zif_abapgit_definitions=>ty_objects_tt.
    DATA lt_sha1    TYPE zif_abapgit_git_definitions=>ty_sha1_tt.

* todo, given the sha1, this test might fail when it falls outside the window?
    INSERT '8c5e684170725a564c38b55ccd285c273b135e3a' INTO TABLE lt_sha1.

    lt_objects = zcl_abapgit_git_factory=>get_v2_porcelain( )->commits_last_days(
      iv_url  = 'https://github.com/abapGit/abapGit.git'
      iv_days = 730
      it_sha1 = lt_sha1 ).

* just check it doesn't throw an exception

  ENDMETHOD.

ENDCLASS.