90 lines
3.3 KiB
ABAP
90 lines
3.3 KiB
ABAP
CLASS {{p}}t_mush_test DEFINITION PUBLIC FINAL CREATE PUBLIC
|
|
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
METHODS setup.
|
|
METHODS teardown.
|
|
METHODS add_batch
|
|
IMPORTING iv_room TYPE string iv_grade TYPE string
|
|
iv_batch TYPE string iv_weight TYPE decfloat34.
|
|
METHODS call
|
|
IMPORTING iv_a TYPE string iv_b TYPE string
|
|
EXPORTING ev_total TYPE decfloat34 ev_rooms TYPE i
|
|
ev_grade TYPE char1 ev_subrc TYPE sysubrc.
|
|
METHODS sums_two_rooms FOR TESTING.
|
|
METHODS ignores_bad_records FOR TESTING.
|
|
METHODS finds_top_grade FOR TESTING.
|
|
METHODS raises_without_records FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}t_mush_test IMPLEMENTATION.
|
|
METHOD setup.
|
|
DELETE FROM {{P}}HARVEST.
|
|
ENDMETHOD.
|
|
|
|
METHOD teardown.
|
|
DELETE FROM {{P}}HARVEST.
|
|
ENDMETHOD.
|
|
|
|
METHOD add_batch.
|
|
DATA ls_row TYPE {{P}}HARVEST.
|
|
ls_row-room_id = iv_room.
|
|
ls_row-grade = iv_grade.
|
|
ls_row-batch_no = iv_batch.
|
|
ls_row-weight_kg = iv_weight.
|
|
INSERT {{P}}HARVEST FROM @ls_row.
|
|
cl_abap_unit_assert=>assert_subrc( exp = 0 ).
|
|
ENDMETHOD.
|
|
|
|
METHOD call.
|
|
CALL FUNCTION '{{P}}MUSH_HARVEST'
|
|
EXPORTING
|
|
iv_room_a = iv_a
|
|
iv_room_b = iv_b
|
|
IMPORTING
|
|
ev_total_kg = ev_total
|
|
ev_room_count = ev_rooms
|
|
ev_top_grade = ev_grade
|
|
EXCEPTIONS
|
|
no_stock = 1
|
|
OTHERS = 2.
|
|
ev_subrc = sy-subrc.
|
|
ENDMETHOD.
|
|
|
|
METHOD sums_two_rooms.
|
|
add_batch( iv_room = 'R01' iv_grade = 'A' iv_batch = '001' iv_weight = '10.000' ).
|
|
add_batch( iv_room = 'R02' iv_grade = 'B' iv_batch = '001' iv_weight = '5.000' ).
|
|
call( EXPORTING iv_a = 'R01' iv_b = 'R02'
|
|
IMPORTING ev_total = DATA(lv_total) ev_rooms = DATA(lv_rooms) ev_subrc = DATA(lv_rc) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 15 ) act = lv_total ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_rooms ).
|
|
ENDMETHOD.
|
|
|
|
METHOD ignores_bad_records.
|
|
add_batch( iv_room = 'R01' iv_grade = 'D' iv_batch = '001' iv_weight = '4.000' ).
|
|
add_batch( iv_room = 'R01' iv_grade = 'A' iv_batch = '002' iv_weight = '0.000' ).
|
|
add_batch( iv_room = 'R01' iv_grade = 'B' iv_batch = '003' iv_weight = '3.000' ).
|
|
call( EXPORTING iv_a = 'R01' iv_b = 'R02'
|
|
IMPORTING ev_total = DATA(lv_total) ev_subrc = DATA(lv_rc) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 3 ) act = lv_total ).
|
|
ENDMETHOD.
|
|
|
|
METHOD finds_top_grade.
|
|
add_batch( iv_room = 'R01' iv_grade = 'A' iv_batch = '001' iv_weight = '1.000' ).
|
|
add_batch( iv_room = 'R01' iv_grade = 'B' iv_batch = '002' iv_weight = '9.000' ).
|
|
call( EXPORTING iv_a = 'R01' iv_b = 'R01'
|
|
IMPORTING ev_grade = DATA(lv_grade) ev_subrc = DATA(lv_rc) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'B' act = lv_grade ).
|
|
ENDMETHOD.
|
|
|
|
METHOD raises_without_records.
|
|
call( EXPORTING iv_a = 'R01' iv_b = 'R02'
|
|
IMPORTING ev_total = DATA(lv_total) ev_subrc = DATA(lv_rc) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 0 ) act = lv_total ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|