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

Fix Real Verify Sub
Math Reals Class

Private Sub FixRealVerify()
    ' Test the FixReal function.

    Debug.Assert FixReal(2.9) = 2
    Debug.Assert FixReal(2.1) = 2
    Debug.Assert FixReal(2) = 2

    Debug.Assert FixReal(1.9) = 1
    Debug.Assert FixReal(1.1) = 1
    Debug.Assert FixReal(1) = 1
    
    Debug.Assert FixReal(0.9) = 0
    Debug.Assert FixReal(0.1) = 0
    Debug.Assert FixReal(0) = 0
    Debug.Assert FixReal(-0.1) = 0
    Debug.Assert FixReal(-0.9) = 0
    
    Debug.Assert FixReal(-1) = -1
    Debug.Assert FixReal(-1.1) = -1
    Debug.Assert FixReal(-1.9) = -1
    
    Debug.Assert FixReal(-2) = -2
    Debug.Assert FixReal(-2.1) = -2
    Debug.Assert FixReal(-2.9) = -2
    
    Debug.Assert IsNull(FixReal(Null))
    Debug.Assert IsNull(FixReal("Joe"))

End Sub

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