143 lines
6.0 KiB
ABAP
143 lines
6.0 KiB
ABAP
CLASS {{p}}bouquet_if_test DEFINITION PUBLIC FINAL CREATE PUBLIC
|
|
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PUBLIC SECTION.
|
|
INTERFACES {{p}}if_bouquet_pricing.
|
|
PRIVATE SECTION.
|
|
METHODS size_values FOR TESTING.
|
|
METHODS zone_values FOR TESTING.
|
|
METHODS reason_values FOR TESTING.
|
|
METHODS limit_values FOR TESTING.
|
|
METHODS fee_values FOR TESTING.
|
|
METHODS types_are_correct FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}bouquet_if_test IMPLEMENTATION.
|
|
METHOD {{p}}if_bouquet_pricing~check_order.
|
|
rv_reason = {{p}}if_bouquet_pricing=>c_reason-ok.
|
|
ENDMETHOD.
|
|
|
|
METHOD {{p}}if_bouquet_pricing~delivery_fee.
|
|
rv_fee = {{p}}if_bouquet_pricing=>c_fee-town.
|
|
ENDMETHOD.
|
|
|
|
METHOD {{p}}if_bouquet_pricing~bouquet_price.
|
|
rv_price = {{p}}if_bouquet_pricing=>c_fee-vase.
|
|
ENDMETHOD.
|
|
|
|
METHOD size_values.
|
|
DATA lv_exp TYPE {{p}}if_bouquet_pricing=>ty_size.
|
|
lv_exp = 'S'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp
|
|
act = {{p}}if_bouquet_pricing=>c_size-small ).
|
|
lv_exp = 'M'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp
|
|
act = {{p}}if_bouquet_pricing=>c_size-medium ).
|
|
lv_exp = 'L'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp
|
|
act = {{p}}if_bouquet_pricing=>c_size-large ).
|
|
ENDMETHOD.
|
|
|
|
METHOD zone_values.
|
|
DATA lv_exp TYPE {{p}}if_bouquet_pricing=>ty_zone.
|
|
lv_exp = 'T1'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp
|
|
act = {{p}}if_bouquet_pricing=>c_zone-town ).
|
|
lv_exp = 'N1'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp
|
|
act = {{p}}if_bouquet_pricing=>c_zone-nearby ).
|
|
lv_exp = 'F1'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp
|
|
act = {{p}}if_bouquet_pricing=>c_zone-far ).
|
|
ENDMETHOD.
|
|
|
|
METHOD reason_values.
|
|
DATA lv_exp TYPE {{p}}if_bouquet_pricing=>ty_reason.
|
|
lv_exp = 'OK'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp
|
|
act = {{p}}if_bouquet_pricing=>c_reason-ok ).
|
|
lv_exp = 'NO_STEMS'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp
|
|
act = {{p}}if_bouquet_pricing=>c_reason-no_stems ).
|
|
lv_exp = 'TOO_MANY'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp
|
|
act = {{p}}if_bouquet_pricing=>c_reason-too_many ).
|
|
lv_exp = 'BAD_SIZE'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp
|
|
act = {{p}}if_bouquet_pricing=>c_reason-bad_size ).
|
|
lv_exp = 'BAD_ZONE'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp
|
|
act = {{p}}if_bouquet_pricing=>c_reason-bad_zone ).
|
|
ENDMETHOD.
|
|
|
|
METHOD limit_values.
|
|
DATA lv_exp TYPE {{p}}if_bouquet_pricing=>ty_stems.
|
|
lv_exp = 5.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp
|
|
act = {{p}}if_bouquet_pricing=>c_limit-min_stems ).
|
|
lv_exp = 60.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp
|
|
act = {{p}}if_bouquet_pricing=>c_limit-max_stems ).
|
|
ENDMETHOD.
|
|
|
|
METHOD fee_values.
|
|
DATA lv_exp TYPE {{p}}if_bouquet_pricing=>ty_amount.
|
|
lv_exp = '4.50'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp
|
|
act = {{p}}if_bouquet_pricing=>c_fee-vase ).
|
|
lv_exp = '0.00'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp
|
|
act = {{p}}if_bouquet_pricing=>c_fee-town ).
|
|
lv_exp = '6.00'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp
|
|
act = {{p}}if_bouquet_pricing=>c_fee-nearby ).
|
|
lv_exp = '12.00'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp
|
|
act = {{p}}if_bouquet_pricing=>c_fee-far ).
|
|
ENDMETHOD.
|
|
|
|
METHOD types_are_correct.
|
|
DATA lv_size TYPE {{p}}if_bouquet_pricing=>ty_size.
|
|
DATA lv_zone TYPE {{p}}if_bouquet_pricing=>ty_zone.
|
|
DATA lv_reason TYPE {{p}}if_bouquet_pricing=>ty_reason.
|
|
DATA lv_amount TYPE {{p}}if_bouquet_pricing=>ty_amount.
|
|
DATA lv_stems TYPE {{p}}if_bouquet_pricing=>ty_stems.
|
|
|
|
DATA lv_ref_size TYPE c LENGTH 1.
|
|
DATA lv_ref_zone TYPE c LENGTH 2.
|
|
DATA lv_ref_reason TYPE c LENGTH 12.
|
|
DATA lv_ref_amount TYPE p LENGTH 8 DECIMALS 2.
|
|
DATA lv_ref_stems TYPE i.
|
|
|
|
DATA(lo_size) = cl_abap_typedescr=>describe_by_data( lv_size ).
|
|
DATA(lo_zone) = cl_abap_typedescr=>describe_by_data( lv_zone ).
|
|
DATA(lo_reason) = cl_abap_typedescr=>describe_by_data( lv_reason ).
|
|
DATA(lo_amount) = cl_abap_typedescr=>describe_by_data( lv_amount ).
|
|
DATA(lo_stems) = cl_abap_typedescr=>describe_by_data( lv_stems ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 'C' act = lo_size->type_kind ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'C' act = lo_zone->type_kind ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'C' act = lo_reason->type_kind ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'P' act = lo_amount->type_kind ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'I' act = lo_stems->type_kind ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lo_amount->decimals ).
|
|
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = cl_abap_typedescr=>describe_by_data( lv_ref_size )->length
|
|
act = lo_size->length ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = cl_abap_typedescr=>describe_by_data( lv_ref_zone )->length
|
|
act = lo_zone->length ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = cl_abap_typedescr=>describe_by_data( lv_ref_reason )->length
|
|
act = lo_reason->length ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = cl_abap_typedescr=>describe_by_data( lv_ref_amount )->length
|
|
act = lo_amount->length ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = cl_abap_typedescr=>describe_by_data( lv_ref_stems )->length
|
|
act = lo_stems->length ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|