From 9f2812758f994389649dd3d7e8e9c5550bfb372e Mon Sep 17 00:00:00 2001
From: larshp <larshp@hotmail.com>
Date: Wed, 26 Jul 2023 17:03:00 +0000
Subject: [PATCH] add basic unit test for style changer

---
 src/zcl_excel_style_changer.clas.abap         |  7 ++--
 ..._excel_style_changer.clas.testclasses.abap | 41 +++++++++++++++++++
 2 files changed, 44 insertions(+), 4 deletions(-)
 create mode 100644 src/zcl_excel_style_changer.clas.testclasses.abap

diff --git a/src/zcl_excel_style_changer.clas.abap b/src/zcl_excel_style_changer.clas.abap
index 26a216d..fca10e2 100644
--- a/src/zcl_excel_style_changer.clas.abap
+++ b/src/zcl_excel_style_changer.clas.abap
@@ -5,16 +5,15 @@ CLASS zcl_excel_style_changer DEFINITION
 
   PUBLIC SECTION.
 
-    INTERFACES zif_excel_style_changer.
+    INTERFACES zif_excel_style_changer .
 
     CLASS-METHODS create
       IMPORTING
-        excel         TYPE REF TO zcl_excel
+        !excel        TYPE REF TO zcl_excel
       RETURNING
         VALUE(result) TYPE REF TO zif_excel_style_changer
       RAISING
-        zcx_excel.
-
+        zcx_excel .
   PROTECTED SECTION.
   PRIVATE SECTION.
 
diff --git a/src/zcl_excel_style_changer.clas.testclasses.abap b/src/zcl_excel_style_changer.clas.testclasses.abap
new file mode 100644
index 0000000..352d324
--- /dev/null
+++ b/src/zcl_excel_style_changer.clas.testclasses.abap
@@ -0,0 +1,41 @@
+CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL.
+
+  PRIVATE SECTION.
+    DATA mi_cut       TYPE REF TO zif_excel_style_changer.
+    DATA mo_excel     TYPE REF TO zcl_excel.
+    DATA mo_worksheet TYPE REF TO zcl_excel_worksheet.
+
+    METHODS setup RAISING cx_static_check.
+    METHODS apply FOR TESTING RAISING cx_static_check.
+ENDCLASS.
+
+
+CLASS ltcl_test IMPLEMENTATION.
+
+  METHOD setup.
+    CREATE OBJECT mo_excel.
+    mo_worksheet = mo_excel->get_active_worksheet( ).
+    mi_cut = zcl_excel_style_changer=>create( mo_excel ).
+  ENDMETHOD.
+
+  METHOD apply.
+
+    DATA lv_guid TYPE zexcel_cell_style.
+
+    mo_worksheet->set_cell(
+      ip_column = 'B'
+      ip_row    = 2
+      ip_value  = 'Hello' ).
+
+    mi_cut->set_font_bold( abap_true ).
+
+    lv_guid = mi_cut->apply(
+      ip_worksheet = mo_worksheet
+      ip_column    = 'B'
+      ip_row       = 2 ).
+
+    mo_excel->get_style_to_guid( lv_guid ).
+
+  ENDMETHOD.
+
+ENDCLASS.