Fix issue #136: Add .equalsExpected.(logical, logical)

Author: bonachea

src/julienne/julienne_test_diagnosis_m.F90

@@ -245,6 +245,12 @@ elemental module function expect(expected_true) result(test_diagnosis)
 
   interface operator(.equalsExpected.)
 
+    elemental module function equals_expected_logical(actual, expected) result(test_diagnosis)
+      implicit none
+      logical, intent(in) :: actual, expected
+      type(test_diagnosis_t) test_diagnosis
+    end function
+
     elemental module function equals_expected_c_ptr(actual, expected) result(test_diagnosis)
       implicit none
       type(c_ptr), intent(in) :: actual, expected

src/julienne/julienne_test_diagnosis_s.F90

@@ -292,6 +292,18 @@ pure function aggregate_vector_diagnosis(diagnoses) result(diagnosis)
 
   end procedure
 
+  module procedure equals_expected_logical
+
+    if (actual .EQV. expected) then
+      test_diagnosis = test_diagnosis_t(test_passed=.true., diagnostics_string="")
+    else
+      test_diagnosis = test_diagnosis_t(test_passed = .false. &
+        ,diagnostics_string = "expected " // string_t(expected) // "; actual value is " // string_t(actual) &
+      )
+    end if
+
+  end procedure
+
   module procedure equals_expected_integer
 
     if (actual == expected) then

test/modules/test_diagnosis_test_m.F90

@@ -71,6 +71,7 @@ function results() result(test_results)
       ,test_description_t("construction from string_t/character expressions 'a .equalsExpected. b'"                            , usher(check_equals_character_vs_string)) &
       ,test_description_t("construction from the character expression 'a .equalsExpected. b'"                                  , usher(check_equals_character)) &
       ,test_description_t("construction from the type(c_ptr) expression 'p .equalsExpected. q'"                                , usher(check_equals_c_ptr)) &
+      ,test_description_t("construction from the logical expression 't .equalsExpected. t'"                                    , usher(check_equals_logical)) &
       ,test_description_t("construction from the string_t expression 'a .equalsExpected. b'"                                   , usher(check_equals_string)) &
       ,test_description_t("construction from the integer expression 'i .equalsExpected. j'"                                    , usher(check_equals_integer)) &
       ,test_description_t("construction from integer(int64) relational operators"                                              , usher(check_int64_comparisons)) &
@@ -157,6 +158,12 @@ function check_equals_c_ptr() result(test_diagnosis)
     test_diagnosis = t_ptr .equalsExpected. c_loc(t)
   end function
 
+  function check_equals_logical() result(test_diagnosis)
+    type(test_diagnosis_t) test_diagnosis
+    logical, parameter :: t = .true., f = .false.
+    test_diagnosis = (t .equalsExpected. t) .also. (f .equalsExpected. f)
+  end function
+
   function check_equals_string() result(test_diagnosis)
     type(test_diagnosis_t) test_diagnosis
     type(string_t) expected_value