added unit tests for find function

Author: aman-godara

src/tests/string/test_string_functions.f90

@@ -3,7 +3,7 @@ module test_string_functions
     use stdlib_error, only : check
     use stdlib_string_type, only : string_type, assignment(=), operator(==), &
                                     to_lower, to_upper, to_title, to_sentence, reverse
-    use stdlib_strings, only: slice                                    
+    use stdlib_strings, only: slice, find                                    
     implicit none
 
 contains
@@ -53,7 +53,7 @@ subroutine test_reverse_string
 
     end subroutine test_reverse_string
 
-    subroutine test_slice_string
+    subroutine test_slice
         type(string_type) :: test_string
         character(len=:), allocatable :: test_char
         test_string = "abcdefghijklmnopqrstuvwxyz"
@@ -103,7 +103,20 @@ subroutine test_slice_string
         call check(slice(test_char, 2, 16, 3) == "", &
                     'function slice failed', warn=.false.)
 
-    end subroutine test_slice_string
+    end subroutine test_slice
+
+    subroutine test_find
+        type(string_type) :: test_string, test_pattern
+        test_string = "qwqwqwqwqwqwqw"
+        test_pattern = "qwq"
+        call check(find(test_string, test_pattern, 4) == 7)
+        call check(find(test_string, test_pattern, 3, .false.) == 9)
+        call check(find(test_string, test_pattern, 7) == 0)
+        call check(find("qwqwqwqwqwqwqw", test_pattern) == 1)
+        call check(find(test_string, "qwq", 2) == 3)
+        call check(find("qwqwqwqwqwqwqw", "qwq", 2, .false.) == 5)
+
+    end subroutine test_find
 
 end module test_string_functions
 
@@ -117,6 +130,7 @@ program tester
     call test_to_title_string
     call test_to_sentence_string
     call test_reverse_string
-    call test_slice_string
+    call test_slice
+    call test_find
 
 end program tester