mirror of
https://github.com/abap2xlsx/abap2xlsx.git
synced 2025-05-05 22:07:30 +08:00
04b143ca2e
* zcl_excel_theme_fmt_scheme, add unit test * replace use of cl_xml_document --------- Co-authored-by: Abo <andrea@borgia.bo.it>
55 lines
1.4 KiB
ABAP
55 lines
1.4 KiB
ABAP
CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
METHODS build_xml FOR TESTING.
|
|
|
|
DATA mi_ixml TYPE REF TO if_ixml.
|
|
DATA mi_document TYPE REF TO if_ixml_document.
|
|
METHODS setup.
|
|
METHODS render
|
|
RETURNING
|
|
VALUE(rv_xml) TYPE string.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS ltcl_test IMPLEMENTATION.
|
|
|
|
METHOD setup.
|
|
mi_ixml = cl_ixml=>create( ).
|
|
mi_document = mi_ixml->create_document( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD render.
|
|
DATA li_ostream TYPE REF TO if_ixml_ostream.
|
|
DATA li_renderer TYPE REF TO if_ixml_renderer.
|
|
DATA li_factory TYPE REF TO if_ixml_stream_factory.
|
|
|
|
li_factory = mi_ixml->create_stream_factory( ).
|
|
li_ostream = li_factory->create_ostream_cstring( rv_xml ).
|
|
li_renderer = mi_ixml->create_renderer(
|
|
ostream = li_ostream
|
|
document = mi_document ).
|
|
li_renderer->render( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD build_xml.
|
|
DATA lo_theme_fmt TYPE REF TO zcl_excel_theme_fmt_scheme.
|
|
DATA li_ixml TYPE REF TO if_ixml.
|
|
DATA li_document TYPE REF TO if_ixml_document.
|
|
DATA lv_xml TYPE string.
|
|
|
|
mi_document->create_simple_element(
|
|
name = zcl_excel_theme=>c_theme_elements
|
|
parent = mi_document ).
|
|
|
|
CREATE OBJECT lo_theme_fmt.
|
|
lo_theme_fmt->build_xml( mi_document ).
|
|
|
|
lv_xml = render( ).
|
|
|
|
cl_abap_unit_assert=>assert_char_cp(
|
|
act = lv_xml
|
|
exp = '*<a:fmtScheme name="Office">*' ).
|
|
ENDMETHOD.
|
|
|
|
ENDCLASS.
|