Merge pull request #16 from yanjen/fix_string_check_message

Fix string check log is missing
artemis-beta · Jul 25, 2023 · 10ea512 · 10ea512
2 parents 9f70d03 + e89f6c2
commit 10ea512
Showing 1 changed file with 13 additions and 1 deletion.
diff --git a/src/string_check.f90 b/src/string_check.f90
@@ -1,17 +1,23 @@
 MODULE FTF_STRING_CHECK
-    USE FUTF_SUITE, ONLY: REGISTER_FAILED, REGISTER_PASSED
+    USE FUTF_SUITE, ONLY: REGISTER_FAILED, REGISTER_PASSED, INFO_STRINGS
+    USE FUTF_UTILITIES, ONLY: APPEND_CHAR
     IMPLICIT NONE
 
+    CHARACTER(LEN=300), PRIVATE :: INFO
+
     CONTAINS
 
     SUBROUTINE STRING_CONTAINS(INPUT_STRING, PHRASE)
         CHARACTER(*), INTENT(IN) :: INPUT_STRING, PHRASE
 
         IF(INDEX(INPUT_STRING, TRIM(PHRASE)) .NE. 0) THEN
             CALL REGISTER_PASSED
+            WRITE(INFO, '(A, A, A, A)') "STRING_CONTAINS: ", PHRASE, " in ", INPUT_STRING
         ELSE
             CALL REGISTER_FAILED
+            WRITE(INFO, '(A, A, A, A)') "STRING_CONTAINS: ", PHRASE, " not in ", INPUT_STRING
         END IF
+        INFO_STRINGS = APPEND_CHAR(INFO_STRINGS, INFO, LEN(INFO))
     END SUBROUTINE STRING_CONTAINS
 
     SUBROUTINE STRING_HAS_SUFFIX(INPUT_STRING, SUFFIX)
@@ -23,9 +29,12 @@ SUBROUTINE STRING_HAS_SUFFIX(INPUT_STRING, SUFFIX)
 
         IF(INPUT_STRING(PHRASE_LEN - SUFFIX_LEN+1:) .EQ. TRIM(SUFFIX)) THEN
             CALL REGISTER_PASSED
+            WRITE(INFO, '(A, A, A, A)') "STRING_HAS_SUFFIX: ", INPUT_STRING, " has suffix ", SUFFIX
         ELSE
             CALL REGISTER_FAILED
+            WRITE(INFO, '(A, A, A, A)') "STRING_HAS_SUFFIX: ", INPUT_STRING, " doesn't have suffix ", SUFFIX
         END IF
+        INFO_STRINGS = APPEND_CHAR(INFO_STRINGS, INFO, LEN(INFO))
     END SUBROUTINE STRING_HAS_SUFFIX
 
     SUBROUTINE STRING_HAS_PREFIX(INPUT_STRING, PREFIX)
@@ -36,8 +45,11 @@ SUBROUTINE STRING_HAS_PREFIX(INPUT_STRING, PREFIX)
 
         IF(INPUT_STRING(:PREFIX_LEN) .EQ. TRIM(PREFIX)) THEN
             CALL REGISTER_PASSED
+            WRITE(INFO, '(A, A, A, A)') "STRING_HAS_SUFFIX: ", INPUT_STRING, " has prefix ", PREFIX
         ELSE
             CALL REGISTER_FAILED
+            WRITE(INFO, '(A, A, A, A)') "STRING_HAS_SUFFIX: ", INPUT_STRING, " doesn't have prefix ", PREFIX
         END IF
+        INFO_STRINGS = APPEND_CHAR(INFO_STRINGS, INFO, LEN(INFO))
     END SUBROUTINE STRING_HAS_PREFIX
 END MODULE FTF_STRING_CHECK