Test performed on single real values.
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| procedure(realCompInterface), | public, | nopass, pointer | :: | compare | Pointer to a comparisson function used to perform the test. |
||
| real(kind=wp), | public | :: | res | Real value result from some process. |
|||
| character(len=NAME_LENGTH), | public | :: | test_name | Name of the test case. |
|||
| real(kind=wp), | public | :: | tgt | Target real value result for some process. |
Constructor interface for a TestRealVal object.
Construct new TestRealVal given a name.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | ts_name | Name of the new TestRealVal object. |
||
| real(kind=wp), | optional | :: | eps | Allowed margin of error |
Return new TestRealVal object.
Destruct TestRealVal object by deallocating its next object pointer.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(TestRealVal), | intent(inout) | :: | self |
Run test on real values and print summary report for images.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(TestRealVal), | intent(in) | :: | self |
Return the tests that passed up to and including this one in the linked list.
type, public, extends(Test) :: TestRealVal
!! Test performed on single real values.
procedure(realCompInterface), public, nopass, pointer :: compare
!! Pointer to a comparisson function used to perform the test.
real(kind=wp), private :: eps
!! Allowed margin of error between real numbers
real(kind=wp), public :: res
!! Real value result from some process.
real(kind=wp), public :: tgt
!! Target real value result for some process.
contains
procedure, public, pass :: run => runTestRealVal
procedure, private, nopass :: printFail => printFailTestRealVal
final :: deleteTestRealVal
end type TestRealVal