CLASS {{p}}well_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 field_count FOR TESTING.
    METHODS field_properties FOR TESTING.
    METHODS key_fields FOR TESTING.
    METHODS insert_and_read FOR TESTING.
    METHODS duplicate_key FOR TESTING.
    METHODS same_site_two_jobs FOR TESTING.
    METHODS keys_only_row FOR TESTING.
    METHODS check_field
      IMPORTING iv_name TYPE fieldname
                iv_leng TYPE i
                iv_dec  TYPE i
                iv_type TYPE dfies-datatype.
ENDCLASS.


CLASS {{p}}well_hidden IMPLEMENTATION.

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

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

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

  METHOD field_count.
    DATA(lo_struct) = CAST cl_abap_structdescr( cl_abap_typedescr=>describe_by_name( '{{P}}WELL' ) ).
    DATA(lt_fields) = lo_struct->get_ddic_field_list( ).
    cl_abap_unit_assert=>assert_equals( exp = 10 act = lines( lt_fields )
      msg = |Table {{P}}WELL must have 10 fields| ).
  ENDMETHOD.

  METHOD field_properties.
    check_field( iv_name = 'CLIENT'        iv_leng = 3  iv_dec = 0 iv_type = 'CLNT' ).
    check_field( iv_name = 'JOB_ID'        iv_leng = 10 iv_dec = 0 iv_type = 'CHAR' ).
    check_field( iv_name = 'SITE_NAME'     iv_leng = 40 iv_dec = 0 iv_type = 'CHAR' ).
    check_field( iv_name = 'DRILLED_ON'    iv_leng = 8  iv_dec = 0 iv_type = 'DATS' ).
    check_field( iv_name = 'DEPTH_M'       iv_leng = 7  iv_dec = 2 iv_type = 'DEC' ).
    check_field( iv_name = 'DEPTH_UNIT'    iv_leng = 3  iv_dec = 0 iv_type = 'UNIT' ).
    check_field( iv_name = 'PRICE'         iv_leng = 15 iv_dec = 2 iv_type = 'DEC' ).
    check_field( iv_name = 'CURRENCY_CODE' iv_leng = 5  iv_dec = 0 iv_type = 'CUKY' ).
    check_field( iv_name = 'PERMIT_NO'     iv_leng = 8  iv_dec = 0 iv_type = 'NUMC' ).
    check_field( iv_name = 'CREW_SIZE'     iv_leng = 10 iv_dec = 0 iv_type = 'INT4' ).
  ENDMETHOD.

  METHOD check_field.
    DATA(lo_struct) = CAST cl_abap_structdescr( cl_abap_typedescr=>describe_by_name( '{{P}}WELL' ) ).
    DATA(lt_fields) = lo_struct->get_ddic_field_list( ).
    READ TABLE lt_fields INTO DATA(ls_field) WITH KEY fieldname = iv_name.
    cl_abap_unit_assert=>assert_subrc( exp = 0 act = sy-subrc
      msg = |Field { iv_name } is missing| ).
    cl_abap_unit_assert=>assert_equals( exp = iv_leng act = ls_field-leng
      msg = |Length of field { iv_name }| ).
    cl_abap_unit_assert=>assert_equals( exp = iv_dec act = ls_field-decimals
      msg = |Decimals of field { iv_name }| ).
    cl_abap_unit_assert=>assert_equals( exp = iv_type act = ls_field-datatype
      msg = |Data type of field { iv_name }| ).
  ENDMETHOD.

  METHOD key_fields.
    DATA(lo_struct) = CAST cl_abap_structdescr( cl_abap_typedescr=>describe_by_name( '{{P}}WELL' ) ).
    DATA(lt_fields) = lo_struct->get_ddic_field_list( ).
    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 = |Field { ls_field-fieldname } must be a key field| ).
      ELSE.
        cl_abap_unit_assert=>assert_equals( exp = '' act = ls_field-keyflag
          msg = |Field { ls_field-fieldname } must not be a key field| ).
      ENDIF.
    ENDLOOP.
  ENDMETHOD.

  METHOD insert_and_read.
    DATA ls_job TYPE {{p}}well.
    ls_job-client = sy-mandt.
    ls_job-job_id = 'J1'.
    ls_job-site_name = 'FARM NORTH'.
    ls_job-drilled_on = '20250115'.
    ls_job-depth_m = '120.50'.
    ls_job-depth_unit = 'M'.
    ls_job-price = '4500.00'.
    ls_job-currency_code = 'EUR'.
    ls_job-permit_no = '00001234'.
    ls_job-crew_size = 4.
    INSERT {{p}}well FROM ls_job.
    cl_abap_unit_assert=>assert_subrc( exp = 0 ).

    SELECT SINGLE * FROM {{p}}well WHERE job_id = 'J1' INTO @DATA(ls_db).
    cl_abap_unit_assert=>assert_subrc( exp = 0 ).
    cl_abap_unit_assert=>assert_equals( exp = 'FARM NORTH' act = ls_db-site_name ).
    cl_abap_unit_assert=>assert_equals( exp = '20250115' act = ls_db-drilled_on ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '120.50' )
                                        act = CONV decfloat34( ls_db-depth_m ) ).
    cl_abap_unit_assert=>assert_equals( exp = 'M' act = ls_db-depth_unit ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '4500.00' )
                                        act = CONV decfloat34( ls_db-price ) ).
    cl_abap_unit_assert=>assert_equals( exp = 'EUR' act = ls_db-currency_code ).
    cl_abap_unit_assert=>assert_equals( exp = '00001234' act = ls_db-permit_no ).
    cl_abap_unit_assert=>assert_equals( exp = 4 act = ls_db-crew_size ).
  ENDMETHOD.

  METHOD duplicate_key.
    DATA ls_job TYPE {{p}}well.
    ls_job-client = sy-mandt.
    ls_job-job_id = 'J2'.
    ls_job-site_name = 'SITE A'.
    INSERT {{p}}well FROM ls_job.
    cl_abap_unit_assert=>assert_subrc( exp = 0 ).
    INSERT {{p}}well FROM ls_job.
    cl_abap_unit_assert=>assert_equals( exp = 4 act = sy-subrc ).
  ENDMETHOD.

  METHOD same_site_two_jobs.
    DATA ls_job TYPE {{p}}well.
    ls_job-client = sy-mandt.
    ls_job-site_name = 'SAME SITE'.
    ls_job-job_id = 'J3'.
    INSERT {{p}}well FROM ls_job.
    cl_abap_unit_assert=>assert_subrc( exp = 0 ).
    ls_job-job_id = 'J4'.
    INSERT {{p}}well FROM ls_job.
    cl_abap_unit_assert=>assert_subrc( exp = 0 ).
    SELECT COUNT(*) FROM {{p}}well WHERE site_name = 'SAME SITE' INTO @DATA(lv_count).
    cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_count ).
  ENDMETHOD.

  METHOD keys_only_row.
    DATA ls_job TYPE {{p}}well.
    ls_job-client = sy-mandt.
    ls_job-job_id = 'K1'.
    INSERT {{p}}well FROM ls_job.
    cl_abap_unit_assert=>assert_subrc( exp = 0 ).
    SELECT SINGLE site_name, depth_m, crew_size FROM {{p}}well WHERE job_id = 'K1'
      INTO @DATA(ls_db).
    cl_abap_unit_assert=>assert_subrc( exp = 0 ).
    cl_abap_unit_assert=>assert_equals( exp = '' act = ls_db-site_name ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 0 )
                                        act = CONV decfloat34( ls_db-depth_m ) ).
    cl_abap_unit_assert=>assert_equals( exp = 0 act = ls_db-crew_size ).
  ENDMETHOD.

ENDCLASS.