mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-01 12:20:51 +08:00
b7eab01b6b
Co-authored-by: larshp <larshp@users.noreply.github.com> Co-authored-by: Lars Hvam <larshp@hotmail.com>
114 lines
2.7 KiB
ABAP
114 lines
2.7 KiB
ABAP
class ltcl_error definition
|
|
for testing
|
|
risk level harmless
|
|
duration short
|
|
final.
|
|
|
|
private section.
|
|
|
|
methods raise for testing.
|
|
methods raise_w_location for testing.
|
|
methods raise_w_node for testing.
|
|
methods set_location for testing.
|
|
|
|
endclass.
|
|
|
|
class ltcl_error implementation.
|
|
|
|
method raise.
|
|
|
|
data lx type ref to zcx_abapgit_ajson_error.
|
|
data lv_msg type string.
|
|
|
|
lv_msg = repeat( val = 'a'
|
|
occ = 50 ) && repeat( val = 'b'
|
|
occ = 50 ) && '123'.
|
|
|
|
try.
|
|
zcx_abapgit_ajson_error=>raise( lv_msg ).
|
|
cl_abap_unit_assert=>fail( ).
|
|
catch zcx_abapgit_ajson_error into lx.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = lv_msg
|
|
act = lx->get_text( ) ).
|
|
endtry.
|
|
|
|
endmethod.
|
|
|
|
method raise_w_location.
|
|
|
|
data lx type ref to zcx_abapgit_ajson_error.
|
|
|
|
try.
|
|
zcx_abapgit_ajson_error=>raise( iv_msg = 'a'
|
|
iv_location = 'b' ).
|
|
cl_abap_unit_assert=>fail( ).
|
|
catch zcx_abapgit_ajson_error into lx.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = 'a @b'
|
|
act = lx->get_text( ) ).
|
|
endtry.
|
|
|
|
endmethod.
|
|
|
|
method raise_w_node.
|
|
|
|
data lx type ref to zcx_abapgit_ajson_error.
|
|
data ls_node type zif_abapgit_ajson_types=>ty_node.
|
|
|
|
ls_node-path = '/x/'.
|
|
ls_node-name = 'y'.
|
|
|
|
try.
|
|
zcx_abapgit_ajson_error=>raise( iv_msg = 'a'
|
|
is_node = ls_node ).
|
|
cl_abap_unit_assert=>fail( ).
|
|
catch zcx_abapgit_ajson_error into lx.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = 'a @/x/y'
|
|
act = lx->get_text( ) ).
|
|
endtry.
|
|
|
|
endmethod.
|
|
|
|
method set_location.
|
|
|
|
data lx type ref to zcx_abapgit_ajson_error.
|
|
|
|
try.
|
|
zcx_abapgit_ajson_error=>raise( iv_msg = 'a'
|
|
iv_location = 'b' ).
|
|
cl_abap_unit_assert=>fail( ).
|
|
catch zcx_abapgit_ajson_error into lx.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = lx->location
|
|
act = 'b' ).
|
|
lx->set_location( 'c' ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = lx->location
|
|
act = 'c' ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = 'a @c'
|
|
act = lx->get_text( ) ).
|
|
endtry.
|
|
|
|
try.
|
|
zcx_abapgit_ajson_error=>raise( iv_msg = 'a' ).
|
|
cl_abap_unit_assert=>fail( ).
|
|
catch zcx_abapgit_ajson_error into lx.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = lx->location
|
|
act = '' ).
|
|
lx->set_location( 'c' ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = lx->location
|
|
act = 'c' ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = 'a @c'
|
|
act = lx->get_text( ) ).
|
|
endtry.
|
|
|
|
endmethod.
|
|
|
|
endclass.
|