unit_test_good(3f) - [M_verify] call command "goodbad NAME good" (LICENSE:PD)
Synopsis
Description
Examples
Author
License
subroutine unit_test_good(name,opts,msg)
character(len=*),intent(in) :: name character(len=*),intent(in),optional :: opts character(len=*),intent(in),optional :: msg
A shortcut for
call unit_test(name,.true.) call unit_test_done(name,opts,msg)
Sample program:
program demo_unit_test_good use M_verify, only: unit_test_start, unit_test_done use M_verify, only: unit_test use M_verify, only: unit_test_good, unit_test_badimplicit none integer :: x x=10 call unit_test_start(myroutine)
call unit_test(myroutine, x > 3 ,test if big enough) call unit_test(myroutine, x < 100 ,test if small enough)
call unit_test_good(myroutine,msg=checks on "myroutine" )
end program demo_unit_test_good
John S. Urban
Public Domain
Nemo Release 3.1 | unit_test_good (3) | June 29, 2025 |