diff options
Diffstat (limited to 'qadevOOo/tests/basic/ifc/io/XDataInputStream/io_XDataInputStream.xba')
-rw-r--r-- | qadevOOo/tests/basic/ifc/io/XDataInputStream/io_XDataInputStream.xba | 170 |
1 files changed, 170 insertions, 0 deletions
diff --git a/qadevOOo/tests/basic/ifc/io/XDataInputStream/io_XDataInputStream.xba b/qadevOOo/tests/basic/ifc/io/XDataInputStream/io_XDataInputStream.xba new file mode 100644 index 000000000000..989ceed4875e --- /dev/null +++ b/qadevOOo/tests/basic/ifc/io/XDataInputStream/io_XDataInputStream.xba @@ -0,0 +1,170 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="io_XDataInputStream" script:language="StarBasic"> + + +'************************************************************************* +' +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.io.XDataInputStream +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim DataTypes(10) As String + Dim Data(10) As Variant + Dim oTypeConvertor As Object + + bOK = true + + oTypeConvertor = createUnoService("com.sun.star.script.Converter") + + DataTypes(0) = "byte" + Data(0) = 65 + DataTypes(1) = "boolean" + Data(1) = true + DataTypes(2) = "double" + Data(2) = 10.567 + DataTypes(3) = "long" + Data(3) = 12345678 + DataTypes(4) = "char" + Data(4) = oTypeConvertor.convertToSimpleType(89, com.sun.star.uno.TypeClass.CHAR) + DataTypes(5) = "short" + Data(5) = 233 + DataTypes(6) = "UTF" + Data(6) = "UTF String" + DataTypes(7) = "float" + Data(7) = -233.15 + DataTypes(8) = "Hyper" + Data(8) = 98765432123456 + + Out.Log("Writing data first... ") + + oOutStream = getOutStream() + + for i = 0 to ubound(Data()) + select case DataTypes(i) + case "boolean" + oOutStream.writeBoolean(Data(i)) + case "byte" + oOutStream.writeByte(Data(i)) + case "char" + oOutStream.writeChar(Data(i)) + case "short" + oOutStream.writeShort(Data(i)) + case "long" + oOutStream.writeLong(Data(i)) + case "Hyper" + oOutStream.writeHyper(Data(i)) + case "float" + oOutStream.writeFloat(Data(i)) + case "double" + oOutStream.writeDouble(Data(i)) + case "UTF" + oOutStream.writeUTF(Data(i)) + end select + next i + + Out.Log("then reading and comparering... ") + + ResetStreams() + + for i = 0 to ubound(Data()) + select case DataTypes(i) + case "boolean" + Dim bVar As Boolean + bVar = oObj.readBoolean() + Out.Log("Expected boolean '" & Data(i) & "', actual is '" & bVar & "'") + bOK = bOK AND Data(i) = bVar + Test.MethodTested("readBoolean()", bOK) + case "byte" + Dim iByteVar As Integer + iByteVar = oObj.readByte() + Out.Log("Expected byte '" & int(Data(i)) & "', actual is '" & int(iByteVar) & "'") + bOK = bOK AND Data(i) = iByteVar + Test.MethodTested("readByte()", bOK) + case "char" + Dim cCharVar As Integer + cCharVar = oObj.readChar() + Out.Log("Expected char '" & chr(Data(i)) & "', actual is '" & chr(cCharVar) & "'") + bOK = bOK AND Data(i) = cCharVar + Test.MethodTested("readChar()", bOK) + case "short" + Dim iShortVar As Integer + iShortVar = oObj.readShort() + Out.Log("Expected short '" & int(Data(i)) & "', actual is '" & int(iShortVar) & "'") + bOK = bOK AND Data(i) = iShortVar + Test.MethodTested("readShort()", bOK) + case "long" + Dim iLongVar As Long + iLongVar = oObj.readLong() + Out.Log("Expected long '" & Data(i) & "', actual is '" & iLongVar & "'") + bOK = bOK AND Data(i) = iLongVar + Test.MethodTested("readLong()", bOK) + case "Hyper" + Dim iHyperVar As Variant + iHyperVar = oObj.readHyper() + Out.Log("Expected hyper '" & Data(i) & "', actual is '" & iHyperVar & "'") + bOK = bOK AND Data(i) = iHyperVar + Test.MethodTested("readHyper()", bOK) + case "float" + Dim dFloatVar As Double + dFloatVar = oObj.readFloat() + Out.Log("Expected float '" & Data(i) & "', actual is '" & dFloatVar & "'") + bOK = bOK AND (abs(Data(i) - dFloatVar) < 0.00001) + Test.MethodTested("readFloat()", bOK) + case "double" + Dim dDoubleVar As Double + dDoubleVar = oObj.readDouble() + Out.Log("Expected double '" & Data(i) & "', actual is '" & dDoubleVar & "'") + bOK = bOK AND Data(i) = dDoubleVar + Test.MethodTested("readDouble()", bOK) + case "UTF" + Dim cUTFVar As String + cUTFVar = oObj.readUTF() + Out.Log("Expected UTF '" & Data(i) & "', actual is '" & cUTFVar & "'") + bOK = bOK AND Data(i) = cUTFVar + Test.MethodTested("readUTF()", bOK) + end select + next i + + ResetStreams() +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> |