106 lines
4.6 KiB
ABAP
106 lines
4.6 KiB
ABAP
CLASS {{p}}t42_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
|
|
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
METHODS call
|
|
IMPORTING iv_pet TYPE string iv_nights TYPE i iv_peak TYPE abap_bool
|
|
EXPORTING ev_fee TYPE decfloat34 ev_deposit TYPE decfloat34 ev_subrc TYPE sysubrc.
|
|
METHODS dog_peak_night FOR TESTING.
|
|
METHODS cat_standard FOR TESTING.
|
|
METHODS rabbit_long_peak FOR TESTING.
|
|
METHODS dog_long_peak FOR TESTING.
|
|
METHODS long_stay_boundary FOR TESTING.
|
|
METHODS other_pet_zero FOR TESTING.
|
|
METHODS nights_zero_invalid FOR TESTING.
|
|
METHODS nights_negative_invalid FOR TESTING.
|
|
METHODS deposit_percent FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}t42_hidden IMPLEMENTATION.
|
|
METHOD call.
|
|
DATA lv_fee TYPE decfloat34 VALUE 99.
|
|
CALL FUNCTION '{{P}}KENNEL_FEE'
|
|
EXPORTING
|
|
iv_pet_type = iv_pet
|
|
iv_nights = iv_nights
|
|
iv_peak = iv_peak
|
|
IMPORTING
|
|
ev_deposit = ev_deposit
|
|
CHANGING
|
|
cv_fee = lv_fee
|
|
EXCEPTIONS
|
|
invalid_nights = 1
|
|
OTHERS = 2.
|
|
ev_subrc = sy-subrc.
|
|
ev_fee = lv_fee.
|
|
ENDMETHOD.
|
|
|
|
METHOD dog_peak_night.
|
|
call( EXPORTING iv_pet = `DOG` iv_nights = 1 iv_peak = abap_true
|
|
IMPORTING ev_fee = DATA(lv_fee) ev_deposit = DATA(lv_dep) 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( '29.88' ) act = lv_fee ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '5.98' ) act = lv_dep ).
|
|
ENDMETHOD.
|
|
|
|
METHOD cat_standard.
|
|
call( EXPORTING iv_pet = `CAT` iv_nights = 3 iv_peak = abap_false
|
|
IMPORTING ev_fee = DATA(lv_fee) ev_deposit = DATA(lv_dep) 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( '53.70' ) act = lv_fee ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '10.74' ) act = lv_dep ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rabbit_long_peak.
|
|
call( EXPORTING iv_pet = `RABBIT` iv_nights = 10 iv_peak = abap_true
|
|
IMPORTING ev_fee = DATA(lv_fee) ev_deposit = DATA(lv_dep) 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( '128.52' ) act = lv_fee ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '25.70' ) act = lv_dep ).
|
|
ENDMETHOD.
|
|
|
|
METHOD dog_long_peak.
|
|
call( EXPORTING iv_pet = `DOG` iv_nights = 7 iv_peak = abap_true
|
|
IMPORTING ev_fee = DATA(lv_fee) ev_deposit = DATA(lv_dep) 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( '188.24' ) act = lv_fee ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '37.65' ) act = lv_dep ).
|
|
ENDMETHOD.
|
|
|
|
METHOD long_stay_boundary.
|
|
call( EXPORTING iv_pet = `DOG` iv_nights = 6 iv_peak = abap_false
|
|
IMPORTING ev_fee = DATA(lv_six) ).
|
|
call( EXPORTING iv_pet = `DOG` iv_nights = 7 iv_peak = abap_false
|
|
IMPORTING ev_fee = DATA(lv_seven) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '149.40' ) act = lv_six ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '156.87' ) act = lv_seven ).
|
|
ENDMETHOD.
|
|
|
|
METHOD other_pet_zero.
|
|
call( EXPORTING iv_pet = `SNAKE` iv_nights = 5 iv_peak = abap_false
|
|
IMPORTING ev_fee = DATA(lv_fee) ev_deposit = DATA(lv_dep) 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( 0 ) act = lv_fee ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 0 ) act = lv_dep ).
|
|
ENDMETHOD.
|
|
|
|
METHOD nights_zero_invalid.
|
|
call( EXPORTING iv_pet = `DOG` iv_nights = 0 iv_peak = abap_false
|
|
IMPORTING ev_subrc = DATA(lv_rc) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
|
|
ENDMETHOD.
|
|
|
|
METHOD nights_negative_invalid.
|
|
call( EXPORTING iv_pet = `CAT` iv_nights = -3 iv_peak = abap_false
|
|
IMPORTING ev_subrc = DATA(lv_rc) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
|
|
ENDMETHOD.
|
|
|
|
METHOD deposit_percent.
|
|
call( EXPORTING iv_pet = `CAT` iv_nights = 1 iv_peak = abap_false
|
|
IMPORTING ev_fee = DATA(lv_fee) ev_deposit = DATA(lv_dep) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '17.90' ) act = lv_fee ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '3.58' ) act = lv_dep ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|