109 lines
4.4 KiB
ABAP
109 lines
4.4 KiB
ABAP
CLASS {{p}}t20_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 deviation_below FOR TESTING.
|
|
METHODS deviation_zero FOR TESTING.
|
|
METHODS deviation_above FOR TESTING.
|
|
METHODS percent_rounded FOR TESTING.
|
|
METHODS status_hold FOR TESTING.
|
|
METHODS status_warn FOR TESTING.
|
|
METHODS status_load FOR TESTING.
|
|
METHODS status_at_five_pct FOR TESTING.
|
|
METHODS unweighed_hidden FOR TESTING.
|
|
METHODS customer_shown FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}t20_hidden IMPLEMENTATION.
|
|
METHOD class_setup.
|
|
go_env = cl_cds_test_environment=>create( i_for_entity = '{{P}}I_CONT_WEIGHT' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD class_teardown.
|
|
go_env->destroy( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD setup.
|
|
DATA lt_cont TYPE STANDARD TABLE OF {{p}}cont WITH EMPTY KEY.
|
|
DATA lt_weigh TYPE STANDARD TABLE OF {{p}}weigh WITH EMPTY KEY.
|
|
go_env->clear_doubles( ).
|
|
lt_cont = VALUE #(
|
|
( cont_id = 'C1' customer = 'ALPHA' decl_kg = '1000.00' max_kg = '1200.00' )
|
|
( cont_id = 'C2' customer = 'BETA' decl_kg = '1000.00' max_kg = '1200.00' )
|
|
( cont_id = 'C3' customer = 'GAMMA' decl_kg = '1000.00' max_kg = '1200.00' )
|
|
( cont_id = 'C4' customer = 'DELTA' decl_kg = '500.00' max_kg = '600.00' )
|
|
( cont_id = 'C5' customer = 'EPSILON' decl_kg = '1000.00' max_kg = '1200.00' )
|
|
( cont_id = 'C6' customer = 'ZETA' decl_kg = '1000.00' max_kg = '1200.00' )
|
|
( cont_id = 'C7' customer = 'ETA' decl_kg = '800.00' max_kg = '900.00' )
|
|
( cont_id = 'C8' customer = 'THETA' decl_kg = '300.00' max_kg = '400.00' ) ).
|
|
lt_weigh = VALUE #(
|
|
( cont_id = 'C1' meas_kg = '1020.00' )
|
|
( cont_id = 'C2' meas_kg = '1100.00' )
|
|
( cont_id = 'C3' meas_kg = '1300.00' )
|
|
( cont_id = 'C4' meas_kg = '450.00' )
|
|
( cont_id = 'C5' meas_kg = '950.00' )
|
|
( cont_id = 'C7' meas_kg = '800.00' )
|
|
( cont_id = 'C8' meas_kg = '310.00' ) ).
|
|
go_env->insert_test_data( lt_cont ).
|
|
go_env->insert_test_data( lt_weigh ).
|
|
ENDMETHOD.
|
|
|
|
METHOD deviation_below.
|
|
SELECT SINGLE deviation_kg FROM {{p}}i_cont_weight WHERE cont_id = 'C4' INTO @DATA(lv_dev).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '50.00' )
|
|
act = CONV decfloat34( lv_dev ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD deviation_zero.
|
|
SELECT SINGLE deviation_kg FROM {{p}}i_cont_weight WHERE cont_id = 'C7' INTO @DATA(lv_dev).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '0.00' )
|
|
act = CONV decfloat34( lv_dev ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD deviation_above.
|
|
SELECT SINGLE deviation_kg FROM {{p}}i_cont_weight WHERE cont_id = 'C1' INTO @DATA(lv_dev).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '20.00' )
|
|
act = CONV decfloat34( lv_dev ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD percent_rounded.
|
|
SELECT SINGLE deviation_pct FROM {{p}}i_cont_weight WHERE cont_id = 'C8' INTO @DATA(lv_pct).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '3.33' )
|
|
act = CONV decfloat34( lv_pct ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD status_hold.
|
|
SELECT SINGLE status FROM {{p}}i_cont_weight WHERE cont_id = 'C3' INTO @DATA(lv_status).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'HOLD' act = lv_status ).
|
|
ENDMETHOD.
|
|
|
|
METHOD status_warn.
|
|
SELECT SINGLE status FROM {{p}}i_cont_weight WHERE cont_id = 'C2' INTO @DATA(lv_status).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'WARN' act = lv_status ).
|
|
ENDMETHOD.
|
|
|
|
METHOD status_load.
|
|
SELECT SINGLE status FROM {{p}}i_cont_weight WHERE cont_id = 'C1' INTO @DATA(lv_status).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'LOAD' act = lv_status ).
|
|
ENDMETHOD.
|
|
|
|
METHOD status_at_five_pct.
|
|
SELECT SINGLE status FROM {{p}}i_cont_weight WHERE cont_id = 'C5' INTO @DATA(lv_status).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'LOAD' act = lv_status ).
|
|
ENDMETHOD.
|
|
|
|
METHOD unweighed_hidden.
|
|
SELECT COUNT(*) FROM {{p}}i_cont_weight INTO @DATA(lv_rows).
|
|
cl_abap_unit_assert=>assert_equals( exp = 7 act = lv_rows ).
|
|
ENDMETHOD.
|
|
|
|
METHOD customer_shown.
|
|
SELECT SINGLE customer FROM {{p}}i_cont_weight WHERE cont_id = 'C4' INTO @DATA(lv_cust).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'DELTA' act = lv_cust ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|