Die verwendete Hilfs-Klasse

Die in diesem Kapitel dargestellte Hilfsklasse "YCL_LFET_UTIL" wird von unserem Testprogramm verwendet und ist hier nur "der Vollständigkeit halber" abgebildet. Wenn Sie die Tests nicht selbst nach­voll­zie­hen und ausführen wollen, dann können Sie dieses Kapitel überspringen.

Die Klasse verwendet die folgenden Attribute…​

image5457 22

…​und enthält 3 Methoden:

image5457 23

image5457 24

METHODsetup.

CLEARmd_counttests.

CLEARmd_countfailed.

md_repid=id_repid.

ENDMETHOD.

image5457 25

image5457 26

METHODteardown.

DATA:

lt_textTYPE TABLE OFstring,

ld_textLIKE LINE OFlt_text,

ld_linnoTYPEsylinno.

IFmd_counttests >0ANDmd_countfailed=0.

WRITE:/,/'OK:',(*)md_repid.

ELSE.

WRITE:/,/'FEHLER:',(*)md_repid.

ENDIF.

WRITE:', Ausgeführte Testfälle:',(*)md_counttests,

', davon fehlerhaft:',(*)md_countfailed.

WRITE:/.

  • write screen content to the file

ld_linno=sy-linno-2.

DOld_linnoTIMES.

READ LINEsy-index LINE VALUE INTOld_text.

APPENDld_textTOlt_text.

ENDDO.

DELETElt_textFROM1TO2.

CALL METHODcl_gui_frontend_services⇒gui_download

EXPORTING

filename=id_filename

filetype='ASC'

CHANGING

data_tab=lt_text

EXCEPTIONS

OTHERS=1.

IFsy-subrc <>0.

MESSAGE IDsy-msgidTYPEsy-msgtyNUMBERsy-msgno

WITHsy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISINGwrite_error.

ENDIF.

ENDMETHOD.

image5457 27

METHODcheck_result.

DATA:

ld_textTYPEchar255,

ld_context_infoLIKE LINE OFit_context_info.

ADD1TOmd_counttests.

IFid_resultNEid_expectedresultOR

id_result2NEid_expectedresult2OR

id_result3NEid_expectedresult3OR

id_subrcNEid_expectedsubrc.

ADD1TOmd_countfailed.

WRITE/.

WRITE:/(*)md_repid,', Fehler in Testfall:',md_counttests.

LOOP ATit_context_infoINTOld_context_info.

WRITE:/ ld_context_info.

ENDLOOP.

WRITE:id_expectedresultTOld_text.

CONDENSEld_text.

CONCATENATE’expectedResult='ld_textINTOld_text

SEPARATED BYspace.

WRITEld_text.

WRITE:id_resultTOld_text.

CONDENSEld_text.

CONCATENATE’result='ld_textINTOld_text

SEPARATED BYspace.

WRITEld_text.

IFid_expectedresult2IS SUPPLIED.

WRITE:id_expectedresult2TOld_text.

CONDENSEld_text.

CONCATENATE’expectedResult2='ld_textINTOld_text

SEPARATED BYspace.

WRITEld_text.

WRITE:id_result2TOld_text.

CONDENSEld_text.

CONCATENATE’result2='ld_textINTOld_text

SEPARATED BYspace.

WRITEld_text.

ENDIF.

IFid_expectedresult3IS SUPPLIED.

WRITE:id_expectedresult3TOld_text.

CONDENSEld_text.

CONCATENATE’expectedResult3='ld_textINTOld_text

SEPARATED BYspace.

WRITEld_text.

WRITE:id_result3TOld_text.

CONDENSEld_text.

CONCATENATE’result3='ld_textINTOld_text

SEPARATED BYspace.

WRITEld_text.

ENDIF.

IFid_expectedsubrcIS SUPPLIED.

WRITE:id_expectedsubrcTOld_text.

CONDENSEld_text.

CONCATENATE’expectedSubrc='ld_textINTOld_text

SEPARATED BYspace.

WRITEld_text.

WRITE:id_subrcTOld_text.

CONDENSEld_text.

CONCATENATE’Subrc='ld_textINTOld_text

SEPARATED BYspace.

WRITEld_text.

ENDIF.

WRITEmd_counttestsTOld_text.

CONDENSEld_text.

CONCATENATE’Fehler in Testfall’ld_textINTOld_text

SEPARATED BYspace.

CALL METHODcl_aunit_assert⇒assert_equals

EXPORTING

exp=id_expectedresult

act=id_result

msg=ld_text

quit='0'.

ENDIF.

ENDMETHOD.