*"* use this source file for your ABAP unit test classes
CLASS ltcl_travel DEFINITION FINAL FOR TESTING
DURATION SHORT
RISK LEVEL HARMLESS.
PRIVATE SECTION.
CLASS-DATA: cds_test_environment TYPE REF TO if_cds_test_environment,
begin_date TYPE /dmo/begin_date,
end_date TYPE /dmo/end_date.
CLASS-DATA:agency TYPE /dmo/agency,
customer TYPE /dmo/customer,
carrier TYPE /dmo/carrier,
flight TYPE /dmo/flight,
supplement TYPE /dmo/supplement,
travel TYPE zrap100_r_traveltp_72806,
accepted_travel TYPE zrap100_r_traveltp_72806,
rejected_travel TYPE zrap100_r_traveltp_72806,
read_travel TYPE STANDARD TABLE OF zrap100_72806,
travel_w_invalid_dates TYPE zrap100_r_traveltp_72806.
METHODS:first_test.
CLASS-METHODS:
class_setup,
class_teardown.
METHODS:
setup,
teardown.
METHODS:
read_travel_ok FOR TESTING RAISING cx_static_check,
create_travel_ok FOR TESTING RAISING cx_static_check,
create_travel_not_ok FOR TESTING RAISING cx_static_check,
validate_dates_not_ok FOR TESTING RAISING cx_static_check.
ENDCLASS.
CLASS ltcl_travel IMPLEMENTATION.
METHOD first_test.
cl_abap_unit_assert=>fail( 'Implement for first test here' ).
ENDMETHOD.
METHOD class_setup.
" data:cds_test_environment TYPE REF TO if_cds_test_environment.
begin_date = cl_abap_context_info=>get_system_date( ) + 10.
end_date = cl_abap_context_info=>get_system_date( ) + 30.