---

C Library Functions  - unit_test_end (3)

---

NAME

unit_test_end(3f) - [M_framework__verify] end test of procedure started by unit_test_start(3f) (LICENSE:PD)

CONTENTS

Synopsis
Description
Examples
Author
License

SYNOPSIS

subroutine unit_test_end(name,msg,opts)

    character(len=*),intent(in) :: name
    character(len=*),intent(in),optional :: msg
    character(len=*),intent(in),optional :: opts

DESCRIPTION

A message is shown including the duration of the tests If there have been no failures the optional shell command

       $COMMAND name="name" type="end" passed="passed|failed|untested" ...
       clicks=NNNN msg="message" opts

is executed

EXAMPLES

Sample program:

    program demo_unit_test_end
    use M_framework, only: unit_test_start
    use M_framework, only: unit_test
    use M_framework, only: unit_test_end
    implicit none
    integer :: x
    x=10
    call unit_test_start(’myroutine’)

    call unit_test(’myroutine’, x > 3 ,’if big enough’)
    call unit_test(’myroutine’, x < 100 ,’if small enough’)

    ! program execution stopped
    call unit_test_end (’myroutine’,msg=’checks on "myroutine"’ )

    end program demo_unit_test_end

AUTHOR

John S. Urban

LICENSE

Public Domain

---

Nemo Release 3.1

unit_test_end (3)

July 22, 2023

Generated by manServer 1.08 from d4cf0aaf-4cd5-474b-8582-032556b0f51d using man macros.