39769afce8
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
74 lines
2.1 KiB
ABAP
74 lines
2.1 KiB
ABAP
CLASS {{p}}t21_test DEFINITION PUBLIC FINAL CREATE PUBLIC
|
|
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
METHODS fee_of
|
|
IMPORTING
|
|
iv_type TYPE string
|
|
iv_hours TYPE decfloat34
|
|
iv_parts TYPE decfloat34
|
|
iv_member TYPE abap_bool DEFAULT abap_false
|
|
RETURNING
|
|
VALUE(rv_total) TYPE decfloat34.
|
|
METHODS brake_fee FOR TESTING.
|
|
METHODS minimum_fee FOR TESTING.
|
|
METHODS member_fee FOR TESTING.
|
|
METHODS negative_hours FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}t21_test IMPLEMENTATION.
|
|
METHOD fee_of.
|
|
DATA lv_labour TYPE decfloat34.
|
|
CALL FUNCTION '{{P}}REPAIR_FEE'
|
|
EXPORTING
|
|
iv_repair_type = iv_type
|
|
iv_hours = iv_hours
|
|
iv_parts_cost = iv_parts
|
|
iv_member = iv_member
|
|
IMPORTING
|
|
ev_labour_fee = lv_labour
|
|
ev_total_fee = rv_total
|
|
EXCEPTIONS
|
|
invalid_hours = 1
|
|
OTHERS = 2.
|
|
cl_abap_unit_assert=>assert_subrc( exp = 0 ).
|
|
ENDMETHOD.
|
|
|
|
METHOD brake_fee.
|
|
DATA lv_exp TYPE decfloat34.
|
|
lv_exp = '110.00'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp
|
|
act = fee_of( iv_type = 'BR' iv_hours = '1.5' iv_parts = '20' ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD minimum_fee.
|
|
DATA lv_exp TYPE decfloat34.
|
|
lv_exp = '25.00'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp
|
|
act = fee_of( iv_type = 'WH' iv_hours = '0.5' iv_parts = '1' ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD member_fee.
|
|
DATA lv_exp TYPE decfloat34.
|
|
lv_exp = '101.00'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp
|
|
act = fee_of( iv_type = 'BR' iv_hours = '1.5' iv_parts = '20' iv_member = abap_true ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD negative_hours.
|
|
DATA lv_total TYPE decfloat34.
|
|
CALL FUNCTION '{{P}}REPAIR_FEE'
|
|
EXPORTING
|
|
iv_repair_type = 'BR'
|
|
iv_hours = '-1'
|
|
iv_parts_cost = '0'
|
|
iv_member = abap_false
|
|
IMPORTING
|
|
ev_total_fee = lv_total
|
|
EXCEPTIONS
|
|
invalid_hours = 1
|
|
OTHERS = 2.
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = sy-subrc ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|