Skip to content

Commit 23e4ffc

Browse files
milancurcicmilancurcic
committed
replace assert with check for internal stdlib tests
1 parent cc0c536 commit 23e4ffc

14 files changed

+885
-885
lines changed

‎src/tests/ascii/test_ascii.f90

+125-125
Large diffs are not rendered by default.

‎src/tests/io/test_open.f90

+11-11
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
program test_open
22
use stdlib_experimental_io, only: open
3-
use stdlib_experimental_error, only: assert
3+
use stdlib_experimental_error, only: check
44
implicit none
55

66
character(:), allocatable :: filename
@@ -17,7 +17,7 @@ program test_open
1717
! Test mode "r"
1818
u = open(filename, "r")
1919
read(u, *) a
20-
call assert(all(a == [1, 2, 3]))
20+
call check(all(a == [1, 2, 3]))
2121
close(u)
2222

2323
! Test mode "a"
@@ -26,9 +26,9 @@ program test_open
2626
close(u)
2727
u = open(filename, "r")
2828
read(u, *) a
29-
call assert(all(a == [1, 2, 3]))
29+
call check(all(a == [1, 2, 3]))
3030
read(u, *) a
31-
call assert(all(a == [4, 5, 6]))
31+
call check(all(a == [4, 5, 6]))
3232
close(u)
3333

3434

@@ -44,7 +44,7 @@ program test_open
4444
! Test mode "r"
4545
u = open(filename, "rb")
4646
read(u) a
47-
call assert(all(a == [1, 2, 3]))
47+
call check(all(a == [1, 2, 3]))
4848
close(u)
4949

5050
! Test mode "a"
@@ -53,9 +53,9 @@ program test_open
5353
close(u)
5454
u = open(filename, "rb")
5555
read(u) a
56-
call assert(all(a == [1, 2, 3]))
56+
call check(all(a == [1, 2, 3]))
5757
read(u) a
58-
call assert(all(a == [4, 5, 6]))
58+
call check(all(a == [4, 5, 6]))
5959
close(u)
6060

6161

@@ -64,21 +64,21 @@ program test_open
6464
filename = get_outpath() // "/io_open.stream"
6565

6666
u = open(filename, "rb", io)
67-
call assert(io == 0)
67+
call check(io == 0)
6868
if (io == 0) close(u)
6969

7070
u = open(filename, "ab", io)
71-
call assert(io == 0)
71+
call check(io == 0)
7272
if (io == 0) close(u)
7373

7474

7575
filename = get_outpath() // "/does_not_exist.error"
7676

7777
u = open(filename, "a", io)
78-
call assert(io /= 0)
78+
call check(io /= 0)
7979

8080
u = open(filename, "r", io)
81-
call assert(io /= 0)
81+
call check(io /= 0)
8282

8383

8484
contains

‎src/tests/io/test_parse_mode.f90

+67-67
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
program test_parse_mode
22
use stdlib_experimental_io, only: parse_mode
3-
use stdlib_experimental_error, only: assert
3+
use stdlib_experimental_error, only: check
44
implicit none
55

66
call test_parse_mode_expected_order()
@@ -16,170 +16,170 @@ program test_parse_mode
1616
subroutine test_parse_mode_expected_order()
1717
character(3) :: m
1818
m = parse_mode("")
19-
call assert(m == "r t")
19+
call check(m == "r t")
2020

2121
m = parse_mode("r")
22-
call assert(m == "r t")
22+
call check(m == "r t")
2323
m = parse_mode("w")
24-
call assert(m == "w t")
24+
call check(m == "w t")
2525
m = parse_mode("a")
26-
call assert(m == "a t")
26+
call check(m == "a t")
2727
m = parse_mode("x")
28-
call assert(m == "x t")
28+
call check(m == "x t")
2929

3030
m = parse_mode("rt")
31-
call assert(m == "r t")
31+
call check(m == "r t")
3232
m = parse_mode("wt")
33-
call assert(m == "w t")
33+
call check(m == "w t")
3434
m = parse_mode("at")
35-
call assert(m == "a t")
35+
call check(m == "a t")
3636
m = parse_mode("xt")
37-
call assert(m == "x t")
37+
call check(m == "x t")
3838

3939
m = parse_mode("rb")
40-
call assert(m == "r b")
40+
call check(m == "r b")
4141
m = parse_mode("wb")
42-
call assert(m == "w b")
42+
call check(m == "w b")
4343
m = parse_mode("ab")
44-
call assert(m == "a b")
44+
call check(m == "a b")
4545
m = parse_mode("xb")
46-
call assert(m == "x b")
46+
call check(m == "x b")
4747

4848
m = parse_mode("r+")
49-
call assert(m == "r+t")
49+
call check(m == "r+t")
5050
m = parse_mode("w+")
51-
call assert(m == "w+t")
51+
call check(m == "w+t")
5252
m = parse_mode("a+")
53-
call assert(m == "a+t")
53+
call check(m == "a+t")
5454
m = parse_mode("x+")
55-
call assert(m == "x+t")
55+
call check(m == "x+t")
5656

5757
m = parse_mode("r+t")
58-
call assert(m == "r+t")
58+
call check(m == "r+t")
5959
m = parse_mode("w+t")
60-
call assert(m == "w+t")
60+
call check(m == "w+t")
6161
m = parse_mode("a+t")
62-
call assert(m == "a+t")
62+
call check(m == "a+t")
6363
m = parse_mode("x+t")
64-
call assert(m == "x+t")
64+
call check(m == "x+t")
6565

