95 lines
3.9 KiB
ABAP
95 lines
3.9 KiB
ABAP
CLASS {{p}}lift_usage_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 hours_summed FOR TESTING.
|
|
METHODS service_count FOR TESTING.
|
|
METHODS last_service_date FOR TESTING.
|
|
METHODS trip_total FOR TESTING.
|
|
METHODS test_mode_excluded FOR TESTING.
|
|
METHODS lift_without_ops FOR TESTING.
|
|
METHODS one_row_per_mode FOR TESTING.
|
|
METHODS building_shown FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}lift_usage_hidden IMPLEMENTATION.
|
|
METHOD class_setup.
|
|
go_env = cl_cds_test_environment=>create( i_for_entity = '{{P}}I_LIFT_USAGE' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD class_teardown.
|
|
go_env->destroy( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD setup.
|
|
DATA lt_lift TYPE STANDARD TABLE OF {{p}}lift WITH EMPTY KEY.
|
|
DATA lt_op TYPE STANDARD TABLE OF {{p}}lift_op WITH EMPTY KEY.
|
|
go_env->clear_doubles( ).
|
|
lt_lift = VALUE #( ( lift_id = 'L1' building_id = 'B1' capacity_kg = '800.00' )
|
|
( lift_id = 'L2' building_id = 'B2' capacity_kg = '630.00' )
|
|
( lift_id = 'L3' building_id = 'B1' capacity_kg = '400.00' ) ).
|
|
lt_op = VALUE #( ( lift_id = 'L1' run_no = 1 run_date = '20240310' run_hours = '3.50' run_mode = 'AUTO' trips = 12 )
|
|
( lift_id = 'L1' run_no = 2 run_date = '20240315' run_hours = '1.50' run_mode = 'AUTO' trips = 5 )
|
|
( lift_id = 'L1' run_no = 3 run_date = '20240312' run_hours = '2.00' run_mode = 'MAN' trips = 8 )
|
|
( lift_id = 'L1' run_no = 4 run_date = '20240320' run_hours = '9.00' run_mode = 'TEST' trips = 99 )
|
|
( lift_id = 'L3' run_no = 1 run_date = '20240401' run_hours = '5.00' run_mode = 'AUTO' trips = 20 ) ).
|
|
go_env->insert_test_data( lt_lift ).
|
|
go_env->insert_test_data( lt_op ).
|
|
ENDMETHOD.
|
|
|
|
METHOD hours_summed.
|
|
SELECT SINGLE service_hours FROM {{p}}i_lift_usage
|
|
WHERE lift_id = 'L1' AND run_mode = 'AUTO' INTO @DATA(lv_hours).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '5.00' )
|
|
act = CONV decfloat34( lv_hours ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD service_count.
|
|
SELECT SINGLE service_count FROM {{p}}i_lift_usage
|
|
WHERE lift_id = 'L1' AND run_mode = 'AUTO' INTO @DATA(lv_count).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_count ).
|
|
ENDMETHOD.
|
|
|
|
METHOD last_service_date.
|
|
DATA lv_exp TYPE d VALUE '20240315'.
|
|
SELECT SINGLE last_service FROM {{p}}i_lift_usage
|
|
WHERE lift_id = 'L1' AND run_mode = 'AUTO' INTO @DATA(lv_date).
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = lv_date ).
|
|
ENDMETHOD.
|
|
|
|
METHOD trip_total.
|
|
SELECT SINGLE trip_total FROM {{p}}i_lift_usage
|
|
WHERE lift_id = 'L1' AND run_mode = 'AUTO' INTO @DATA(lv_trips).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '17' )
|
|
act = CONV decfloat34( lv_trips ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD test_mode_excluded.
|
|
SELECT COUNT(*) FROM {{p}}i_lift_usage
|
|
WHERE run_mode = 'TEST' INTO @DATA(lv_rows).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rows ).
|
|
ENDMETHOD.
|
|
|
|
METHOD lift_without_ops.
|
|
SELECT COUNT(*) FROM {{p}}i_lift_usage
|
|
WHERE lift_id = 'L2' INTO @DATA(lv_rows).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rows ).
|
|
ENDMETHOD.
|
|
|
|
METHOD one_row_per_mode.
|
|
SELECT COUNT(*) FROM {{p}}i_lift_usage
|
|
WHERE lift_id = 'L1' INTO @DATA(lv_rows).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_rows ).
|
|
ENDMETHOD.
|
|
|
|
METHOD building_shown.
|
|
SELECT SINGLE building_id FROM {{p}}i_lift_usage
|
|
WHERE lift_id = 'L1' AND run_mode = 'AUTO' INTO @DATA(lv_building).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'B1' act = lv_building ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|