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

Exponent Part Verify Sub
Math Reals Class

Private Sub ExponentPartVerify()
    ' Test the ExponentPart function.
    
    Debug.Assert ExponentPart(-1.23E-15) = -15
    Debug.Assert ExponentPart(0.00123) = -3
    Debug.Assert ExponentPart(-0.0123) = -2
    Debug.Assert ExponentPart(0.123) = -1
    Debug.Assert ExponentPart(-1.23) = 0
    Debug.Assert ExponentPart(12.3) = 1
    Debug.Assert ExponentPart(-123) = 2
    Debug.Assert ExponentPart(1230) = 3
    Debug.Assert ExponentPart(-12300) = 4
    Debug.Assert ExponentPart(1.23E+15) = 15
    
    Debug.Assert IsNull(ExponentPart(Null))
    Debug.Assert IsNull(ExponentPart("Joe"))

End Sub

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