Merge pull request #5 from sbcgua/case-insensitive

case insensitive support

Author: sbcgua

src/zcl_abap_string_map.clas.abap

@@ -21,11 +21,13 @@ class zcl_abap_string_map definition
 
     class-methods create
       importing
+        !iv_case_insensitive type abap_bool default abap_false
         !iv_from type any optional
       returning
         value(ro_instance) type ref to zcl_abap_string_map .
     methods constructor
       importing
+        !iv_case_insensitive type abap_bool default abap_false
         !iv_from type any optional.
 
     methods get
@@ -80,6 +82,7 @@ class zcl_abap_string_map definition
   private section.
     data mv_is_strict type abap_bool.
     data mv_read_only type abap_bool.
+    data mv_case_insensitive type abap_bool.
 ENDCLASS.
 
 
@@ -100,6 +103,7 @@ CLASS ZCL_ABAP_STRING_MAP IMPLEMENTATION.
 
   method constructor.
     mv_is_strict = abap_true.
+    mv_case_insensitive = iv_case_insensitive.
 
     if iv_from is not initial.
       data lo_type type ref to cl_abap_typedescr.
@@ -130,7 +134,10 @@ CLASS ZCL_ABAP_STRING_MAP IMPLEMENTATION.
 
 
   method create.
-    create object ro_instance exporting iv_from = iv_from.
+    create object ro_instance
+      exporting
+        iv_case_insensitive = iv_case_insensitive
+        iv_from = iv_from.
   endmethod.
 
 
@@ -201,8 +208,16 @@ CLASS ZCL_ABAP_STRING_MAP IMPLEMENTATION.
 
   method get.
 
+    data lv_key like iv_key.
     field-symbols <entry> like line of mt_entries.
-    read table mt_entries assigning <entry> with key k = iv_key.
+
+    if mv_case_insensitive = abap_true.
+      lv_key = to_upper( iv_key ).
+    else.
+      lv_key = iv_key.
+    endif.
+
+    read table mt_entries assigning <entry> with key k = lv_key.
     if sy-subrc = 0.
       rv_val = <entry>-v.
     endif.
@@ -236,17 +251,24 @@ CLASS ZCL_ABAP_STRING_MAP IMPLEMENTATION.
   method set.
 
     data ls_entry like line of mt_entries.
+    data lv_key like iv_key.
     field-symbols <entry> like line of mt_entries.
 
     if mv_read_only = abap_true.
       lcx_error=>raise( 'String map is read only' ).
     endif.
 
-    read table mt_entries assigning <entry> with key k = iv_key.
+    if mv_case_insensitive = abap_true.
+      lv_key = to_upper( iv_key ).
+    else.
+      lv_key = iv_key.
+    endif.
+
+    read table mt_entries assigning <entry> with key k = lv_key.
     if sy-subrc = 0.
       <entry>-v = iv_val.
     else.
-      ls_entry-k = iv_key.
+      ls_entry-k = lv_key.
       ls_entry-v = iv_val.
       insert ls_entry into table mt_entries.
     endif.

src/zcl_abap_string_map.clas.testclasses.abap

@@ -24,6 +24,7 @@ class ltcl_string_map definition
     methods from_entries for testing.
     methods freeze for testing.
     methods create_from for testing.
+    methods case_insensitive for testing.
 
 endclass.
 
@@ -41,7 +42,7 @@ class ltcl_string_map implementation.
       iv_val = '1' ).
 
     try.
-      zcl_abap_string_map=>create( `abc` ).
+      zcl_abap_string_map=>create( iv_from = `abc` ).
       cl_abap_unit_assert=>fail( ).
     catch cx_root into lx.
       cl_abap_unit_assert=>assert_equals(
@@ -50,7 +51,7 @@ class ltcl_string_map implementation.
     endtry.
 
     try.
-      zcl_abap_string_map=>create( me ).
+      zcl_abap_string_map=>create( iv_from = me ).
       cl_abap_unit_assert=>fail( ).
     catch cx_root into lx.
       cl_abap_unit_assert=>assert_equals(
@@ -59,7 +60,7 @@ class ltcl_string_map implementation.
     endtry.
 
     " From obj
-    lo_cut = zcl_abap_string_map=>create( lo_src ).
+    lo_cut = zcl_abap_string_map=>create( iv_from = lo_src ).
     cl_abap_unit_assert=>assert_equals(
       exp = 1
       act = lo_cut->size( ) ).
@@ -68,7 +69,7 @@ class ltcl_string_map implementation.
       act = lo_cut->get( 'A' ) ).
 
     " From tab
-    lo_cut = zcl_abap_string_map=>create( lo_src->mt_entries ).
+    lo_cut = zcl_abap_string_map=>create( iv_from = lo_src->mt_entries ).
     cl_abap_unit_assert=>assert_equals(
       exp = 1
       act = lo_cut->size( ) ).
@@ -78,7 +79,7 @@ class ltcl_string_map implementation.
 
     " From struc
     data: begin of ls_dummy, a type string value '1', end of ls_dummy.
-    lo_cut = zcl_abap_string_map=>create( ls_dummy ).
+    lo_cut = zcl_abap_string_map=>create( iv_from = ls_dummy ).
     cl_abap_unit_assert=>assert_equals(
       exp = 1
       act = lo_cut->size( ) ).
@@ -479,4 +480,42 @@ class ltcl_string_map implementation.
 
   endmethod.
 
+  method case_insensitive.
+
+    data lo_cut type ref to zcl_abap_string_map.
+    lo_cut = zcl_abap_string_map=>create( iv_case_insensitive = abap_true ).
+
+    lo_cut->set(
+      iv_key = 'A'
+      iv_val = 'avalue' ).
+    lo_cut->set(
+      iv_key = 'b'
+      iv_val = 'bvalue' ).
+
+    cl_abap_unit_assert=>assert_equals(
+      exp = 'avalue'
+      act = lo_cut->get( 'A' ) ).
+
+    cl_abap_unit_assert=>assert_equals(
+      exp = 'avalue'
+      act = lo_cut->get( 'a' ) ).
+
+    cl_abap_unit_assert=>assert_equals(
+      exp = 'bvalue'
+      act = lo_cut->get( 'B' ) ).
+
+    cl_abap_unit_assert=>assert_equals(
+      exp = 'bvalue'
+      act = lo_cut->get( 'b' ) ).
+
+    data lt_exp_keys type string_table.
+    append 'A' to lt_exp_keys.
+    append 'B' to lt_exp_keys.
+
+    cl_abap_unit_assert=>assert_equals(
+      exp = lt_exp_keys
+      act = lo_cut->keys( ) ).
+
+  endmethod.
+
 endclass.