abapGit/src/utils/zcl_abapgit_time.clas.testclasses.abap
2020-10-11 10:40:18 +02:00

45 lines
869 B
ABAP

CLASS ltcl_time_test DEFINITION FINAL
FOR TESTING
DURATION SHORT
RISK LEVEL HARMLESS.
PRIVATE SECTION.
METHODS get_unix FOR TESTING RAISING cx_static_check.
METHODS get_utc FOR TESTING.
ENDCLASS.
CLASS ltcl_time_test IMPLEMENTATION.
METHOD get_unix.
DATA: lv_time TYPE zcl_abapgit_time=>ty_unixtime.
lv_time = zcl_abapgit_time=>get_unix(
iv_date = sy-datum
iv_time = sy-uzeit ).
cl_abap_unit_assert=>assert_not_initial( lv_time ).
ENDMETHOD.
METHOD get_utc.
DATA: lv_date TYPE sy-datum,
lv_time TYPE sy-uzeit.
zcl_abapgit_time=>get_utc(
EXPORTING
iv_unix = '1574605521'
IMPORTING
ev_date = lv_date
ev_time = lv_time ).
cl_abap_unit_assert=>assert_not_initial( lv_date ).
cl_abap_unit_assert=>assert_not_initial( lv_time ).
ENDMETHOD.
ENDCLASS.