<-- Previous || Up || Next -->

Min Real Verify Function
Math Reals Class

Private Function MinRealVerify()
    ' Test the MinReal function.

    Debug.Assert MinReal(-2, 2, 0) = -2
    Debug.Assert MinReal(0, -2, 2) = -2
    Debug.Assert MinReal(2, 0, -2) = -2
    Debug.Assert MinReal(-4, -2.2, 0, 2.2, 4) = -4
    Debug.Assert MinReal(4, -2.2, 0, 2.2, -4) = -4

    ' Return leftmost argument.
    Debug.Assert VarType(MinReal(2&, 2#, 2!)) = vbLong
    Debug.Assert VarType(MinReal(2#, 2!, 2&)) = vbDouble
    Debug.Assert VarType(MinReal(2!, 2&, 2#)) = vbSingle

    ' Perform Binary comparisons.
    Debug.Assert MinReal("JOE", "Tom", "Joe") = "JOE"
    Debug.Assert MinReal("Joe", "JOE", "Tom") = "JOE"
    Debug.Assert MinReal("Tom", "Joe", "JOE") = "JOE"

End Function

Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.