Line data Source code
1 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3 : !!!! !!!!
4 : !!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5 : !!!! !!!!
6 : !!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7 : !!!! !!!!
8 : !!!! This file is part of the ParaMonte library. !!!!
9 : !!!! !!!!
10 : !!!! LICENSE !!!!
11 : !!!! !!!!
12 : !!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13 : !!!! !!!!
14 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16 :
17 : !> \brief This module contains tests of the module [pm_arrayChange](@ref pm_arrayChange).
18 : !>
19 : !> \fintest
20 : !>
21 : !> \author
22 : !> \AmirShahmoradi, September 1, 2017, 11:35 PM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
23 :
24 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25 :
26 : module test_pm_arrayChange
27 :
28 : use pm_arrayChange
29 : use pm_err, only: err_type
30 : use pm_test, only: test_type, LK
31 : implicit none
32 :
33 : private
34 : public :: setTest
35 : type(test_type) :: test
36 :
37 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
38 :
39 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
40 :
41 : interface
42 : #if SK5_ENABLED
43 : module function test_getChange_SK5() result(assertion); logical(LK) :: assertion; end function
44 : #endif
45 : #if SK4_ENABLED
46 : module function test_getChange_SK4() result(assertion); logical(LK) :: assertion; end function
47 : #endif
48 : #if SK3_ENABLED
49 : module function test_getChange_SK3() result(assertion); logical(LK) :: assertion; end function
50 : #endif
51 : #if SK2_ENABLED
52 : module function test_getChange_SK2() result(assertion); logical(LK) :: assertion; end function
53 : #endif
54 : #if SK1_ENABLED
55 : module function test_getChange_SK1() result(assertion); logical(LK) :: assertion; end function
56 : #endif
57 : end interface
58 :
59 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
60 :
61 : interface
62 : #if IK5_ENABLED
63 : module function test_getChange_IK5() result(assertion); logical(LK) :: assertion; end function
64 : #endif
65 : #if IK4_ENABLED
66 : module function test_getChange_IK4() result(assertion); logical(LK) :: assertion; end function
67 : #endif
68 : #if IK3_ENABLED
69 : module function test_getChange_IK3() result(assertion); logical(LK) :: assertion; end function
70 : #endif
71 : #if IK2_ENABLED
72 : module function test_getChange_IK2() result(assertion); logical(LK) :: assertion; end function
73 : #endif
74 : #if IK1_ENABLED
75 : module function test_getChange_IK1() result(assertion); logical(LK) :: assertion; end function
76 : #endif
77 : end interface
78 :
79 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
80 :
81 : interface
82 : #if RK5_ENABLED
83 : module function test_getChange_RK5() result(assertion); logical(LK) :: assertion; end function
84 : #endif
85 : #if RK4_ENABLED
86 : module function test_getChange_RK4() result(assertion); logical(LK) :: assertion; end function
87 : #endif
88 : #if RK3_ENABLED
89 : module function test_getChange_RK3() result(assertion); logical(LK) :: assertion; end function
90 : #endif
91 : #if RK2_ENABLED
92 : module function test_getChange_RK2() result(assertion); logical(LK) :: assertion; end function
93 : #endif
94 : #if RK1_ENABLED
95 : module function test_getChange_RK1() result(assertion); logical(LK) :: assertion; end function
96 : #endif
97 : end interface
98 :
99 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
100 :
101 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
102 :
103 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
104 :
105 : interface
106 : #if SK5_ENABLED
107 : module function test_setChange_SK5() result(assertion); logical(LK) :: assertion; end function
108 : #endif
109 : #if SK4_ENABLED
110 : module function test_setChange_SK4() result(assertion); logical(LK) :: assertion; end function
111 : #endif
112 : #if SK3_ENABLED
113 : module function test_setChange_SK3() result(assertion); logical(LK) :: assertion; end function
114 : #endif
115 : #if SK2_ENABLED
116 : module function test_setChange_SK2() result(assertion); logical(LK) :: assertion; end function
117 : #endif
118 : #if SK1_ENABLED
119 : module function test_setChange_SK1() result(assertion); logical(LK) :: assertion; end function
120 : #endif
121 : end interface
122 :
123 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
124 :
125 : interface
126 : #if IK5_ENABLED
127 : module function test_setChange_IK5() result(assertion); logical(LK) :: assertion; end function
128 : #endif
129 : #if IK4_ENABLED
130 : module function test_setChange_IK4() result(assertion); logical(LK) :: assertion; end function
131 : #endif
132 : #if IK3_ENABLED
133 : module function test_setChange_IK3() result(assertion); logical(LK) :: assertion; end function
134 : #endif
135 : #if IK2_ENABLED
136 : module function test_setChange_IK2() result(assertion); logical(LK) :: assertion; end function
137 : #endif
138 : #if IK1_ENABLED
139 : module function test_setChange_IK1() result(assertion); logical(LK) :: assertion; end function
140 : #endif
141 : end interface
142 :
143 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
144 :
145 : interface
146 : #if RK5_ENABLED
147 : module function test_setChange_RK5() result(assertion); logical(LK) :: assertion; end function
148 : #endif
149 : #if RK4_ENABLED
150 : module function test_setChange_RK4() result(assertion); logical(LK) :: assertion; end function
151 : #endif
152 : #if RK3_ENABLED
153 : module function test_setChange_RK3() result(assertion); logical(LK) :: assertion; end function
154 : #endif
155 : #if RK2_ENABLED
156 : module function test_setChange_RK2() result(assertion); logical(LK) :: assertion; end function
157 : #endif
158 : #if RK1_ENABLED
159 : module function test_setChange_RK1() result(assertion); logical(LK) :: assertion; end function
160 : #endif
161 : end interface
162 :
163 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
164 :
165 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
166 :
167 : contains
168 :
169 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
170 :
171 1 : subroutine setTest()
172 :
173 : implicit none
174 1 : test = test_type(MODULE_NAME)
175 :
176 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
177 :
178 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
179 :
180 : #if SK5_ENABLED
181 : call test%run(test_getChange_SK5, SK_"test_getChange_SK5")
182 : #endif
183 : #if SK4_ENABLED
184 : call test%run(test_getChange_SK4, SK_"test_getChange_SK4")
185 : #endif
186 : #if SK3_ENABLED
187 : call test%run(test_getChange_SK3, SK_"test_getChange_SK3")
188 : #endif
189 : #if SK2_ENABLED
190 : call test%run(test_getChange_SK2, SK_"test_getChange_SK2")
191 : #endif
192 : #if SK1_ENABLED
193 1 : call test%run(test_getChange_SK1, SK_"test_getChange_SK1")
194 : #endif
195 :
196 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
197 :
198 : #if IK5_ENABLED
199 1 : call test%run(test_getChange_IK5, SK_"test_getChange_IK5")
200 : #endif
201 : #if IK4_ENABLED
202 1 : call test%run(test_getChange_IK4, SK_"test_getChange_IK4")
203 : #endif
204 : #if IK3_ENABLED
205 1 : call test%run(test_getChange_IK3, SK_"test_getChange_IK3")
206 : #endif
207 : #if IK2_ENABLED
208 1 : call test%run(test_getChange_IK2, SK_"test_getChange_IK2")
209 : #endif
210 : #if IK1_ENABLED
211 1 : call test%run(test_getChange_IK1, SK_"test_getChange_IK1")
212 : #endif
213 :
214 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
215 :
216 : #if RK5_ENABLED
217 : call test%run(test_getChange_RK5, SK_"test_getChange_RK5")
218 : #endif
219 : #if RK4_ENABLED
220 1 : call test%run(test_getChange_RK4, SK_"test_getChange_RK4")
221 : #endif
222 : #if RK3_ENABLED
223 1 : call test%run(test_getChange_RK3, SK_"test_getChange_RK3")
224 : #endif
225 : #if RK2_ENABLED
226 1 : call test%run(test_getChange_RK2, SK_"test_getChange_RK2")
227 : #endif
228 : #if RK1_ENABLED
229 1 : call test%run(test_getChange_RK1, SK_"test_getChange_RK1")
230 : #endif
231 :
232 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
233 :
234 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
235 :
236 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
237 :
238 : #if SK5_ENABLED
239 : call test%run(test_setChange_SK5, SK_"test_setChange_SK5")
240 : #endif
241 : #if SK4_ENABLED
242 : call test%run(test_setChange_SK4, SK_"test_setChange_SK4")
243 : #endif
244 : #if SK3_ENABLED
245 : call test%run(test_setChange_SK3, SK_"test_setChange_SK3")
246 : #endif
247 : #if SK2_ENABLED
248 : call test%run(test_setChange_SK2, SK_"test_setChange_SK2")
249 : #endif
250 : #if SK1_ENABLED
251 1 : call test%run(test_setChange_SK1, SK_"test_setChange_SK1")
252 : #endif
253 :
254 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
255 :
256 : #if IK5_ENABLED
257 1 : call test%run(test_setChange_IK5, SK_"test_setChange_IK5")
258 : #endif
259 : #if IK4_ENABLED
260 1 : call test%run(test_setChange_IK4, SK_"test_setChange_IK4")
261 : #endif
262 : #if IK3_ENABLED
263 1 : call test%run(test_setChange_IK3, SK_"test_setChange_IK3")
264 : #endif
265 : #if IK2_ENABLED
266 1 : call test%run(test_setChange_IK2, SK_"test_setChange_IK2")
267 : #endif
268 : #if IK1_ENABLED
269 1 : call test%run(test_setChange_IK1, SK_"test_setChange_IK1")
270 : #endif
271 :
272 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
273 :
274 : #if RK5_ENABLED
275 : call test%run(test_setChange_RK5, SK_"test_setChange_RK5")
276 : #endif
277 : #if RK4_ENABLED
278 1 : call test%run(test_setChange_RK4, SK_"test_setChange_RK4")
279 : #endif
280 : #if RK3_ENABLED
281 1 : call test%run(test_setChange_RK3, SK_"test_setChange_RK3")
282 : #endif
283 : #if RK2_ENABLED
284 1 : call test%run(test_setChange_RK2, SK_"test_setChange_RK2")
285 : #endif
286 : #if RK1_ENABLED
287 1 : call test%run(test_setChange_RK1, SK_"test_setChange_RK1")
288 : #endif
289 :
290 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
291 :
292 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
293 :
294 1 : call test%summarize()
295 :
296 1 : end subroutine setTest
297 :
298 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
299 :
300 : end module test_pm_arrayChange ! LCOV_EXCL_LINE
|
