Press n or j to go to the next uncovered block, b, p or k for the previous block.
| 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 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 | 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x | CLASS ltcl_user DEFINITION
FOR TESTING
RISK LEVEL CRITICAL
DURATION SHORT FINAL.
PRIVATE SECTION.
CONSTANTS:
c_abap_user TYPE sy-uname VALUE 'ABAPGIT_TEST',
c_git_user TYPE string VALUE 'abapgit_tester',
c_repo_url TYPE string VALUE 'https://github.com/abapGit/abapGit'.
DATA:
mi_user TYPE REF TO zif_abapgit_persist_user.
METHODS:
set_get_git_user FOR TESTING RAISING zcx_abapgit_exception,
set_get_repo_show FOR TESTING RAISING zcx_abapgit_exception,
set_get_settings FOR TESTING RAISING zcx_abapgit_exception,
set_get_repo_login FOR TESTING RAISING zcx_abapgit_exception,
default_git_user_email FOR TESTING RAISING zcx_abapgit_exception,
default_git_stored_in_settings FOR TESTING RAISING zcx_abapgit_exception,
teardown RAISING zcx_abapgit_exception.
ENDCLASS.
CLASS ltcl_user IMPLEMENTATION.
METHOD set_get_git_user.
DATA: lv_user TYPE string.
mi_user = zcl_abapgit_persist_factory=>get_user( c_abap_user ).
mi_user->set_default_git_user_name( c_git_user ).
FREE mi_user.
mi_user = zcl_abapgit_persist_factory=>get_user( c_abap_user ).
lv_user = mi_user->get_default_git_user_name( ).
cl_abap_unit_assert=>assert_equals(
act = lv_user
exp = c_git_user ).
ENDMETHOD.
METHOD set_get_repo_show.
DATA: lv_key TYPE zif_abapgit_persistence=>ty_repo-key,
lv_repo_key TYPE zif_abapgit_persistence=>ty_repo-key.
SELECT MIN( value ) FROM (zcl_abapgit_persistence_db=>c_tabname) INTO lv_repo_key
WHERE type = zcl_abapgit_persistence_db=>c_type_repo.
IF sy-subrc <> 0.
RETURN. " can't test
ENDIF.
mi_user = zcl_abapgit_persist_factory=>get_user( c_abap_user ).
mi_user->set_repo_show( lv_repo_key ).
FREE mi_user.
mi_user = zcl_abapgit_persist_factory=>get_user( c_abap_user ).
lv_key = mi_user->get_repo_show( ).
cl_abap_unit_assert=>assert_equals(
act = lv_key
exp = lv_repo_key ).
ENDMETHOD.
METHOD set_get_repo_login.
DATA: lv_login TYPE string.
mi_user = zcl_abapgit_persist_factory=>get_user( c_abap_user ).
mi_user->set_repo_login( iv_url = c_repo_url
iv_login = c_git_user ).
FREE mi_user.
mi_user = zcl_abapgit_persist_factory=>get_user( c_abap_user ).
lv_login = mi_user->get_repo_login( c_repo_url ).
cl_abap_unit_assert=>assert_equals(
act = lv_login
exp = c_git_user ).
ENDMETHOD.
METHOD set_get_settings.
DATA: ls_settings TYPE zif_abapgit_persist_user=>ty_s_user_settings.
ls_settings-show_default_repo = abap_true.
mi_user = zcl_abapgit_persist_factory=>get_user( c_abap_user ).
mi_user->set_settings( ls_settings ).
FREE mi_user.
mi_user = zcl_abapgit_persist_factory=>get_user( c_abap_user ).
ls_settings = mi_user->get_settings( ).
cl_abap_unit_assert=>assert_equals(
act = ls_settings-show_default_repo
exp = abap_true ).
ENDMETHOD.
METHOD default_git_user_email.
DATA lv_email TYPE string.
CONSTANTS lc_test_email TYPE string VALUE 'test@example.com'.
mi_user = zcl_abapgit_persist_factory=>get_user( c_abap_user ).
mi_user->set_default_git_user_email( lc_test_email ).
CLEAR mi_user.
mi_user = zcl_abapgit_persist_factory=>get_user( c_abap_user ).
lv_email = mi_user->get_default_git_user_email( ).
cl_abap_unit_assert=>assert_equals(
act = lv_email
exp = lc_test_email ).
ENDMETHOD.
METHOD default_git_stored_in_settings.
DATA ls_settings TYPE zif_abapgit_persist_user=>ty_s_user_settings.
CONSTANTS:
lc_test_name TYPE string VALUE 'Test User',
lc_test_email TYPE string VALUE 'testuser@example.com'.
mi_user = zcl_abapgit_persist_factory=>get_user( c_abap_user ).
mi_user->set_default_git_user_name( lc_test_name ).
mi_user->set_default_git_user_email( lc_test_email ).
CLEAR mi_user.
mi_user = zcl_abapgit_persist_factory=>get_user( c_abap_user ).
ls_settings = mi_user->get_settings( ).
cl_abap_unit_assert=>assert_equals(
act = ls_settings-default_git_uname
exp = lc_test_name ).
cl_abap_unit_assert=>assert_equals(
act = ls_settings-default_git_email
exp = lc_test_email ).
cl_abap_unit_assert=>assert_equals(
act = mi_user->get_default_git_user_name( )
exp = lc_test_name ).
cl_abap_unit_assert=>assert_equals(
act = mi_user->get_default_git_user_email( )
exp = lc_test_email ).
ENDMETHOD.
METHOD teardown.
" Delete test user settings
zcl_abapgit_persistence_db=>get_instance( )->delete(
iv_type = zcl_abapgit_persistence_db=>c_type_user
iv_value = c_abap_user ).
CALL FUNCTION 'DB_COMMIT'.
ENDMETHOD.
ENDCLASS.
|