mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-03 05:18:59 +08:00
54 lines
1001 B
ABAP
54 lines
1001 B
ABAP
|
|
CLASS ltcl_test DEFINITION FOR TESTING
|
|
DURATION SHORT
|
|
RISK LEVEL HARMLESS FINAL.
|
|
|
|
PRIVATE SECTION.
|
|
METHODS test FOR TESTING.
|
|
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS ltcl_test IMPLEMENTATION.
|
|
|
|
METHOD test.
|
|
|
|
DATA: lo_stream TYPE REF TO zcl_abapgit_zlib_stream,
|
|
lv_remaining TYPE i,
|
|
lv_int TYPE i,
|
|
lv_bits TYPE string,
|
|
lv_bytes TYPE xstring.
|
|
|
|
|
|
CREATE OBJECT lo_stream
|
|
EXPORTING
|
|
iv_data = '112233445566'.
|
|
|
|
lv_bits = lo_stream->take_bits( 8 ).
|
|
|
|
cl_abap_unit_assert=>assert_equals(
|
|
act = lv_bits
|
|
exp = '00010001' ).
|
|
|
|
lv_remaining = lo_stream->remaining( ).
|
|
|
|
cl_abap_unit_assert=>assert_equals(
|
|
act = lv_remaining
|
|
exp = 6 ).
|
|
|
|
lv_int = lo_stream->take_int( 8 ).
|
|
|
|
cl_abap_unit_assert=>assert_equals(
|
|
act = lv_int
|
|
exp = 34 ).
|
|
|
|
lv_bytes = lo_stream->take_bytes( 2 ).
|
|
|
|
cl_abap_unit_assert=>assert_equals(
|
|
act = lv_bytes
|
|
exp = '3344' ).
|
|
|
|
ENDMETHOD.
|
|
|
|
ENDCLASS.
|