31 lines
658 B
ABAP
31 lines
658 B
ABAP
CLASS ltcl_hello_world DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT FINAL.
|
|
|
|
PUBLIC SECTION.
|
|
INTERFACES if_oo_adt_classrun_out.
|
|
|
|
PRIVATE SECTION.
|
|
METHODS test FOR TESTING RAISING cx_static_check.
|
|
DATA text TYPE string.
|
|
|
|
ENDCLASS.
|
|
|
|
CLASS ltcl_hello_world IMPLEMENTATION.
|
|
|
|
METHOD test.
|
|
CAST if_oo_adt_classrun( NEW zcl_hello_world( ) )->main( me ).
|
|
|
|
cl_abap_unit_assert=>assert_equals(
|
|
act = if_oo_adt_classrun_out~get( )
|
|
exp = 'Hello, World' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD if_oo_adt_classrun_out~write.
|
|
text = data.
|
|
ENDMETHOD.
|
|
|
|
METHOD if_oo_adt_classrun_out~get.
|
|
output = text.
|
|
ENDMETHOD.
|
|
|
|
ENDCLASS.
|