65 lines
2.3 KiB
ABAP
65 lines
2.3 KiB
ABAP
CLASS {{p}}grh_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 stores_all_values FOR TESTING.
|
|
METHODS rejects_duplicate_key FOR TESTING.
|
|
METHODS has_expected_fields FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}grh_test IMPLEMENTATION.
|
|
METHOD class_setup.
|
|
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}GRH' ) ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD class_teardown.
|
|
go_env->destroy( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD setup.
|
|
go_env->clear_doubles( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD stores_all_values.
|
|
DATA lt_grh TYPE STANDARD TABLE OF {{p}}grh WITH EMPTY KEY.
|
|
lt_grh = VALUE #( ( client = sy-mandt harvest_id = 'H1' vineyard_id = 'VINE01'
|
|
grape = 'RIESLING' harvest_date = '20240901'
|
|
crates = 14 weight_kg = '212.500' grade = 'A' organic = 'X' ) ).
|
|
INSERT {{p}}grh FROM TABLE @lt_grh.
|
|
cl_abap_unit_assert=>assert_subrc( exp = 0 ).
|
|
|
|
SELECT SINGLE vineyard_id, crates FROM {{p}}grh WHERE harvest_id = 'H1'
|
|
INTO @DATA(ls_grh).
|
|
cl_abap_unit_assert=>assert_subrc( exp = 0 ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'VINE01' act = ls_grh-vineyard_id ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 14 act = ls_grh-crates ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rejects_duplicate_key.
|
|
DATA lt_grh TYPE STANDARD TABLE OF {{p}}grh WITH EMPTY KEY.
|
|
lt_grh = VALUE #( ( client = sy-mandt harvest_id = 'D1' vineyard_id = 'VINE02' ) ).
|
|
INSERT {{p}}grh FROM TABLE @lt_grh.
|
|
cl_abap_unit_assert=>assert_subrc( exp = 0 ).
|
|
|
|
TRY.
|
|
INSERT {{p}}grh FROM TABLE @lt_grh.
|
|
cl_abap_unit_assert=>fail( msg = 'A duplicate key must not be accepted' ).
|
|
CATCH cx_sy_open_sql_db.
|
|
" expected: the key is unique
|
|
ENDTRY.
|
|
|
|
SELECT COUNT(*) FROM {{p}}grh WHERE harvest_id = 'D1' INTO @DATA(lv_count).
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_count ).
|
|
ENDMETHOD.
|
|
|
|
METHOD has_expected_fields.
|
|
DATA(lo_descr) = CAST cl_abap_structdescr( cl_abap_typedescr=>describe_by_name( '{{P}}GRH' ) ).
|
|
DATA(lt_fields) = lo_descr->get_ddic_field_list( ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 9 act = lines( lt_fields ) ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|