126 lines
4.3 KiB
ABAP
126 lines
4.3 KiB
ABAP
CLASS {{p}}ad_hidden 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_4990 TYPE decfloat34 VALUE '49.90'.
|
|
CONSTANTS lc_price_2000 TYPE decfloat34 VALUE '20.00'.
|
|
CONSTANTS lc_price_4482 TYPE decfloat34 VALUE '44.82'.
|
|
CONSTANTS lc_price_3984 TYPE decfloat34 VALUE '39.84'.
|
|
CONSTANTS lc_price_3362 TYPE decfloat34 VALUE '33.62'.
|
|
CONSTANTS lc_price_6980 TYPE decfloat34 VALUE '69.80'.
|
|
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 two_lines_one_run FOR TESTING.
|
|
METHODS photo_surcharge FOR TESTING.
|
|
METHODS minimum_charge FOR TESTING.
|
|
METHODS minimum_after_disc FOR TESTING.
|
|
METHODS discount_ten_percent FOR TESTING.
|
|
METHODS discount_twenty_pct FOR TESTING.
|
|
METHODS rounding_half_up FOR TESTING.
|
|
METHODS photo_with_discount FOR TESTING.
|
|
METHODS rejects_zero_lines FOR TESTING.
|
|
METHODS rejects_zero_runs FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}ad_hidden 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 two_lines_one_run.
|
|
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 photo_surcharge.
|
|
DATA lv_price TYPE decfloat34.
|
|
call( EXPORTING iv_lines = 2 iv_insertions = 1 iv_photo = abap_true
|
|
IMPORTING ev_price = lv_price ).
|
|
assert_price( iv_expected = lc_price_4990 iv_actual = lv_price ).
|
|
ENDMETHOD.
|
|
|
|
METHOD minimum_charge.
|
|
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 minimum_after_disc.
|
|
DATA lv_price TYPE decfloat34.
|
|
call( EXPORTING iv_lines = 2 iv_insertions = 6
|
|
IMPORTING ev_price = lv_price ).
|
|
assert_price( iv_expected = lc_price_2000 iv_actual = lv_price ).
|
|
ENDMETHOD.
|
|
|
|
METHOD discount_ten_percent.
|
|
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 discount_twenty_pct.
|
|
DATA lv_price TYPE decfloat34.
|
|
call( EXPORTING iv_lines = 4 iv_insertions = 6
|
|
IMPORTING ev_price = lv_price ).
|
|
assert_price( iv_expected = lc_price_3984 iv_actual = lv_price ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rounding_half_up.
|
|
DATA lv_price TYPE decfloat34.
|
|
call( EXPORTING iv_lines = 3 iv_insertions = 3
|
|
IMPORTING ev_price = lv_price ).
|
|
assert_price( iv_expected = lc_price_3362 iv_actual = lv_price ).
|
|
ENDMETHOD.
|
|
|
|
METHOD photo_with_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 rejects_zero_lines.
|
|
DATA lv_rc TYPE sysubrc.
|
|
call( EXPORTING iv_lines = 0 iv_insertions = 1
|
|
IMPORTING ev_subrc = lv_rc ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rejects_zero_runs.
|
|
DATA lv_rc TYPE sysubrc.
|
|
call( EXPORTING iv_lines = 2 iv_insertions = 0
|
|
IMPORTING ev_subrc = lv_rc ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_rc ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|