'
' This file is part of the LibreOffice 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 Explicit

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

Function convertToDouble(n)
    Dim conv As Object
    conv = CreateUnoService("com.sun.star.script.Converter")
    convertToDouble = conv.convertToSimpleType(n, com.sun.star.uno.TypeClass.DOUBLE)
End Function

Sub verify_testUnsignedIntegers()
    On Error GoTo errorHandler

    Dim t As New com.sun.star.util.Time ' has both unsigned long and unsigned short
    t.Seconds = 201
    t.NanoSeconds = 202
    Dim u8 As Byte, u16, u32
    u8 = 200
    u16 = t.Seconds ' UShort
    u32 = t.NanoSeconds ' ULong

    TestUtil.AssertEqual(TypeName(u8), "Byte", "TypeName(u8)")
    TestUtil.AssertEqual(convertToDouble(u8), 200, "convertToDouble(u8)")

    TestUtil.AssertEqual(TypeName(u16), "UShort", "TypeName(u16)")
    TestUtil.AssertEqual(convertToDouble(u16), 201, "convertToDouble(u16)")

    TestUtil.AssertEqual(TypeName(u32), "ULong", "TypeName(u32)")
    TestUtil.AssertEqual(convertToDouble(u32), 202, "convertToDouble(u32)")

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