testing misc functionality

This commit is contained in:
Martin Diehl 2023-04-14 10:30:03 +02:00
parent c8476cebf6
commit 563f908d0c
2 changed files with 85 additions and 0 deletions

View File

@ -8,6 +8,7 @@ module materialpoint
use signal
use CLI
use prec
use misc
use IO
use YAML_types
use YAML_parse
@ -47,6 +48,7 @@ subroutine materialpoint_initAll()
call CLI_init() ! grid and mesh commandline interface
call signal_init()
call prec_init()
call misc_init()
call IO_init()
#if defined(MESH)
call FEM_quadrature_init()

View File

@ -17,11 +17,24 @@ module misc
end interface misc_optional
public :: &
misc_init, &
misc_optional
contains
!--------------------------------------------------------------------------------------------------
!> @brief Do self test.
!--------------------------------------------------------------------------------------------------
subroutine misc_init()
print'(/,1x,a)', '<<<+- misc init -+>>>'
call misc_selfTest()
end subroutine misc_init
!--------------------------------------------------------------------------------------------------
!> @brief Return bool value if given, otherwise default.
!--------------------------------------------------------------------------------------------------
@ -97,4 +110,74 @@ pure function misc_optional_string(given,default) result(var)
end function misc_optional_string
!--------------------------------------------------------------------------------------------------
!> @brief Check correctness of some misc functions.
!--------------------------------------------------------------------------------------------------
subroutine misc_selfTest()
real(pReal) :: r
call random_number(r)
if (test_str('DAMASK') /= 'DAMASK') error stop 'optional_string, present'
if (test_str() /= 'default') error stop 'optional_string, not present'
if (misc_optional(default='default') /= 'default') error stop 'optional_string, default only'
if (test_int(20191102) /= 20191102) error stop 'optional_int, present'
if (test_int() /= 42) error stop 'optional_int, not present'
if (misc_optional(default=20191102) /= 20191102) error stop 'optional_int, default only'
if (dNeq(test_real(r),r)) error stop 'optional_float, present'
if (dNeq(test_real(),0.0_pReal)) error stop 'optional_float, not present'
if (dNeq(misc_optional(default=r),r)) error stop 'optional_float, default only'
if (test_bool(r<0.5_pReal) .neqv. r<0.5_pReal) error stop 'optional_bool, present'
if (.not. test_bool()) error stop 'optional_bool, not present'
if (misc_optional(default=r>0.5_pReal) .neqv. r>0.5_pReal) error stop 'optional_bool, default only'
contains
function test_str(str_in) result(str_out)
character(len=:), allocatable :: str_out
character(len=*), intent(in), optional :: str_in
str_out = misc_optional_string(str_in,'default')
end function test_str
function test_int(int_in) result(int_out)
integer :: int_out
integer, intent(in), optional :: int_in
int_out = misc_optional_integer(int_in,42)
end function test_int
function test_real(real_in) result(real_out)
real(pReal) :: real_out
real(pReal), intent(in), optional :: real_in
real_out = misc_optional_real(real_in,0.0_pReal)
end function test_real
function test_bool(bool_in) result(bool_out)
logical :: bool_out
logical, intent(in), optional :: bool_in
bool_out = misc_optional_bool(bool_in,.true.)
end function test_bool
end subroutine misc_selfTest
end module misc