139 lines
5.1 KiB
ABAP
139 lines
5.1 KiB
ABAP
CLASS {{p}}t41_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
|
|
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
METHODS call
|
|
IMPORTING iv_lesson_type TYPE string
|
|
iv_vehicle TYPE string
|
|
iv_minutes TYPE i
|
|
EXPORTING ev_block TYPE abap_bool
|
|
ev_fee TYPE decfloat34
|
|
ev_subrc TYPE sysubrc.
|
|
METHODS car_rate FOR TESTING.
|
|
METHODS truck_rate FOR TESTING.
|
|
METHODS moto_rate FOR TESTING.
|
|
METHODS night_surcharge FOR TESTING.
|
|
METHODS motorway_surcharge FOR TESTING.
|
|
METHODS rounding_half_up FOR TESTING.
|
|
METHODS minimum_fee FOR TESTING.
|
|
METHODS unknown_vehicle FOR TESTING.
|
|
METHODS block_long_lesson FOR TESTING.
|
|
METHODS no_block_normal_lesson FOR TESTING.
|
|
METHODS invalid_minutes FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}t41_hidden IMPLEMENTATION.
|
|
METHOD call.
|
|
CLEAR ev_fee.
|
|
CALL FUNCTION '{{P}}DRV_FEE'
|
|
EXPORTING
|
|
iv_lesson_type = iv_lesson_type
|
|
iv_vehicle = iv_vehicle
|
|
iv_minutes = iv_minutes
|
|
IMPORTING
|
|
ev_block = ev_block
|
|
CHANGING
|
|
cv_fee = ev_fee
|
|
EXCEPTIONS
|
|
invalid_minutes = 1
|
|
OTHERS = 2.
|
|
ev_subrc = sy-subrc.
|
|
ENDMETHOD.
|
|
|
|
METHOD car_rate.
|
|
DATA lv_fee TYPE decfloat34.
|
|
DATA lv_exp TYPE decfloat34 VALUE '72.00'.
|
|
call( EXPORTING iv_lesson_type = 'NORMAL' iv_vehicle = 'CAR' iv_minutes = 60
|
|
IMPORTING ev_fee = lv_fee ).
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = lv_fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD truck_rate.
|
|
DATA lv_fee TYPE decfloat34.
|
|
DATA lv_exp TYPE decfloat34 VALUE '75.00'.
|
|
call( EXPORTING iv_lesson_type = 'NORMAL' iv_vehicle = 'TRUCK' iv_minutes = 30
|
|
IMPORTING ev_fee = lv_fee ).
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = lv_fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD moto_rate.
|
|
DATA lv_fee TYPE decfloat34.
|
|
DATA lv_exp TYPE decfloat34 VALUE '54.00'.
|
|
call( EXPORTING iv_lesson_type = 'NORMAL' iv_vehicle = 'MOTORCYCLE' iv_minutes = 60
|
|
IMPORTING ev_fee = lv_fee ).
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = lv_fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD night_surcharge.
|
|
DATA lv_fee TYPE decfloat34.
|
|
DATA lv_exp TYPE decfloat34 VALUE '90.00'.
|
|
call( EXPORTING iv_lesson_type = 'NIGHT' iv_vehicle = 'CAR' iv_minutes = 60
|
|
IMPORTING ev_fee = lv_fee ).
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = lv_fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD motorway_surcharge.
|
|
DATA lv_fee TYPE decfloat34.
|
|
DATA lv_exp TYPE decfloat34 VALUE '105.00'.
|
|
call( EXPORTING iv_lesson_type = 'MOTORWAY' iv_vehicle = 'TRUCK' iv_minutes = 30
|
|
IMPORTING ev_fee = lv_fee ).
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = lv_fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rounding_half_up.
|
|
DATA lv_fee TYPE decfloat34.
|
|
DATA lv_exp TYPE decfloat34 VALUE '21.88'.
|
|
call( EXPORTING iv_lesson_type = 'NIGHT' iv_vehicle = 'TRUCK' iv_minutes = 7
|
|
IMPORTING ev_fee = lv_fee ).
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = lv_fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD minimum_fee.
|
|
DATA lv_fee TYPE decfloat34.
|
|
DATA lv_exp TYPE decfloat34 VALUE '15.00'.
|
|
call( EXPORTING iv_lesson_type = 'NORMAL' iv_vehicle = 'MOTORCYCLE' iv_minutes = 10
|
|
IMPORTING ev_fee = lv_fee ).
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = lv_fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD unknown_vehicle.
|
|
DATA lv_fee TYPE decfloat34.
|
|
DATA lv_block TYPE abap_bool.
|
|
DATA lv_rc TYPE sysubrc.
|
|
DATA lv_exp TYPE decfloat34.
|
|
call( EXPORTING iv_lesson_type = 'NORMAL' iv_vehicle = 'BOAT' iv_minutes = 200
|
|
IMPORTING ev_fee = lv_fee ev_block = lv_block ev_subrc = lv_rc ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = lv_fee ).
|
|
cl_abap_unit_assert=>assert_equals( exp = abap_false act = lv_block ).
|
|
ENDMETHOD.
|
|
|
|
METHOD block_long_lesson.
|
|
DATA lv_fee TYPE decfloat34.
|
|
DATA lv_block TYPE abap_bool.
|
|
DATA lv_exp TYPE decfloat34 VALUE '145.20'.
|
|
call( EXPORTING iv_lesson_type = 'NORMAL' iv_vehicle = 'CAR' iv_minutes = 121
|
|
IMPORTING ev_fee = lv_fee ev_block = lv_block ).
|
|
cl_abap_unit_assert=>assert_equals( exp = abap_true act = lv_block ).
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = lv_fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD no_block_normal_lesson.
|
|
DATA lv_fee TYPE decfloat34.
|
|
DATA lv_block TYPE abap_bool.
|
|
DATA lv_exp TYPE decfloat34 VALUE '144.00'.
|
|
call( EXPORTING iv_lesson_type = 'NORMAL' iv_vehicle = 'CAR' iv_minutes = 120
|
|
IMPORTING ev_fee = lv_fee ev_block = lv_block ).
|
|
cl_abap_unit_assert=>assert_equals( exp = abap_false act = lv_block ).
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = lv_fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD invalid_minutes.
|
|
DATA lv_fee TYPE decfloat34.
|
|
DATA lv_rc TYPE sysubrc.
|
|
call( EXPORTING iv_lesson_type = 'NORMAL' iv_vehicle = 'CAR' iv_minutes = 0
|
|
IMPORTING ev_fee = lv_fee ev_subrc = lv_rc ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|