Skip to content

Commit 542c024

Browse files
aman-godaraaman-godara
committed
removed wrapper test_clip, renamed test_math to test_stdlib_math
1 parent d66cee2 commit 542c024

File tree

6 files changed

+100
-138
lines changed

6 files changed

+100
-138
lines changed

‎doc/specs/stdlib_math.md

Lines changed: 0 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -61,11 +61,8 @@ program demo_clip_integer
6161
integer(int32) :: clipped_value
6262
6363
xmin = -5_int32
64-
! xmin <- -5
6564
xmax = 5_int32
66-
! xmax <- 5
6765
x = 12_int32
68-
! x <- 12
6966
7067
clipped_value = clip(x, xmin, xmax)
7168
! clipped_value <- 5
@@ -86,11 +83,8 @@ program demo_clip_real
8683
real(sp) :: clipped_value
8784
8885
xmin = -5.769_sp
89-
! xmin <- -5.76900005
9086
xmax = 3.025_sp
91-
! xmax <- 3.02500010
9287
x = 3.025_sp
93-
! x <- 3.02500010
9488
9589
clipped_value = clip(x, xmin, xmax)
9690
! clipped_value <- 3.02500010

‎src/Makefile.manual

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -19,7 +19,7 @@ SRCFYPP =\
1919
stdlib_stats_moment_mask.fypp \
2020
stdlib_stats_moment_scalar.fypp \
2121
stdlib_stats_var.fypp \
22-
stdlib_math.fypp \
22+
stdlib_math.fypp \
2323
stdlib_stats_distribution_PRNG.fypp \
2424
stdlib_string_type.fypp
2525

‎src/tests/math/CMakeLists.txt

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1 +1 @@
1-
ADDTEST(math)
1+
ADDTEST(stdlib_math)

‎src/tests/math/Makefile.manual

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
PROGS_SRC = test_math.f90
1+
PROGS_SRC = test_stdlib_math.f90
22

33

44
include ../Makefile.manual.test.mk

‎src/tests/math/test_math.f90

Lines changed: 0 additions & 129 deletions
This file was deleted.

‎src/tests/math/test_stdlib_math.f90

