zcl_excel_theme_fmt_scheme, add unit test

src/zcl_excel_theme_fmt_scheme.clas.abap

@@ -23,7 +23,7 @@ ENDCLASS.
 
 
 
-CLASS zcl_excel_theme_fmt_scheme IMPLEMENTATION.
+CLASS ZCL_EXCEL_THEME_FMT_SCHEME IMPLEMENTATION.
 
 
   METHOD build_xml.

src/zcl_excel_theme_fmt_scheme.clas.testclasses.abap

@@ -0,0 +1,54 @@
+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.

src/zcl_excel_theme_fmt_scheme.clas.xml

@@ -10,6 +10,7 @@
     <CLSCCINCL>X</CLSCCINCL>
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
+    <WITH_UNIT_TESTS>X</WITH_UNIT_TESTS>
    </VSEOCLASS>
   </asx:values>
  </asx:abap>