5de5e2851c
- Static bundle checks (name length, seed type, reserved words, contract test classes, testclasses_file), local abaplint parser check before SAP, max_tokens, robust JSON parse - Runner: G2 for CDS views with parameters, contract_check detail in report - G0020 and G0013 fixed by review and revalidated (oracle 100, null 0) - Pilot results in docs/faz1-tasarim.md 11e; handover notes merged into CLAUDE.md and docs Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
26 lines
1.0 KiB
ABAP
26 lines
1.0 KiB
ABAP
CLASS ltc_legacy_freight DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
METHODS base_parcel FOR TESTING.
|
|
METHODS express_parcel FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS ltc_legacy_freight IMPLEMENTATION.
|
|
METHOD base_parcel.
|
|
DATA(lo_cut) = NEW {{p}}freight_calculator( ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = VALUE {{p}}freight_calculator=>ty_result( status = 'OK' base = '45.00' total = '45.00' )
|
|
act = lo_cut->calculate( iv_weight_kg = '10.00' iv_zone = `DE` ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD express_parcel.
|
|
DATA(lo_cut) = NEW {{p}}freight_calculator( ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = VALUE {{p}}freight_calculator=>ty_result( status = 'OK'
|
|
base = '45.00'
|
|
surcharge = '11.25'
|
|
total = '56.25' )
|
|
act = lo_cut->calculate( iv_weight_kg = '10.00' iv_zone = `DE` iv_express = abap_true ) ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|