julienne_test_description_m Module

Define an abstraction for describing test intentions and test functions


Uses

  • module~~julienne_test_description_m~~UsesGraph module~julienne_test_description_m julienne_test_description_m module~julienne_string_m julienne_string_m module~julienne_test_description_m->module~julienne_string_m module~julienne_test_diagnosis_m julienne_test_diagnosis_m module~julienne_test_description_m->module~julienne_test_diagnosis_m module~julienne_test_result_m julienne_test_result_m module~julienne_test_description_m->module~julienne_test_result_m iso_c_binding iso_c_binding module~julienne_string_m->iso_c_binding module~julienne_test_diagnosis_m->module~julienne_string_m module~julienne_test_diagnosis_m->iso_c_binding module~julienne_test_result_m->module~julienne_string_m module~julienne_test_result_m->module~julienne_test_diagnosis_m

Used by

  • module~~julienne_test_description_m~~UsedByGraph module~julienne_test_description_m julienne_test_description_m module~julienne_m julienne_m module~julienne_m->module~julienne_test_description_m module~julienne_test_m julienne_test_m module~julienne_m->module~julienne_test_m module~julienne_test_fixture_m julienne_test_fixture_m module~julienne_m->module~julienne_test_fixture_m module~julienne_test_harness_m julienne_test_harness_m module~julienne_m->module~julienne_test_harness_m module~julienne_test_description_s julienne_test_description_s module~julienne_test_description_s->module~julienne_test_description_m module~julienne_test_m->module~julienne_test_description_m module~julienne_test_s julienne_test_s module~julienne_test_s->module~julienne_test_description_m module~julienne_test_s->module~julienne_test_m module~julienne_test_fixture_m->module~julienne_test_m module~julienne_test_suite_s julienne_test_suite_s module~julienne_test_suite_s->module~julienne_m program~assertions assertions program~assertions->module~julienne_m program~check_for_command_line_argument check_for_command_line_argument program~check_for_command_line_argument->module~julienne_m program~get_command_line_flag_value get_command_line_flag_value program~get_command_line_flag_value->module~julienne_m program~scaffold scaffold program~scaffold->module~julienne_m module~julienne_test_fixture_s julienne_test_fixture_s module~julienne_test_fixture_s->module~julienne_test_fixture_m module~julienne_test_harness_m->module~julienne_test_fixture_m module~julienne_test_harness_s julienne_test_harness_s module~julienne_test_harness_s->module~julienne_test_harness_m

Interfaces

interface

  • public module function filter(test_descriptions, subject) result(filtered_test_descriptions)

    The result is .true. an array of test_description_t objects whose description_ or contains the substring specified by command-line --contains flag if present, or all test_descriptions if the subject contains the same substring

    Arguments

    Type IntentOptional Attributes Name
    type(test_description_t), intent(in) :: test_descriptions(:)
    character(len=*), intent(in) :: subject

    Return Value type(test_description_t), allocatable, (:)

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)

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

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

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

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)


Derived Types

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

private module function construct_from_characters (description, diagnosis_function)

The result is a test_description_t object with the components defined by the dummy arguments
private module function construct_from_string (description, diagnosis_function)

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

Type-Bound Procedures

generic, public :: contains_text => contains_string_t, contains_characters
generic, public :: operator(==) => equals
procedure, public :: run
procedure, private :: contains_characters
procedure, private :: contains_string_t
procedure, private :: equals