93 lines
3.1 KiB
ABAP
93 lines
3.1 KiB
ABAP
CLASS {{p}}ad_test DEFINITION PUBLIC FINAL CREATE PUBLIC
|
|
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
CONSTANTS lc_price_2490 TYPE decfloat34 VALUE '24.90'.
|
|
CONSTANTS lc_price_4980 TYPE decfloat34 VALUE '49.80'.
|
|
CONSTANTS lc_price_4482 TYPE decfloat34 VALUE '44.82'.
|
|
CONSTANTS lc_price_6980 TYPE decfloat34 VALUE '69.80'.
|
|
CONSTANTS lc_price_2000 TYPE decfloat34 VALUE '20.00'.
|
|
METHODS call
|
|
IMPORTING iv_lines TYPE i
|
|
iv_insertions TYPE i
|
|
iv_photo TYPE abap_bool DEFAULT abap_false
|
|
EXPORTING ev_price TYPE decfloat34
|
|
ev_subrc TYPE sysubrc.
|
|
METHODS assert_price
|
|
IMPORTING iv_expected TYPE decfloat34
|
|
iv_actual TYPE decfloat34.
|
|
METHODS line_price FOR TESTING.
|
|
METHODS no_discount_short FOR TESTING.
|
|
METHODS discount_ten_pct FOR TESTING.
|
|
METHODS photo_and_discount FOR TESTING.
|
|
METHODS minimum_price FOR TESTING.
|
|
METHODS invalid_input FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}ad_test IMPLEMENTATION.
|
|
METHOD call.
|
|
ev_price = 0.
|
|
CALL FUNCTION '{{P}}AD_PRICE'
|
|
EXPORTING
|
|
iv_lines = iv_lines
|
|
iv_insertions = iv_insertions
|
|
iv_photo = iv_photo
|
|
IMPORTING
|
|
ev_price = ev_price
|
|
EXCEPTIONS
|
|
invalid_lines = 1
|
|
invalid_insertions = 2
|
|
OTHERS = 3.
|
|
ev_subrc = sy-subrc.
|
|
ENDMETHOD.
|
|
|
|
METHOD assert_price.
|
|
cl_abap_unit_assert=>assert_equals( exp = iv_expected act = iv_actual ).
|
|
ENDMETHOD.
|
|
|
|
METHOD line_price.
|
|
DATA lv_price TYPE decfloat34.
|
|
DATA lv_rc TYPE sysubrc.
|
|
call( EXPORTING iv_lines = 2 iv_insertions = 1
|
|
IMPORTING ev_price = lv_price ev_subrc = lv_rc ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
|
|
assert_price( iv_expected = lc_price_2490 iv_actual = lv_price ).
|
|
ENDMETHOD.
|
|
|
|
METHOD no_discount_short.
|
|
DATA lv_price TYPE decfloat34.
|
|
call( EXPORTING iv_lines = 4 iv_insertions = 2
|
|
IMPORTING ev_price = lv_price ).
|
|
assert_price( iv_expected = lc_price_4980 iv_actual = lv_price ).
|
|
ENDMETHOD.
|
|
|
|
METHOD discount_ten_pct.
|
|
DATA lv_price TYPE decfloat34.
|
|
call( EXPORTING iv_lines = 4 iv_insertions = 3
|
|
IMPORTING ev_price = lv_price ).
|
|
assert_price( iv_expected = lc_price_4482 iv_actual = lv_price ).
|
|
ENDMETHOD.
|
|
|
|
METHOD photo_and_discount.
|
|
DATA lv_price TYPE decfloat34.
|
|
call( EXPORTING iv_lines = 5 iv_insertions = 6 iv_photo = abap_true
|
|
IMPORTING ev_price = lv_price ).
|
|
assert_price( iv_expected = lc_price_6980 iv_actual = lv_price ).
|
|
ENDMETHOD.
|
|
|
|
METHOD minimum_price.
|
|
DATA lv_price TYPE decfloat34.
|
|
call( EXPORTING iv_lines = 1 iv_insertions = 1
|
|
IMPORTING ev_price = lv_price ).
|
|
assert_price( iv_expected = lc_price_2000 iv_actual = lv_price ).
|
|
ENDMETHOD.
|
|
|
|
METHOD invalid_input.
|
|
DATA lv_price TYPE decfloat34.
|
|
DATA lv_rc TYPE sysubrc.
|
|
call( EXPORTING iv_lines = 0 iv_insertions = 1
|
|
IMPORTING ev_price = lv_price ev_subrc = lv_rc ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|