test_diagnosis_t Derived Type

type, public :: test_diagnosis_t

Encapsulate test outcome and diagnostic information


Inherited by

type~~test_diagnosis_t~~InheritedByGraph type~test_diagnosis_t test_diagnosis_t type~test_result_t test_result_t type~test_result_t->type~test_diagnosis_t diagnosis_

Components

Type Visibility Attributes Name Initial
character(len=:), private, allocatable :: diagnostics_string_
logical, private :: test_passed_

Constructor

public interface test_diagnosis_t

  • private elemental module function construct_from_character(test_passed, diagnostics_string) result(test_diagnosis)

    The result is a test_diagnosis_t object with the components defined by the dummy arguments

    Arguments

    Type IntentOptional Attributes Name
    logical, intent(in) :: test_passed
    character(len=*), intent(in) :: diagnostics_string

    Return Value type(test_diagnosis_t)

  • private elemental module function construct_from_string_t(test_passed, diagnostics_string) result(test_diagnosis)

    The result is a test_diagnosis_t object with the components defined by the dummy arguments

    Arguments

    Type IntentOptional Attributes Name
    logical, intent(in) :: test_passed
    type(string_t), intent(in) :: diagnostics_string

    Return Value type(test_diagnosis_t)


Type-Bound Procedures

procedure, public :: diagnostics_string

  • interface

    private elemental module function diagnostics_string(self) result(string_)

    The result is a string describing the condition(s) that caused a test failure

    Arguments

    Type IntentOptional Attributes Name
    class(test_diagnosis_t), intent(in) :: self

    Return Value type(string_t)

procedure, public :: test_passed

  • interface

    private elemental module function test_passed(self) result(passed)

    The result is .true. if the test passed and false otherwise

    Arguments

    Type IntentOptional Attributes Name
    class(test_diagnosis_t), intent(in) :: self

    Return Value logical