Define an abstraction for describing test intentions and array-valued test functions
The result is a vector_test_description_t object with the components defined by the dummy arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(string_t), | intent(in) | :: | description_vector(:) | |||
| class(vector_function_strategy_t), | intent(in) | :: | vector_function_strategy |
The result is .true. if the test description includes the value of substring
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(vector_test_description_t), | intent(in) | :: | self | |||
| character(len=*), | intent(in) | :: | substring |
The result encapsulates the test description and test outcome
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(vector_test_description_t), | intent(in) | :: | self |
| procedure(vector_function_i), public, deferred, nopass :: vector_function |
Encapsulate test descriptions and vector-valued test functions
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| type(string_t), | private, | allocatable | :: | description_vector_(:) | |||
| class(vector_function_strategy_t), | private, | allocatable | :: | vector_function_strategy_ |
| private module function construct (description_vector, vector_function_strategy) | The result is a vector_test_description_t object with the components defined by the dummy arguments |
| procedure, public :: contains_text | |
| procedure, public :: run |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(string_t), | intent(in) | :: | description_vector(:) | |||
| class(vector_function_strategy_t), | intent(in) | :: | vector_function_strategy |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(vector_test_description_t), | intent(in) | :: | self | |||
| character(len=*), | intent(in) | :: | substring |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(vector_test_description_t), | intent(in) | :: | self |