Line data Source code
1 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3 : !!!!
4 : !!!! MIT License
5 : !!!!
6 : !!!! ParaMonte: plain powerful parallel Monte Carlo library.
7 : !!!!
8 : !!!! Copyright (C) 2012-present, The Computational Data Science Lab
9 : !!!!
10 : !!!! This file is part of the ParaMonte library.
11 : !!!!
12 : !!!! Permission is hereby granted, free of charge, to any person obtaining a
13 : !!!! copy of this software and associated documentation files (the "Software"),
14 : !!!! to deal in the Software without restriction, including without limitation
15 : !!!! the rights to use, copy, modify, merge, publish, distribute, sublicense,
16 : !!!! and/or sell copies of the Software, and to permit persons to whom the
17 : !!!! Software is furnished to do so, subject to the following conditions:
18 : !!!!
19 : !!!! The above copyright notice and this permission notice shall be
20 : !!!! included in all copies or substantial portions of the Software.
21 : !!!!
22 : !!!! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
23 : !!!! EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
24 : !!!! MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
25 : !!!! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,
26 : !!!! DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR
27 : !!!! OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE
28 : !!!! OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
29 : !!!!
30 : !!!! ACKNOWLEDGMENT
31 : !!!!
32 : !!!! ParaMonte is an honor-ware and its currency is acknowledgment and citations.
33 : !!!! As per the ParaMonte library license agreement terms, if you use any parts of
34 : !!!! this library for any purposes, kindly acknowledge the use of ParaMonte in your
35 : !!!! work (education/research/industry/development/...) by citing the ParaMonte
36 : !!!! library as described on this page:
37 : !!!!
38 : !!!! https://github.com/cdslaborg/paramonte/blob/main/ACKNOWLEDGMENT.md
39 : !!!!
40 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
41 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
42 :
43 : !> \brief This module contains tests of the module [Err_mod](@ref err_mod).
44 : !> \author Amir Shahmoradi
45 :
46 : module Test_Err_mod
47 :
48 : use Err_mod
49 : use Decoration_mod, only: TAB
50 : use Test_mod, only: Test_type
51 : implicit none
52 :
53 : private
54 : public :: test_Err
55 :
56 : type(Test_type) :: Test
57 :
58 : character(*), parameter :: mc_prefix = TAB//TAB//"ParaMonte"
59 : character(*), parameter :: mc_msg = "What does a fish know about the water in which it swims all its life? Albert Einstein\n" // &
60 : "Everything should be made as simple as possible, but not simpler. Albert Einstein\n" // &
61 : "The absence of evidence is not evidence for absence. Carl Sagan\n" // &
62 : "If I have seen further, it is by standing on the shoulders of giants. Isaac Newton\n" // &
63 : "I don't pretend to understand the universe - it's much bigger than I am. Thomas Carlyle"
64 :
65 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
66 :
67 : contains
68 :
69 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
70 :
71 1 : subroutine test_Err()
72 :
73 : implicit none
74 :
75 1 : Test = Test_type(moduleName=MODULE_NAME)
76 1 : call Test%run(test_note_1, "test_note_1")
77 1 : call Test%run(test_note_2, "test_note_2")
78 1 : call Test%run(test_warn_1, "test_warn_1")
79 1 : call Test%run(test_warn_2, "test_warn_2")
80 1 : call Test%run(test_abort_1, "test_abort_1")
81 1 : call Test%run(test_abort_2, "test_abort_2")
82 1 : call Test%finalize()
83 :
84 1 : end subroutine test_Err
85 :
86 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
87 :
88 1 : function test_note_1() result(assertion)
89 :
90 1 : use JaggedArray_mod, only: CharVec_type
91 : use Constants_mod, only: IK
92 : use String_mod, only: num2str
93 :
94 : implicit none
95 :
96 : integer(IK) :: fileUnit, i, iostat
97 : logical :: assertion, assertionCurrent
98 : integer(IK), parameter :: NLINE = 5_IK
99 1 : type(CharVec_type), allocatable :: OutputList_ref(:)
100 1 : type(CharVec_type), allocatable :: OutputList(:)
101 :
102 1 : assertion = .true.
103 :
104 6 : if (allocated(OutputList)) deallocate(OutputList); allocate(OutputList(NLINE))
105 6 : if (allocated(OutputList_ref)) deallocate(OutputList_ref); allocate(OutputList_ref(NLINE))
106 :
107 1 : OutputList_ref(1)%record = " ParaMonte - NOTE: What does a fish know about the water in which it swims all its life? Albert Einstein"
108 1 : OutputList_ref(2)%record = " ParaMonte - NOTE: Everything should be made as simple as possible, but not simpler. Albert Einstein"
109 1 : OutputList_ref(3)%record = " ParaMonte - NOTE: The absence of evidence is not evidence for absence. Carl Sagan"
110 1 : OutputList_ref(4)%record = " ParaMonte - NOTE: If I have seen further, it is by standing on the shoulders of giants. Isaac Newton"
111 1 : OutputList_ref(5)%record = " ParaMonte - NOTE: I don't pretend to understand the universe - it's much bigger than I am. Thomas Carlyle"
112 :
113 1 : open(newunit = fileUnit, status = "scratch")
114 : !open(newunit = fileUnit, file = Test%outDir//"/Test_Err_mod@test_note_1."//num2str(Test%Image%id)//".out", status = "replace")
115 :
116 : call note ( msg = mc_msg &
117 : , prefix = mc_prefix &
118 : , newline = "\n" &
119 : , outputUnit = fileUnit &
120 : , marginTop = 0_IK &
121 : , marginBot = 0_IK &
122 1 : )
123 :
124 1 : rewind(fileUnit)
125 :
126 6 : do i = 1, NLINE
127 :
128 5 : if(allocated(OutputList(i)%record)) deallocate(OutputList(i)%record)
129 5 : allocate(character(132) :: OutputList(i)%record)
130 :
131 5 : read(fileUnit,"(A132)", iostat = iostat) OutputList(i)%record
132 5 : assertion = iostat == 0_IK
133 : if (.not. assertion) return ! LCOV_EXCL_LINE
134 :
135 5 : OutputList(i)%record = trim(OutputList(i)%record)
136 :
137 5 : assertionCurrent = OutputList(i)%record == OutputList_ref(i)%record
138 5 : assertion = assertion .and. assertionCurrent
139 :
140 6 : if (Test%isDebugMode .and. .not. assertionCurrent) then
141 : ! LCOV_EXCL_START
142 : write(Test%outputUnit,"(*(g0))")
143 : write(Test%outputUnit,"(*(g0))") "OutputList_ref(",num2str(i),")%record = ", OutputList_ref(i)%record
144 : write(Test%outputUnit,"(*(g0))") "OutputList (",num2str(i),")%record = ", OutputList(i)%record
145 : write(Test%outputUnit,"(*(g0))")
146 : end if
147 : ! LCOV_EXCL_STOP
148 :
149 : end do
150 :
151 11 : end function test_note_1
152 :
153 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
154 :
155 1 : function test_note_2() result(assertion)
156 :
157 1 : use JaggedArray_mod, only: CharVec_type
158 : use Constants_mod, only: IK, NLC
159 : use String_mod, only: num2str, replaceStr
160 :
161 : implicit none
162 :
163 : integer(IK) :: fileUnit, i, iostat
164 : logical :: assertion, assertionCurrent
165 : integer(IK), parameter :: NLINE = 7_IK
166 1 : type(CharVec_type), allocatable :: OutputList_ref(:)
167 1 : type(CharVec_type), allocatable :: OutputList(:)
168 :
169 1 : assertion = .true.
170 :
171 8 : if (allocated(OutputList)) deallocate(OutputList); allocate(OutputList(NLINE))
172 8 : if (allocated(OutputList_ref)) deallocate(OutputList_ref); allocate(OutputList_ref(NLINE))
173 :
174 1 : OutputList_ref(1)%record = ""
175 1 : OutputList_ref(2)%record = " - NOTE: What does a fish know about the water in which it swims all its life? Albert Einstein"
176 1 : OutputList_ref(3)%record = " - NOTE: Everything should be made as simple as possible, but not simpler. Albert Einstein"
177 1 : OutputList_ref(4)%record = " - NOTE: The absence of evidence is not evidence for absence. Carl Sagan"
178 1 : OutputList_ref(5)%record = " - NOTE: If I have seen further, it is by standing on the shoulders of giants. Isaac Newton"
179 1 : OutputList_ref(6)%record = " - NOTE: I don't pretend to understand the universe - it's much bigger than I am. Thomas Carlyle"
180 1 : OutputList_ref(7)%record = ""
181 :
182 1 : open(newunit = fileUnit, status = "scratch")
183 : !open(newunit = fileUnit, file = Test%outDir//"/Test_Err_mod@test_note_2."//num2str(Test%Image%id)//".out", status = "replace")
184 :
185 1 : call note ( msg = replaceStr(mc_msg, "\n", NLC) &
186 : , outputUnit = fileUnit &
187 : , newline = NLC &
188 2 : )
189 :
190 1 : rewind(fileUnit)
191 :
192 8 : do i = 1, NLINE
193 :
194 7 : if(allocated(OutputList(i)%record)) deallocate(OutputList(i)%record)
195 7 : allocate(character(132) :: OutputList(i)%record)
196 :
197 7 : read(fileUnit,"(A132)", iostat = iostat) OutputList(i)%record
198 7 : assertion = iostat == 0_IK
199 : if (.not. assertion) return ! LCOV_EXCL_LINE
200 :
201 7 : OutputList(i)%record = trim(OutputList(i)%record)
202 :
203 7 : assertionCurrent = OutputList(i)%record == OutputList_ref(i)%record
204 7 : assertion = assertion .and. assertionCurrent
205 :
206 8 : if (Test%isDebugMode .and. .not. assertionCurrent) then
207 : ! LCOV_EXCL_START
208 : write(Test%outputUnit,"(*(g0))")
209 : write(Test%outputUnit,"(*(g0))") "OutputList_ref(",num2str(i),")%record = ", OutputList_ref(i)%record
210 : write(Test%outputUnit,"(*(g0))") "OutputList (",num2str(i),")%record = ", OutputList(i)%record
211 : write(Test%outputUnit,"(*(g0))")
212 : end if
213 : ! LCOV_EXCL_STOP
214 :
215 : end do
216 :
217 15 : end function test_note_2
218 :
219 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
220 :
221 1 : function test_warn_1() result(assertion)
222 :
223 1 : use JaggedArray_mod, only: CharVec_type
224 : use Constants_mod, only: IK
225 : use String_mod, only: num2str
226 :
227 : implicit none
228 :
229 : integer(IK) :: fileUnit, i, iostat
230 : logical :: assertion, assertionCurrent
231 : integer(IK), parameter :: NLINE = 5_IK
232 1 : type(CharVec_type), allocatable :: OutputList_ref(:)
233 1 : type(CharVec_type), allocatable :: OutputList(:)
234 :
235 1 : assertion = .true.
236 :
237 6 : if (allocated(OutputList)) deallocate(OutputList); allocate(OutputList(NLINE))
238 6 : if (allocated(OutputList_ref)) deallocate(OutputList_ref); allocate(OutputList_ref(NLINE))
239 :
240 1 : OutputList_ref(1)%record = " ParaMonte - WARNING: What does a fish know about the water in which it swims all its life? Albert Einstein"
241 1 : OutputList_ref(2)%record = " ParaMonte - WARNING: Everything should be made as simple as possible, but not simpler. Albert Einstein"
242 1 : OutputList_ref(3)%record = " ParaMonte - WARNING: The absence of evidence is not evidence for absence. Carl Sagan"
243 1 : OutputList_ref(4)%record = " ParaMonte - WARNING: If I have seen further, it is by standing on the shoulders of giants. Isaac Newton"
244 1 : OutputList_ref(5)%record = " ParaMonte - WARNING: I don't pretend to understand the universe - it's much bigger than I am. Thomas Carlyle"
245 :
246 1 : open(newunit = fileUnit, status = "scratch")
247 : !open(newunit = fileUnit, file = Test%outDir//"/Test_Err_mod@test_warn_1."//num2str(Test%Image%id)//".out", status = "replace")
248 :
249 : call warn ( msg = mc_msg &
250 : , prefix = mc_prefix &
251 : , newline = "\n" &
252 : , outputUnit = fileUnit &
253 : , marginTop = 0_IK &
254 : , marginBot = 0_IK &
255 1 : )
256 :
257 1 : rewind(fileUnit)
258 :
259 6 : do i = 1, NLINE
260 :
261 5 : if(allocated(OutputList(i)%record)) deallocate(OutputList(i)%record)
262 5 : allocate(character(132) :: OutputList(i)%record)
263 :
264 5 : read(fileUnit,"(A132)", iostat = iostat) OutputList(i)%record
265 5 : assertion = iostat == 0_IK
266 : if (.not. assertion) return ! LCOV_EXCL_LINE
267 :
268 5 : OutputList(i)%record = trim(OutputList(i)%record)
269 :
270 5 : assertionCurrent = OutputList(i)%record == OutputList_ref(i)%record
271 5 : assertion = assertion .and. assertionCurrent
272 :
273 6 : if (Test%isDebugMode .and. .not. assertionCurrent) then
274 : ! LCOV_EXCL_START
275 : write(Test%outputUnit,"(*(g0))")
276 : write(Test%outputUnit,"(*(g0))") "OutputList_ref(",num2str(i),")%record = ", OutputList_ref(i)%record
277 : write(Test%outputUnit,"(*(g0))") "OutputList (",num2str(i),")%record = ", OutputList(i)%record
278 : write(Test%outputUnit,"(*(g0))")
279 : end if
280 : ! LCOV_EXCL_STOP
281 :
282 : end do
283 :
284 11 : end function test_warn_1
285 :
286 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
287 :
288 1 : function test_warn_2() result(assertion)
289 :
290 1 : use JaggedArray_mod, only: CharVec_type
291 : use Constants_mod, only: IK, NLC
292 : use String_mod, only: num2str, replaceStr
293 :
294 : implicit none
295 :
296 : integer(IK) :: fileUnit, i, iostat
297 : logical :: assertion, assertionCurrent
298 : integer(IK), parameter :: NLINE = 7_IK
299 1 : type(CharVec_type), allocatable :: OutputList_ref(:)
300 1 : type(CharVec_type), allocatable :: OutputList(:)
301 :
302 1 : assertion = .true.
303 :
304 8 : if (allocated(OutputList)) deallocate(OutputList); allocate(OutputList(NLINE))
305 8 : if (allocated(OutputList_ref)) deallocate(OutputList_ref); allocate(OutputList_ref(NLINE))
306 :
307 1 : OutputList_ref(1)%record = ""
308 1 : OutputList_ref(2)%record = " - WARNING: What does a fish know about the water in which it swims all its life? Albert Einstein"
309 1 : OutputList_ref(3)%record = " - WARNING: Everything should be made as simple as possible, but not simpler. Albert Einstein"
310 1 : OutputList_ref(4)%record = " - WARNING: The absence of evidence is not evidence for absence. Carl Sagan"
311 1 : OutputList_ref(5)%record = " - WARNING: If I have seen further, it is by standing on the shoulders of giants. Isaac Newton"
312 1 : OutputList_ref(6)%record = " - WARNING: I don't pretend to understand the universe - it's much bigger than I am. Thomas Carlyle"
313 1 : OutputList_ref(7)%record = ""
314 :
315 1 : open(newunit = fileUnit, status = "scratch")
316 : !open(newunit = fileUnit, file = Test%outDir//"/Test_Err_mod@test_warn_2."//num2str(Test%Image%id)//".out", status = "replace")
317 :
318 1 : call warn ( msg = replaceStr(mc_msg, "\n", NLC) &
319 : , outputUnit = fileUnit &
320 : , newline = NLC &
321 2 : )
322 :
323 1 : rewind(fileUnit)
324 :
325 8 : do i = 1, NLINE
326 :
327 7 : if(allocated(OutputList(i)%record)) deallocate(OutputList(i)%record)
328 7 : allocate(character(132) :: OutputList(i)%record)
329 :
330 7 : read(fileUnit,"(A132)", iostat = iostat) OutputList(i)%record
331 7 : assertion = iostat == 0_IK
332 : if (.not. assertion) return ! LCOV_EXCL_LINE
333 :
334 7 : OutputList(i)%record = trim(OutputList(i)%record)
335 :
336 7 : assertionCurrent = OutputList(i)%record == OutputList_ref(i)%record
337 7 : assertion = assertion .and. assertionCurrent
338 :
339 8 : if (Test%isDebugMode .and. .not. assertionCurrent) then
340 : ! LCOV_EXCL_START
341 : write(Test%outputUnit,"(*(g0))")
342 : write(Test%outputUnit,"(*(g0))") "OutputList_ref(",num2str(i),")%record = ", OutputList_ref(i)%record
343 : write(Test%outputUnit,"(*(g0))") "OutputList (",num2str(i),")%record = ", OutputList(i)%record
344 : write(Test%outputUnit,"(*(g0))")
345 : end if
346 : ! LCOV_EXCL_STOP
347 :
348 : end do
349 :
350 15 : end function test_warn_2
351 :
352 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
353 :
354 1 : function test_abort_1() result(assertion)
355 :
356 1 : use JaggedArray_mod, only: CharVec_type
357 : use Constants_mod, only: IK
358 : use String_mod, only: num2str
359 :
360 : implicit none
361 :
362 : integer(IK) :: fileUnit, i, iostat
363 : logical :: assertion, assertionCurrent
364 : integer(IK), parameter :: NLINE = 6_IK
365 1 : type(CharVec_type), allocatable :: OutputList_ref(:)
366 1 : type(CharVec_type), allocatable :: OutputList(:)
367 1 : type(Err_type) :: Err
368 :
369 1 : assertion = .true.
370 1 : mv_isTestingMode = .true.
371 :
372 7 : if (allocated(OutputList)) deallocate(OutputList); allocate(OutputList(NLINE))
373 7 : if (allocated(OutputList_ref)) deallocate(OutputList_ref); allocate(OutputList_ref(NLINE))
374 :
375 1 : OutputList_ref(1)%record = ""
376 1 : OutputList_ref(2)%record = " ParaMonte - FATAL: What does a fish know about the water in which it swims all its life? Albert Einstein"
377 1 : OutputList_ref(3)%record = " ParaMonte - FATAL: Everything should be made as simple as possible, but not simpler. Albert Einstein"
378 1 : OutputList_ref(4)%record = " ParaMonte - FATAL: The absence of evidence is not evidence for absence. Carl Sagan"
379 1 : OutputList_ref(5)%record = " ParaMonte - FATAL: If I have seen further, it is by standing on the shoulders of giants. Isaac Newton"
380 1 : OutputList_ref(6)%record = " ParaMonte - FATAL: I don't pretend to understand the universe - it's much bigger than I am. Thomas Carlyle"
381 :
382 1 : open(newunit = fileUnit, status = "scratch")
383 : !open(newunit = fileUnit, file = Test%outDir//"/Test_Err_mod@test_abort_1."//num2str(Test%Image%id)//".out", status = "replace")
384 :
385 1 : Err%msg = mc_msg
386 : call abort ( Err = Err &
387 : , prefix = mc_prefix &
388 : , newline = "\n" &
389 : , outputUnit = fileUnit &
390 : , returnEnabled = .true. &
391 1 : )
392 :
393 1 : rewind(fileUnit)
394 :
395 7 : do i = 1, NLINE
396 :
397 6 : if(allocated(OutputList(i)%record)) deallocate(OutputList(i)%record)
398 6 : allocate(character(132) :: OutputList(i)%record)
399 :
400 6 : read(fileUnit,"(A132)", iostat = iostat) OutputList(i)%record
401 6 : assertion = iostat == 0_IK
402 : if (.not. assertion) return ! LCOV_EXCL_LINE
403 :
404 6 : OutputList(i)%record = trim(OutputList(i)%record)
405 :
406 6 : assertionCurrent = OutputList(i)%record == OutputList_ref(i)%record
407 6 : assertion = assertion .and. assertionCurrent
408 :
409 7 : if (Test%isDebugMode .and. .not. assertionCurrent) then
410 : ! LCOV_EXCL_START
411 : write(Test%outputUnit,"(*(g0))")
412 : write(Test%outputUnit,"(*(g0))") "OutputList_ref(",num2str(i),")%record = ", OutputList_ref(i)%record
413 : write(Test%outputUnit,"(*(g0))") "OutputList (",num2str(i),")%record = ", OutputList(i)%record
414 : write(Test%outputUnit,"(*(g0))")
415 : end if
416 : ! LCOV_EXCL_STOP
417 :
418 : end do
419 :
420 13 : end function test_abort_1
421 :
422 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
423 :
424 : !> \brief
425 : !> Test the effects of an input non-null error code `Err%stat`.
426 : !> Test the effects of missing arguments `prefix`, `returnEnabled`, and `newline`.
427 1 : function test_abort_2() result(assertion)
428 :
429 1 : use JaggedArray_mod, only: CharVec_type
430 : use Constants_mod, only: IK, NLC
431 : use String_mod, only: num2str, replaceStr
432 :
433 : implicit none
434 :
435 : integer(IK) :: fileUnit, i, iostat
436 : logical :: assertion, assertionCurrent
437 : integer(IK), parameter :: NLINE = 7_IK
438 1 : type(CharVec_type), allocatable :: OutputList_ref(:)
439 1 : type(CharVec_type), allocatable :: OutputList(:)
440 1 : type(Err_type) :: Err
441 :
442 1 : assertion = .true.
443 1 : mv_isTestingMode = .true.
444 :
445 8 : if (allocated(OutputList)) deallocate(OutputList); allocate(OutputList(NLINE))
446 8 : if (allocated(OutputList_ref)) deallocate(OutputList_ref); allocate(OutputList_ref(NLINE))
447 :
448 1 : OutputList_ref(1)%record = ""
449 1 : OutputList_ref(2)%record = " - FATAL: What does a fish know about the water in which it swims all its life? Albert Einstein"
450 1 : OutputList_ref(3)%record = " - FATAL: Everything should be made as simple as possible, but not simpler. Albert Einstein"
451 1 : OutputList_ref(4)%record = " - FATAL: The absence of evidence is not evidence for absence. Carl Sagan"
452 1 : OutputList_ref(5)%record = " - FATAL: If I have seen further, it is by standing on the shoulders of giants. Isaac Newton"
453 1 : OutputList_ref(6)%record = " - FATAL: I don't pretend to understand the universe - it's much bigger than I am. Thomas Carlyle"
454 1 : OutputList_ref(7)%record = " - FATAL: Error Code: 123."
455 :
456 1 : open(newunit = fileUnit, status = "scratch")
457 : !open(newunit = fileUnit, file = Test%outDir//"/Test_Err_mod@test_abort_2."//num2str(Test%Image%id)//".out", status = "replace")
458 :
459 1 : Err%msg = replaceStr(mc_msg, "\n", NLC)
460 1 : Err%stat = 123_IK
461 : call abort ( Err = Err &
462 : , outputUnit = fileUnit &
463 1 : )
464 :
465 1 : rewind(fileUnit)
466 :
467 8 : do i = 1, NLINE
468 :
469 7 : if(allocated(OutputList(i)%record)) deallocate(OutputList(i)%record)
470 7 : allocate(character(132) :: OutputList(i)%record)
471 :
472 7 : read(fileUnit,"(A132)", iostat = iostat) OutputList(i)%record
473 7 : assertion = iostat == 0_IK
474 : if (.not. assertion) return ! LCOV_EXCL_LINE
475 :
476 7 : OutputList(i)%record = trim(OutputList(i)%record)
477 :
478 7 : assertionCurrent = OutputList(i)%record == OutputList_ref(i)%record
479 7 : assertion = assertion .and. assertionCurrent
480 :
481 8 : if (Test%isDebugMode .and. .not. assertionCurrent) then
482 : ! LCOV_EXCL_START
483 : write(Test%outputUnit,"(*(g0))")
484 : write(Test%outputUnit,"(*(g0))") "OutputList_ref(",num2str(i),")%record = '", OutputList_ref(i)%record, "'"
485 : write(Test%outputUnit,"(*(g0))") "OutputList (",num2str(i),")%record = '", OutputList(i)%record, "'"
486 : write(Test%outputUnit,"(*(g0))")
487 : end if
488 : ! LCOV_EXCL_STOP
489 :
490 : end do
491 :
492 15 : end function test_abort_2
493 :
494 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
495 :
496 : end module Test_Err_mod ! LCOV_EXCL_LINE
|
