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

Int Real Verify Function
Math Reals Class

Private Function IntRealVerify()
    ' Test the IntReal function.

    Debug.Assert IntReal(2.1) = 2
    Debug.Assert IntReal(2) = 2
    
    Debug.Assert IntReal(1.9) = 1
    Debug.Assert IntReal(1.1) = 1
    Debug.Assert IntReal(1) = 1
    
    Debug.Assert IntReal(0.9) = 0
    Debug.Assert IntReal(0.1) = 0
    Debug.Assert IntReal(0) = 0
    
    Debug.Assert IntReal(-0.1) = -1
    Debug.Assert IntReal(-0.9) = -1
    Debug.Assert IntReal(-1) = -1
    
    Debug.Assert IntReal(-1.1) = -2
    Debug.Assert IntReal(-1.9) = -2
    Debug.Assert IntReal(-2) = -2
    
    Debug.Assert IntReal(-2.1) = -3

    Debug.Assert IsNull(IntReal(Null))
    Debug.Assert IsNull(IntReal("Joe"))

End Function

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