feat(string_t):operator(/=) for string_t/character

Author: rouson

src/sourcery/sourcery_string_m.f90

@@ -14,13 +14,16 @@ module sourcery_string_m
     generic :: string => as_character
     procedure :: is_allocated
     procedure :: get_json_key
-    procedure, private :: &
-      get_json_integer_array, get_json_logical, get_json_integer, get_json_string, get_json_real
+    generic :: operator(/=) => string_t_ne_string_t, string_t_ne_character, character_ne_string_t
+    generic :: operator(==) => string_t_eq_string_t, string_t_eq_character, character_eq_string_t
     generic :: get_json_value => &
       get_json_integer_array, get_json_logical, get_json_integer, get_json_string, get_json_real
+    procedure, private :: &
+      get_json_integer_array, get_json_logical, get_json_integer, get_json_string, get_json_real
+    procedure, private :: string_t_ne_string_t, string_t_ne_character
+    procedure, private, pass(rhs) :: character_ne_string_t
     procedure, private :: string_t_eq_string_t, string_t_eq_character
     procedure, private, pass(rhs) :: character_eq_string_t
-    generic :: operator(==) => string_t_eq_string_t, string_t_eq_character, character_eq_string_t
   end type
 
   interface string_t
@@ -113,6 +116,26 @@ elemental module function character_eq_string_t(lhs, rhs) result(lhs_eq_rhs)
       logical lhs_eq_rhs
     end function
 
+    elemental module function string_t_ne_string_t(lhs, rhs) result(lhs_ne_rhs)
+      implicit none
+      class(string_t), intent(in) :: lhs, rhs
+      logical lhs_ne_rhs
+    end function
+
+    elemental module function string_t_ne_character(lhs, rhs) result(lhs_ne_rhs)
+      implicit none
+      class(string_t), intent(in) :: lhs
+      character(len=*), intent(in) :: rhs
+      logical lhs_ne_rhs
+    end function
+
+    elemental module function character_ne_string_t(lhs, rhs) result(lhs_ne_rhs)
+      implicit none
+      class(string_t), intent(in) :: rhs
+      character(len=*), intent(in) :: lhs
+      logical lhs_ne_rhs
+    end function
+
   end interface
 
 end module sourcery_string_m

src/sourcery/sourcery_string_s.f90

@@ -167,4 +167,16 @@
     lhs_eq_rhs = lhs == rhs%string()
   end procedure
 
+  module procedure string_t_ne_string_t
+    lhs_ne_rhs = lhs%string() /= rhs%string()
+  end procedure
+   
+  module procedure string_t_ne_character
+    lhs_ne_rhs = lhs%string() /= rhs
+  end procedure
+
+  module procedure character_ne_string_t
+    lhs_ne_rhs = lhs /= rhs%string()
+  end procedure
+   
 end submodule sourcery_string_s

test/string_test.f90

@@ -30,7 +30,8 @@ function results() result(test_results)
       test_result_t("extracting a logical value from a colon-separated key/value pair", extracts_logical_value()), &
       test_result_t("extracting an integer array value from a colon-separated key/value pair", extracts_integer_array_value()), &
       test_result_t("extracting an integer value from a colon-separated key/value pair", extracts_integer_value()), &
-      test_result_t('supporting operator(==) for string_t and character operands', supports_equivalence_operator()) &
+      test_result_t('supporting operator(==) for string_t and character operands', supports_equivalence_operator()), &
+      test_result_t('supporting operator(/=) for string_t and character operands', supports_non_equivalence_operator()) &
     ]
   end function
 
@@ -112,4 +113,12 @@ function supports_equivalence_operator() result(passed)
                "123.456"  == string_t("123.456")
   end function
 
+  function supports_non_equivalence_operator() result(passed)
+    logical passed
+    passed = &
+      string_t("abcdefg") /= string_t("xyz pdq") .and. &
+      string_t("xyz pdq") /=          "abcdefg"  .and. &
+               "123.456"  /= string_t("456.123")
+  end function
+
 end module string_test_m