Testing utilities module with proper error handling
Test result type for better test management
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
logical, | public | :: | passed | = | .true. | ||
character(len=256), | public | :: | message | = | "" | ||
integer, | public | :: | error_count | = | 0 |
procedure, public :: fail | |
procedure, public :: get_status |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | filename | |||
type(test_result_t), | intent(inout), | optional | :: | test_result |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=wp), | intent(in) | :: | actual | |||
real(kind=wp), | intent(in) | :: | expected | |||
real(kind=wp), | intent(in), | optional | :: | tolerance | ||
character(len=*), | intent(in), | optional | :: | message | ||
type(test_result_t), | intent(inout), | optional | :: | test_result |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
logical, | intent(in) | :: | condition | |||
character(len=*), | intent(in), | optional | :: | message | ||
type(test_result_t), | intent(inout), | optional | :: | test_result |