'************************************************************************* ' ' Licensed to the Apache Software Foundation (ASF) under one ' or more contributor license agreements. See the NOTICE file ' distributed with this work for additional information ' regarding copyright ownership. The ASF licenses this file ' to you under the Apache License, Version 2.0 (the ' "License"); you may not use this file except in compliance ' with the License. You may obtain a copy of the License at ' ' http://www.apache.org/licenses/LICENSE-2.0 ' ' Unless required by applicable law or agreed to in writing, ' software distributed under the License is distributed on an ' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY ' KIND, either express or implied. See the License for the ' specific language governing permissions and limitations ' under the License. ' '************************************************************************* ' Be sure that all variables are dimensioned: option explicit '************************************************************************* ' This Interface/Service test depends on the following GLOBAL variables, ' which must be specified in the object creation: ' - Global rowTypes As Variant ' Array of Strings with description of column types '************************************************************************* Sub RunTest() '************************************************************************* ' INTERFACE: ' com.sun.star.sdbc.XRow '************************************************************************* On Error Goto ErrHndl Dim bOK As Boolean Dim i As Integer Dim colType As String Test.StartMethod("getBoolean()") bOK = true colType = "boolean" i = findColumn(colType) if i >= 0 then oObj.getBoolean(i) else Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.") Out.Log("Nevertheless status is OK") end if Test.MethodTested("getBoolean()", bOK) Test.StartMethod("getByte()") bOK = true colType = "byte" i = findColumn(colType) if i >= 0 then oObj.getByte(i + 1) else Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.") Out.Log("Nevertheless status is OK") end if Test.MethodTested("getByte()", bOK) Test.StartMethod("getShort()") bOK = true colType = "short" i = findColumn(colType) if i >= 0 then oObj.getShort(i + 1) else Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.") Out.Log("Nevertheless status is OK") end if Test.MethodTested("getShort()", bOK) Test.StartMethod("getInt()") bOK = true colType = "int" i = findColumn(colType) if i >= 0 then oObj.getInt(i + 1) else Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.") Out.Log("Nevertheless status is OK") end if Test.MethodTested("getInt()", bOK) Test.StartMethod("getLong()") bOK = true colType = "long" i = findColumn(colType) if i >= 0 then oObj.getLong(i + 1) else Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.") Out.Log("Nevertheless status is OK") end if Test.MethodTested("getLong()", bOK) Test.StartMethod("getFloat()") bOK = true colType = "float" i = findColumn(colType) if i >= 0 then oObj.getFloat(i + 1) else Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.") Out.Log("Nevertheless status is OK") end if Test.MethodTested("getFloat()", bOK) Test.StartMethod("getDouble()") bOK = true colType = "double" i = findColumn(colType) if i >= 0 then oObj.getDouble(i + 1) else Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.") Out.Log("Nevertheless status is OK") end if Test.MethodTested("getDouble()", bOK) Test.StartMethod("getString()") bOK = true colType = "string" i = findColumn(colType) if i >= 0 then oObj.getString(i + 1) else Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.") Out.Log("Nevertheless status is OK") end if Test.MethodTested("getString()", bOK) Test.StartMethod("getBytes()") bOK = true colType = "bytes" i = findColumn(colType) if i >= 0 then oObj.getBytes(i + 1) else Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.") Out.Log("Nevertheless status is OK") end if Test.MethodTested("getBytes()", bOK) Test.StartMethod("getDate()") bOK = true colType = "date" i = findColumn(colType) if i >= 0 then oObj.getDate(i + 1) else Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.") Out.Log("Nevertheless status is OK") end if Test.MethodTested("getDate()", bOK) Test.StartMethod("getTime()") bOK = true colType = "time" i = findColumn(colType) if i >= 0 then oObj.getTime(i + 1) else Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.") Out.Log("Nevertheless status is OK") end if Test.MethodTested("getTime()", bOK) Test.StartMethod("getTimestamp()") bOK = true colType = "timestamp" i = findColumn(colType) if i >= 0 then oObj.getTimestamp(i + 1) else Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.") Out.Log("Nevertheless status is OK") end if Test.MethodTested("getTimestamp()", bOK) Test.StartMethod("getBinaryStream()") bOK = true colType = "binarystream" i = findColumn(colType) if i >= 0 then oObj.getBinaryStream(i + 1) else Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.") Out.Log("Nevertheless status is OK") end if Test.MethodTested("getBinaryStream()", bOK) Test.StartMethod("getCharacterStream()") bOK = true colType = "characterstream" i = findColumn(colType) if i >= 0 then oObj.getCharacterStream(i + 1) else Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.") Out.Log("Nevertheless status is OK") end if Test.MethodTested("getCharacterStream()", bOK) Test.StartMethod("getObject()") bOK = true colType = "object" i = findColumn(colType) if i >= 0 then oObj.getObject(i + 1) else Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.") Out.Log("Nevertheless status is OK") end if Test.MethodTested("getObject()", bOK) Test.StartMethod("getRef()") bOK = true colType = "ref" i = findColumn(colType) if i >= 0 then oObj.getRef(i + 1) else Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.") Out.Log("Nevertheless status is OK") end if Test.MethodTested("getRef()", bOK) Test.StartMethod("getBlob()") bOK = true colType = "blob" i = findColumn(colType) if i >= 0 then oObj.getBlob(i + 1) else Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.") Out.Log("Nevertheless status is OK") end if Test.MethodTested("getBlob()", bOK) Test.StartMethod("getClob()") bOK = true colType = "clob" i = findColumn(colType) if i >= 0 then oObj.getClob(i + 1) else Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.") Out.Log("Nevertheless status is OK") end if Test.MethodTested("getClob()", bOK) Test.StartMethod("getArray()") bOK = true colType = "array" i = findColumn(colType) if i >= 0 then oObj.getArray(i + 1) else Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.") Out.Log("Nevertheless status is OK") end if Test.MethodTested("getArray()", bOK) Test.StartMethod("wasNull()") bOK = true oObj.wasNull() Test.MethodTested("wasNull()", bOK) Exit Sub ErrHndl: Test.Exception() bOK = false resume next End Sub Function findColumn(cType As String) As Integer Dim i As Integer for i = lbound(rowTypes()) to ubound(rowTypes()) if rowTypes(i) = cType then findColumn() = rowTypesCol(i) exit function end if next i findColumn() = -1 End function