CLASS {{p}}tel_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
  FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
  PRIVATE SECTION.
    METHODS rate
      IMPORTING iv_ctype TYPE string
                iv_zone  TYPE string
                iv_secs  TYPE i
      EXPORTING ev_minutes TYPE i
                ev_charge  TYPE decfloat34
                ev_subrc   TYPE sysubrc.

    METHODS zero_duration FOR TESTING.
    METHODS one_minute FOR TESTING.
    METHODS rounds_up FOR TESTING.
    METHODS rounds_half_up FOR TESTING.
    METHODS zone_b FOR TESTING.
    METHODS mobile_zone_c FOR TESTING.
    METHODS special_zone_a FOR TESTING.
    METHODS unknown_ctype FOR TESTING.
    METHODS unknown_zone FOR TESTING.
    METHODS negative_secs FOR TESTING.
    METHODS long_call FOR TESTING.
ENDCLASS.


CLASS {{p}}tel_hidden IMPLEMENTATION.
  METHOD rate.
    CALL FUNCTION '{{P}}TEL_RATE'
      EXPORTING
        iv_ctype   = iv_ctype
        iv_zone    = iv_zone
        iv_secs    = iv_secs
      IMPORTING
        ev_minutes = ev_minutes
        ev_charge  = ev_charge
      EXCEPTIONS
        invalid_duration = 1
        OTHERS           = 2.
    ev_subrc = sy-subrc.
  ENDMETHOD.

  METHOD zero_duration.
    rate( EXPORTING iv_ctype = 'NT' iv_zone = 'A' iv_secs = 0
          IMPORTING ev_minutes = DATA(lv_min) ev_charge = DATA(lv_charge) ev_subrc = DATA(lv_rc) ).
    cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
    cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_min ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 0 ) act = lv_charge ).
  ENDMETHOD.

  METHOD one_minute.
    rate( EXPORTING iv_ctype = 'NT' iv_zone = 'A' iv_secs = 30
          IMPORTING ev_minutes = DATA(lv_min) ev_charge = DATA(lv_charge) ev_subrc = DATA(lv_rc) ).
    cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_min ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '0.12' ) act = lv_charge ).
  ENDMETHOD.

  METHOD rounds_up.
    rate( EXPORTING iv_ctype = 'IT' iv_zone = 'B' iv_secs = 61
          IMPORTING ev_minutes = DATA(lv_min) ev_charge = DATA(lv_charge) ev_subrc = DATA(lv_rc) ).
    cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
    cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_min ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '0.81' ) act = lv_charge ).
  ENDMETHOD.

  METHOD rounds_half_up.
    rate( EXPORTING iv_ctype = 'NT' iv_zone = 'A' iv_secs = 120
          IMPORTING ev_minutes = DATA(lv_min) ev_charge = DATA(lv_charge) ev_subrc = DATA(lv_rc) ).
    cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
    cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_min ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '0.21' ) act = lv_charge ).
  ENDMETHOD.

  METHOD zone_b.
    rate( EXPORTING iv_ctype = 'NT' iv_zone = 'B' iv_secs = 60
          IMPORTING ev_minutes = DATA(lv_min) ev_charge = DATA(lv_charge) ev_subrc = DATA(lv_rc) ).
    cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_min ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '0.22' ) act = lv_charge ).
  ENDMETHOD.

  METHOD mobile_zone_c.
    rate( EXPORTING iv_ctype = 'MO' iv_zone = 'C' iv_secs = 1
          IMPORTING ev_minutes = DATA(lv_min) ev_charge = DATA(lv_charge) ev_subrc = DATA(lv_rc) ).
    cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_min ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '0.72' ) act = lv_charge ).
  ENDMETHOD.

  METHOD special_zone_a.
    rate( EXPORTING iv_ctype = 'SP' iv_zone = 'A' iv_secs = 180
          IMPORTING ev_minutes = DATA(lv_min) ev_charge = DATA(lv_charge) ev_subrc = DATA(lv_rc) ).
    cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
    cl_abap_unit_assert=>assert_equals( exp = 3 act = lv_min ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '1.20' ) act = lv_charge ).
  ENDMETHOD.

  METHOD unknown_ctype.
    rate( EXPORTING iv_ctype = 'XX' iv_zone = 'A' iv_secs = 60
          IMPORTING ev_minutes = DATA(lv_min) ev_charge = DATA(lv_charge) ev_subrc = DATA(lv_rc) ).
    cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_min ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 0 ) act = lv_charge ).
  ENDMETHOD.

  METHOD unknown_zone.
    rate( EXPORTING iv_ctype = 'NT' iv_zone = 'Z' iv_secs = 60
          IMPORTING ev_minutes = DATA(lv_min) ev_charge = DATA(lv_charge) ev_subrc = DATA(lv_rc) ).
    cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_min ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 0 ) act = lv_charge ).
  ENDMETHOD.

  METHOD negative_secs.
    rate( EXPORTING iv_ctype = 'NT' iv_zone = 'A' iv_secs = -5
          IMPORTING ev_minutes = DATA(lv_min) ev_charge = DATA(lv_charge) ev_subrc = DATA(lv_rc) ).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
    cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_min ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 0 ) act = lv_charge ).
  ENDMETHOD.

  METHOD long_call.
    rate( EXPORTING iv_ctype = 'IT' iv_zone = 'C' iv_secs = 3600
          IMPORTING ev_minutes = DATA(lv_min) ev_charge = DATA(lv_charge) ev_subrc = DATA(lv_rc) ).
    cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
    cl_abap_unit_assert=>assert_equals( exp = 60 act = lv_min ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '35.43' ) act = lv_charge ).
  ENDMETHOD.
ENDCLASS.