110 lines
4.9 KiB
ABAP
110 lines
4.9 KiB
ABAP
CLASS {{p}}t16_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
|
|
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
CLASS-DATA go_env TYPE REF TO if_cds_test_environment.
|
|
CLASS-METHODS class_setup.
|
|
CLASS-METHODS class_teardown.
|
|
METHODS setup.
|
|
METHODS slot_counts FOR TESTING.
|
|
METHODS empty_slots FOR TESTING.
|
|
METHODS fill_rate_decimals FOR TESTING.
|
|
METHODS fill_rate_half FOR TESTING.
|
|
METHODS status_empty FOR TESTING.
|
|
METHODS status_low FOR TESTING.
|
|
METHODS status_ok FOR TESTING.
|
|
METHODS status_at_limit FOR TESTING.
|
|
METHODS machine_without_slots FOR TESTING.
|
|
METHODS location_upper FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}t16_hidden IMPLEMENTATION.
|
|
METHOD class_setup.
|
|
go_env = cl_cds_test_environment=>create( i_for_entity = '{{P}}I_VEND_STATE' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD class_teardown.
|
|
go_env->destroy( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD setup.
|
|
DATA lt_mach TYPE STANDARD TABLE OF {{p}}vmach WITH EMPTY KEY.
|
|
DATA lt_slot TYPE STANDARD TABLE OF {{p}}vslot WITH EMPTY KEY.
|
|
go_env->clear_doubles( ).
|
|
lt_mach = VALUE #( ( machine_id = 'M1' location = 'Hall A' )
|
|
( machine_id = 'M2' location = 'Bay 2' )
|
|
( machine_id = 'M3' location = 'Depot C' )
|
|
( machine_id = 'M4' location = 'Kiosk D' )
|
|
( machine_id = 'M5' location = 'Gate E' )
|
|
( machine_id = 'M6' location = 'Pier F' ) ).
|
|
lt_slot = VALUE #( ( machine_id = 'M1' slot_no = 1 product = 'COLA' fill_level = 3 max_units = 10 )
|
|
( machine_id = 'M1' slot_no = 2 product = 'WATER' fill_level = 0 max_units = 10 )
|
|
( machine_id = 'M2' slot_no = 1 product = 'CHIPS' fill_level = 0 max_units = 5 )
|
|
( machine_id = 'M2' slot_no = 2 product = 'NUTS' fill_level = 0 max_units = 5 )
|
|
( machine_id = 'M3' slot_no = 1 product = 'COLA' fill_level = 5 max_units = 10 )
|
|
( machine_id = 'M3' slot_no = 2 product = 'JUICE' fill_level = 5 max_units = 10 )
|
|
( machine_id = 'M5' slot_no = 1 product = 'TEA' fill_level = 5 max_units = 20 )
|
|
( machine_id = 'M6' slot_no = 1 product = 'MILK' fill_level = 1 max_units = 8 ) ).
|
|
go_env->insert_test_data( lt_mach ).
|
|
go_env->insert_test_data( lt_slot ).
|
|
ENDMETHOD.
|
|
|
|
METHOD slot_counts.
|
|
SELECT SINGLE slot_count FROM {{p}}i_vend_state WHERE machine_id = 'M1' INTO @DATA(lv_two).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_two ).
|
|
SELECT SINGLE slot_count FROM {{p}}i_vend_state WHERE machine_id = 'M5' INTO @DATA(lv_one).
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_one ).
|
|
ENDMETHOD.
|
|
|
|
METHOD empty_slots.
|
|
SELECT SINGLE empty_slots FROM {{p}}i_vend_state WHERE machine_id = 'M1' INTO @DATA(lv_one).
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_one ).
|
|
SELECT SINGLE empty_slots FROM {{p}}i_vend_state WHERE machine_id = 'M2' INTO @DATA(lv_two).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_two ).
|
|
SELECT SINGLE empty_slots FROM {{p}}i_vend_state WHERE machine_id = 'M3' INTO @DATA(lv_none).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_none ).
|
|
ENDMETHOD.
|
|
|
|
METHOD fill_rate_decimals.
|
|
SELECT SINGLE fill_rate FROM {{p}}i_vend_state WHERE machine_id = 'M6' INTO @DATA(lv_rate).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '12.5' )
|
|
act = CONV decfloat34( lv_rate ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD fill_rate_half.
|
|
SELECT SINGLE fill_rate FROM {{p}}i_vend_state WHERE machine_id = 'M3' INTO @DATA(lv_rate).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '50.0' )
|
|
act = CONV decfloat34( lv_rate ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD status_empty.
|
|
SELECT SINGLE status FROM {{p}}i_vend_state WHERE machine_id = 'M2' INTO @DATA(lv_status).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'EMPTY' act = lv_status ).
|
|
ENDMETHOD.
|
|
|
|
METHOD status_low.
|
|
SELECT SINGLE status FROM {{p}}i_vend_state WHERE machine_id = 'M1' INTO @DATA(lv_status).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'LOW' act = lv_status ).
|
|
ENDMETHOD.
|
|
|
|
METHOD status_ok.
|
|
SELECT SINGLE status FROM {{p}}i_vend_state WHERE machine_id = 'M3' INTO @DATA(lv_status).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'OK' act = lv_status ).
|
|
ENDMETHOD.
|
|
|
|
METHOD status_at_limit.
|
|
SELECT SINGLE status FROM {{p}}i_vend_state WHERE machine_id = 'M5' INTO @DATA(lv_status).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'OK' act = lv_status ).
|
|
ENDMETHOD.
|
|
|
|
METHOD machine_without_slots.
|
|
SELECT COUNT(*) FROM {{p}}i_vend_state INTO @DATA(lv_rows).
|
|
cl_abap_unit_assert=>assert_equals( exp = 5 act = lv_rows ).
|
|
ENDMETHOD.
|
|
|
|
METHOD location_upper.
|
|
SELECT SINGLE location FROM {{p}}i_vend_state WHERE machine_id = 'M1' INTO @DATA(lv_location).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'HALL A' act = lv_location ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|