CLASS {{p}}ice_test DEFINITION PUBLIC FINAL CREATE PUBLIC
  FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
  PRIVATE SECTION.
    METHODS price_of
      IMPORTING
        iv_flavour TYPE string
        iv_scoops TYPE i
        iv_topping TYPE string
        iv_here TYPE abap_bool
      RETURNING
        VALUE(rv_price) TYPE decfloat34.
    METHODS one_scoop_vanilla FOR TESTING.
    METHODS three_scoops_chocolate FOR TESTING.
    METHODS topping_prices FOR TESTING.
    METHODS service_charge FOR TESTING.
    METHODS rejects_bad_scoops FOR TESTING.
    METHODS rejects_unknown_codes FOR TESTING.
ENDCLASS.


CLASS {{p}}ice_test IMPLEMENTATION.
  METHOD price_of.
    CALL FUNCTION '{{P}}ICE_FEE'
      EXPORTING
        iv_flavour = iv_flavour
        iv_scoops = iv_scoops
        iv_topping = iv_topping
        iv_here = iv_here
      IMPORTING
        ev_price = rv_price
      EXCEPTIONS
        OTHERS = 1.
    cl_abap_unit_assert=>assert_subrc( exp = 0 ).
  ENDMETHOD.

  METHOD one_scoop_vanilla.
    CONSTANTS lc_exp TYPE decfloat34 VALUE '1.20'.
    cl_abap_unit_assert=>assert_equals(
      exp = lc_exp
      act = price_of( iv_flavour = 'VA' iv_scoops = 1 iv_topping = 'NON' iv_here = abap_false ) ).
  ENDMETHOD.

  METHOD three_scoops_chocolate.
    CONSTANTS lc_exp TYPE decfloat34 VALUE '4.50'.
    cl_abap_unit_assert=>assert_equals(
      exp = lc_exp
      act = price_of( iv_flavour = 'CH' iv_scoops = 3 iv_topping = 'NON' iv_here = abap_false ) ).
  ENDMETHOD.

  METHOD topping_prices.
    CONSTANTS lc_nut_exp TYPE decfloat34 VALUE '3.00'.
    CONSTANTS lc_spr_exp TYPE decfloat34 VALUE '1.80'.
    cl_abap_unit_assert=>assert_equals(
      exp = lc_nut_exp
      act = price_of( iv_flavour = 'VA' iv_scoops = 2 iv_topping = 'NUT' iv_here = abap_false ) ).
    cl_abap_unit_assert=>assert_equals(
      exp = lc_spr_exp
      act = price_of( iv_flavour = 'ST' iv_scoops = 1 iv_topping = 'SPR' iv_here = abap_false ) ).
  ENDMETHOD.

  METHOD service_charge.
    CONSTANTS lc_plain_exp TYPE decfloat34 VALUE '1.26'.
    CONSTANTS lc_round_exp TYPE decfloat34 VALUE '1.58'.
    cl_abap_unit_assert=>assert_equals(
      exp = lc_plain_exp
      act = price_of( iv_flavour = 'VA' iv_scoops = 1 iv_topping = 'NON' iv_here = abap_true ) ).
    cl_abap_unit_assert=>assert_equals(
      exp = lc_round_exp
      act = price_of( iv_flavour = 'CH' iv_scoops = 1 iv_topping = 'NON' iv_here = abap_true ) ).
  ENDMETHOD.

  METHOD rejects_bad_scoops.
    DATA lv_price TYPE decfloat34.
    DATA lv_rc TYPE sysubrc.
    CALL FUNCTION '{{P}}ICE_FEE'
      EXPORTING
        iv_flavour = 'VA'
        iv_scoops = 0
        iv_topping = 'NON'
        iv_here = abap_false
      IMPORTING
        ev_price = lv_price
      EXCEPTIONS
        invalid_scoops = 1
        OTHERS = 2.
    lv_rc = sy-subrc.
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).

    CALL FUNCTION '{{P}}ICE_FEE'
      EXPORTING
        iv_flavour = 'VA'
        iv_scoops = 6
        iv_topping = 'NON'
        iv_here = abap_false
      IMPORTING
        ev_price = lv_price
      EXCEPTIONS
        invalid_scoops = 1
        OTHERS = 2.
    lv_rc = sy-subrc.
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
  ENDMETHOD.

  METHOD rejects_unknown_codes.
    DATA lv_price TYPE decfloat34.
    DATA lv_rc TYPE sysubrc.
    CALL FUNCTION '{{P}}ICE_FEE'
      EXPORTING
        iv_flavour = 'XX'
        iv_scoops = 1
        iv_topping = 'NON'
        iv_here = abap_false
      IMPORTING
        ev_price = lv_price
      EXCEPTIONS
        unknown_flavour = 1
        OTHERS = 2.
    lv_rc = sy-subrc.
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).

    CALL FUNCTION '{{P}}ICE_FEE'
      EXPORTING
        iv_flavour = 'VA'
        iv_scoops = 1
        iv_topping = 'ZZ'
        iv_here = abap_false
      IMPORTING
        ev_price = lv_price
      EXCEPTIONS
        unknown_topping = 1
        OTHERS = 2.
    lv_rc = sy-subrc.
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
  ENDMETHOD.
ENDCLASS.