test_description_t Derived Type

type, public :: test_description_t

Encapsulate test descriptions and test-functions


Components

Type Visibility Attributes Name Initial
character(len=:), private, allocatable :: description_
procedure(diagnosis_function_i), private, pointer, nopass :: diagnosis_function_ => null()

Constructor

public interface test_description_t

  • private module function construct_from_characters(description, diagnosis_function) result(test_description)

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

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: description
    procedure(diagnosis_function_i), intent(in), optional, pointer :: diagnosis_function

    Return Value type(test_description_t)

  • private module function construct_from_string(description, diagnosis_function) result(test_description)

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

    Arguments

    Type IntentOptional Attributes Name
    type(string_t), intent(in) :: description
    procedure(diagnosis_function_i), intent(in), optional, pointer :: diagnosis_function

    Return Value type(test_description_t)


Type-Bound Procedures

generic, public :: contains_text => contains_string_t, contains_characters

generic, public :: operator(==) => equals

  • private interface equals()

    Arguments

    None

procedure, public :: run

  • interface

    private impure elemental module function run(self) result(test_result)

    The result encapsulates the test description and test outcome

    Arguments

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

    Return Value type(test_result_t)

procedure, private :: contains_characters

  • interface

    private elemental module function contains_characters(self, substring) result(match)

    The result is .true. if the test description includes the value of substring

    Arguments

    Type IntentOptional Attributes Name
    class(test_description_t), intent(in) :: self
    character(len=*), intent(in) :: substring

    Return Value logical

procedure, private :: contains_string_t

  • interface

    private elemental module function contains_string_t(self, substring) result(match)

    The result is .true. if the test description includes the value of substring

    Arguments

    Type IntentOptional Attributes Name
    class(test_description_t), intent(in) :: self
    type(string_t), intent(in) :: substring

    Return Value logical

procedure, private :: equals

  • interface

    private elemental module function equals(lhs, rhs) result(lhs_eq_rhs)

    The result is .true. if the components of the lhs & rhs are equal

    Arguments

    Type IntentOptional Attributes Name
    class(test_description_t), intent(in) :: lhs
    class(test_description_t), intent(in) :: rhs

    Return Value logical