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

Mod Offset By One Verify Function
Math Reals Class

Private Function ModOffsetByOneVerify()
    ' Test the ModOffsetByOne function.

    Debug.Assert ModOffsetByOne(5, 3) = 2
    Debug.Assert ModOffsetByOne(4, 3) = 1
    Debug.Assert ModOffsetByOne(3, 3) = 3
    Debug.Assert ModOffsetByOne(2, 3) = 2
    Debug.Assert ModOffsetByOne(1, 3) = 1
    Debug.Assert ModOffsetByOne(0, 3) = 3
    Debug.Assert ModOffsetByOne(-1, 3) = -1
    Debug.Assert ModOffsetByOne(-2, 3) = -2
    Debug.Assert ModOffsetByOne(-3, 3) = -3
    Debug.Assert ModOffsetByOne(-4, 3) = -1
    Debug.Assert ModOffsetByOne(-5, 3) = -2

    Debug.Assert ModOffsetByOne(5, -3) = 2
    Debug.Assert ModOffsetByOne(4, -3) = 1
    Debug.Assert ModOffsetByOne(3, -3) = 3
    Debug.Assert ModOffsetByOne(2, -3) = 2
    Debug.Assert ModOffsetByOne(1, -3) = 1
    Debug.Assert ModOffsetByOne(0, -3) = -3
    Debug.Assert ModOffsetByOne(-1, -3) = -1
    Debug.Assert ModOffsetByOne(-2, -3) = -2
    Debug.Assert ModOffsetByOne(-3, -3) = -3
    Debug.Assert ModOffsetByOne(-4, -3) = -1
    Debug.Assert ModOffsetByOne(-5, -3) = -2

    Debug.Assert IsNull(ModOffsetByOne(Null, 3))
    Debug.Assert IsNull(ModOffsetByOne("Joe", 3))
    Debug.Assert IsNull(ModOffsetByOne(3, Null))
    Debug.Assert IsNull(ModOffsetByOne(3, "Joe"))

End Function

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