refac(formats_test): enable selective testing

Author: rouson

src/sourcery_m.f90

@@ -7,7 +7,7 @@ module sourcery_m
   use sourcery_file_m, only : file_t
   use sourcery_string_m, only : string_t, operator(.cat.)
   use sourcery_test_m, only : test_t, test_description_substring
-  use sourcery_test_description_m, only : test_description_t
+  use sourcery_test_description_m, only : test_description_t, test_function_i
   use sourcery_test_result_m, only : test_result_t
   use sourcery_user_defined_collectives_m, only : co_all
 

test/formats_test.f90 renamed to test/formats_test.F90

@@ -1,6 +1,7 @@
 module formats_test_m
   !! Verify that format strings provide the desired formatting
-  use sourcery_m, only : separated_values, test_t, test_result_t
+  use sourcery_m, only : &
+    separated_values, test_t, test_result_t, test_description_t, test_function_i, test_description_substring, string_t
   implicit none
 
   private
@@ -21,13 +22,32 @@ pure function subject() result(specimen)
 
   function results() result(test_results)
     type(test_result_t), allocatable :: test_results(:)
+    type(test_description_t), allocatable :: test_descriptions(:)
+
+#ifndef __GFORTRAN__
+    test_descriptions = [ & 
+      test_description_t("yielding a comma-separated list of real numbers", check_csv_reals), &
+      test_description_t("yielding a space-separated list of complex numbers", check_space_separated_complex), &
+      test_description_t("yielding a comma- and space-separated list of character values", check_csv_character), &
+      test_description_t("yielding a new-line-separated list of integer numbers", check_new_line_separated_integers) &
+    ]   
+#else
+    ! Work around missing Fortran 2008 feature: associating a procedure actual argument with a procedure pointer dummy argument:
+    procedure(test_function_i), pointer :: check_csv_reals_ptr, check_space_ptr, check_csv_char_ptr, check_new_line_ptr
+    check_csv_reals_ptr => check_csv_reals
+    check_space_ptr => check_space_separated_complex
+    check_csv_char_ptr => check_csv_character 
+    check_new_line_ptr => check_new_line_separated_integers
+    test_descriptions = [ & 
+      test_description_t(string_t("yielding a comma-separated list of real numbers"), check_csv_reals_ptr), &
+      test_description_t(string_t("yielding a space-separated list of complex numbers"), check_space_ptr), &
+      test_description_t(string_t("yielding a comma- and space-separated list of character values"), check_csv_char_ptr), &
+      test_description_t(string_t("yielding a new-line-separated list of integer numbers"), check_new_line_ptr) &
+    ]   
+#endif
+    test_descriptions = pack(test_descriptions, test_descriptions%contains_text(string_t(test_description_substring)))
+    test_results = test_descriptions%run()
 
-    test_results = [ &
-      test_result_t("yielding a comma-separated list of real numbers", check_csv_reals()), &
-      test_result_t("yielding a space-separated list of complex numbers", check_space_separated_complex()), &
-      test_result_t("yielding a comma- and space-separated list of character values", check_csv_character()), &
-      test_result_t("yielding a new-line-separated list of integer numbers", check_new_line_separated_integers()) &
-    ]
   end function
 
   function check_csv_reals() result(test_passes)

test/test_result_test.F90

@@ -1,9 +1,6 @@
 module test_result_test_m
   !! Verify test_result_t object behavior
-  use sourcery_string_m, only : string_t
-  use sourcery_test_result_m, only : test_result_t
-  use sourcery_test_description_m, only : test_description_t
-  use sourcery_test_m, only : test_t, test_description_substring
+  use sourcery_m, only : string_t, test_result_t, test_description_t, test_t, test_description_substring
 #ifdef __GFORTRAN__
   use sourcery_test_description_m, only : test_function_i
 #endif