added test cases for clip function

Author: aman-godara

src/stdlib_math.fypp

@@ -2,8 +2,8 @@
 
 #:set INT_KINDS_TYPES = [("int8", "integer"), ("int16", "integer"), ("int32", "integer"), ("int64", "integer")]
 #:set REAL_KINDS_TYPES = [("sp", "real"), ("dp", "real"), ("qp", "real")]
-
 #:set IR_KINDS_TYPES = INT_KINDS_TYPES + REAL_KINDS_TYPES
+
 module stdlib_math
     use stdlib_kinds, only: int8, int16, int32, int64, sp, dp, qp
 
@@ -20,6 +20,7 @@ module stdlib_math
 
 
     contains
+    
         #:for k1, t1 in IR_KINDS_TYPES
         elemental function clip_${t1}$_${k1}$(x, xmin, xmax) result(res)
             ${t1}$(${k1}$), intent(in) :: x
@@ -28,6 +29,7 @@ module stdlib_math
             ${t1}$(${k1}$) :: res
             res = max(min(x, xmax), xmin)
         end function clip_${t1}$_${k1}$
+
         #:endfor
 
 end module stdlib_math

src/tests/math/CMakeLists.txt

@@ -0,0 +1 @@
+ADDTEST(math)

src/tests/math/Makefile.manual

@@ -0,0 +1,4 @@
+PROGS_SRC = test_math.f90
+
+
+include ../Makefile.manual.test.mk

src/tests/math/test_math.f90

@@ -0,0 +1,110 @@
+! SPDX-Identifier: MIT
+
+
+module test_math
+    use stdlib_kinds, only: int8, int16, int32, int64, sp, dp, qp
+    use stdlib_error, only : check
+    use stdlib_math
+
+    implicit none
+
+contains
+        subroutine test_clip_integer_int8(x, xmin, xmax, compare)
+            integer(int8), intent(in) :: x
+            integer(int8), intent(in) :: xmin
+            integer(int8), intent(in) :: xmax
+            integer(int8), intent(in) :: compare
+
+            call check(clip(x, xmin, xmax) == compare)
+
+        end subroutine test_clip_integer_int8
+
+        subroutine test_clip_integer_int16(x, xmin, xmax, compare)
+            integer(int16), intent(in) :: x
+            integer(int16), intent(in) :: xmin
+            integer(int16), intent(in) :: xmax
+            integer(int16), intent(in) :: compare
+
+            call check(clip(x, xmin, xmax) == compare)
+
+        end subroutine test_clip_integer_int16
+
+        subroutine test_clip_integer_int32(x, xmin, xmax, compare)
+            integer(int32), intent(in) :: x
+            integer(int32), intent(in) :: xmin
+            integer(int32), intent(in) :: xmax
+            integer(int32), intent(in) :: compare
+
+            call check(clip(x, xmin, xmax) == compare)
+
+        end subroutine test_clip_integer_int32
+
+        subroutine test_clip_integer_int64(x, xmin, xmax, compare)
+            integer(int64), intent(in) :: x
+            integer(int64), intent(in) :: xmin
+            integer(int64), intent(in) :: xmax
+            integer(int64), intent(in) :: compare
+
+            call check(clip(x, xmin, xmax) == compare)
+
+        end subroutine test_clip_integer_int64
+
+
+end module test_math
+
+
+program tester
+    use test_math
+    implicit none
+
+    ! test case format: (x, xmin, xmax, correct answer)
+    ! valid case: xmin is not greater than xmax
+    ! invalid case: xmin is greater than xmax
+
+
+        ! type: integer, kind: int8
+            ! valid test cases
+            call test_clip_integer_int8(2, -2, 5, 2)
+            call test_clip_integer_int8(127, -128, 0, 0)
+            call test_clip_integer_int8(-57, -57, 57, -57)
+        
+            ! invalid test cases
+            call test_clip_integer_int8(2, 5, -2, 5)
+            call test_clip_integer_int8(127, 0, -128, 0)
+            call test_clip_integer_int8(-57, 57, -57, 57)
+
+        ! type: integer, kind: int16
+            ! valid test cases
+            call test_clip_integer_int16(2, -2, 5, 2)
+            call test_clip_integer_int16(32767, -32768, 0, 0)
+            call test_clip_integer_int16(-598, -32, 676, -32)
+        
+            ! invalid test cases
+            call test_clip_integer_int16(2, 5, -2, 5)
+            call test_clip_integer_int16(32767, 0, -32768, 0)
+            call test_clip_integer_int16(-598, 676, -32, 676)
+
+        ! type: integer, kind: int32
+            ! valid test cases
+            call test_clip_integer_int32(2, -2, 5, 2)
+            call test_clip_integer_int32(-2147483648, 0, 2147483647, 0)
+            call test_clip_integer_int32(45732, -385769, 57642, 45732)
+        
+            ! invalid test cases
+            call test_clip_integer_int32(2, 5, -2, 5)
+            call test_clip_integer_int32(-2147483648, 2147483647, 0, 2147483647)
+            call test_clip_integer_int32(45732, 57642, -385769, 57642)
+
+        ! type: integer, kind: int64
+            ! valid test cases
+            call test_clip_integer_int64(2, -2, 5, 2)
+            call test_clip_integer_int64(-9223372036854775808, -10, 25, -10)
+            call test_clip_integer_int64(97683, -200, 5137883248, 97683)
+        
+            ! invalid test cases
+            call test_clip_integer_int64(2, 5, -2, 5)
+            call test_clip_integer_int64(-9223372036854775808, 25, -10, 25)
+            call test_clip_integer_int64(97683, 5137883248, -200, 5137883248)
+
+
+end program tester