The ParaMonte Documentation Website
Current view: top level - kernel/tests - Test_Decoration_mod.f90 (source / functions) Hit Total Coverage
Test: ParaMonte 1.5.1 :: Coarray Parallel Kernel - Code Coverage Report Lines: 307 307 100.0 %
Date: 2021-01-08 12:59:07 Functions: 21 21 100.0 %
Legend: Lines: hit not hit

          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 [Decoration_mod](@ref decoration_mod).
      44             : !>  \author Amir Shahmoradi
      45             : 
      46             : module Test_Decoration_mod
      47             : 
      48             :     !use, intrinsic :: iso_fortran_env, only: output_unit
      49             :     use Test_mod, only: Test_type
      50             :     use Constants_mod, only: IK
      51             :     use Decoration_mod
      52             : 
      53             :     implicit none
      54             : 
      55             :     type(Test_type) :: Test
      56             : 
      57             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      58             : 
      59             : contains
      60             : 
      61             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      62             : 
      63           3 :     subroutine test_Decoration()
      64             : 
      65             :         implicit none
      66           3 :         Test = Test_type(moduleName=MODULE_NAME)
      67           3 :         call Test%run(test_wrapText, "test_wrapText")
      68           3 :         call Test%run(test_drawLine_1, "test_drawLine_1")
      69           3 :         call Test%run(test_drawLine_2, "test_drawLine_2")
      70           3 :         call Test%run(test_drawLine_3, "test_drawLine_3")
      71           3 :         call Test%run(test_sandwich_1, "test_sandwich_1")
      72           3 :         call Test%run(test_sandwich_2, "test_sandwich_2")
      73           3 :         call Test%run(test_sandwich_3, "test_sandwich_3")
      74           3 :         call Test%run(test_sandwich_4, "test_sandwich_4")
      75           3 :         call Test%run(test_sandwich_5, "test_sandwich_5")
      76           3 :         call Test%run(test_getGenericFormat_1, "test_getGenericFormat_1")
      77           3 :         call Test%run(test_getGenericFormat_2, "test_getGenericFormat_2")
      78           3 :         call Test%run(test_getGenericFormat_3, "test_getGenericFormat_3")
      79           3 :         call Test%run(test_getGenericFormat_4, "test_getGenericFormat_4")
      80           3 :         call Test%run(test_getGenericFormat_5, "test_getGenericFormat_5")
      81           3 :         call Test%run(test_writeDecoratedText_1, "test_writeDecoratedText_1")
      82           3 :         call Test%run(test_writeDecoratedText_2, "test_writeDecoratedText_2")
      83           3 :         call Test%run(test_writeDecoratedList_1, "test_writeDecoratedList_1")
      84           3 :         call Test%run(test_writeDecoratedList_2, "test_writeDecoratedList_2")
      85           3 :         call Test%run(test_constructDecoration_1, "test_constructDecoration_1")
      86           3 :         call Test%run(test_constructDecoration_2, "test_constructDecoration_2")
      87           3 :         call Test%finalize()
      88             : 
      89           3 :     end subroutine test_Decoration
      90             : 
      91             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      92             : 
      93           3 :     function test_constructDecoration_1() result(assertion)
      94           3 :         use Constants_mod, only: IK
      95             :         implicit none
      96             :         logical                     :: assertion
      97             :         character(*), parameter     :: tab_ref = "!!!!!"
      98           3 :         type(Decoration_type)       :: Decoration
      99           3 :         Decoration = Decoration_type(tabStr = tab_ref)
     100           3 :         assertion = Decoration%tab == tab_ref
     101           3 :         if (Test%isDebugMode .and. .not. assertion) then
     102             :         ! LCOV_EXCL_START
     103             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     104             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "tab_ref          =", tab_ref
     105             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "Decoration%tab   =", Decoration%tab
     106             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     107             :         end if
     108             :         ! LCOV_EXCL_STOP
     109           3 :     end function test_constructDecoration_1
     110             : 
     111             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     112             : 
     113           3 :     function test_constructDecoration_2() result(assertion)
     114           3 :         use Constants_mod, only: IK
     115             :         implicit none
     116             :         logical                     :: assertion
     117             :         character(*), parameter     :: symbol_ref = "!!!!!"
     118           3 :         type(Decoration_type)       :: Decoration
     119           3 :         Decoration = Decoration_type(symbol = symbol_ref)
     120           3 :         assertion = Decoration%symbol == symbol_ref
     121           3 :         if (Test%isDebugMode .and. .not. assertion) then
     122             :         ! LCOV_EXCL_START
     123             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     124             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "symbol_ref           =", symbol_ref
     125             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "Decoration%symbol    =", Decoration%symbol
     126             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     127             :         end if
     128             :         ! LCOV_EXCL_STOP
     129           3 :     end function test_constructDecoration_2
     130             : 
     131             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     132             : 
     133           3 :     function test_getGenericFormat_1() result(assertion)
     134           3 :         use Constants_mod, only: IK
     135             :         implicit none
     136             :         logical                     :: assertion
     137             :         character(*), parameter     :: genericFormat_ref = "('ParaMonte',*(g25.10,:,','))"
     138           3 :         character(:), allocatable   :: genericFormat
     139           3 :         genericFormat = getGenericFormat(width = 25_IK, precision = 10_IK, delim = ",", prefix = "ParaMonte")
     140           3 :         assertion = genericFormat == genericFormat_ref
     141           3 :         if (Test%isDebugMode .and. .not. assertion) then
     142             :         ! LCOV_EXCL_START
     143             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     144             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "genericFormat_ref    =", genericFormat_ref
     145             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "genericFormat        =", genericFormat
     146             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     147             :         end if
     148             :         ! LCOV_EXCL_STOP
     149           3 :     end function test_getGenericFormat_1
     150             : 
     151             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     152             : 
     153           3 :     function test_getGenericFormat_2() result(assertion)
     154           3 :         use Constants_mod, only: IK
     155             :         implicit none
     156             :         logical                     :: assertion
     157             :         character(*), parameter     :: genericFormat_ref = "(*(g25.10,:,','))"
     158           3 :         character(:), allocatable   :: genericFormat
     159           3 :         genericFormat = getGenericFormat(width = 25_IK, precision = 10_IK, delim = ",")
     160           3 :         assertion = genericFormat == genericFormat_ref
     161           3 :         if (Test%isDebugMode .and. .not. assertion) then
     162             :         ! LCOV_EXCL_START
     163             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     164             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "genericFormat_ref    =", genericFormat_ref
     165             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "genericFormat        =", genericFormat
     166             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     167             :         end if
     168             :         ! LCOV_EXCL_STOP
     169           3 :     end function test_getGenericFormat_2
     170             : 
     171             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     172             : 
     173           3 :     function test_getGenericFormat_3() result(assertion)
     174           3 :         use Constants_mod, only: IK
     175             :         implicit none
     176             :         logical                     :: assertion
     177             :         character(*), parameter     :: genericFormat_ref = "(*(g25.10))"
     178           3 :         character(:), allocatable   :: genericFormat
     179           3 :         genericFormat = getGenericFormat(width = 25_IK, precision = 10_IK)
     180           3 :         assertion = genericFormat == genericFormat_ref
     181           3 :         if (Test%isDebugMode .and. .not. assertion) then
     182             :         ! LCOV_EXCL_START
     183             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     184             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "genericFormat_ref    =", genericFormat_ref
     185             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "genericFormat        =", genericFormat
     186             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     187             :         end if
     188             :         ! LCOV_EXCL_STOP
     189           3 :     end function test_getGenericFormat_3
     190             : 
     191             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     192             : 
     193           3 :     function test_getGenericFormat_4() result(assertion)
     194           3 :         use Constants_mod, only: IK
     195             :         implicit none
     196             :         logical                     :: assertion
     197             :         character(*), parameter     :: genericFormat_ref = "(*(g25))"
     198           3 :         character(:), allocatable   :: genericFormat
     199           3 :         genericFormat = getGenericFormat(width = 25_IK)
     200           3 :         assertion = genericFormat == genericFormat_ref
     201           3 :         if (Test%isDebugMode .and. .not. assertion) then
     202             :         ! LCOV_EXCL_START
     203             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     204             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "genericFormat_ref    =", genericFormat_ref
     205             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "genericFormat        =", genericFormat
     206             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     207             :         end if
     208             :         ! LCOV_EXCL_STOP
     209           3 :     end function test_getGenericFormat_4
     210             : 
     211             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     212             : 
     213           3 :     function test_getGenericFormat_5() result(assertion)
     214           3 :         use Constants_mod, only: IK
     215             :         implicit none
     216             :         logical                     :: assertion
     217             :         character(*), parameter     :: genericFormat_ref = "(*(g0))"
     218           3 :         character(:), allocatable   :: genericFormat
     219           3 :         genericFormat = getGenericFormat()
     220           3 :         assertion = genericFormat == genericFormat_ref
     221           3 :         if (Test%isDebugMode .and. .not. assertion) then
     222             :         ! LCOV_EXCL_START
     223             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     224             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "genericFormat_ref    =", genericFormat_ref
     225             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "genericFormat        =", genericFormat
     226             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     227             :         end if
     228             :         ! LCOV_EXCL_STOP
     229           3 :     end function test_getGenericFormat_5
     230             : 
     231             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     232             : 
     233           3 :     function test_writeDecoratedText_1() result(assertion)
     234             : 
     235           3 :         use JaggedArray_mod, only: CharVec_type
     236             :         use Constants_mod, only: IK
     237             :         use String_mod, only: num2str
     238             :         implicit none
     239             :         logical                         :: assertion
     240             :         logical                         :: assertionCurrent
     241           3 :         type(Decoration_type)           :: Decoration
     242           3 :         type(CharVec_type), allocatable :: OutputList_ref(:)
     243           3 :         type(CharVec_type), allocatable :: OutputList(:)
     244             :         integer(IK)                     :: fileUnit, i, iostat
     245             :         integer(IK), parameter          :: NLINE = 19_IK
     246             : 
     247           3 :         assertion = .true.
     248             : 
     249          60 :         if (allocated(OutputList)) deallocate(OutputList); allocate(OutputList(NLINE))
     250          60 :         if (allocated(OutputList_ref)) deallocate(OutputList_ref); allocate(OutputList_ref(NLINE))
     251             : 
     252           3 :         OutputList_ref( 1)%record = ""
     253           3 :         OutputList_ref( 2)%record = ""
     254           3 :         OutputList_ref( 3)%record = "&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&"
     255           3 :         OutputList_ref( 4)%record = "&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&"
     256           3 :         OutputList_ref( 5)%record = "&&&&                        &&&&"
     257           3 :         OutputList_ref( 6)%record = "&&&&                        &&&&"
     258           3 :         OutputList_ref( 7)%record = "&&&&Have you asked yourself:&&&&"
     259           3 :         OutputList_ref( 8)%record = "&&&&                        &&&&"
     260           3 :         OutputList_ref( 9)%record = "&&&&s the Universe bother to&&&&"
     261           3 :         OutputList_ref(10)%record = "&&&&                        &&&&"
     262           3 :         OutputList_ref(11)%record = "&&&& the origin of mass and &&&&"
     263           3 :         OutputList_ref(12)%record = "&&&&                        &&&&"
     264           3 :         OutputList_ref(13)%record = "&&&&at is the origin of life&&&&"
     265           3 :         OutputList_ref(14)%record = "&&&&                        &&&&"
     266           3 :         OutputList_ref(15)%record = "&&&&                        &&&&"
     267           3 :         OutputList_ref(16)%record = "&&&&                        &&&&"
     268           3 :         OutputList_ref(17)%record = "&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&"
     269           3 :         OutputList_ref(18)%record = "&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&"
     270           3 :         OutputList_ref(19)%record = ""
     271             : 
     272          15 :         allocate(Decoration%List(4))
     273             : 
     274           3 :         Decoration%List(1)%record = "Have you asked yourself:"
     275           3 :         Decoration%List(2)%record = "Why does the Universe bother to exist?"
     276           3 :         Decoration%List(3)%record = "What is the origin of mass and matter?"
     277           3 :         Decoration%List(4)%record = "What is the origin of life?"
     278             : 
     279             :         Decoration%text =   "\n\n" // & ! LCOV_EXCL_LINE
     280             :                             Decoration%List(1)%record // "\n\n" // & ! LCOV_EXCL_LINE
     281             :                             Decoration%List(2)%record // "\n\n" // & ! LCOV_EXCL_LINE
     282             :                             Decoration%List(3)%record // "\n\n" // & ! LCOV_EXCL_LINE
     283           3 :                             Decoration%List(4)%record // "\n\n\n"
     284             : 
     285           3 :         open(newunit = fileUnit, status = "scratch")
     286             :         !open(newunit = fileUnit, file = Test%outDir//"/Test_Decoration_mod@test_writeDecoratedText_1."//num2str(Test%Image%id)//".out", status = "replace")
     287             : 
     288             :         call Decoration%writeDecoratedText  ( Decoration%text & ! LCOV_EXCL_LINE
     289             :                                             , newLine="\n" & ! LCOV_EXCL_LINE
     290             :                                             , width = 32_IK & ! LCOV_EXCL_LINE
     291             :                                             , symbol = "&" & ! LCOV_EXCL_LINE
     292             :                                             , thicknessHorz = 4_IK & ! LCOV_EXCL_LINE
     293             :                                             , thicknessVert = 2_IK & ! LCOV_EXCL_LINE
     294             :                                             , marginTop = 2_IK & ! LCOV_EXCL_LINE
     295             :                                             , marginBot = 1_IK & ! LCOV_EXCL_LINE
     296             :                                             , outputUnit = fileUnit & ! LCOV_EXCL_LINE
     297           3 :                                             )
     298             : 
     299           3 :         rewind(fileUnit)
     300             : 
     301          60 :         do i = 1, NLINE
     302             : 
     303          57 :             if(allocated(OutputList(i)%record)) deallocate(OutputList(i)%record)
     304          57 :             allocate(character(132) :: OutputList(i)%record)
     305          57 :             read(fileUnit,"(A132)", iostat = iostat) OutputList(i)%record
     306          57 :             assertion = iostat == 0_IK
     307             :             if (.not. assertion) return ! LCOV_EXCL_LINE
     308          57 :             OutputList(i)%record = trim(adjustl(OutputList(i)%record))
     309             : 
     310          57 :             assertionCurrent = OutputList(i)%record == OutputList_ref(i)%record
     311          57 :             assertion = assertion .and. assertionCurrent
     312             : 
     313          60 :             if (Test%isDebugMode .and. .not. assertionCurrent) then
     314             :             ! LCOV_EXCL_START
     315             :                 write(Test%outputUnit,"(*(g0))")
     316             :                 write(Test%outputUnit,"(*(g0))") "OutputList_ref(",num2str(i),")%record = ", OutputList_ref(i)%record
     317             :                 write(Test%outputUnit,"(*(g0))") "OutputList    (",num2str(i),")%record = ", OutputList(i)%record
     318             :                 write(Test%outputUnit,"(*(g0))")
     319             :             end if
     320             :             ! LCOV_EXCL_STOP
     321             : 
     322             :         end do
     323             : 
     324         129 :     end function test_writeDecoratedText_1
     325             : 
     326             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     327             : 
     328           3 :     function test_writeDecoratedText_2() result(assertion)
     329             : 
     330           3 :         use JaggedArray_mod, only: CharVec_type
     331             :         use Constants_mod, only: IK, NLC
     332             :         use String_mod, only: num2str
     333             :         implicit none
     334             :         logical                         :: assertion
     335             :         logical                         :: assertionCurrent
     336           3 :         type(Decoration_type)           :: Decoration
     337           3 :         type(CharVec_type), allocatable :: OutputList_ref(:)
     338           3 :         type(CharVec_type), allocatable :: OutputList(:)
     339             :         integer(IK)                     :: fileUnit, i, iostat
     340             :         integer(IK), parameter          :: NLINE = 14_IK
     341             : 
     342           3 :         assertion = .true.
     343             : 
     344          45 :         if (allocated(OutputList)) deallocate(OutputList); allocate(OutputList(NLINE))
     345          45 :         if (allocated(OutputList_ref)) deallocate(OutputList_ref); allocate(OutputList_ref(NLINE))
     346             : 
     347           3 :         OutputList_ref( 1)%record = "************************************************************************************************************************************"
     348           3 :         OutputList_ref( 2)%record = "****                                                                                                                            ****"
     349           3 :         OutputList_ref( 3)%record = "****                                                                                                                            ****"
     350           3 :         OutputList_ref( 4)%record = "****                                                  Have you asked yourself:                                                  ****"
     351           3 :         OutputList_ref( 5)%record = "****                                                                                                                            ****"
     352           3 :         OutputList_ref( 6)%record = "****                                           Why does the Universe bother to exist?                                           ****"
     353           3 :         OutputList_ref( 7)%record = "****                                                                                                                            ****"
     354           3 :         OutputList_ref( 8)%record = "****                                           What is the origin of mass and matter?                                           ****"
     355           3 :         OutputList_ref( 9)%record = "****                                                                                                                            ****"
     356           3 :         OutputList_ref(10)%record = "****                                                What is the origin of life?                                                 ****"
     357           3 :         OutputList_ref(11)%record = "****                                                                                                                            ****"
     358           3 :         OutputList_ref(12)%record = "****                                                                                                                            ****"
     359           3 :         OutputList_ref(13)%record = "****                                                                                                                            ****"
     360           3 :         OutputList_ref(14)%record = "************************************************************************************************************************************"
     361             : 
     362          15 :         allocate(Decoration%List(4))
     363             : 
     364           3 :         Decoration%List(1)%record = "Have you asked yourself:"
     365           3 :         Decoration%List(2)%record = "Why does the Universe bother to exist?"
     366           3 :         Decoration%List(3)%record = "What is the origin of mass and matter?"
     367           3 :         Decoration%List(4)%record = "What is the origin of life?"
     368             : 
     369             :         Decoration%text =   NLC//NLC// & ! LCOV_EXCL_LINE
     370             :                             Decoration%List(1)%record // NLC//NLC// & ! LCOV_EXCL_LINE
     371             :                             Decoration%List(2)%record // NLC//NLC// & ! LCOV_EXCL_LINE
     372             :                             Decoration%List(3)%record // NLC//NLC// & ! LCOV_EXCL_LINE
     373           3 :                             Decoration%List(4)%record // NLC//NLC//NLC
     374             : 
     375           3 :         open(newunit = fileUnit, status = "scratch")
     376             :         !open(newunit = fileUnit, file = Test%outDir//"/Test_Decoration_mod@test_writeDecoratedText_2."//num2str(Test%Image%id)//".out", status = "replace")
     377             : 
     378             :         call Decoration%writeDecoratedText  ( Decoration%text & ! LCOV_EXCL_LINE
     379             :                                             , newLine = NLC & ! LCOV_EXCL_LINE
     380             :                                             , outputUnit = fileUnit & ! LCOV_EXCL_LINE
     381           3 :                                             )
     382             : 
     383           3 :         rewind(fileUnit)
     384             : 
     385          45 :         do i = 1, NLINE
     386             : 
     387          42 :             if(allocated(OutputList(i)%record)) deallocate(OutputList(i)%record)
     388          42 :             allocate(character(132) :: OutputList(i)%record)
     389          42 :             read(fileUnit,"(A132)", iostat = iostat) OutputList(i)%record
     390          42 :             assertion = iostat == 0_IK
     391             :             if (.not. assertion) return ! LCOV_EXCL_LINE
     392          42 :             OutputList(i)%record = trim(adjustl(OutputList(i)%record))
     393             : 
     394          42 :             assertionCurrent = OutputList(i)%record == OutputList_ref(i)%record
     395          42 :             assertion = assertion .and. assertionCurrent
     396             : 
     397          45 :             if (Test%isDebugMode .and. .not. assertionCurrent) then
     398             :             ! LCOV_EXCL_START
     399             :                 write(Test%outputUnit,"(*(g0))")
     400             :                 write(Test%outputUnit,"(*(g0))") "OutputList_ref(",num2str(i),")%record = ", OutputList_ref(i)%record
     401             :                 write(Test%outputUnit,"(*(g0))") "OutputList    (",num2str(i),")%record = ", OutputList(i)%record
     402             :                 write(Test%outputUnit,"(*(g0))")
     403             :             end if
     404             :             ! LCOV_EXCL_STOP
     405             : 
     406             :         end do
     407             : 
     408         102 :     end function test_writeDecoratedText_2
     409             : 
     410             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     411             : 
     412           3 :     function test_writeDecoratedList_1() result(assertion)
     413             : 
     414           3 :         use JaggedArray_mod, only: CharVec_type
     415             :         use Constants_mod, only: IK
     416             :         use String_mod, only: num2str
     417             :         implicit none
     418             :         logical                         :: assertion
     419             :         logical                         :: assertionCurrent
     420           3 :         type(Decoration_type)           :: Decoration
     421           3 :         type(CharVec_type), allocatable :: OutputList_ref(:)
     422           3 :         type(CharVec_type), allocatable :: OutputList(:)
     423             :         integer(IK)                     :: fileUnit, i, iostat
     424             :         integer(IK), parameter          :: NLINE = 6_IK
     425             : 
     426           3 :         assertion = .true.
     427             : 
     428          21 :         if (allocated(OutputList)) deallocate(OutputList); allocate(OutputList(NLINE))
     429          21 :         if (allocated(OutputList_ref)) deallocate(OutputList_ref); allocate(OutputList_ref(NLINE))
     430             : 
     431           3 :         OutputList_ref(1)%record = "************************************************************************************************************************************"
     432           3 :         OutputList_ref(2)%record = "****                                                  Have you asked yourself:                                                  ****"
     433           3 :         OutputList_ref(3)%record = "****                                           Why does the Universe bother to exist?                                           ****"
     434           3 :         OutputList_ref(4)%record = "****                                           What is the origin of mass and matter?                                           ****"
     435           3 :         OutputList_ref(5)%record = "****                                                What is the origin of life?                                                 ****"
     436           3 :         OutputList_ref(6)%record = "************************************************************************************************************************************"
     437             : 
     438          15 :         allocate(Decoration%List(4))
     439             : 
     440           3 :         Decoration%List(1)%record = "Have you asked yourself:"
     441           3 :         Decoration%List(2)%record = "Why does the Universe bother to exist?"
     442           3 :         Decoration%List(3)%record = "What is the origin of mass and matter?"
     443           3 :         Decoration%List(4)%record = "What is the origin of life?"
     444             : 
     445           3 :         open(newunit = fileUnit, status = "scratch")
     446             :         !open(newunit = fileUnit, file = Test%outDir//"/Test_Decoration_mod@test_writeDecoratedList_1."//num2str(Test%Image%id)//".out", status = "replace")
     447             : 
     448           3 :         call Decoration%writeDecoratedList(Decoration%List, outputUnit = fileUnit)
     449             : 
     450           3 :         rewind(fileUnit)
     451             : 
     452          21 :         do i = 1, NLINE
     453             : 
     454          18 :             if(allocated(OutputList(i)%record)) deallocate(OutputList(i)%record)
     455          18 :             allocate(character(132) :: OutputList(i)%record)
     456          18 :             read(fileUnit,"(A132)", iostat = iostat) OutputList(i)%record
     457          18 :             assertion = iostat == 0_IK
     458             :             if (.not. assertion) return ! LCOV_EXCL_LINE
     459          18 :             OutputList(i)%record = trim(adjustl(OutputList(i)%record))
     460             : 
     461          18 :             assertionCurrent = OutputList(i)%record == OutputList_ref(i)%record
     462          18 :             assertion = assertion .and. assertionCurrent
     463             : 
     464          21 :             if (Test%isDebugMode .and. .not. assertionCurrent) then
     465             :             ! LCOV_EXCL_START
     466             :                 write(Test%outputUnit,"(*(g0))")
     467             :                 write(Test%outputUnit,"(*(g0))") "OutputList_ref(",num2str(i),")%record = ", OutputList_ref(i)%record
     468             :                 write(Test%outputUnit,"(*(g0))") "OutputList    (",num2str(i),")%record = ", OutputList(i)%record
     469             :                 write(Test%outputUnit,"(*(g0))")
     470             :             end if
     471             :             ! LCOV_EXCL_STOP
     472             : 
     473             :         end do
     474             : 
     475          51 :     end function test_writeDecoratedList_1
     476             : 
     477             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     478             : 
     479           3 :     function test_writeDecoratedList_2() result(assertion)
     480             : 
     481           3 :         use JaggedArray_mod, only: CharVec_type
     482             :         use Constants_mod, only: IK
     483             :         use String_mod, only: num2str
     484             :         implicit none
     485             :         logical                         :: assertion
     486             :         logical                         :: assertionCurrent
     487           3 :         type(Decoration_type)           :: Decoration
     488           3 :         type(CharVec_type), allocatable :: OutputList_ref(:)
     489           3 :         type(CharVec_type), allocatable :: OutputList(:)
     490             :         integer(IK)                     :: fileUnit, i, iostat
     491             :         integer(IK), parameter          :: NLINE = 11_IK
     492             : 
     493           3 :         assertion = .true.
     494             : 
     495          36 :         if (allocated(OutputList)) deallocate(OutputList); allocate(OutputList(NLINE))
     496          36 :         if (allocated(OutputList_ref)) deallocate(OutputList_ref); allocate(OutputList_ref(NLINE))
     497             : 
     498           3 :         OutputList_ref( 1)%record = ""
     499           3 :         OutputList_ref( 2)%record = "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
     500           3 :         OutputList_ref( 3)%record = "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
     501           3 :         OutputList_ref( 4)%record = "%%                                                  Have you asked yourself:                                                  %%"
     502           3 :         OutputList_ref( 5)%record = "%%                                           Why does the Universe bother to exist?                                           %%"
     503           3 :         OutputList_ref( 6)%record = "%%                                           What is the origin of mass and matter?                                           %%"
     504           3 :         OutputList_ref( 7)%record = "%%                                                What is the origin of life?                                                 %%"
     505           3 :         OutputList_ref( 8)%record = "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
     506           3 :         OutputList_ref( 9)%record = "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
     507           3 :         OutputList_ref(10)%record = ""
     508           3 :         OutputList_ref(11)%record = ""
     509             : 
     510          15 :         allocate(Decoration%List(4))
     511             : 
     512           3 :         Decoration%List(1)%record = "Have you asked yourself:"
     513           3 :         Decoration%List(2)%record = "Why does the Universe bother to exist?"
     514           3 :         Decoration%List(3)%record = "What is the origin of mass and matter?"
     515           3 :         Decoration%List(4)%record = "What is the origin of life?"
     516             : 
     517           3 :         open(newunit = fileUnit, status = "scratch")
     518             :         !open(newunit = fileUnit, file = Test%outDir//"/Test_Decoration_mod@test_writeDecoratedList_2."//num2str(Test%Image%id)//".out", status = "replace")
     519             : 
     520             :         call Decoration%writeDecoratedList  ( Decoration%List &
     521             :                                             , symbol = "%" &
     522             :                                             , width = 128_IK &
     523             :                                             , thicknessHorz = 2_IK &
     524             :                                             , thicknessVert = 2_IK &
     525             :                                             , marginTop = 1_IK &
     526             :                                             , marginBot = 2_IK &
     527             :                                             , outputUnit = fileUnit &
     528           3 :                                             )
     529             : 
     530           3 :         rewind(fileUnit)
     531             : 
     532          36 :         do i = 1, NLINE
     533             : 
     534          33 :             if(allocated(OutputList(i)%record)) deallocate(OutputList(i)%record)
     535          33 :             allocate(character(132) :: OutputList(i)%record)
     536          33 :             read(fileUnit,"(A132)", iostat = iostat) OutputList(i)%record
     537          33 :             assertion = iostat == 0_IK
     538             :             if (.not. assertion) return ! LCOV_EXCL_LINE
     539          33 :             OutputList(i)%record = trim(adjustl(OutputList(i)%record))
     540             : 
     541          33 :             assertionCurrent = OutputList(i)%record == OutputList_ref(i)%record
     542          33 :             assertion = assertion .and. assertionCurrent
     543             : 
     544          36 :             if (Test%isDebugMode .and. .not. assertionCurrent) then
     545             :             ! LCOV_EXCL_START
     546             :                 write(Test%outputUnit,"(*(g0))")
     547             :                 write(Test%outputUnit,"(*(g0))") "OutputList_ref(",num2str(i),")%record = ", OutputList_ref(i)%record
     548             :                 write(Test%outputUnit,"(*(g0))") "OutputList    (",num2str(i),")%record = ", OutputList(i)%record
     549             :                 write(Test%outputUnit,"(*(g0))")
     550             :             end if
     551             :             ! LCOV_EXCL_STOP
     552             : 
     553             :         end do
     554             : 
     555          81 :     end function test_writeDecoratedList_2
     556             : 
     557             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     558             : 
     559           3 :     function test_drawLine_1() result(assertion)
     560           3 :         use Constants_mod, only: IK
     561             :         implicit none
     562             :         logical                     :: assertion
     563             :         character(*), parameter     :: line_ref =   "HelloWorld!HelloWorld!HelloWorld!HelloWorld!HelloWorld!HelloWorld!&
     564             :                                                     &HelloWorld!HelloWorld!HelloWorld!HelloWorld!Hello"
     565           3 :         character(:), allocatable   :: line
     566           3 :         line = drawLine(symbol = "HelloWorld!", width = 115_IK)
     567           3 :         assertion = line == line_ref
     568             :         ! LCOV_EXCL_START
     569             :         if (Test%isDebugMode .and. .not. assertion) then
     570             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     571             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "line_ref =", line_ref
     572             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "line     =", line
     573             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     574             :         end if
     575             :         ! LCOV_EXCL_STOP
     576           3 :     end function test_drawLine_1
     577             : 
     578             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     579             : 
     580           3 :     function test_drawLine_2() result(assertion)
     581           3 :         use Constants_mod, only: IK
     582             :         implicit none
     583             :         logical                     :: assertion
     584             :         character(*), parameter     :: line_ref =   "HelloWorld!HelloWorld!HelloWorld!HelloWorld!HelloWorld!HelloWorld!&
     585             :                                                     &HelloWorld!HelloWorld!HelloWorld!HelloWorld!HelloWorld!HelloWorld!"
     586           3 :         character(:), allocatable   :: line
     587           3 :         line = drawLine(symbol = "HelloWorld!")
     588           3 :         assertion = line == line_ref
     589           3 :         if (Test%isDebugMode .and. .not. assertion) then
     590             :         ! LCOV_EXCL_START
     591             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     592             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "line_ref =", line_ref
     593             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "line     =", line
     594             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     595             :         end if
     596             :         ! LCOV_EXCL_STOP
     597           3 :     end function test_drawLine_2
     598             : 
     599             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     600             : 
     601           3 :     function test_drawLine_3() result(assertion)
     602           3 :         use Constants_mod, only: IK
     603             :         implicit none
     604             :         logical                     :: assertion
     605             :         character(*), parameter     :: line_ref =   "******************************************************************&
     606             :                                                     &******************************************************************"
     607           3 :         character(:), allocatable   :: line
     608           3 :         line = drawLine()
     609           3 :         assertion = line == line_ref
     610           3 :         if (Test%isDebugMode .and. .not. assertion) then
     611             :         ! LCOV_EXCL_START
     612             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     613             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "line_ref =", line_ref
     614             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "line     =", line
     615             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     616             :         end if
     617             :         ! LCOV_EXCL_STOP
     618           3 :     end function test_drawLine_3
     619             : 
     620             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     621             : 
     622           3 :     function test_sandwich_1() result(assertion)
     623           3 :         use Constants_mod, only: IK
     624             :         implicit none
     625             :         logical                     :: assertion
     626             :         character(*), parameter     :: sandwichedText_ref = "%                       The absence of evidence is not evidence for absence.                       %"
     627           3 :         character(:), allocatable   :: sandwichedText
     628             :         sandwichedText = sandwich   ( text = "The absence of evidence is not evidence for absence." &
     629             :                                     , symbol = "%" &
     630             :                                     , width = 100_IK &
     631             :                                     , thicknessHorz = 1_IK &
     632           3 :                                     )
     633           3 :         assertion = sandwichedText == sandwichedText_ref
     634           3 :         if (Test%isDebugMode .and. .not. assertion) then
     635             :         ! LCOV_EXCL_START
     636             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     637             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "sandwichedText_ref   =", sandwichedText_ref
     638             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "sandwichedText       =", sandwichedText
     639             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     640             :         end if
     641             :         ! LCOV_EXCL_STOP
     642           3 :     end function test_sandwich_1
     643             : 
     644             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     645             : 
     646           3 :     function test_sandwich_2() result(assertion)
     647           3 :         use Constants_mod, only: IK
     648             :         implicit none
     649             :         logical                     :: assertion
     650             :         character(*), parameter     :: sandwichedText_ref = "%%%%                    The absence of evidence is not evidence for absence.                    %%%%"
     651           3 :         character(:), allocatable   :: sandwichedText
     652             :         sandwichedText = sandwich   ( text = "The absence of evidence is not evidence for absence." &
     653             :                                     , symbol = "%" &
     654             :                                     , width = 100_IK &
     655           3 :                                     )
     656           3 :         assertion = sandwichedText == sandwichedText_ref
     657           3 :         if (Test%isDebugMode .and. .not. assertion) then
     658             :         ! LCOV_EXCL_START
     659             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     660             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "sandwichedText_ref   =", sandwichedText_ref
     661             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "sandwichedText       =", sandwichedText
     662             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     663             :         end if
     664             :         ! LCOV_EXCL_STOP
     665           3 :     end function test_sandwich_2
     666             : 
     667             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     668             : 
     669           3 :     function test_sandwich_3() result(assertion)
     670           3 :         use Constants_mod, only: IK
     671             :         implicit none
     672             :         logical                     :: assertion
     673             :         character(*), parameter     :: sandwichedText_ref = "%%%%                                    The absence of evidence is not evidence for absence.                                    %%%%"
     674           3 :         character(:), allocatable   :: sandwichedText
     675             :         sandwichedText = sandwich   ( text = "The absence of evidence is not evidence for absence." &
     676             :                                     , symbol = "%" &
     677           3 :                                     )
     678           3 :         assertion = sandwichedText == sandwichedText_ref
     679           3 :         if (Test%isDebugMode .and. .not. assertion) then
     680             :         ! LCOV_EXCL_START
     681             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     682             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "sandwichedText_ref   =", sandwichedText_ref
     683             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "sandwichedText       =", sandwichedText
     684             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     685             :         end if
     686             :         ! LCOV_EXCL_STOP
     687           3 :     end function test_sandwich_3
     688             : 
     689             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     690             : 
     691           3 :     function test_sandwich_4() result(assertion)
     692           3 :         use Constants_mod, only: IK
     693             :         implicit none
     694             :         logical                     :: assertion
     695             :         character(*), parameter     :: sandwichedText_ref = "****                                    The absence of evidence is not evidence for absence.                                    ****"
     696           3 :         character(:), allocatable   :: sandwichedText
     697           3 :         sandwichedText = sandwich( text = "The absence of evidence is not evidence for absence." )
     698           3 :         assertion = sandwichedText == sandwichedText_ref
     699           3 :         if (Test%isDebugMode .and. .not. assertion) then
     700             :         ! LCOV_EXCL_START
     701             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     702             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "sandwichedText_ref   =", sandwichedText_ref
     703             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "sandwichedText       =", sandwichedText
     704             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     705             :         end if
     706             :         ! LCOV_EXCL_STOP
     707           3 :     end function test_sandwich_4
     708             : 
     709             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     710             : 
     711           3 :     function test_sandwich_5() result(assertion)
     712           3 :         use Constants_mod, only: IK
     713             :         implicit none
     714             :         logical                     :: assertion
     715             :         character(*), parameter     :: sandwichedText_ref = "****                                                                                                                            ****"
     716           3 :         character(:), allocatable   :: sandwichedText
     717           3 :         sandwichedText = sandwich()
     718           3 :         assertion = sandwichedText == sandwichedText_ref
     719           3 :         if (Test%isDebugMode .and. .not. assertion) then
     720             :         ! LCOV_EXCL_START
     721             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     722             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "sandwichedText_ref   =", sandwichedText_ref
     723             :             write(Test%outputUnit,"(*(g0.15,:,' '))") "sandwichedText       =", sandwichedText
     724             :             write(Test%outputUnit,"(*(g0.15,:,' '))")
     725             :         end if
     726             :         ! LCOV_EXCL_STOP
     727           3 :     end function test_sandwich_5
     728             : 
     729             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     730             : 
     731           3 :     function test_wrapText() result(assertion)
     732           3 :         use Constants_mod, only: IK
     733             :         use String_mod, only: num2str
     734             :         implicit none
     735             :         logical                         :: assertion, assertionCurrent
     736           3 :         type(CharVec_type), allocatable :: ListOfLines_ref(:)
     737           3 :         type(CharVec_type), allocatable :: ListOfLines(:)
     738             :         integer(IK) , parameter         :: nline_ref = 6_IK
     739           3 :         character(:), allocatable       :: string
     740             :         integer(IK)                     :: nline, i
     741             : 
     742           3 :         assertion = .true.
     743             : 
     744             :         string =    "ParaMonte is a serial/parallel library of Monte Carlo routines for sampling mathematical objective &
     745             :                     &functions of arbitrary-dimensions, in particular, the posterior distributions of Bayesian models in &
     746             :                     &data science, Machine Learning, and scientific inference, with the design goal of unifying the &
     747             :                     &automation (of Monte Carlo simulations), user-friendliness (of the library), accessibility &
     748             :                     &(from multiple programming environments), high-performance (at runtime), and scalability &
     749           3 :                     &(across many parallel processors)."
     750             : 
     751          21 :         if (allocated(ListOfLines_ref)) deallocate(ListOfLines_ref); allocate(ListOfLines_ref(nline_ref))
     752           3 :         ListOfLines_ref(1)%record = "ParaMonte is a serial/parallel library of Monte Carlo routines for sampling mathematical objective "
     753           3 :         ListOfLines_ref(2)%record = "functions of arbitrary-dimensions, in particular, the posterior distributions of Bayesian models in "
     754           3 :         ListOfLines_ref(3)%record = "data science, Machine Learning, and scientific inference, with the design goal of unifying the "
     755           3 :         ListOfLines_ref(4)%record = "automation (of Monte Carlo simulations), user-friendliness (of the library), accessibility (from "
     756           3 :         ListOfLines_ref(5)%record = "multiple programming environments), high-performance (at runtime), and scalability (across many "
     757           3 :         ListOfLines_ref(6)%record = "parallel processors)."
     758             : 
     759          42 :         ListOfLines = wrapText(string = string, width = 100_IK, split = " ", pad = "    ")
     760           3 :         nline = size(ListOfLines)
     761             : 
     762           3 :         assertion = nline == nline_ref
     763             : 
     764           3 :         if (assertion) then
     765          21 :             do i = 1, nline
     766          18 :                 assertionCurrent = ListOfLines(i)%record == ListOfLines_ref(i)%record
     767          18 :                 assertion = assertion .and. assertionCurrent
     768          21 :                 if (Test%isDebugMode .and. .not. assertionCurrent) then
     769             :                 ! LCOV_EXCL_START
     770             :                     write(Test%outputUnit,"(*(g0))")
     771             :                     write(Test%outputUnit,"(*(g0))") "ListOfLines_ref(",num2str(i),")%record = '", ListOfLines_ref(i)%record, "'"
     772             :                     write(Test%outputUnit,"(*(g0))") "ListOfLines    (",num2str(i),")%record = '", ListOfLines(i)%record, "'"
     773             :                     write(Test%outputUnit,"(*(g0))")
     774             :                 end if
     775             :                 ! LCOV_EXCL_STOP
     776             :             end do
     777             :         ! LCOV_EXCL_START
     778             :         else
     779             :             if (Test%isDebugMode .and. .not. assertion) then
     780             :                 write(Test%outputUnit,"(*(g0))")
     781             :                 write(Test%outputUnit,"(*(g0))") "nline_ref = ", nline_ref
     782             :                 write(Test%outputUnit,"(*(g0))") "nline     = ", nline
     783             :                 write(Test%outputUnit,"(*(g0))")
     784             :             end if
     785             :             return
     786             :         end if
     787             :         ! LCOV_EXCL_STOP
     788             : 
     789          39 :     end function test_wrapText
     790             : 
     791             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     792             : 
     793             : end module Test_Decoration_mod ! LCOV_EXCL_LINE

ParaMonte: Plain Powerful Parallel Monte Carlo Library 
The Computational Data Science Lab
© Copyright 2012 - 2021