232 lines
10 KiB
ABAP
232 lines
10 KiB
ABAP
CLASS {{p}}hire_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 get_fields RETURNING VALUE(rt_fields) TYPE dfies_table.
|
|
METHODS field_of
|
|
IMPORTING iv_name TYPE fieldname
|
|
RETURNING VALUE(rs_field) TYPE dfies.
|
|
METHODS is_key
|
|
IMPORTING iv_name TYPE fieldname
|
|
RETURNING VALUE(rv_is_key) TYPE abap_bool.
|
|
METHODS is_not_null
|
|
IMPORTING iv_name TYPE fieldname
|
|
RETURNING VALUE(rv_not_null) TYPE abap_bool.
|
|
METHODS fields_exist FOR TESTING.
|
|
METHODS key_fields FOR TESTING.
|
|
METHODS not_null_fields FOR TESTING.
|
|
METHODS lengths_in_chars FOR TESTING.
|
|
METHODS decimals_of_rate FOR TESTING.
|
|
METHODS field_types FOR TESTING.
|
|
METHODS insert_and_read FOR TESTING.
|
|
METHODS duplicate_key FOR TESTING.
|
|
METHODS select_by_kiosk FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}hire_hidden 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 get_fields.
|
|
DATA(lo_struct) = CAST cl_abap_structdescr(
|
|
cl_abap_typedescr=>describe_by_name( '{{P}}HIRE' ) ).
|
|
rt_fields = lo_struct->get_ddic_field_list( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD field_of.
|
|
DATA(lt_fields) = get_fields( ).
|
|
READ TABLE lt_fields INTO rs_field WITH KEY fieldname = iv_name.
|
|
IF sy-subrc <> 0.
|
|
cl_abap_unit_assert=>fail( msg = |The field { iv_name } is missing| ).
|
|
ENDIF.
|
|
ENDMETHOD.
|
|
|
|
METHOD is_key.
|
|
DATA(ls_field) = field_of( iv_name ).
|
|
IF ls_field-keyflag = 'X'.
|
|
rv_is_key = abap_true.
|
|
ENDIF.
|
|
ENDMETHOD.
|
|
|
|
METHOD is_not_null.
|
|
DATA(ls_field) = field_of( iv_name ).
|
|
ASSIGN COMPONENT 'NOTNULL' OF STRUCTURE ls_field TO FIELD-SYMBOL(<lv_flag>).
|
|
IF sy-subrc <> 0.
|
|
ASSIGN COMPONENT 'NOT_NULL' OF STRUCTURE ls_field TO <lv_flag>.
|
|
ENDIF.
|
|
IF sy-subrc = 0.
|
|
IF <lv_flag> = 'X'.
|
|
rv_not_null = abap_true.
|
|
ENDIF.
|
|
ENDIF.
|
|
ENDMETHOD.
|
|
|
|
METHOD fields_exist.
|
|
DATA(lt_fields) = get_fields( ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 11 act = lines( lt_fields ) ).
|
|
DATA lt_names TYPE STANDARD TABLE OF fieldname WITH EMPTY KEY.
|
|
lt_names = VALUE #( ( 'CLIENT' ) ( 'HIRE_ID' ) ( 'KIOSK_ID' )
|
|
( 'HIRE_DATE' ) ( 'ITEM_TYPE' ) ( 'ITEM_COUNT' )
|
|
( 'HIRE_DAYS' ) ( 'DAILY_RATE' ) ( 'CURRENCY_CODE' )
|
|
( 'CUSTOMER_NAME' ) ( 'IS_RETURNED' ) ).
|
|
LOOP AT lt_names INTO DATA(lv_name).
|
|
READ TABLE lt_fields TRANSPORTING NO FIELDS WITH KEY fieldname = lv_name.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = 0 act = sy-subrc msg = |The field { lv_name } is missing| ).
|
|
ENDLOOP.
|
|
ENDMETHOD.
|
|
|
|
METHOD key_fields.
|
|
cl_abap_unit_assert=>assert_equals( exp = abap_true act = is_key( 'CLIENT' ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = abap_true act = is_key( 'HIRE_ID' ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = abap_false act = is_key( 'KIOSK_ID' ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = abap_false act = is_key( 'HIRE_DATE' ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = abap_false act = is_key( 'DAILY_RATE' ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD not_null_fields.
|
|
DATA(ls_field) = field_of( 'KIOSK_ID' ).
|
|
ASSIGN COMPONENT 'NOTNULL' OF STRUCTURE ls_field TO FIELD-SYMBOL(<lv_flag>).
|
|
IF sy-subrc <> 0.
|
|
RETURN.
|
|
ENDIF.
|
|
cl_abap_unit_assert=>assert_equals( exp = 'X' act = <lv_flag> ).
|
|
cl_abap_unit_assert=>assert_equals( exp = abap_true act = is_not_null( 'HIRE_ID' ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = abap_true act = is_not_null( 'HIRE_DATE' ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = abap_false act = is_not_null( 'ITEM_TYPE' ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = abap_false act = is_not_null( 'DAILY_RATE' ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = abap_false act = is_not_null( 'CUSTOMER_NAME' ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD lengths_in_chars.
|
|
DATA(ls_field) = field_of( 'CLIENT' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 3 act = CONV i( ls_field-leng ) ).
|
|
ls_field = field_of( 'HIRE_ID' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 10 act = CONV i( ls_field-leng ) ).
|
|
ls_field = field_of( 'KIOSK_ID' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 6 act = CONV i( ls_field-leng ) ).
|
|
ls_field = field_of( 'HIRE_DATE' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 8 act = CONV i( ls_field-leng ) ).
|
|
ls_field = field_of( 'ITEM_TYPE' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 4 act = CONV i( ls_field-leng ) ).
|
|
ls_field = field_of( 'ITEM_COUNT' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 10 act = CONV i( ls_field-leng ) ).
|
|
ls_field = field_of( 'HIRE_DAYS' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 10 act = CONV i( ls_field-leng ) ).
|
|
ls_field = field_of( 'DAILY_RATE' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 13 act = CONV i( ls_field-leng ) ).
|
|
ls_field = field_of( 'CURRENCY_CODE' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 5 act = CONV i( ls_field-leng ) ).
|
|
ls_field = field_of( 'CUSTOMER_NAME' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 30 act = CONV i( ls_field-leng ) ).
|
|
ls_field = field_of( 'IS_RETURNED' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = CONV i( ls_field-leng ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD decimals_of_rate.
|
|
DATA(ls_field) = field_of( 'DAILY_RATE' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = CONV i( ls_field-decimals ) ).
|
|
ls_field = field_of( 'ITEM_COUNT' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = CONV i( ls_field-decimals ) ).
|
|
ls_field = field_of( 'HIRE_DAYS' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = CONV i( ls_field-decimals ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD field_types.
|
|
DATA(ls_field) = field_of( 'CLIENT' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'CLNT' act = ls_field-datatype ).
|
|
ls_field = field_of( 'HIRE_ID' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'NUMC' act = ls_field-datatype ).
|
|
ls_field = field_of( 'KIOSK_ID' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'CHAR' act = ls_field-datatype ).
|
|
ls_field = field_of( 'HIRE_DATE' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'DATS' act = ls_field-datatype ).
|
|
ls_field = field_of( 'ITEM_TYPE' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'CHAR' act = ls_field-datatype ).
|
|
ls_field = field_of( 'ITEM_COUNT' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'INT4' act = ls_field-datatype ).
|
|
ls_field = field_of( 'HIRE_DAYS' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'INT4' act = ls_field-datatype ).
|
|
ls_field = field_of( 'DAILY_RATE' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'DEC' act = ls_field-datatype(3) ).
|
|
ls_field = field_of( 'CURRENCY_CODE' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'CUKY' act = ls_field-datatype ).
|
|
ls_field = field_of( 'CUSTOMER_NAME' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'CHAR' act = ls_field-datatype ).
|
|
ls_field = field_of( 'IS_RETURNED' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'CHAR' act = ls_field-datatype ).
|
|
ENDMETHOD.
|
|
|
|
METHOD insert_and_read.
|
|
DATA lt_hire TYPE STANDARD TABLE OF {{p}}hire WITH EMPTY KEY.
|
|
DATA lv_date TYPE d.
|
|
DATA lv_curr TYPE c LENGTH 5.
|
|
lv_date = '20250701'.
|
|
lv_curr = 'EUR'.
|
|
lt_hire = VALUE #(
|
|
( hire_id = '0000000001' kiosk_id = 'K1' hire_date = '20250701'
|
|
item_type = 'CHAI' item_count = 2 hire_days = 3
|
|
daily_rate = '4.50' currency_code = 'EUR'
|
|
customer_name = 'SMITH' is_returned = 'X' )
|
|
( hire_id = '0000000002' kiosk_id = 'K2' hire_date = '20250702'
|
|
item_type = 'PARA' item_count = 1 hire_days = 1
|
|
daily_rate = '6.00' currency_code = 'EUR'
|
|
customer_name = 'JONES' is_returned = ' ' ) ).
|
|
go_env->insert_test_data( lt_hire ).
|
|
|
|
SELECT SINGLE hire_id, kiosk_id, hire_date, item_type, item_count,
|
|
hire_days, daily_rate, currency_code, customer_name,
|
|
is_returned
|
|
FROM {{p}}hire
|
|
WHERE hire_id = '0000000001'
|
|
INTO @DATA(ls_hire).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = '0000000001' act = ls_hire-hire_id ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'K1' act = ls_hire-kiosk_id ).
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_date act = ls_hire-hire_date ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'CHAI' act = ls_hire-item_type ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = ls_hire-item_count ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 3 act = ls_hire-hire_days ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '4.50' )
|
|
act = CONV decfloat34( ls_hire-daily_rate ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_curr act = ls_hire-currency_code ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'SMITH' act = ls_hire-customer_name ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'X' act = ls_hire-is_returned ).
|
|
ENDMETHOD.
|
|
|
|
METHOD duplicate_key.
|
|
DATA ls_hire TYPE {{p}}hire.
|
|
ls_hire-hire_id = '0000000009'.
|
|
ls_hire-kiosk_id = 'K9'.
|
|
ls_hire-hire_date = '20250703'.
|
|
INSERT {{p}}hire FROM @ls_hire.
|
|
INSERT {{p}}hire FROM @ls_hire.
|
|
cl_abap_unit_assert=>assert_equals( exp = 4 act = sy-subrc ).
|
|
ENDMETHOD.
|
|
|
|
METHOD select_by_kiosk.
|
|
DATA lt_hire TYPE STANDARD TABLE OF {{p}}hire WITH EMPTY KEY.
|
|
lt_hire = VALUE #(
|
|
( hire_id = '0000000011' kiosk_id = 'K1' hire_date = '20250704' )
|
|
( hire_id = '0000000012' kiosk_id = 'K1' hire_date = '20250704' )
|
|
( hire_id = '0000000013' kiosk_id = 'K2' hire_date = '20250704' ) ).
|
|
go_env->insert_test_data( lt_hire ).
|
|
SELECT COUNT(*) FROM {{p}}hire WHERE kiosk_id = 'K1' INTO @DATA(lv_count).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_count ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|