abap-llm/tasks_gen/train/G1912/reference/svcjob_test.clas.abap

CLASS {{p}}svcjob_test DEFINITION PUBLIC FINAL CREATE PUBLIC
  FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
  PRIVATE SECTION.
    TYPES ty_typekind TYPE c LENGTH 1.
    CLASS-DATA go_env TYPE REF TO if_osql_test_environment.
    CLASS-METHODS class_setup.
    CLASS-METHODS class_teardown.
    METHODS setup.
    METHODS field_names FOR TESTING.
    METHODS key_fields FOR TESTING.
    METHODS field_types FOR TESTING.
    METHODS insert_and_select FOR TESTING.
    METHODS duplicate_key FOR TESTING.
    METHODS get_ddic_fields RETURNING VALUE(rt_fields) TYPE ddfields.
    METHODS check_type IMPORTING iv_name TYPE fieldname
                                 iv_inttype TYPE ty_typekind
                                 iv_leng TYPE i
                                 iv_decimals TYPE i.
ENDCLASS.


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

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

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

  METHOD get_ddic_fields.
    DATA lt_fields TYPE ddfields.
    CALL FUNCTION 'DDIF_FIELDINFO_GET'
      EXPORTING
        tabname   = '{{P}}SVCJOB'
        langu     = 'E'
      TABLES
        dfies_tab = lt_fields
      EXCEPTIONS
        not_found = 1
        OTHERS    = 2.
    IF sy-subrc <> 0.
      cl_abap_unit_assert=>fail( msg = 'DDIC field information is not available' ).
    ENDIF.
    rt_fields = lt_fields.
  ENDMETHOD.

  METHOD check_type.
    DATA lt_fields TYPE ddfields.
    lt_fields = get_ddic_fields( ).
    READ TABLE lt_fields INTO DATA(ls_field) WITH KEY fieldname = iv_name.
    IF sy-subrc <> 0.
      cl_abap_unit_assert=>fail( msg = |Field { iv_name } is missing| ).
    ENDIF.
    cl_abap_unit_assert=>assert_equals( exp = iv_inttype act = ls_field-inttype ).
    cl_abap_unit_assert=>assert_equals( exp = iv_leng act = CONV i( ls_field-leng ) ).
    cl_abap_unit_assert=>assert_equals( exp = iv_decimals act = CONV i( ls_field-decimals ) ).
  ENDMETHOD.

  METHOD field_names.
    DATA lt_fields TYPE ddfields.
    DATA lt_expected TYPE STANDARD TABLE OF fieldname WITH EMPTY KEY.
    lt_expected = VALUE #( ( 'CLIENT' ) ( 'JOB_ID' ) ( 'WORK_HOURS' )
                           ( 'CALC_MODE' ) ( 'ORDER_NO' ) ( 'JOB_DATE' )
                           ( 'PART_COUNT' ) ( 'JOB_GROUP' ) ( 'JOB_VALUE' ) ).
    lt_fields = get_ddic_fields( ).
    cl_abap_unit_assert=>assert_equals( exp = lines( lt_expected ) act = lines( lt_fields ) ).
    LOOP AT lt_expected INTO DATA(lv_name).
      READ TABLE lt_fields TRANSPORTING NO FIELDS WITH KEY fieldname = lv_name.
      cl_abap_unit_assert=>assert_subrc( exp = 0 msg = |Field { lv_name } is missing| ).
    ENDLOOP.
  ENDMETHOD.

  METHOD key_fields.
    DATA lt_fields TYPE ddfields.
    lt_fields = get_ddic_fields( ).
    LOOP AT lt_fields INTO DATA(ls_field).
      IF ls_field-fieldname = 'CLIENT' OR ls_field-fieldname = 'JOB_ID'.
        cl_abap_unit_assert=>assert_equals( exp = 'X' act = ls_field-keyflag
                                            msg = |Key flag of { ls_field-fieldname }| ).
      ELSE.
        cl_abap_unit_assert=>assert_initial( act = ls_field-keyflag
                                             msg = |Key flag of { ls_field-fieldname }| ).
      ENDIF.
    ENDLOOP.
  ENDMETHOD.

  METHOD field_types.
    check_type( iv_name = 'CLIENT' iv_inttype = 'C' iv_leng = 3 iv_decimals = 0 ).
    check_type( iv_name = 'JOB_ID' iv_inttype = 'C' iv_leng = 10 iv_decimals = 0 ).
    check_type( iv_name = 'WORK_HOURS' iv_inttype = 'P' iv_leng = 5 iv_decimals = 2 ).
    check_type( iv_name = 'CALC_MODE' iv_inttype = 'C' iv_leng = 2 iv_decimals = 0 ).
    check_type( iv_name = 'ORDER_NO' iv_inttype = 'C' iv_leng = 10 iv_decimals = 0 ).
    check_type( iv_name = 'JOB_DATE' iv_inttype = 'D' iv_leng = 8 iv_decimals = 0 ).
    check_type( iv_name = 'PART_COUNT' iv_inttype = 'I' iv_leng = 10 iv_decimals = 0 ).
    check_type( iv_name = 'JOB_GROUP' iv_inttype = 'C' iv_leng = 4 iv_decimals = 0 ).
    check_type( iv_name = 'JOB_VALUE' iv_inttype = 'P' iv_leng = 15 iv_decimals = 2 ).
  ENDMETHOD.

  METHOD insert_and_select.
    DATA ls_job TYPE {{p}}svcjob.
    ls_job-client = sy-mandt.
    ls_job-job_id = 'J001'.
    ls_job-work_hours = '12.50'.
    ls_job-calc_mode = 'A1'.
    ls_job-order_no = 'ORD123'.
    ls_job-job_date = '20250101'.
    ls_job-part_count = 5.
    ls_job-job_group = 'GR01'.
    ls_job-job_value = '1000.00'.
    INSERT {{p}}svcjob FROM ls_job.
    cl_abap_unit_assert=>assert_subrc( exp = 0 ).
    SELECT SINGLE * FROM {{p}}svcjob WHERE job_id = 'J001' INTO @DATA(ls_read).
    cl_abap_unit_assert=>assert_subrc( exp = 0 ).
    cl_abap_unit_assert=>assert_equals( exp = ls_job-work_hours act = ls_read-work_hours ).
    cl_abap_unit_assert=>assert_equals( exp = ls_job-job_value act = ls_read-job_value ).
  ENDMETHOD.

  METHOD duplicate_key.
    DATA ls_job TYPE {{p}}svcjob.
    ls_job-client = sy-mandt.
    ls_job-job_id = 'J002'.
    ls_job-work_hours = '1.00'.
    ls_job-calc_mode = 'B2'.
    ls_job-order_no = 'ORD456'.
    ls_job-job_date = '20250102'.
    ls_job-part_count = 1.
    ls_job-job_group = 'GR02'.
    ls_job-job_value = '50.00'.
    INSERT {{p}}svcjob FROM ls_job.
    cl_abap_unit_assert=>assert_subrc( exp = 0 ).
    INSERT {{p}}svcjob FROM ls_job.
    cl_abap_unit_assert=>assert_equals( exp = 4 act = sy-subrc ).
  ENDMETHOD.
ENDCLASS.