julienne_test_result_m Module

Define an abstraction for describing test results the test description and, if the test was not skipped, then also a test diagnosis.


Uses

  • module~~julienne_test_result_m~~UsesGraph module~julienne_test_result_m julienne_test_result_m module~julienne_string_m julienne_string_m module~julienne_test_result_m->module~julienne_string_m module~julienne_test_diagnosis_m julienne_test_diagnosis_m module~julienne_test_result_m->module~julienne_test_diagnosis_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

Used by

  • module~~julienne_test_result_m~~UsedByGraph module~julienne_test_result_m julienne_test_result_m module~julienne_m julienne_m module~julienne_m->module~julienne_test_result_m module~julienne_test_description_m julienne_test_description_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_m->module~julienne_test_result_m module~julienne_test_m->module~julienne_test_result_m module~julienne_test_m->module~julienne_test_description_m module~julienne_test_result_s julienne_test_result_s module~julienne_test_result_s->module~julienne_test_result_m module~julienne_test_description_s julienne_test_description_s module~julienne_test_description_s->module~julienne_test_description_m module~julienne_test_fixture_m->module~julienne_test_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_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

public interface test_result_t

  • private elemental module function construct_from_character(description, diagnosis) result(test_result)

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

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: description
    type(test_diagnosis_t), intent(in), optional :: diagnosis

    Return Value type(test_result_t)

  • private elemental module function construct_from_string(description, diagnosis) result(test_result)

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

    Arguments

    Type IntentOptional Attributes Name
    type(string_t), intent(in) :: description
    type(test_diagnosis_t), intent(in), optional :: diagnosis

    Return Value type(test_result_t)

interface

  • private module subroutine co_characterize(self)

    Print a description of the test, its outcome, and diagnostic information if the test fails

    Arguments

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

interface

  • private elemental module function description_contains_characters(self, substring) result(substring_found)

    The result is true if and only if the test description contains the substring

    Arguments

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

    Return Value logical

interface

  • private elemental module function description_contains_string(self, substring) result(substring_found)

    The result is true if and only if the test description contains the substring

    Arguments

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

    Return Value logical

interface

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

    The result is true if and only if the test passed on all images

    Arguments

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

    Return Value logical

interface

  • private impure elemental module function skipped(self) result(test_skipped)

    The result is true if and only if the test result contains no diagnosis on any image

    Arguments

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

    Return Value logical


Derived Types

type, public ::  test_result_t

Encapsulate a test-description string and optionally a test diagnosis. This type is similar to test_description_t and test_diagnosis_t type but 1. Doesn't need the former's procedure(diagnosis_function_i) component and 2. Allocates an instance of the latter if and only if the test wasn't skipped.

Components

Type Visibility Attributes Name Initial
type(string_t), private :: description_
type(test_diagnosis_t), private, allocatable :: diagnosis_

Constructor

private elemental, module function construct_from_character (description, diagnosis)

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

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

Type-Bound Procedures

procedure, public :: co_characterize
generic, public :: description_contains => description_contains_string, description_contains_characters
procedure, public :: passed
procedure, public :: skipped
procedure, private :: description_contains_characters
procedure, private :: description_contains_string