mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-02 04:36:49 +08:00
42 lines
1014 B
ABAP
42 lines
1014 B
ABAP
CLASS ltcl_frontend_services DEFINITION FOR TESTING RISK LEVEL HARMLESS
|
|
DURATION SHORT FINAL.
|
|
|
|
PRIVATE SECTION.
|
|
DATA mo_cut TYPE REF TO zcl_abapgit_frontend_services.
|
|
|
|
METHODS:
|
|
setup,
|
|
path_windows FOR TESTING,
|
|
path_unix FOR TESTING,
|
|
no_path FOR TESTING.
|
|
|
|
ENDCLASS.
|
|
|
|
CLASS zcl_abapgit_frontend_services DEFINITION LOCAL FRIENDS ltcl_frontend_services.
|
|
|
|
CLASS ltcl_frontend_services IMPLEMENTATION.
|
|
|
|
METHOD setup.
|
|
CREATE OBJECT mo_cut.
|
|
ENDMETHOD.
|
|
|
|
METHOD path_windows.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
act = mo_cut->get_path_from_fullname( 'C:\SAPworkdir\hello\world.abap' )
|
|
exp = 'C:\SAPworkdir\hello\' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD path_unix.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
act = mo_cut->get_path_from_fullname( '/var/tmp/world.abap' )
|
|
exp = '/var/tmp/' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD no_path.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
act = mo_cut->get_path_from_fullname( 'toronto.abap' )
|
|
exp = '' ).
|
|
ENDMETHOD.
|
|
|
|
ENDCLASS.
|