changed test cases as per the last commit

Author: aman-godara

src/tests/ascii/test_ascii.f90

@@ -597,8 +597,8 @@ subroutine test_to_title_string
         dlc = to_title(" s P a C e D !")
         call check(dlc == " S P A C E D !")
 
-        dlc = to_title("1st, 2nd, 3rD, 4TH")
-        call check(dlc == "1St, 2Nd, 3Rd, 4Th")
+        dlc = to_title("1st, 2nD, 3RD")
+        call check(dlc == "1st, 2nd, 3rd")
 
         dlc = to_title("""quOTed""")
         call check(dlc == """Quoted""")

src/tests/string/test_string_functions.f90

@@ -27,8 +27,8 @@ end subroutine test_to_upper_string
 
     subroutine test_to_title_string
         type(string_type) :: test_string, compare_string
-        test_string = "_tO t8iTLE_th!s p#ra$e"
-        compare_string = "_To T8Itle_Th!S P#Ra$E"
+        test_string = "tO t!TL3 7h1S p#ra$e"
+        compare_string = "To T!Tl3 7h1s P#Ra$E"
 
         call check(to_title(test_string) == compare_string)