added json_to_abap for time

Author: oblomov-dev

src/core/zcl_ajson.clas.locals_imp.abap

@@ -663,6 +663,14 @@ class lcl_json_to_abap definition final.
       raising
         zcx_ajson_error.
 
+    methods to_time
+      IMPORTING
+        iv_value         TYPE z2ui5_if_ajson_types=>ty_node-value
+      RETURNING
+        VALUE(rv_result) TYPE t
+      RAISING
+        z2ui5_cx_ajson_error.
+
   private section.
 
     types:
@@ -977,6 +985,8 @@ class lcl_json_to_abap implementation.
         " TODO: check type ?
         if is_node_type-type_kind = lif_kind=>date and is_node-value is not initial.
           <container> = to_date( is_node-value ).
+        elseif is_node_type-type_kind = lif_kind=>time and is_node-value is not initial.
+          <container> = to_time( is_node-value ).
         elseif is_node_type-type_kind = lif_kind=>packed and is_node-value is not initial.
           <container> = to_timestamp( is_node-value ).
         else.
@@ -1086,6 +1096,22 @@ class lcl_json_to_abap implementation.
 
   endmethod.
 
+  method to_time.
+
+    DATA lv_h TYPE c LENGTH 2.
+    DATA lv_m TYPE c LENGTH 2.
+    DATA lv_s TYPE c LENGTH 2.
+
+    FIND FIRST OCCURRENCE OF REGEX '^(\d{2}):(\d{2}):(\d{2})(T|$)' "#EC NOTEXT
+      IN iv_value
+      SUBMATCHES lv_h lv_m lv_s.
+    IF sy-subrc <> 0.
+      z2ui5_cx_ajson_error=>raise( 'Unexpected time format' ).
+    ENDIF.
+    CONCATENATE lv_h lv_m lv_s INTO rv_result.
+
+  endmethod.
+
 endclass.
 
 **********************************************************************

src/core/zcl_ajson.clas.testclasses.abap

@@ -1457,7 +1457,9 @@ class ltcl_json_to_abap definition
     methods to_abap_corresponding_pub_neg
       for testing
       raising zcx_ajson_error.
-
+    methods to_abap_time
+                FOR TESTING
+      reaising cx_static_check.
 endclass.
 
 class zcl_ajson definition local friends ltcl_json_to_abap.
@@ -1534,6 +1536,28 @@ class ltcl_json_to_abap implementation.
 
   endmethod.
 
+  METHOD to_abap_time.
+
+    DATA lo_cut TYPE REF TO lcl_json_to_abap.
+    DATA lv_mock TYPE t.
+    DATA lo_nodes TYPE REF TO lcl_nodes_helper.
+
+    CREATE OBJECT lo_nodes.
+    lo_nodes->add( '       |           |str    |11:11:11| ' ).
+
+    CREATE OBJECT lo_cut.
+    lo_cut->to_abap(
+      EXPORTING
+        it_nodes    = lo_nodes->sorted( )
+      CHANGING
+        c_container = lv_mock ).
+
+    cl_abap_unit_assert=>assert_equals(
+      act = lv_mock
+      exp = '111111' ).
+
+  ENDMETHOD.
+
   method to_abap_value.
 
     data lo_cut type ref to lcl_json_to_abap.