feat(string,test_dia): get_string_with_str, .also.

This commit
1. Adds test_diagnosis_t operator(.also.) synonym for .and.
2. Adds specific type-bound procedure get_string_with_character_key
   corresponding to get_json_value generic binding.

Author: rouson

src/julienne/julienne_string_m.f90

@@ -26,7 +26,7 @@ module julienne_string_m
     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 :: assignment(= ) => assign_string_t_to_character, assign_character_to_string_t
-    generic :: get_json_value => get_string_with_string_key  &
+    generic :: get_json_value => get_string_with_string_key, get_string_with_character_key  &
                                 ,get_character_with_string_key, get_character_with_character_key &
                                 ,get_string_t_array_with_character_key, get_string_t_array_with_string_t_key &
                                 ,get_real, get_real_with_character_key &
@@ -36,7 +36,7 @@ module julienne_string_m
                                 ,get_integer, get_integer_with_character_key &
                                 ,get_double_precision, get_double_precision_with_character_key &
                                 ,get_double_precision_array, get_double_precision_array_with_character_key
-    procedure, private :: get_string_with_string_key
+    procedure, private :: get_string_with_string_key, get_string_with_character_key
     procedure, private :: get_character_with_string_key, get_character_with_character_key
     procedure, private :: get_string_t_array_with_character_key, get_string_t_array_with_string_t_key
     procedure, private :: get_real, get_real_with_character_key
@@ -272,7 +272,7 @@ elemental module function get_string_with_string_key(self, key, mold) result(val
       type(string_t) :: value_
     end function
 
-    elemental module function get_string_with_character_key(self, key, mold) result(value_)
+    pure module function get_string_with_character_key(self, key, mold) result(value_)
       implicit none
       class(string_t), intent(in) :: self, mold
       character(len=*), intent(in) :: key

src/julienne/julienne_test_diagnosis_m.F90

@@ -15,6 +15,7 @@ module julienne_test_diagnosis_m
   public :: julienne_assert
   public :: operator(.all.)
   public :: operator(.and.)
+  public :: operator(.also.)
   public :: operator(.approximates.)
   public :: operator(.isAtLeast.)
   public :: operator(.isAtMost.)
@@ -181,16 +182,20 @@ pure module function aggregate_rank15_diagnosis(diagnoses) result(diagnosis)
 #endif
   end interface
 
-  interface operator(.and.)
+  interface operator(.also.)
 
-    elemental module function and(lhs, rhs) result(diagnosis)
+    elemental module function also(lhs, rhs) result(diagnosis)
       implicit none
       type(test_diagnosis_t), intent(in) :: lhs, rhs
       type(test_diagnosis_t) diagnosis
     end function
 
   end interface
 
+  interface operator(.and.)
+     module procedure also
+  end interface
+
   interface operator(.approximates.)
 
     elemental module function approximates_real(actual, expected) result(operands)

src/julienne/julienne_test_diagnosis_s.F90

@@ -10,7 +10,7 @@
   implicit none
 contains
 
-  module procedure and
+  module procedure also
      diagnosis = .all. ([lhs,rhs])
   end procedure 
 

src/julienne_m.f90

@@ -14,6 +14,7 @@ module julienne_m
     ,julienne_assert &
     ,operator(.all.) &
     ,operator(.and.) &
+    ,operator(.also.) &
     ,operator(.approximates.) &
     ,operator(.equalsExpected.) &
     ,operator(.isAtLeast.) &

test/modules/string_test_m.F90

@@ -17,6 +17,8 @@ module string_test_m
 #if ! HAVE_PROCEDURE_ACTUAL_FOR_POINTER_DUMMY
     ,diagnosis_function_i &
 #endif
+    ,operator(.equalsExpected.) &
+    ,operator(.also.) &
     ,operator(.cat.) &
     ,operator(.csv.) &
     ,operator(.sv.)
@@ -209,32 +211,22 @@ function extracts_character_value() result(test_diagnosis)
     type(test_diagnosis_t) test_diagnosis
 
     associate(line => string_t('"foo" : "bar"'), line_with_comma => string_t('"foo" : "bar",'))
-      associate(json_values => [ &
-           line%get_json_value(key="foo" , mold="") &
-          ,line%get_json_value(key=string_t("foo"), mold="") &
-          ,line_with_comma%get_json_value(key="foo" , mold="") &
-          ,line_with_comma%get_json_value(key=string_t("foo"), mold="") &
-      ])
-        test_diagnosis = test_diagnosis_t( &
-           test_passed = all(json_values == "bar") &
-          ,diagnostics_string = "expected bar; actual " // .csv. json_values &
-        )
-      end associate
+      test_diagnosis = (line%get_json_value(           key=         "foo" , mold="") .equalsExpected. "bar") &
+                .also. (line_with_comma%get_json_value(key=         "foo" , mold="") .equalsExpected. "bar") &
+                .also. (line%get_json_value(           key=string_t("foo"), mold="") .equalsExpected. "bar") &
+                .also. (line_with_comma%get_json_value(key=string_t("foo"), mold="") .equalsExpected. "bar")
     end associate
   end function
 
   function extracts_string_value() result(test_diagnosis)
     type(test_diagnosis_t) test_diagnosis
 
-    associate(line => string_t('"foo" : "bar"'))
-      associate(json_value => line%get_json_value(key=string_t("foo"), mold=string_t("")))
-        test_diagnosis = test_diagnosis_t( &
-          test_passed =  json_value == "bar", &
-          diagnostics_string = "expected 'bar', actual " // json_value &
-        )
-      end associate
+    associate(line => string_t('"foo" : "bar"'), line_with_comma => string_t('"foo" : "bar",'))
+      test_diagnosis = (line%get_json_value(           key=         "foo" , mold=string_t("")) .equalsExpected. "bar") &
+                .also. (line_with_comma%get_json_value(key=         "foo" , mold=string_t("")) .equalsExpected. "bar") &
+                .also. (line%get_json_value(           key=string_t("foo"), mold=string_t("")) .equalsExpected. "bar") &
+                .also. (line_with_comma%get_json_value(key=string_t("foo"), mold=string_t("")) .equalsExpected. "bar")
     end associate
-
   end function
 
   function extracts_integer_value() result(test_diagnosis)