Step F first pass: 81/92 accepted; budget floor 60 calls; rejected slots moved for regeneration

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
This commit is contained in:
Kral
2026-10-03 12:10:52 +02:00
parent d3250acfb8
commit 39769afce8
741 changed files with 40573 additions and 317 deletions

View File

@@ -0,0 +1,171 @@
CLASS {{p}}vet_fee_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
DATA mo_cut TYPE REF TO {{p}}if_vet_fee.
METHODS setup.
METHODS assert_fee
IMPORTING iv_expected TYPE {{p}}if_vet_fee=>ty_amount
iv_actual TYPE {{p}}if_vet_fee=>ty_amount.
METHODS dog_base_fee FOR TESTING.
METHODS medication_started_kg FOR TESTING.
METHODS no_medication_at_five_kg FOR TESTING.
METHODS emergency_surcharge FOR TESTING.
METHODS registered_discount FOR TESTING.
METHODS combined_charges FOR TESTING.
METHODS unknown_species FOR TESTING.
METHODS species_lower_case FOR TESTING.
METHODS zero_weight FOR TESTING.
METHODS weight_limit_checked FOR TESTING.
METHODS species_before_weight FOR TESTING.
METHODS bird_and_reptile_base FOR TESTING.
ENDCLASS.
CLASS {{p}}vet_fee_hidden IMPLEMENTATION.
METHOD setup.
mo_cut = NEW {{p}}vet_fee_calc( ).
ENDMETHOD.
METHOD assert_fee.
cl_abap_unit_assert=>assert_equals( exp = iv_expected act = iv_actual ).
ENDMETHOD.
METHOD dog_base_fee.
DATA(ls_result) = mo_cut->calculate(
iv_species = 'DOG'
iv_weight = '5.000'
iv_emergency = abap_false
iv_registered = abap_false ).
assert_fee( iv_expected = '45.00' iv_actual = ls_result-fee ).
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_vet_fee=>c_reason-ok
act = ls_result-reason ).
ENDMETHOD.
METHOD medication_started_kg.
DATA(ls_result) = mo_cut->calculate(
iv_species = 'DOG'
iv_weight = '7.001'
iv_emergency = abap_false
iv_registered = abap_false ).
assert_fee( iv_expected = '51.00' iv_actual = ls_result-fee ).
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_vet_fee=>c_reason-ok
act = ls_result-reason ).
ENDMETHOD.
METHOD no_medication_at_five_kg.
DATA(ls_result) = mo_cut->calculate(
iv_species = 'CAT'
iv_weight = '5.000'
iv_emergency = abap_false
iv_registered = abap_false ).
assert_fee( iv_expected = '35.00' iv_actual = ls_result-fee ).
ENDMETHOD.
METHOD emergency_surcharge.
DATA(ls_result) = mo_cut->calculate(
iv_species = 'DOG'
iv_weight = '5.000'
iv_emergency = abap_true
iv_registered = abap_false ).
assert_fee( iv_expected = '67.50' iv_actual = ls_result-fee ).
ENDMETHOD.
METHOD registered_discount.
DATA(ls_result) = mo_cut->calculate(
iv_species = 'CAT'
iv_weight = '5.000'
iv_emergency = abap_false
iv_registered = abap_true ).
assert_fee( iv_expected = '31.50' iv_actual = ls_result-fee ).
ENDMETHOD.
METHOD combined_charges.
DATA(ls_result) = mo_cut->calculate(
iv_species = 'RABBIT'
iv_weight = '6.500'
iv_emergency = abap_true
iv_registered = abap_true ).
assert_fee( iv_expected = '38.60' iv_actual = ls_result-fee ).
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_vet_fee=>c_reason-ok
act = ls_result-reason ).
ENDMETHOD.
METHOD unknown_species.
DATA(ls_result) = mo_cut->calculate(
iv_species = 'HORSE'
iv_weight = '10.000'
iv_emergency = abap_false
iv_registered = abap_false ).
assert_fee( iv_expected = '0.00' iv_actual = ls_result-fee ).
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_vet_fee=>c_reason-species
act = ls_result-reason ).
ENDMETHOD.
METHOD species_lower_case.
DATA(ls_result) = mo_cut->calculate(
iv_species = ' dog '
iv_weight = '5.000'
iv_emergency = abap_false
iv_registered = abap_false ).
assert_fee( iv_expected = '45.00' iv_actual = ls_result-fee ).
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_vet_fee=>c_reason-ok
act = ls_result-reason ).
ENDMETHOD.
METHOD zero_weight.
DATA(ls_result) = mo_cut->calculate(
iv_species = 'DOG'
iv_weight = '0.000'
iv_emergency = abap_false
iv_registered = abap_false ).
assert_fee( iv_expected = '0.00' iv_actual = ls_result-fee ).
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_vet_fee=>c_reason-weight
act = ls_result-reason ).
ENDMETHOD.
METHOD weight_limit_checked.
DATA(ls_ok) = mo_cut->calculate(
iv_species = 'DOG'
iv_weight = '200.000'
iv_emergency = abap_false
iv_registered = abap_false ).
assert_fee( iv_expected = '435.00' iv_actual = ls_ok-fee ).
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_vet_fee=>c_reason-ok
act = ls_ok-reason ).
DATA(ls_heavy) = mo_cut->calculate(
iv_species = 'DOG'
iv_weight = '200.001'
iv_emergency = abap_false
iv_registered = abap_false ).
assert_fee( iv_expected = '0.00' iv_actual = ls_heavy-fee ).
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_vet_fee=>c_reason-weight
act = ls_heavy-reason ).
ENDMETHOD.
METHOD species_before_weight.
DATA(ls_result) = mo_cut->calculate(
iv_species = 'HORSE'
iv_weight = '0.000'
iv_emergency = abap_false
iv_registered = abap_false ).
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_vet_fee=>c_reason-species
act = ls_result-reason ).
ENDMETHOD.
METHOD bird_and_reptile_base.
DATA(ls_bird) = mo_cut->calculate(
iv_species = 'BIRD'
iv_weight = '5.000'
iv_emergency = abap_false
iv_registered = abap_false ).
assert_fee( iv_expected = '18.00' iv_actual = ls_bird-fee ).
DATA(ls_reptile) = mo_cut->calculate(
iv_species = 'REPTILE'
iv_weight = '5.000'
iv_emergency = abap_false
iv_registered = abap_false ).
assert_fee( iv_expected = '30.00' iv_actual = ls_reptile-fee ).
ENDMETHOD.
ENDCLASS.