Chat GPT - Erfahrungen?

Code: Alles auswählen.

CLASS zprices_1 DEFINITION
  PUBLIC
  FINAL
  CREATE PUBLIC .
  PUBLIC SECTION.

    METHODS calculate_lift_pass_price IMPORTING
      i_type TYPE char10
      i_age  TYPE int4 OPTIONAL
    RETURNING VALUE(r_cost) TYPE int4.
  PRIVATE SECTION.
    CLASS-METHODS calculate_discount
      IMPORTING
        i_age  TYPE int4
      RETURNING VALUE(r_discount) TYPE f.
    CLASS-DATA: 
      c_discount_night TYPE f VALUE '0.4',
      c_discount_kids TYPE f VALUE '0.3',
      c_discount_senior TYPE f VALUE '0.25'.
    INTERFACES if_pricing_dao.
    DATA:
      m_dao TYPE REF TO if_pricing_dao.
ENDCLASS.

CLASS zprices_1 IMPLEMENTATION.

CONSTRUCTOR.
CREATE OBJECT base_prices_dao TYPE zbase_prices_dao.
ENDMETHOD.

  METHOD calculate_lift_pass_price.
    DATA:
      l_base_price TYPE int4.
    m_dao->get_base_price( EXPORTING i_type = i_type IMPORTING e_base_price = l_base_price ).
    IF l_base_price IS INITIAL.
      r_cost = 0.
    ELSE.
      r_cost = CEIL( l_base_price * ( 1 - calculate_discount( i_age ) ) ).
    ENDIF.
  ENDMETHOD.

  CLASS-METHOD calculate_discount.
    IF i_age < 6.
      r_discount = 0.
    ELSEIF i_age < 15.
      r_discount = c_discount_kids.
    ELSEIF i_age > 64.
      r_discount = c_discount_senior.
    ELSEIF i_type = 'night'.
      r_discount = c_discount_night.
    ELSE.
      r_discount = 0.
    ENDIF.
  ENDMETHOD.
ENDCLASS.

INTERFACE if_pricing_dao.
  METHODS get_base_price
    IMPORTING
      i_type TYPE char10
    EXPORTING
      e_base_price TYPE int4.
ENDINTERFACE.

CLASS zbase_prices_dao DEFINITION IMPLEMENTING if_pricing_dao.
  METHOD if_pricing_dao~get_base_price.
    SELECT SINGLE cost INTO e_base_price
    FROM zbase_prices
    WHERE type = i_type.
  ENDMETHOD.
ENDCLASS.

Code: Alles auswählen.

cl_abap_unit_assert=>assert_equals( expected_cost, actual_cost ).

Code: Alles auswählen.

ASSERT_EQUALS( expected = expected_cost actual = cost message = 'Test for night pass and age greater than 64 failed' ).

Code: Alles auswählen.

CLASS lcl_zprices_1 DEFINITION FOR TESTING DURATION SHORT.
  PRIVATE SECTION.
    DATA: lv_dao TYPE REF TO zprices_1_dao.

    METHODS setup.
    METHODS teardown.
    METHODS test_calculate_lift_pass_price_day_under_6.
    METHODS test_calculate_lift_pass_price_day_6_to_15.
    METHODS test_calculate_lift_pass_price_day_over_15.
    METHODS test_calculate_lift_pass_price_night_under_6.
    METHODS test_calculate_lift_pass_price_night_6_to_64.
    METHODS test_calculate_lift_pass_price_night_over_64.
ENDCLASS.

CLASS lcl_zprices_1 IMPLEMENTATION.

  METHOD setup.
    CREATE OBJECT lv_dao TYPE zprices_1_dao.
    lv_dao->set_base_price( 'day', 100 ).
    lv_dao->set_base_price( 'night', 80 ).
  ENDMETHOD.

  METHOD teardown.
  ENDMETHOD.

  METHOD test_calculate_lift_pass_price_day_under_6.
    DATA(lv_cost) = lv_dao->calculate_lift_pass_price( age = 5, type = 'day' ).
    cl_abap_unit_assert=>assert_equals( expected = 0, actual = lv_cost msg = 'Price for day ticket under 6 years should be 0' ).
  ENDMETHOD.

  METHOD test_calculate_lift_pass_price_day_6_to_15.
    DATA(lv_cost) = lv_dao->calculate_lift_pass_price( age = 10, type = 'day' ).
    cl_abap_unit_assert=>assert_equals( expected = 70, actual = lv_cost msg = 'Price for day ticket between 6 and 15 years should be 30% off' ).
  ENDMETHOD.

  METHOD test_calculate_lift_pass_price_day_over_15.
    DATA(lv_cost) = lv_dao->calculate_lift_pass_price( age = 20, type = 'day' ).
    cl_abap_unit_assert=>assert_equals( expected = 100, actual = lv_cost msg = 'Price for day ticket over 15 years should be full price' ).

    DATA(lv_cost) = lv_dao->calculate_lift_pass_price( age = 65, type = 'day' ).
    cl_abap_unit_assert=>assert_equals( expected = 75, actual = lv_cost msg = 'Price for day ticket over 64 years should be 25% off' ).
  ENDMETHOD.

Code: Alles auswählen.

Code: Alles auswählen.

  IF type NE 'night'.
    /* Wenn der Lifttyp nicht "night" ist, dann wird der Preis in Abhängigkeit des Alters berechnet. */
    IF age IS SUPPLIED AND age < 15.
      /* Wenn das Alter mitgeliefert wurde und kleiner als 15 ist, erhält die Person einen Rabatt von 30% */
      DATA(ld_cost_3) = CONV f( ld_baseprice * ( 1 -  30 / 100 ) ).
      cost = ceil( ld_cost_3 ).
    ELSE.
      IF age IS NOT SUPPLIED.
        cost = ceil( ld_baseprice ).
      ELSE.
        /* Wenn das Alter mitgeliefert wurde und größer oder gleich 15 ist und kleiner als 65, erhält die Person keinen Rabatt*/
        IF age > 64.
          /* Wenn das Alter mitgeliefert wurde und größer oder gleich 65 ist, erhält die Person einen Rabatt von 25% */
          DATA(ld_cost_4) = CONV f( ld_baseprice * ( 1 - 25 / 100  ) ).
          cost = ceil( ld_cost_4 ).
        ELSE.
          cost = ceil( ld_baseprice ).
        ENDIF.
      ENDIF.
    ENDIF.