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

Max 2 Real Verify Function
Math Reals Class

Private Function Max2RealVerify()
    ' Test the Max2Real function.

    Debug.Assert Max2Real(-2, 2) = 2
    Debug.Assert Max2Real(2, -2) = 2
    
    ' Return leftmost argument.
    Debug.Assert VarType(Max2Real(2&, 2#)) = vbLong
    Debug.Assert VarType(Max2Real(2#, 2&)) = vbDouble

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

End Function

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