Haftungsausschluß.bas KontaktUnknown {[0] [0] [0]}diese Dinge liegen außhalb unserer Verantwortung
'
' 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
[ Seitenstruktur0.120Drucken
]