Lines changed: 97 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,97 @@
1+
! SPDX-Identifier: MIT
2+
3+
program tester
4+
use stdlib_math, only: clip
5+
use stdlib_error, only: check
6+
use stdlib_kinds, only: int8, int16, int32, int64, sp, dp, qp
7+
implicit none
8+
9+
! test case format: (x, xmin, xmax, correct answer)
10+
! valid case: xmin is not greater than xmax
11+
! invalid case: xmin is greater than xmax
12+
13+
! type: integer(int8), kind: int8
14+
! valid test case
15+
call check(clip(2_int8, -2_int8, 5_int8) == 2_int8, &
16+
'clip_int8 failed for valid case', warn=.true.)
17+
call check(clip(127_int8, -127_int8, 0_int8) == 0_int8, &
18+
'clip_int8 failed for valid case', warn=.true.)
19+
! invalid test case
20+
call check(clip(2_int8, 5_int8, -2_int8) == 5_int8, &
21+
'clip_int8 failed for invalid case', warn=.true.)
22+
call check(clip(127_int8, 0_int8, -127_int8) == 0_int8, &
23+
'clip_int8 failed for invalid case', warn=.true.)
24+
25+
! type: integer(int16), kind: int16
26+
! valid test case
27+
call check(clip(2_int16, -2_int16, 5_int16) == 2_int16, &
28+
'clip_int16 failed for valid case', warn=.true.)
29+
call check(clip(32767_int16, -32767_int16, 0_int16) == 0_int16, &
30+
'clip_int16 failed for valid case', warn=.true.)
31+
! invalid test case
32+
call check(clip(2_int16, 5_int16, -2_int16) == 5_int16, &
33+
'clip_int16 failed for invalid case', warn=.true.)
34+
call check(clip(32767_int16, 0_int16, -32767_int16) == 0_int16, &
35+
'clip_int16 failed for invalid case', warn=.true.)
36+
37+
! type: integer(int32), kind: int32
38+
! valid test case
39+
call check(clip(2_int32, -2_int32, 5_int32) == 2_int32, &
40+
'clip_int32 failed for valid case', warn=.true.)
41+
call check(clip(-2147483647_int32, 0_int32, 2147483647_int32) == 0_int32, &
42+
'clip_int32 failed for valid case', warn=.true.)
43+
! invalid test case
44+
call check(clip(2_int32, 5_int32, -2_int32) == 5_int32, &
45+
'clip_int32 failed for invalid case', warn=.true.)
46+
call check(clip(-2147483647_int32, 2147483647_int32, 0_int32) == 2147483647_int32, &
47+
'clip_int32 failed for invalid case', warn=.true.)
48+
49+
! type: integer(int64), kind: int64
50+
! valid test case
51+
call check(clip(2_int64, -2_int64, 5_int64) == 2_int64, &
52+
'clip_int64 failed for valid case', warn=.true.)
53+
call check(clip(-922337203_int64, -10_int64, 25_int64) == -10_int64, &
54+
'clip_int64 failed for valid case', warn=.true.)
55+
! invalid test case
56+
call check(clip(2_int64, 5_int64, -2_int64) == 5_int64, &
57+
'clip_int64 failed for invalid case', warn=.true.)
58+
call check(clip(-922337203_int64, 25_int64, -10_int64) == 25_int64, &
59+
'clip_int64 failed for invalid case', warn=.true.)
60+
61+
! type: real(sp), kind: sp
62+
! valid test case
63+
call check(clip(3.025_sp, -5.77_sp, 3.025_sp) == 3.025_sp, &
64+
'clip_sp failed for valid case', warn=.true.)
65+
call check(clip(0.0_sp, -1578.025_sp, -59.68_sp) == -59.68_sp, &
66+
'clip_sp failed for valid case', warn=.true.)
67+
! invalid test case
68+
call check(clip(3.025_sp, 3.025_sp, -5.77_sp) == 3.025_sp, &
69+
'clip_sp failed for invalid case', warn=.true.)
70+
call check(clip(0.0_sp, -59.68_sp, -1578.025_sp) == -59.68_sp, &
71+
'clip_sp failed for invalid case', warn=.true.)
72+
73+
! type: real(dp), kind: dp
74+
! valid test case
75+
call check(clip(3.025_dp, -5.77_dp, 3.025_dp) == 3.025_dp, &
76+
'clip_dp failed for valid case', warn=.true.)
77+
call check(clip(-7.0_dp, 0.059668_dp, 1.00268_dp) == 0.059668_dp, &
78+
'clip_dp failed for valid case', warn=.true.)
79+
! invalid test case
80+
call check(clip(3.025_dp, 3.025_dp, -5.77_dp) == 3.025_dp, &
81+
'clip_dp failed for invalid case', warn=.true.)
82+
call check(clip(-7.0_dp, 1.00268_dp, 0.059668_dp) == 1.00268_dp, &
83+
'clip_dp failed for invalid case', warn=.true.)
84+
85+
! type: real(qp), kind: qp
86+
! valid test case
87+
call check(clip(3.025_qp, -5.77_qp, 3.025_qp) == 3.025_qp, &
88+
'clip_qp failed for valid case', warn=.true.)
89+
call check(clip(-55891546.2_qp, -8958133457.23_qp, -689712245.23_qp) == -689712245.23_qp, &
90+
'clip_qp failed for valid case', warn=.true.)
91+
! invalid test case
92+
call check(clip(3.025_qp, 3.025_qp, -5.77_qp) == 3.025_qp, &
93+
'clip_qp failed for invalid case', warn=.true.)
94+
call check(clip(-55891546.2_qp, -689712245.23_qp, -8958133457.23_qp) == -689712245.23_qp, &
95+
'clip_qp failed for invalid case', warn=.true.)
96+
97+
end program tester

0 commit comments

Comments
 (0)