CLASS {{p}}jump_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 fields_match_spec FOR TESTING.
    METHODS insert_and_select FOR TESTING.
    METHODS duplicate_key_fails FOR TESTING.
ENDCLASS.


CLASS {{p}}jump_test IMPLEMENTATION.

  METHOD class_setup.
    go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}JUMP' ) ) ).
  ENDMETHOD.

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

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

  METHOD fields_match_spec.
    DATA(lo_struct) = CAST cl_abap_structdescr( cl_abap_typedescr=>describe_by_name( '{{P}}JUMP' ) ).
    DATA(lt_fields) = lo_struct->get_ddic_field_list( ).
    cl_abap_unit_assert=>assert_equals( exp = 8 act = lines( lt_fields ) ).
    READ TABLE lt_fields INTO DATA(ls_field) WITH KEY fieldname = 'FEE_AMOUNT'.
    cl_abap_unit_assert=>assert_equals( exp = 'P' act = ls_field-inttype ).
    cl_abap_unit_assert=>assert_equals( exp = 9 act = ls_field-leng ).
    cl_abap_unit_assert=>assert_equals( exp = 2 act = ls_field-decimals ).
    READ TABLE lt_fields INTO ls_field WITH KEY fieldname = 'SESSION_ID'.
    cl_abap_unit_assert=>assert_equals( exp = 'X' act = ls_field-keyflag ).
  ENDMETHOD.

  METHOD insert_and_select.
    DATA(ls_jump) = VALUE {{p}}jump( session_id   = 'S1'
                                    visitor_id   = 'V1'
                                    jump_date    = '20250401'
                                    jump_minutes = 30
                                    fee_amount   = '9.50'
                                    paid         = 'X' ).
    INSERT {{p}}jump FROM @ls_jump.
    cl_abap_unit_assert=>assert_equals( exp = 0 act = sy-subrc ).
    SELECT SINGLE * FROM {{p}}jump WHERE session_id = 'S1' INTO @DATA(ls_read).
    cl_abap_unit_assert=>assert_equals( exp = ls_jump-visitor_id act = ls_read-visitor_id ).
    cl_abap_unit_assert=>assert_equals( exp = ls_jump-jump_minutes act = ls_read-jump_minutes ).
  ENDMETHOD.

  METHOD duplicate_key_fails.
    DATA(ls_jump) = VALUE {{p}}jump( session_id = 'S2'
                                    visitor_id = 'V2'
                                    jump_date  = '20250402' ).
    INSERT {{p}}jump FROM @ls_jump.
    INSERT {{p}}jump FROM @ls_jump.
    cl_abap_unit_assert=>assert_equals( exp = 4 act = sy-subrc ).
  ENDMETHOD.

ENDCLASS.