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

Max 3 Real Verify Function
Math Reals Class

Private Function Max3RealVerify()
    ' Test the Max3Real function.

    Debug.Assert Max3Real(2, 0, -2) = 2
    Debug.Assert Max3Real(-2, 2, 0) = 2
    Debug.Assert Max3Real(0, -2, 2) = 2

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

    ' Perform Binary comparisons.
    Debug.Assert Max3Real("Joe", "JOE", "Bud") = "Joe"
    Debug.Assert Max3Real("Bud", "Joe", "JOE") = "Joe"
    Debug.Assert Max3Real("JOE", "Bud", "Joe") = "Joe"

End Function

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