CLASS {{p}}hire_test 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 structure_ok FOR TESTING.
    METHODS stores_and_reads FOR TESTING.
    METHODS duplicate_is_rejected FOR TESTING.
ENDCLASS.


CLASS {{p}}hire_test 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 structure_ok.
    DATA(lo_struct) = CAST cl_abap_structdescr(
      cl_abap_typedescr=>describe_by_name( '{{P}}HIRE' ) ).
    DATA(lt_fields) = lo_struct->get_ddic_field_list( ).
    cl_abap_unit_assert=>assert_equals( exp = 11 act = lines( lt_fields ) ).
    READ TABLE lt_fields INTO DATA(ls_field) WITH KEY fieldname = 'HIRE_ID'.
    cl_abap_unit_assert=>assert_equals( exp = 'X' act = ls_field-keyflag ).
    cl_abap_unit_assert=>assert_equals( exp = 10 act = CONV i( ls_field-leng ) ).
  ENDMETHOD.

  METHOD stores_and_reads.
    DATA ls_hire TYPE {{p}}hire.
    DATA lt_hire TYPE STANDARD TABLE OF {{p}}hire WITH EMPTY KEY.
    ls_hire-hire_id = '0000000001'.
    ls_hire-kiosk_id = 'K1'.
    ls_hire-hire_date = '20250701'.
    ls_hire-item_type = 'CHAI'.
    ls_hire-item_count = 2.
    ls_hire-hire_days = 3.
    ls_hire-daily_rate = '4.50'.
    ls_hire-currency_code = 'EUR'.
    ls_hire-customer_name = 'SMITH'.
    ls_hire-is_returned = 'X'.
    APPEND ls_hire TO lt_hire.
    go_env->insert_test_data( lt_hire ).

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

    cl_abap_unit_assert=>assert_equals( exp = 'K1' act = ls_read-kiosk_id ).
    cl_abap_unit_assert=>assert_equals( exp = 2 act = ls_read-item_count ).
    cl_abap_unit_assert=>assert_equals( exp = 3 act = ls_read-hire_days ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '4.50' )
                                        act = CONV decfloat34( ls_read-daily_rate ) ).
    cl_abap_unit_assert=>assert_equals( exp = 'X' act = ls_read-is_returned ).
  ENDMETHOD.

  METHOD duplicate_is_rejected.
    DATA ls_hire TYPE {{p}}hire.
    ls_hire-hire_id = '0000000002'.
    ls_hire-kiosk_id = 'K2'.
    ls_hire-hire_date = '20250702'.
    INSERT {{p}}hire FROM @ls_hire.
    INSERT {{p}}hire FROM @ls_hire.
    cl_abap_unit_assert=>assert_equals( exp = 4 act = sy-subrc ).
  ENDMETHOD.
ENDCLASS.