56 lines
2.1 KiB
ABAP
56 lines
2.1 KiB
ABAP
CLASS {{p}}svc_job_test DEFINITION PUBLIC FINAL CREATE PUBLIC
|
|
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
METHODS structure_exists FOR TESTING.
|
|
METHODS field_count FOR TESTING.
|
|
METHODS net_value_type FOR TESTING.
|
|
METHODS base_created_by_type FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}svc_job_test IMPLEMENTATION.
|
|
METHOD structure_exists.
|
|
DATA lo_descr TYPE REF TO cl_abap_typedescr.
|
|
TRY.
|
|
lo_descr = cl_abap_typedescr=>describe_by_name( '{{P}}SVC_JOB' ).
|
|
CATCH cx_root.
|
|
CLEAR lo_descr.
|
|
ENDTRY.
|
|
cl_abap_unit_assert=>assert_bound( act = lo_descr ).
|
|
ENDMETHOD.
|
|
|
|
METHOD field_count.
|
|
DATA lo_structdescr TYPE REF TO cl_abap_structdescr.
|
|
DATA lt_fields TYPE ddfields.
|
|
lo_structdescr ?= cl_abap_typedescr=>describe_by_name( '{{P}}SVC_JOB' ).
|
|
lt_fields = lo_structdescr->get_ddic_field_list( ).
|
|
DELETE lt_fields WHERE fieldname CP '.*'.
|
|
cl_abap_unit_assert=>assert_equals( exp = 10 act = lines( lt_fields ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD net_value_type.
|
|
DATA lo_structdescr TYPE REF TO cl_abap_structdescr.
|
|
DATA lt_fields TYPE ddfields.
|
|
DATA ls_field TYPE dfies.
|
|
lo_structdescr ?= cl_abap_typedescr=>describe_by_name( '{{P}}SVC_JOB' ).
|
|
lt_fields = lo_structdescr->get_ddic_field_list( ).
|
|
READ TABLE lt_fields INTO ls_field WITH KEY fieldname = 'NET_VALUE'.
|
|
cl_abap_unit_assert=>assert_equals( exp = `DEC`
|
|
act = CONV string( ls_field-datatype ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 13 act = ls_field-leng ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = ls_field-decimals ).
|
|
ENDMETHOD.
|
|
|
|
METHOD base_created_by_type.
|
|
DATA lo_structdescr TYPE REF TO cl_abap_structdescr.
|
|
DATA lt_fields TYPE ddfields.
|
|
DATA ls_field TYPE dfies.
|
|
lo_structdescr ?= cl_abap_typedescr=>describe_by_name( '{{P}}SVC_BASE' ).
|
|
lt_fields = lo_structdescr->get_ddic_field_list( ).
|
|
READ TABLE lt_fields INTO ls_field WITH KEY fieldname = 'CREATED_BY'.
|
|
cl_abap_unit_assert=>assert_equals( exp = `CHAR`
|
|
act = CONV string( ls_field-datatype ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 12 act = ls_field-leng ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|