CLASS {{p}}t61_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 trimmed IMPORTING iv_value TYPE clike
                    RETURNING VALUE(rv_value) TYPE string.
    METHODS stores_a_job FOR TESTING.
    METHODS reads_net_value FOR TESTING.
    METHODS reads_two_jobs FOR TESTING.
ENDCLASS.


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

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

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

  METHOD trimmed.
    rv_value = iv_value.
    SHIFT rv_value RIGHT DELETING TRAILING space.
  ENDMETHOD.

  METHOD stores_a_job.
    DATA lt_job TYPE STANDARD TABLE OF {{p}}winjob WITH EMPTY KEY.
    lt_job = VALUE #( ( client     = sy-mandt
                        job_id     = 'A1'
                        customer   = 'C1'
                        work_hours = 2
                        calc_mode  = 'FX'
                        order_date = '20240201'
                        pane_count = 4
                        group_code = 'PRIV'
                        net_value  = '99.00' ) ).
    go_env->insert_test_data( lt_job ).
    SELECT SINGLE * FROM {{p}}winjob WHERE job_id = 'A1' INTO @DATA(ls_read).
    cl_abap_unit_assert=>assert_equals( exp = `C1` act = trimmed( ls_read-customer ) ).
    cl_abap_unit_assert=>assert_equals( exp = 2 act = ls_read-work_hours ).
  ENDMETHOD.

  METHOD reads_net_value.
    DATA lt_job TYPE STANDARD TABLE OF {{p}}winjob WITH EMPTY KEY.
    lt_job = VALUE #( ( client = sy-mandt job_id = 'A3' net_value = '12.34' ) ).
    go_env->insert_test_data( lt_job ).
    SELECT SINGLE net_value FROM {{p}}winjob WHERE job_id = 'A3' INTO @DATA(lv_value).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '12.34' )
                                        act = CONV decfloat34( lv_value ) ).
  ENDMETHOD.

  METHOD reads_two_jobs.
    DATA lt_job TYPE STANDARD TABLE OF {{p}}winjob WITH EMPTY KEY.
    lt_job = VALUE #( ( client = sy-mandt job_id = 'A4' )
                      ( client = sy-mandt job_id = 'A5' ) ).
    go_env->insert_test_data( lt_job ).
    SELECT COUNT(*) FROM {{p}}winjob INTO @DATA(lv_count).
    cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_count ).
  ENDMETHOD.
ENDCLASS.