'
' This file is part of the Collabora Office project.
'
' This Source Code Form is subject to the terms of the Mozilla Public
' License, v. 2.0. If a copy of the MPL was not distributed with this
' file, You can obtain one at http://mozilla.org/MPL/2.0/.
'

Option VBASupport 1
Option Explicit

Function doUnitTest() As String
    TestUtil.TestInit
    verify_testCInt
    doUnitTest = TestUtil.GetResult()
End Function

Sub verify_testCInt()
    On Error GoTo errorHandler

    TestUtil.AssertEqual(CInt(-1.1), -1, "CInt(-1.1)")
    TestUtil.AssertEqual(CInt(-1.1), -1, "CInt(-1.1)")
    TestUtil.AssertEqual(CInt(-1.9), -2, "CInt(-1.9)")
    TestUtil.AssertEqual(CInt(0.2),   0, "CInt(0.2)")

    ' tdf#162711 - VBASupport requires banker’s rounding for integer conversions
    TestUtil.AssertEqual(CInt(0.5), 0, "CInt(0.5)")
    TestUtil.AssertEqual(CInt(1.5), 2, "CInt(1.5)")
    TestUtil.AssertEqual(CInt(2.5), 2, "CInt(2.5)")
    TestUtil.AssertEqual(CInt(3.5), 4, "CInt(3.5)")

    TestUtil.AssertEqual(CInt(10.51),       11, "CInt(10.51)")
    TestUtil.AssertEqual(CInt("&H75FF"), 30207, "CInt(""&H75FF"")")
    TestUtil.AssertEqual(CInt("&H754"),   1876, "CInt(""&H754"")")
    TestUtil.AssertEqual(CInt("+21"),       21, "CInt(""+21"")")

    Exit Sub
errorHandler:
    TestUtil.ReportErrorHandler("verify_testCInt", Err, Error$, Erl)
End Sub