removed non-general test cases for slice function

Author: aman-godara

src/tests/string/test_string_functions.f90

@@ -56,58 +56,6 @@ subroutine test_reverse_string
 
     end subroutine test_reverse_string
 
-    subroutine test_slice_string
-        type(string_type) :: test_string
-        character(len=:), allocatable :: test_char
-        test_string = "abcdefghijklmnopqrstuvwxyz"
-        test_char = "abcdefghijklmnopqrstuvwxyz"
-
-        call check(slice(test_string, 2, 16, 3) == "behkn", &
-                    'function slice failed', warn=.false.)
-        call check(slice(test_char, first=15, stride=-1) == "onmlkjihgfedcba", &
-                    'function slice failed', warn=.false.)
-        call check(slice(test_string, last=22, stride=-1) == "zyxwv", &
-                    'function slice failed', warn=.false.)
-        call check(slice(test_char, 7, 2) == "gfedcb", &
-                    'function slice failed', warn=.false.)
-        call check(slice(test_string, 7, 2, 1) == "", &
-                    'function slice failed', warn=.false.)
-        call check(slice(test_char, 2, 6, -1) == "", &
-                    'function slice failed', warn=.false.)
-        call check(slice(test_string, stride=-1) == "zyxwvutsrqponmlkjihgfedcba", &
-                    'function slice failed', warn=.false.)
-        call check(slice(test_string, 7, 7, -4) == "g", &
-                    'function slice failed', warn=.false.)
-        call check(slice(test_char, 7, 7, 3) == "g", &
-                    'function slice failed', warn=.false.)
-        call check(slice(test_string, 7, 7, 3) == "g", &
-                    'function slice failed', warn=.false.)
-        call check(slice(test_char, 7, -10) == "gfedcba", &
-                    'function slice failed', warn=.false.)
-        call check(slice(test_string, 500, 22) == "zyxwv", &
-                    'function slice failed', warn=.false.)
-        call check(slice(test_char, 50, 27) == "", &
-                    'function slice failed', warn=.false.)
-        call check(slice(test_string, -20, -200) == "", &
-                    'function slice failed', warn=.false.)
-        call check(slice(test_char, first=0, stride=-1) == "", &
-                    'function slice failed', warn=.false.)
-        call check(slice(test_string, last=27, stride=-2) == "", &
-                    'function slice failed', warn=.false.)
-        call check(slice(test_char, first=27, stride=2) == "", &
-                    'function slice failed', warn=.false.)
-        call check(slice(test_string, -500, 500) == "abcdefghijklmnopqrstuvwxyz", &
-                    'function slice failed', warn=.false.)
-
-        test_string = ""
-        test_char = ""
-        call check(slice(test_string, 2, 16, 3) == "", &
-                    'function slice failed', warn=.false.)
-        call check(slice(test_char, 2, 16, 3) == "", &
-                    'function slice failed', warn=.false.)
-
-    end subroutine test_slice_string
-
     subroutine test_slice_gen
         character(len=*), parameter :: test = &
             & "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
@@ -244,7 +192,6 @@ program tester
     call test_to_title_string
     call test_to_sentence_string
     call test_reverse_string
-    call test_slice_string
     call test_slice_gen
 
 end program tester