CLASS {{p}}laundry_fee_test DEFINITION PUBLIC FINAL CREATE PUBLIC
  FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
  PRIVATE SECTION.
    METHODS reason_codes FOR TESTING.
    METHODS item_codes FOR TESTING.
    METHODS service_codes FOR TESTING.
    METHODS price_table FOR TESTING.
    METHODS factor_table FOR TESTING.
    METHODS limit_values FOR TESTING.
    METHODS type_lengths FOR TESTING.
ENDCLASS.

CLASS {{p}}laundry_fee_test IMPLEMENTATION.
  METHOD reason_codes.
    DATA lv_reason TYPE {{p}}if_laundry_fee=>ty_reason.
    lv_reason = 'OK'.
    cl_abap_unit_assert=>assert_equals( exp = lv_reason act = {{p}}if_laundry_fee=>c_reason-ok ).
    lv_reason = 'ITEM'.
    cl_abap_unit_assert=>assert_equals( exp = lv_reason act = {{p}}if_laundry_fee=>c_reason-item ).
    lv_reason = 'SERVICE'.
    cl_abap_unit_assert=>assert_equals( exp = lv_reason act = {{p}}if_laundry_fee=>c_reason-service ).
    lv_reason = 'QTY'.
    cl_abap_unit_assert=>assert_equals( exp = lv_reason act = {{p}}if_laundry_fee=>c_reason-qty ).
  ENDMETHOD.

  METHOD item_codes.
    DATA lv_item TYPE {{p}}if_laundry_fee=>ty_item.
    lv_item = 'SHIRT'.
    cl_abap_unit_assert=>assert_equals( exp = lv_item act = {{p}}if_laundry_fee=>c_item-shirt ).
    lv_item = 'TROUS'.
    cl_abap_unit_assert=>assert_equals( exp = lv_item act = {{p}}if_laundry_fee=>c_item-trousers ).
    lv_item = 'SUIT'.
    cl_abap_unit_assert=>assert_equals( exp = lv_item act = {{p}}if_laundry_fee=>c_item-suit ).
    lv_item = 'COAT'.
    cl_abap_unit_assert=>assert_equals( exp = lv_item act = {{p}}if_laundry_fee=>c_item-coat ).
    lv_item = 'DRESS'.
    cl_abap_unit_assert=>assert_equals( exp = lv_item act = {{p}}if_laundry_fee=>c_item-dress ).
    lv_item = 'CURTAIN'.
    cl_abap_unit_assert=>assert_equals( exp = lv_item act = {{p}}if_laundry_fee=>c_item-curtain ).
  ENDMETHOD.

  METHOD service_codes.
    DATA lv_service TYPE {{p}}if_laundry_fee=>ty_service.
    lv_service = 'WASH'.
    cl_abap_unit_assert=>assert_equals( exp = lv_service act = {{p}}if_laundry_fee=>c_service-wash ).
    lv_service = 'DRYC'.
    cl_abap_unit_assert=>assert_equals( exp = lv_service act = {{p}}if_laundry_fee=>c_service-dryc ).
    lv_service = 'IRON'.
    cl_abap_unit_assert=>assert_equals( exp = lv_service act = {{p}}if_laundry_fee=>c_service-iron ).
    lv_service = 'MEND'.
    cl_abap_unit_assert=>assert_equals( exp = lv_service act = {{p}}if_laundry_fee=>c_service-mend ).
  ENDMETHOD.

  METHOD price_table.
    DATA lv_price TYPE {{p}}if_laundry_fee=>ty_amount.
    lv_price = '3.50'.
    cl_abap_unit_assert=>assert_equals( exp = lv_price act = {{p}}if_laundry_fee=>c_price-shirt ).
    lv_price = '5.00'.
    cl_abap_unit_assert=>assert_equals( exp = lv_price act = {{p}}if_laundry_fee=>c_price-trousers ).
    lv_price = '12.00'.
    cl_abap_unit_assert=>assert_equals( exp = lv_price act = {{p}}if_laundry_fee=>c_price-suit ).
    lv_price = '14.50'.
    cl_abap_unit_assert=>assert_equals( exp = lv_price act = {{p}}if_laundry_fee=>c_price-coat ).
    lv_price = '8.00'.
    cl_abap_unit_assert=>assert_equals( exp = lv_price act = {{p}}if_laundry_fee=>c_price-dress ).
    lv_price = '9.50'.
    cl_abap_unit_assert=>assert_equals( exp = lv_price act = {{p}}if_laundry_fee=>c_price-curtain ).
  ENDMETHOD.

  METHOD factor_table.
    DATA lv_factor TYPE i.
    lv_factor = 100.
    cl_abap_unit_assert=>assert_equals( exp = lv_factor act = {{p}}if_laundry_fee=>c_factor-wash ).
    lv_factor = 180.
    cl_abap_unit_assert=>assert_equals( exp = lv_factor act = {{p}}if_laundry_fee=>c_factor-dryc ).
    lv_factor = 40.
    cl_abap_unit_assert=>assert_equals( exp = lv_factor act = {{p}}if_laundry_fee=>c_factor-iron ).
    lv_factor = 220.
    cl_abap_unit_assert=>assert_equals( exp = lv_factor act = {{p}}if_laundry_fee=>c_factor-mend ).
  ENDMETHOD.

  METHOD limit_values.
    DATA lv_qty TYPE {{p}}if_laundry_fee=>ty_quantity.
    DATA lv_int TYPE i.
    DATA lv_fee TYPE {{p}}if_laundry_fee=>ty_amount.
    lv_qty = 99.
    cl_abap_unit_assert=>assert_equals( exp = lv_qty act = {{p}}if_laundry_fee=>c_max_qty ).
    lv_qty = 10.
    cl_abap_unit_assert=>assert_equals( exp = lv_qty act = {{p}}if_laundry_fee=>c_bulk_min_qty ).
    lv_int = 10.
    cl_abap_unit_assert=>assert_equals( exp = lv_int act = {{p}}if_laundry_fee=>c_bulk_discount ).
    lv_int = 25.
    cl_abap_unit_assert=>assert_equals( exp = lv_int act = {{p}}if_laundry_fee=>c_express_surcharge ).
    lv_fee = '5.00'.
    cl_abap_unit_assert=>assert_equals( exp = lv_fee act = {{p}}if_laundry_fee=>c_min_fee ).
  ENDMETHOD.

  METHOD type_lengths.
    DATA lv_item TYPE {{p}}if_laundry_fee=>ty_item.
    DATA lv_item_ref TYPE c LENGTH 7.
    DATA lv_amount TYPE {{p}}if_laundry_fee=>ty_amount.
    DATA lv_amount_ref TYPE p LENGTH 8 DECIMALS 2.

    DATA(lo_item) = CAST cl_abap_elemdescr( cl_abap_typedescr=>describe_by_data( lv_item ) ).
    DATA(lo_item_ref) = CAST cl_abap_elemdescr( cl_abap_typedescr=>describe_by_data( lv_item_ref ) ).
    cl_abap_unit_assert=>assert_equals( exp = lo_item_ref->length act = lo_item->length ).
    cl_abap_unit_assert=>assert_equals( exp = lo_item_ref->type_kind act = lo_item->type_kind ).

    DATA(lo_amount) = CAST cl_abap_elemdescr( cl_abap_typedescr=>describe_by_data( lv_amount ) ).
    DATA(lo_amount_ref) = CAST cl_abap_elemdescr( cl_abap_typedescr=>describe_by_data( lv_amount_ref ) ).
    cl_abap_unit_assert=>assert_equals( exp = lo_amount_ref->length act = lo_amount->length ).
    cl_abap_unit_assert=>assert_equals( exp = lo_amount_ref->decimals act = lo_amount->decimals ).
  ENDMETHOD.
ENDCLASS.