File tree Expand file tree Collapse file tree 1 file changed +6
-2
lines changed Expand file tree Collapse file tree 1 file changed +6
-2
lines changed Original file line number Diff line number Diff line change 2
2
! Terms of use are as specified in LICENSE.txt
3
3
4
4
module julienne_test_result_m
5
- ! ! Define an abstraction for describing test intentions and results
5
+ ! ! Define an abstraction for describing test results the test description and,
6
+ ! ! if the test was not skipped, then also a test diagnosis.
6
7
use julienne_string_m, only : string_t
7
8
use julienne_test_diagnosis_m, only : test_diagnosis_t
8
9
implicit none
@@ -11,7 +12,10 @@ module julienne_test_result_m
11
12
public :: test_result_t
12
13
13
14
type test_result_t
14
- ! ! Encapsulate test descriptions and outcomes
15
+ ! ! Encapsulate a test-description string and optionally a test diagnosis.
16
+ ! ! This type is similar to test_description_t and test_diagnosis_t type but
17
+ ! ! 1. Doesn't need the former's procedure(diagnosis_function_i) component and
18
+ ! ! 2. Allocates an instance of the latter if and only if the test wasn't skipped.
15
19
private
16
20
type (string_t) :: description_
17
21
type (test_diagnosis_t), allocatable :: diagnosis_
You can’t perform that action at this time.
0 commit comments