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 |