136 lines
4.8 KiB
ABAP
136 lines
4.8 KiB
ABAP
CLASS {{p}}t14_test DEFINITION PUBLIC FINAL CREATE PUBLIC
|
|
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
METHODS prepare
|
|
IMPORTING iv_week TYPE string
|
|
it_book TYPE STANDARD TABLE OF {{P}}MEALBK.
|
|
METHODS cleanup
|
|
IMPORTING iv_week TYPE string.
|
|
METHODS bill
|
|
IMPORTING iv_week TYPE string
|
|
EXPORTING ev_meals TYPE decfloat34
|
|
ev_pupils TYPE decfloat34
|
|
ev_amount TYPE decfloat34
|
|
ev_discount TYPE decfloat34.
|
|
METHODS sums_two_pupils FOR TESTING.
|
|
METHODS skips_cancelled FOR TESTING.
|
|
METHODS discount_from_five FOR TESTING.
|
|
METHODS rejects_negative_price FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}t14_test IMPLEMENTATION.
|
|
METHOD prepare.
|
|
cleanup( iv_week ).
|
|
INSERT {{P}}MEALBK FROM TABLE @it_book.
|
|
ENDMETHOD.
|
|
|
|
METHOD cleanup.
|
|
DELETE FROM {{P}}MEALBK WHERE week_key = @iv_week.
|
|
ENDMETHOD.
|
|
|
|
METHOD bill.
|
|
CALL FUNCTION '{{P}}MEAL_BILL'
|
|
EXPORTING
|
|
iv_week = iv_week
|
|
IMPORTING
|
|
ev_meals = ev_meals
|
|
ev_pupils = ev_pupils
|
|
ev_amount = ev_amount
|
|
ev_discount = ev_discount
|
|
EXCEPTIONS
|
|
invalid_price = 1
|
|
OTHERS = 2.
|
|
cl_abap_unit_assert=>assert_subrc( exp = 0 ).
|
|
ENDMETHOD.
|
|
|
|
METHOD sums_two_pupils.
|
|
DATA lv_week TYPE string VALUE 'R-SUM1'.
|
|
|
|
prepare( iv_week = lv_week
|
|
it_book = VALUE #(
|
|
( week_key = 'R-SUM1' pupil = 'A' meal_no = 1 meal = 'LUNCH' price = '2.50' )
|
|
( week_key = 'R-SUM1' pupil = 'A' meal_no = 2 meal = 'LUNCH' price = '3.00' )
|
|
( week_key = 'R-SUM1' pupil = 'B' meal_no = 1 meal = 'LUNCH' price = '4.00' ) ) ).
|
|
|
|
bill( EXPORTING iv_week = lv_week
|
|
IMPORTING ev_meals = DATA(lv_meals)
|
|
ev_pupils = DATA(lv_pupils)
|
|
ev_amount = DATA(lv_amount)
|
|
ev_discount = DATA(lv_discount) ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 3 ) act = lv_meals ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 2 ) act = lv_pupils ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '9.50' ) act = lv_amount ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 0 ) act = lv_discount ).
|
|
|
|
cleanup( lv_week ).
|
|
ENDMETHOD.
|
|
|
|
METHOD skips_cancelled.
|
|
DATA lv_week TYPE string VALUE 'R-CANC'.
|
|
|
|
prepare( iv_week = lv_week
|
|
it_book = VALUE #(
|
|
( week_key = 'R-CANC' pupil = 'A' meal_no = 1 meal = 'LUNCH' price = '2.00' )
|
|
( week_key = 'R-CANC' pupil = 'A' meal_no = 2 meal = 'LUNCH' price = '5.00' cancelled = 'X' ) ) ).
|
|
|
|
bill( EXPORTING iv_week = lv_week
|
|
IMPORTING ev_meals = DATA(lv_meals)
|
|
ev_pupils = DATA(lv_pupils)
|
|
ev_amount = DATA(lv_amount)
|
|
ev_discount = DATA(lv_discount) ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 1 ) act = lv_meals ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '2.00' ) act = lv_amount ).
|
|
|
|
cleanup( lv_week ).
|
|
ENDMETHOD.
|
|
|
|
METHOD discount_from_five.
|
|
DATA lv_week TYPE string VALUE 'R-DISC'.
|
|
|
|
prepare( iv_week = lv_week
|
|
it_book = VALUE #(
|
|
( week_key = 'R-DISC' pupil = 'A' meal_no = 1 meal = 'LUNCH' price = '9.99' )
|
|
( week_key = 'R-DISC' pupil = 'A' meal_no = 2 meal = 'LUNCH' price = '9.99' )
|
|
( week_key = 'R-DISC' pupil = 'A' meal_no = 3 meal = 'LUNCH' price = '9.99' )
|
|
( week_key = 'R-DISC' pupil = 'A' meal_no = 4 meal = 'LUNCH' price = '9.99' )
|
|
( week_key = 'R-DISC' pupil = 'A' meal_no = 5 meal = 'LUNCH' price = '9.99' ) ) ).
|
|
|
|
bill( EXPORTING iv_week = lv_week
|
|
IMPORTING ev_meals = DATA(lv_meals)
|
|
ev_pupils = DATA(lv_pupils)
|
|
ev_amount = DATA(lv_amount)
|
|
ev_discount = DATA(lv_discount) ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 5 ) act = lv_meals ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '44.96' ) act = lv_amount ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '4.99' ) act = lv_discount ).
|
|
|
|
cleanup( lv_week ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rejects_negative_price.
|
|
DATA lv_week TYPE string VALUE 'R-NEG'.
|
|
DATA lv_amount TYPE decfloat34.
|
|
|
|
prepare( iv_week = lv_week
|
|
it_book = VALUE #(
|
|
( week_key = 'R-NEG' pupil = 'A' meal_no = 1 meal = 'LUNCH' price = '-1.00' ) ) ).
|
|
|
|
CALL FUNCTION '{{P}}MEAL_BILL'
|
|
EXPORTING
|
|
iv_week = lv_week
|
|
IMPORTING
|
|
ev_amount = lv_amount
|
|
EXCEPTIONS
|
|
invalid_price = 1
|
|
OTHERS = 2.
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = sy-subrc ).
|
|
|
|
cleanup( lv_week ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|