87 lines
3.5 KiB
ABAP
87 lines
3.5 KiB
ABAP
CLASS {{p}}t33_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
|
|
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
CLASS-DATA go_env TYPE REF TO if_cds_test_environment.
|
|
CLASS-METHODS class_setup.
|
|
CLASS-METHODS class_teardown.
|
|
METHODS setup.
|
|
METHODS small_grade FOR TESTING.
|
|
METHODS medium_grade FOR TESTING.
|
|
METHODS large_grade FOR TESTING.
|
|
METHODS height_in_metres FOR TESTING.
|
|
METHODS grade_text_value FOR TESTING.
|
|
METHODS row_count FOR TESTING.
|
|
METHODS species_shown FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}t33_hidden IMPLEMENTATION.
|
|
METHOD class_setup.
|
|
go_env = cl_cds_test_environment=>create( i_for_entity = '{{P}}I_PLANT_GRADE' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD class_teardown.
|
|
go_env->destroy( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD setup.
|
|
DATA lt_plant TYPE STANDARD TABLE OF {{p}}plant WITH EMPTY KEY.
|
|
go_env->clear_doubles( ).
|
|
lt_plant = VALUE #( ( tree_id = 'T1' species = 'OAK' height_cm = 99 )
|
|
( tree_id = 'T2' species = 'OAK' height_cm = 150 )
|
|
( tree_id = 'T3' species = 'PINE' height_cm = 200 )
|
|
( tree_id = 'T4' species = 'PINE' height_cm = 100 )
|
|
( tree_id = 'T5' species = 'BIRCH' height_cm = 199 )
|
|
( tree_id = 'T6' species = 'BIRCH' height_cm = 250 ) ).
|
|
go_env->insert_test_data( lt_plant ).
|
|
ENDMETHOD.
|
|
|
|
METHOD small_grade.
|
|
DATA lv_grade TYPE c LENGTH 1.
|
|
SELECT SINGLE grade FROM {{p}}i_plant_grade WHERE tree_id = 'T1' INTO @lv_grade.
|
|
cl_abap_unit_assert=>assert_equals( exp = 'S' act = lv_grade ).
|
|
ENDMETHOD.
|
|
|
|
METHOD medium_grade.
|
|
DATA lv_grade TYPE c LENGTH 1.
|
|
SELECT SINGLE grade FROM {{p}}i_plant_grade WHERE tree_id = 'T2' INTO @lv_grade.
|
|
cl_abap_unit_assert=>assert_equals( exp = 'M' act = lv_grade ).
|
|
SELECT SINGLE grade FROM {{p}}i_plant_grade WHERE tree_id = 'T4' INTO @lv_grade.
|
|
cl_abap_unit_assert=>assert_equals( exp = 'M' act = lv_grade ).
|
|
SELECT SINGLE grade FROM {{p}}i_plant_grade WHERE tree_id = 'T5' INTO @lv_grade.
|
|
cl_abap_unit_assert=>assert_equals( exp = 'M' act = lv_grade ).
|
|
ENDMETHOD.
|
|
|
|
METHOD large_grade.
|
|
DATA lv_grade TYPE c LENGTH 1.
|
|
SELECT SINGLE grade FROM {{p}}i_plant_grade WHERE tree_id = 'T3' INTO @lv_grade.
|
|
cl_abap_unit_assert=>assert_equals( exp = 'L' act = lv_grade ).
|
|
SELECT SINGLE grade FROM {{p}}i_plant_grade WHERE tree_id = 'T6' INTO @lv_grade.
|
|
cl_abap_unit_assert=>assert_equals( exp = 'L' act = lv_grade ).
|
|
ENDMETHOD.
|
|
|
|
METHOD height_in_metres.
|
|
SELECT SINGLE height_m FROM {{p}}i_plant_grade WHERE tree_id = 'T2' INTO @DATA(lv_height).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '1.50' )
|
|
act = CONV decfloat34( lv_height ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD grade_text_value.
|
|
DATA lv_text TYPE c LENGTH 30.
|
|
SELECT SINGLE grade_text FROM {{p}}i_plant_grade WHERE tree_id = 'T1' INTO @lv_text.
|
|
cl_abap_unit_assert=>assert_equals( exp = 'S-OAK' act = lv_text ).
|
|
SELECT SINGLE grade_text FROM {{p}}i_plant_grade WHERE tree_id = 'T3' INTO @lv_text.
|
|
cl_abap_unit_assert=>assert_equals( exp = 'L-PINE' act = lv_text ).
|
|
ENDMETHOD.
|
|
|
|
METHOD row_count.
|
|
SELECT COUNT(*) FROM {{p}}i_plant_grade INTO @DATA(lv_count).
|
|
cl_abap_unit_assert=>assert_equals( exp = 6 act = lv_count ).
|
|
ENDMETHOD.
|
|
|
|
METHOD species_shown.
|
|
SELECT SINGLE species FROM {{p}}i_plant_grade WHERE tree_id = 'T3' INTO @DATA(lv_species).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'PINE' act = lv_species ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|