6666
m = parse_mode("r+b")
67-
call assert(m == "r+b")
67+
call check(m == "r+b")
6868
m = parse_mode("w+b")
69-
call assert(m == "w+b")
69+
call check(m == "w+b")
7070
m = parse_mode("a+b")
71-
call assert(m == "a+b")
71+
call check(m == "a+b")
7272
m = parse_mode("x+b")
73-
call assert(m == "x+b")
73+
call check(m == "x+b")
7474

7575
end subroutine
7676

7777
subroutine test_parse_mode_reverse_order()
7878
character(3) :: m
7979
m = parse_mode("")
80-
call assert(m == "r t")
80+
call check(m == "r t")
8181

8282
m = parse_mode("tr")
83-
call assert(m == "r t")
83+
call check(m == "r t")
8484
m = parse_mode("tw")
85-
call assert(m == "w t")
85+
call check(m == "w t")
8686
m = parse_mode("ta")
87-
call assert(m == "a t")
87+
call check(m == "a t")
8888
m = parse_mode("tx")
89-
call assert(m == "x t")
89+
call check(m == "x t")
9090

9191
m = parse_mode("br")
92-
call assert(m == "r b")
92+
call check(m == "r b")
9393
m = parse_mode("bw")
94-
call assert(m == "w b")
94+
call check(m == "w b")
9595
m = parse_mode("ba")
96-
call assert(m == "a b")
96+
call check(m == "a b")
9797
m = parse_mode("bx")
98-
call assert(m == "x b")
98+
call check(m == "x b")
9999

100100
m = parse_mode("+r")
101-
call assert(m == "r+t")
101+
call check(m == "r+t")
102102
m = parse_mode("+w")
103-
call assert(m == "w+t")
103+
call check(m == "w+t")
104104
m = parse_mode("+a")
105-
call assert(m == "a+t")
105+
call check(m == "a+t")
106106
m = parse_mode("+x")
107-
call assert(m == "x+t")
107+
call check(m == "x+t")
108108

109109
m = parse_mode("t+r")
110-
call assert(m == "r+t")
110+
call check(m == "r+t")
111111
m = parse_mode("t+w")
112-
call assert(m == "w+t")
112+
call check(m == "w+t")
113113
m = parse_mode("t+a")
114-
call assert(m == "a+t")
114+
call check(m == "a+t")
115115
m = parse_mode("t+x")
116-
call assert(m == "x+t")
116+
call check(m == "x+t")
117117

118118
m = parse_mode("b+r")
119-
call assert(m == "r+b")
119+
call check(m == "r+b")
120120
m = parse_mode("b+w")
121-
call assert(m == "w+b")
121+
call check(m == "w+b")
122122
m = parse_mode("b+a")
123-
call assert(m == "a+b")
123+
call check(m == "a+b")
124124
m = parse_mode("x+b")
125-
call assert(m == "x+b")
125+
call check(m == "x+b")
126126

127127
end subroutine
128128

129129
subroutine test_parse_mode_random_order()
130130
character(3) :: m
131131
m = parse_mode("")
132-
call assert(m == "r t")
132+
call check(m == "r t")
133133

134134
m = parse_mode("t r")
135-
call assert(m == "r t")
135+
call check(m == "r t")
136136
m = parse_mode(" tw ")
137-
call assert(m == "w t")
137+
call check(m == "w t")
138138
m = parse_mode("ta ")
139-
call assert(m == "a t")
139+
call check(m == "a t")
140140
m = parse_mode(" t x ")
141-
call assert(m == "x t")
141+
call check(m == "x t")
142142

143143
m = parse_mode("+ r ")
144-
call assert(m == "r+t")
144+
call check(m == "r+t")
145145
m = parse_mode("w +")
146-
call assert(m == "w+t")
146+
call check(m == "w+t")
147147
m = parse_mode(" a+")
148-
call assert(m == "a+t")
148+
call check(m == "a+t")
149149
m = parse_mode(" x+ t ")
150-
call assert(m == "x+t")
150+
call check(m == "x+t")
151151

152152
m = parse_mode("tr+ ")
153-
call assert(m == "r+t")
153+
call check(m == "r+t")
154154
m = parse_mode("wt + ")
155-
call assert(m == "w+t")
155+
call check(m == "w+t")
156156
m = parse_mode("a + t")
157-
call assert(m == "a+t")
157+
call check(m == "a+t")
158158
m = parse_mode(" xt + ")
159-
call assert(m == "x+t")
159+
call check(m == "x+t")
160160

161161
m = parse_mode(" + t")
162-
call assert(m == "r+t")
162+
call check(m == "r+t")
163163
m = parse_mode(" +w b")
164-
call assert(m == "w+b")
164+
call check(m == "w+b")
165165
m = parse_mode("a + b")
166-
call assert(m == "a+b")
166+
call check(m == "a+b")
167167
m = parse_mode(" b + x ")
168-
call assert(m == "x+b")
168+
call check(m == "x+b")
169169

170170
end subroutine
171171

172172
subroutine test_parse_mode_always_fail()
173173
character(3) :: m
174174

175175
m = parse_mode("r+w")
176-
call assert(m /= "r t")
176+
call check(m /= "r t")
177177

178178
m = parse_mode("tt")
179-
call assert(m /= "r t")
179+
call check(m /= "r t")
180180

181181
m = parse_mode("bt")
182-
call assert(m /= "r t")
182+
call check(m /= "r t")
183183

184184
end subroutine
185185

0 commit comments

Comments
 (0)