Added test function.

dabamos · Oct 19, 2024 · bde5502 · bde5502
1 parent 4fb169f
commit bde5502
Showing 1 changed file with 18 additions and 2 deletions.
diff --git a/test/dmteststring.f90 b/test/dmteststring.f90
@@ -7,15 +7,16 @@ program dmteststring
     implicit none (type, external)
 
     character(len=*), parameter :: TEST_NAME = 'dmteststring'
-    integer,          parameter :: NTESTS    = 3
+    integer,          parameter :: NTESTS    = 4
 
     type(test_type) :: tests(NTESTS)
     logical         :: stats(NTESTS)
 
     tests = [ &
         test_type('test01', test01), &
         test_type('test02', test02), &
-        test_type('test03', test03)  &
+        test_type('test03', test03), &
+        test_type('test04', test04)  &
     ]
 
     call dm_init()
@@ -109,4 +110,19 @@ logical function test03() result(stat)
 
         stat = TEST_PASSED
     end function test03
+
+    logical function test04() result(stat)
+        stat = TEST_FAILED
+
+        print *, 'Testing starts-with function ...'
+
+        if (.not. dm_string_starts_with('aaa', 'a'))   return
+        if (.not. dm_string_starts_with('aaa', 'aaa')) return
+        if (dm_string_starts_with('', ''))             return
+        if (dm_string_starts_with('aaa', ''))          return
+        if (dm_string_starts_with('', 'aaa'))          return
+        if (dm_string_starts_with('a', 'aaa'))         return
+
+        stat = TEST_PASSED
+    end function test04
 end program dmteststring