doc(example): reorg/update the example test suite

This commit
1. Moves/renames example/example-test-suite to demo/,
2. Adds fpm.toml to demo/, sets up an fpm-inspired directory tree,
3. Updates & expands specimen_test_m to leverage Julienne operators,
4. Updates the root-directory README.md accordingly,
5. Deprecates vector_* types as redundant with operator(.all.), and
6. Adds example/README.md redirectoring readers to ../demo except
   for the string-handling examples.

Author: rouson

example/example-test-suite/README.md demo/README.mdexample/example-test-suite/README.md renamed to demo/README.md

@@ -1,4 +1,4 @@
 name = "Example-Test-Suite"
 
 [dependencies]
-julienne = {git = "https://github.com/berkeleylab/julienne", tag = "2.0.0"}
+julienne = {git = "https://github.com/berkeleylab/julienne", tag = "2.1.0-rc5"}

example/example-test-suite/fpm.toml demo/fpm.tomlexample/example-test-suite/fpm.toml renamed to demo/fpm.toml

@@ -7,13 +7,19 @@ module specimen_m
   type specimen_t
   contains
     procedure, nopass :: zero
+    procedure, nopass :: one
   end type
 
 contains
 
-  pure function zero() result(incorrect_value)
-    integer incorrect_value
-    incorrect_value = 1
+  pure function zero() result(correct_value)
+    real correct_value
+    correct_value = 0
+  end function
+
+  pure function one() result(correct_value)
+    integer correct_value
+    correct_value = 1
   end function
 
 end module

…-test-suite/include/language-support.F90 demo/include/language-support.F90example/example-test-suite/include/language-support.F90 renamed to demo/include/language-support.F90 example/example-test-suite/include/language-support.F90 renamed to demo/include/language-support.F90

@@ -16,7 +16,8 @@ module specimen_test_m
     ,operator(.approximates.) &
     ,operator(.within.) &
     ,operator(.all.) &
-    ,operator(.equalsExpected.)
+    ,operator(.equalsExpected.) &
+    ,operator(.greaterThan.)
 #if defined(__GFORTRAN__)
   use julienne_m, only : diagnosis_function_i ! work around gfortran's missing Fortran 2008 feature
 #endif
@@ -51,7 +52,7 @@ function results() result(test_results)
       ,test_description_t("aggregating diagnoses of the zero and one functions using operator(.all.)", check_aggregate_diagnosis) &
     ]
     test_descriptions =  pack( &
-       array = test_diagnostics &
+       array = test_descriptions &
       ,mask = test_descriptions%contains_text(test_description_substring) .or. index(subject(), test_description_substring)/=0 &
     )
     test_results = test_descriptions%run()
@@ -73,7 +74,7 @@ function results() result(test_results)
       ,test_description_t("aggregating diagnoses of the zero and one functions using operator(.all.)", check_aggregate_ptr) &
     ]
     test_descriptions =  pack( &
-       array = test_diagnostics &
+       array = test_descriptions &
       ,mask = test_descriptions%contains_text(test_description_substring) .or. index(subject(), test_description_substring)/=0 &
     )
     test_results = test_descriptions%run()
@@ -94,7 +95,7 @@ function check_zero_using_constructor() result(test_diagnosis)
     type(specimen_t) specimen
     real, parameter :: expected_value = 0., tolerance = 1E-02
     associate(actual_value =>  specimen%zero())
-      test_diagnosis = test_diagnosis_t(
+      test_diagnosis = test_diagnosis_t( &
         test_passed = abs(actual_value - expected_value) < tolerance &
        ,diagnostics_string = "expected " // string_t(expected_value) // "; actual " // string_t(actual_value) &
       )
@@ -107,8 +108,8 @@ function check_aggregate_diagnosis() result(test_diagnosis)
     type(specimen_t) specimen
     real, parameter :: expected_real= 0.
     integer, parameter :: expected_integer = 1
-    associate(actual_real =>  specimen%zero(), actual_integer = specimen%one())
-      test_diagnosis = .all. [actual_integer .equalsExpected. expected_integer, actual_real .lessThanOrEqualTo. expected_real]
+    associate(actual_real =>  specimen%zero(), actual_integer => specimen%one())
+      test_diagnosis = .all. [actual_integer .equalsExpected. expected_integer, actual_real .greaterThan. expected_real]
     end associate
   end function
 

…le/example-test-suite/src/specimen_m.F90 demo/src/specimen_m.F90example/example-test-suite/src/specimen_m.F90 renamed to demo/src/specimen_m.F90 example/example-test-suite/src/specimen_m.F90 renamed to demo/src/specimen_m.F90

@@ -0,0 +1,5 @@
+Examples
+========
+This directory focuses on examples that demonstrate Julienne's string-handling capabilities.
+For a demonstration of how to use Julienne for unit testing, please see the [`demo`](../demo)
+subdirectory of this repository.