CLASS {{p}}hire_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
  FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
  PRIVATE SECTION.
    CLASS-DATA go_env TYPE REF TO if_osql_test_environment.
    CLASS-METHODS class_setup.
    CLASS-METHODS class_teardown.
    METHODS setup.
    METHODS get_fields RETURNING VALUE(rt_fields) TYPE dfies_table.
    METHODS field_of
      IMPORTING iv_name         TYPE fieldname
      RETURNING VALUE(rs_field) TYPE dfies.
    METHODS is_key
      IMPORTING iv_name          TYPE fieldname
      RETURNING VALUE(rv_is_key) TYPE abap_bool.
    METHODS is_not_null
      IMPORTING iv_name            TYPE fieldname
      RETURNING VALUE(rv_not_null) TYPE abap_bool.
    METHODS fields_exist FOR TESTING.
    METHODS key_fields FOR TESTING.
    METHODS not_null_fields FOR TESTING.
    METHODS lengths_in_chars FOR TESTING.
    METHODS decimals_of_rate FOR TESTING.
    METHODS field_types FOR TESTING.
    METHODS insert_and_read FOR TESTING.
    METHODS duplicate_key FOR TESTING.
    METHODS select_by_kiosk FOR TESTING.
ENDCLASS.


CLASS {{p}}hire_hidden IMPLEMENTATION.
  METHOD class_setup.
    go_env = cl_osql_test_environment=>create(
      i_dependency_list = VALUE #( ( '{{P}}HIRE' ) ) ).
  ENDMETHOD.

  METHOD class_teardown.
    go_env->destroy( ).
  ENDMETHOD.

  METHOD setup.
    go_env->clear_doubles( ).
  ENDMETHOD.

  METHOD get_fields.
    DATA(lo_struct) = CAST cl_abap_structdescr(
      cl_abap_typedescr=>describe_by_name( '{{P}}HIRE' ) ).
    rt_fields = lo_struct->get_ddic_field_list( ).
  ENDMETHOD.

  METHOD field_of.
    DATA(lt_fields) = get_fields( ).
    READ TABLE lt_fields INTO rs_field WITH KEY fieldname = iv_name.
    IF sy-subrc <> 0.
      cl_abap_unit_assert=>fail( msg = |The field { iv_name } is missing| ).
    ENDIF.
  ENDMETHOD.

  METHOD is_key.
    DATA(ls_field) = field_of( iv_name ).
    IF ls_field-keyflag = 'X'.
      rv_is_key = abap_true.
    ENDIF.
  ENDMETHOD.

  METHOD is_not_null.
    DATA(ls_field) = field_of( iv_name ).
    ASSIGN COMPONENT 'NOTNULL' OF STRUCTURE ls_field TO FIELD-SYMBOL(<lv_flag>).
    IF sy-subrc <> 0.
      ASSIGN COMPONENT 'NOT_NULL' OF STRUCTURE ls_field TO <lv_flag>.
    ENDIF.
    IF sy-subrc = 0.
      IF <lv_flag> = 'X'.
        rv_not_null = abap_true.
      ENDIF.
    ENDIF.
  ENDMETHOD.

  METHOD fields_exist.
    DATA(lt_fields) = get_fields( ).
    cl_abap_unit_assert=>assert_equals( exp = 11 act = lines( lt_fields ) ).
    DATA lt_names TYPE STANDARD TABLE OF fieldname WITH EMPTY KEY.
    lt_names = VALUE #( ( 'CLIENT' ) ( 'HIRE_ID' ) ( 'KIOSK_ID' )
                        ( 'HIRE_DATE' ) ( 'ITEM_TYPE' ) ( 'ITEM_COUNT' )
                        ( 'HIRE_DAYS' ) ( 'DAILY_RATE' ) ( 'CURRENCY_CODE' )
                        ( 'CUSTOMER_NAME' ) ( 'IS_RETURNED' ) ).
    LOOP AT lt_names INTO DATA(lv_name).
      READ TABLE lt_fields TRANSPORTING NO FIELDS WITH KEY fieldname = lv_name.
      cl_abap_unit_assert=>assert_equals(
        exp = 0 act = sy-subrc msg = |The field { lv_name } is missing| ).
    ENDLOOP.
  ENDMETHOD.

  METHOD key_fields.
    cl_abap_unit_assert=>assert_equals( exp = abap_true act = is_key( 'CLIENT' ) ).
    cl_abap_unit_assert=>assert_equals( exp = abap_true act = is_key( 'HIRE_ID' ) ).
    cl_abap_unit_assert=>assert_equals( exp = abap_false act = is_key( 'KIOSK_ID' ) ).
    cl_abap_unit_assert=>assert_equals( exp = abap_false act = is_key( 'HIRE_DATE' ) ).
    cl_abap_unit_assert=>assert_equals( exp = abap_false act = is_key( 'DAILY_RATE' ) ).
  ENDMETHOD.

  METHOD not_null_fields.
    DATA(ls_field) = field_of( 'KIOSK_ID' ).
    ASSIGN COMPONENT 'NOTNULL' OF STRUCTURE ls_field TO FIELD-SYMBOL(<lv_flag>).
    IF sy-subrc <> 0.
      RETURN.
    ENDIF.
    cl_abap_unit_assert=>assert_equals( exp = 'X' act = <lv_flag> ).
    cl_abap_unit_assert=>assert_equals( exp = abap_true act = is_not_null( 'HIRE_ID' ) ).
    cl_abap_unit_assert=>assert_equals( exp = abap_true act = is_not_null( 'HIRE_DATE' ) ).
    cl_abap_unit_assert=>assert_equals( exp = abap_false act = is_not_null( 'ITEM_TYPE' ) ).
    cl_abap_unit_assert=>assert_equals( exp = abap_false act = is_not_null( 'DAILY_RATE' ) ).
    cl_abap_unit_assert=>assert_equals( exp = abap_false act = is_not_null( 'CUSTOMER_NAME' ) ).
  ENDMETHOD.

  METHOD lengths_in_chars.
    DATA(ls_field) = field_of( 'CLIENT' ).
    cl_abap_unit_assert=>assert_equals( exp = 3 act = CONV i( ls_field-leng ) ).
    ls_field = field_of( 'HIRE_ID' ).
    cl_abap_unit_assert=>assert_equals( exp = 10 act = CONV i( ls_field-leng ) ).
    ls_field = field_of( 'KIOSK_ID' ).
    cl_abap_unit_assert=>assert_equals( exp = 6 act = CONV i( ls_field-leng ) ).
    ls_field = field_of( 'HIRE_DATE' ).
    cl_abap_unit_assert=>assert_equals( exp = 8 act = CONV i( ls_field-leng ) ).
    ls_field = field_of( 'ITEM_TYPE' ).
    cl_abap_unit_assert=>assert_equals( exp = 4 act = CONV i( ls_field-leng ) ).
    ls_field = field_of( 'ITEM_COUNT' ).
    cl_abap_unit_assert=>assert_equals( exp = 10 act = CONV i( ls_field-leng ) ).
    ls_field = field_of( 'HIRE_DAYS' ).
    cl_abap_unit_assert=>assert_equals( exp = 10 act = CONV i( ls_field-leng ) ).
    ls_field = field_of( 'DAILY_RATE' ).
    cl_abap_unit_assert=>assert_equals( exp = 13 act = CONV i( ls_field-leng ) ).
    ls_field = field_of( 'CURRENCY_CODE' ).
    cl_abap_unit_assert=>assert_equals( exp = 5 act = CONV i( ls_field-leng ) ).
    ls_field = field_of( 'CUSTOMER_NAME' ).
    cl_abap_unit_assert=>assert_equals( exp = 30 act = CONV i( ls_field-leng ) ).
    ls_field = field_of( 'IS_RETURNED' ).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = CONV i( ls_field-leng ) ).
  ENDMETHOD.

  METHOD decimals_of_rate.
    DATA(ls_field) = field_of( 'DAILY_RATE' ).
    cl_abap_unit_assert=>assert_equals( exp = 2 act = CONV i( ls_field-decimals ) ).
    ls_field = field_of( 'ITEM_COUNT' ).
    cl_abap_unit_assert=>assert_equals( exp = 0 act = CONV i( ls_field-decimals ) ).
    ls_field = field_of( 'HIRE_DAYS' ).
    cl_abap_unit_assert=>assert_equals( exp = 0 act = CONV i( ls_field-decimals ) ).
  ENDMETHOD.

  METHOD field_types.
    DATA(ls_field) = field_of( 'CLIENT' ).
    cl_abap_unit_assert=>assert_equals( exp = 'CLNT' act = ls_field-datatype ).
    ls_field = field_of( 'HIRE_ID' ).
    cl_abap_unit_assert=>assert_equals( exp = 'NUMC' act = ls_field-datatype ).
    ls_field = field_of( 'KIOSK_ID' ).
    cl_abap_unit_assert=>assert_equals( exp = 'CHAR' act = ls_field-datatype ).
    ls_field = field_of( 'HIRE_DATE' ).
    cl_abap_unit_assert=>assert_equals( exp = 'DATS' act = ls_field-datatype ).
    ls_field = field_of( 'ITEM_TYPE' ).
    cl_abap_unit_assert=>assert_equals( exp = 'CHAR' act = ls_field-datatype ).
    ls_field = field_of( 'ITEM_COUNT' ).
    cl_abap_unit_assert=>assert_equals( exp = 'INT4' act = ls_field-datatype ).
    ls_field = field_of( 'HIRE_DAYS' ).
    cl_abap_unit_assert=>assert_equals( exp = 'INT4' act = ls_field-datatype ).
    ls_field = field_of( 'DAILY_RATE' ).
    cl_abap_unit_assert=>assert_equals( exp = 'DEC' act = ls_field-datatype(3) ).
    ls_field = field_of( 'CURRENCY_CODE' ).
    cl_abap_unit_assert=>assert_equals( exp = 'CUKY' act = ls_field-datatype ).
    ls_field = field_of( 'CUSTOMER_NAME' ).
    cl_abap_unit_assert=>assert_equals( exp = 'CHAR' act = ls_field-datatype ).
    ls_field = field_of( 'IS_RETURNED' ).
    cl_abap_unit_assert=>assert_equals( exp = 'CHAR' act = ls_field-datatype ).
  ENDMETHOD.

  METHOD insert_and_read.
    DATA lt_hire TYPE STANDARD TABLE OF {{p}}hire WITH EMPTY KEY.
    DATA lv_date TYPE d.
    DATA lv_curr TYPE c LENGTH 5.
    lv_date = '20250701'.
    lv_curr = 'EUR'.
    lt_hire = VALUE #(
      ( hire_id = '0000000001' kiosk_id = 'K1' hire_date = '20250701'
        item_type = 'CHAI' item_count = 2 hire_days = 3
        daily_rate = '4.50' currency_code = 'EUR'
        customer_name = 'SMITH' is_returned = 'X' )
      ( hire_id = '0000000002' kiosk_id = 'K2' hire_date = '20250702'
        item_type = 'PARA' item_count = 1 hire_days = 1
        daily_rate = '6.00' currency_code = 'EUR'
        customer_name = 'JONES' is_returned = ' ' ) ).
    go_env->insert_test_data( lt_hire ).

    SELECT SINGLE hire_id, kiosk_id, hire_date, item_type, item_count,
                  hire_days, daily_rate, currency_code, customer_name,
                  is_returned
      FROM {{p}}hire
      WHERE hire_id = '0000000001'
      INTO @DATA(ls_hire).

    cl_abap_unit_assert=>assert_equals( exp = '0000000001' act = ls_hire-hire_id ).
    cl_abap_unit_assert=>assert_equals( exp = 'K1' act = ls_hire-kiosk_id ).
    cl_abap_unit_assert=>assert_equals( exp = lv_date act = ls_hire-hire_date ).
    cl_abap_unit_assert=>assert_equals( exp = 'CHAI' act = ls_hire-item_type ).
    cl_abap_unit_assert=>assert_equals( exp = 2 act = ls_hire-item_count ).
    cl_abap_unit_assert=>assert_equals( exp = 3 act = ls_hire-hire_days ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '4.50' )
                                        act = CONV decfloat34( ls_hire-daily_rate ) ).
    cl_abap_unit_assert=>assert_equals( exp = lv_curr act = ls_hire-currency_code ).
    cl_abap_unit_assert=>assert_equals( exp = 'SMITH' act = ls_hire-customer_name ).
    cl_abap_unit_assert=>assert_equals( exp = 'X' act = ls_hire-is_returned ).
  ENDMETHOD.

  METHOD duplicate_key.
    DATA ls_hire TYPE {{p}}hire.
    ls_hire-hire_id = '0000000009'.
    ls_hire-kiosk_id = 'K9'.
    ls_hire-hire_date = '20250703'.
    INSERT {{p}}hire FROM @ls_hire.
    INSERT {{p}}hire FROM @ls_hire.
    cl_abap_unit_assert=>assert_equals( exp = 4 act = sy-subrc ).
  ENDMETHOD.

  METHOD select_by_kiosk.
    DATA lt_hire TYPE STANDARD TABLE OF {{p}}hire WITH EMPTY KEY.
    lt_hire = VALUE #(
      ( hire_id = '0000000011' kiosk_id = 'K1' hire_date = '20250704' )
      ( hire_id = '0000000012' kiosk_id = 'K1' hire_date = '20250704' )
      ( hire_id = '0000000013' kiosk_id = 'K2' hire_date = '20250704' ) ).
    go_env->insert_test_data( lt_hire ).
    SELECT COUNT(*) FROM {{p}}hire WHERE kiosk_id = 'K1' INTO @DATA(lv_count).
    cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_count ).
  ENDMETHOD.
ENDCLASS.