feat(test): add test subject substring check

Author: rouson

test/bin_test.F90

@@ -39,7 +39,9 @@ function results() result(test_results)
       test_description_t(string_t("partitioning all item across all bins without item loss"), check_all_items_ptr) &
     ]   
 #endif
-    test_descriptions = pack(test_descriptions, test_descriptions%contains_text(string_t(test_description_substring)))
+    test_descriptions = pack(test_descriptions, &
+      index(subject(), test_description_substring) /= 0 .or. &
+      test_descriptions%contains_text(string_t(test_description_substring)))
     test_results = test_descriptions%run()
   end function
 

test/command_line_test.F90

@@ -35,7 +35,9 @@ function results() result(test_results)
       test_description_t(string_t("returning the value passed after a command-line flag"), check_flag_ptr) &
     ]   
 #endif
-    test_descriptions = pack(test_descriptions, test_descriptions%contains_text(string_t(test_description_substring)))
+    test_descriptions = pack(test_descriptions, &
+      index(subject(), test_description_substring) /= 0 .or. &
+      test_descriptions%contains_text(string_t(test_description_substring)))
     test_results = test_descriptions%run()
   end function
 

test/data_partition_test.F90

@@ -67,7 +67,9 @@ function results() result(test_results)
         string_t("gathering dimension 1 of 2D real array onto result_image with dim argument"), check_gather_2D_real_array_ptr) &
     ]   
 #endif
-    test_descriptions = pack(test_descriptions, test_descriptions%contains_text(string_t(test_description_substring)))
+    test_descriptions = pack(test_descriptions, &
+      index(subject(), test_description_substring) /= 0 .or. &
+      test_descriptions%contains_text(string_t(test_description_substring)))
     test_results = test_descriptions%run()
   end function
 

test/formats_test.F90

@@ -45,7 +45,9 @@ function results() result(test_results)
       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_descriptions = pack(test_descriptions, &
+      index(subject(), test_description_substring) /= 0 .or. &
+      test_descriptions%contains_text(string_t(test_description_substring)))
     test_results = test_descriptions%run()
 
   end function

test/object_m_test.F90 renamed to test/object_test.F90

@@ -21,7 +21,7 @@ module object_m_test_m
 
   pure function subject() result(specimen)
     character(len=:), allocatable :: specimen
-    specimen = "The object_m type" 
+    specimen = "The object_t type" 
   end function
 
   function results() result(test_results)
@@ -43,7 +43,9 @@ function results() result(test_results)
       test_description_t(string_t("object being user_defined() after call to mark_as_defined"), check_mark_ptr) &
     ]   
 #endif
-    test_descriptions = pack(test_descriptions, test_descriptions%contains_text(string_t(test_description_substring)))
+    test_descriptions = pack(test_descriptions, &
+      index(subject(), test_description_substring) /= 0 .or. &
+      test_descriptions%contains_text(string_t(test_description_substring)))
     test_results = test_descriptions%run()
 
   end function

test/string_test.F90

@@ -102,7 +102,9 @@ function results() result(test_results)
       test_description_t(string_t('extracting a file name extension'), extracts_file_name_ptr) &
     ]   
 #endif
-    test_descriptions = pack(test_descriptions, test_descriptions%contains_text(string_t(test_description_substring)))
+    test_descriptions = pack(test_descriptions, &
+      index(subject(), test_description_substring) /= 0 .or. &
+      test_descriptions%contains_text(string_t(test_description_substring)))
     test_results = test_descriptions%run()
   end function
 

test/test_result_test.F90

@@ -41,7 +41,9 @@ function results() result(test_results)
       test_description_t(string_t("reporting failure if the test fails on one image"), check_single_ptr) &
     ]
 #endif
-    test_descriptions = pack(test_descriptions, test_descriptions%contains_text(string_t(test_description_substring)))
+    test_descriptions = pack(test_descriptions, &
+      index(subject(), test_description_substring) /= 0 .or. &
+      test_descriptions%contains_text(string_t(test_description_substring)))
     test_results = test_descriptions%run()
   end function
 

test/user_defined_collectives_test.F90

@@ -41,7 +41,9 @@ function results() result(test_results)
         (string_t("setting all arguments to .false. when previously .false. on image 1"), check_co_all_one_false_ptr) &
     ]
 #endif
-    test_descriptions = pack(test_descriptions, test_descriptions%contains_text(string_t(test_description_substring)))
+    test_descriptions = pack(test_descriptions, &
+      index(subject(), test_description_substring) /= 0 .or. &
+      test_descriptions%contains_text(string_t(test_description_substring)))
     test_results = test_descriptions%run()
   end function