125 lines
4.9 KiB
ABAP
125 lines
4.9 KiB
ABAP
CLASS {{p}}t02_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
|
|
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
|
|
PUBLIC SECTION.
|
|
INTERFACES {{p}}if_log_plan.
|
|
|
|
PRIVATE SECTION.
|
|
METHODS reason_ok FOR TESTING.
|
|
METHODS reason_size FOR TESTING.
|
|
METHODS reason_thick FOR TESTING.
|
|
METHODS reason_width FOR TESTING.
|
|
METHODS reason_len FOR TESTING.
|
|
METHODS limits_are_set FOR TESTING.
|
|
METHODS reason_type_is_char10 FOR TESTING.
|
|
METHODS count_type_is_integer FOR TESTING.
|
|
METHODS log_type_is_two_ints FOR TESTING.
|
|
METHODS board_type_is_two_ints FOR TESTING.
|
|
METHODS signatures_match FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}t02_hidden IMPLEMENTATION.
|
|
METHOD {{p}}if_log_plan~check.
|
|
rv_reason = {{p}}if_log_plan=>c_reason-ok.
|
|
ENDMETHOD.
|
|
|
|
METHOD {{p}}if_log_plan~board_count.
|
|
rv_count = 0.
|
|
ENDMETHOD.
|
|
|
|
METHOD reason_ok.
|
|
cl_abap_unit_assert=>assert_equals( exp = 'OK'
|
|
act = {{p}}if_log_plan=>c_reason-ok ).
|
|
ENDMETHOD.
|
|
|
|
METHOD reason_size.
|
|
cl_abap_unit_assert=>assert_equals( exp = 'SIZE'
|
|
act = {{p}}if_log_plan=>c_reason-size ).
|
|
ENDMETHOD.
|
|
|
|
METHOD reason_thick.
|
|
cl_abap_unit_assert=>assert_equals( exp = 'THICK'
|
|
act = {{p}}if_log_plan=>c_reason-thick ).
|
|
ENDMETHOD.
|
|
|
|
METHOD reason_width.
|
|
cl_abap_unit_assert=>assert_equals( exp = 'WIDTH'
|
|
act = {{p}}if_log_plan=>c_reason-width ).
|
|
ENDMETHOD.
|
|
|
|
METHOD reason_len.
|
|
cl_abap_unit_assert=>assert_equals( exp = 'LEN'
|
|
act = {{p}}if_log_plan=>c_reason-len ).
|
|
ENDMETHOD.
|
|
|
|
METHOD limits_are_set.
|
|
cl_abap_unit_assert=>assert_equals( exp = 20 act = {{p}}if_log_plan=>c_min_thick ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 100 act = {{p}}if_log_plan=>c_max_thick ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 100 act = {{p}}if_log_plan=>c_min_len ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = cl_abap_typedescr=>typekind_int
|
|
act = cl_abap_typedescr=>describe_by_data( {{p}}if_log_plan=>c_min_thick )->type_kind ).
|
|
ENDMETHOD.
|
|
|
|
METHOD reason_type_is_char10.
|
|
DATA lv_reason TYPE {{p}}if_log_plan=>ty_reason.
|
|
DATA lv_len TYPE i.
|
|
DESCRIBE FIELD lv_reason LENGTH lv_len IN CHARACTER MODE.
|
|
cl_abap_unit_assert=>assert_equals( exp = 10 act = lv_len ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = cl_abap_typedescr=>typekind_char
|
|
act = cl_abap_typedescr=>describe_by_data( lv_reason )->type_kind ).
|
|
ENDMETHOD.
|
|
|
|
METHOD count_type_is_integer.
|
|
DATA lv_count TYPE {{p}}if_log_plan=>ty_count.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = cl_abap_typedescr=>typekind_int
|
|
act = cl_abap_typedescr=>describe_by_data( lv_count )->type_kind ).
|
|
ENDMETHOD.
|
|
|
|
METHOD log_type_is_two_ints.
|
|
DATA(ls_log) = VALUE {{p}}if_log_plan=>ty_log( dia = 300 len = 400 ).
|
|
DATA(lo_descr) = CAST cl_abap_structdescr(
|
|
cl_abap_typedescr=>describe_by_data( ls_log ) ).
|
|
DATA(lt_comp) = lo_descr->get_components( ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_comp ) ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = cl_abap_typedescr=>typekind_int
|
|
act = cl_abap_typedescr=>describe_by_data( ls_log-dia )->type_kind ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = cl_abap_typedescr=>typekind_int
|
|
act = cl_abap_typedescr=>describe_by_data( ls_log-len )->type_kind ).
|
|
ENDMETHOD.
|
|
|
|
METHOD board_type_is_two_ints.
|
|
DATA(ls_board) = VALUE {{p}}if_log_plan=>ty_board( thick = 40 width = 200 ).
|
|
DATA(lo_descr) = CAST cl_abap_structdescr(
|
|
cl_abap_typedescr=>describe_by_data( ls_board ) ).
|
|
DATA(lt_comp) = lo_descr->get_components( ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_comp ) ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = cl_abap_typedescr=>typekind_int
|
|
act = cl_abap_typedescr=>describe_by_data( ls_board-thick )->type_kind ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = cl_abap_typedescr=>typekind_int
|
|
act = cl_abap_typedescr=>describe_by_data( ls_board-width )->type_kind ).
|
|
ENDMETHOD.
|
|
|
|
METHOD signatures_match.
|
|
DATA(ls_log) = VALUE {{p}}if_log_plan=>ty_log( dia = 300 len = 400 ).
|
|
DATA(ls_board) = VALUE {{p}}if_log_plan=>ty_board( thick = 40 width = 200 ).
|
|
DATA(lv_reason) = me->{{p}}if_log_plan~check( is_log = ls_log is_board = ls_board ).
|
|
DATA(lv_count) = me->{{p}}if_log_plan~board_count( is_log = ls_log is_board = ls_board ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_log_plan=>c_reason-ok act = lv_reason ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_count ).
|
|
DATA lv_len TYPE i.
|
|
DESCRIBE FIELD lv_reason LENGTH lv_len IN CHARACTER MODE.
|
|
cl_abap_unit_assert=>assert_equals( exp = 10 act = lv_len ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = cl_abap_typedescr=>typekind_int
|
|
act = cl_abap_typedescr=>describe_by_data( lv_count )->type_kind ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|