test_result_t Derived Type

type, public :: test_result_t

Test result type for better test management


Components

Type Visibility Attributes Name Initial
logical, public :: passed = .true.
character(len=256), public :: message = ""
integer, public :: error_count = 0

Type-Bound Procedures

procedure, public :: fail

  • private subroutine fail(this, message)

    Mark test as failed with error message

    Arguments

    Type IntentOptional Attributes Name
    class(test_result_t), intent(inout) :: this
    character(len=*), intent(in) :: message

procedure, public :: get_status

  • private function get_status(this) result(status)

    Get test status as integer code

    Arguments

    Type IntentOptional Attributes Name
    class(test_result_t), intent(in) :: this

    Return Value integer