summaryrefslogtreecommitdiff
path: root/qadevOOo/tests/basic/ifc/sdbc/XRow/sdbc_XRow.xba
diff options
context:
space:
mode:
Diffstat (limited to 'qadevOOo/tests/basic/ifc/sdbc/XRow/sdbc_XRow.xba')
-rw-r--r--qadevOOo/tests/basic/ifc/sdbc/XRow/sdbc_XRow.xba351
1 files changed, 351 insertions, 0 deletions
diff --git a/qadevOOo/tests/basic/ifc/sdbc/XRow/sdbc_XRow.xba b/qadevOOo/tests/basic/ifc/sdbc/XRow/sdbc_XRow.xba
new file mode 100644
index 000000000000..e0017e44911e
--- /dev/null
+++ b/qadevOOo/tests/basic/ifc/sdbc/XRow/sdbc_XRow.xba
@@ -0,0 +1,351 @@
+<?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="sdbc_XRow" script:language="StarBasic">
+
+
+'*************************************************************************
+'*
+'* $RCSfile: sdbc_XRow.xba,v $
+'*
+'* $Revision: 1.1 $
+'*
+'* last change:$Date: 2003-01-27 17:52:05 $
+'*
+'* The Contents of this file are made available subject to the terms of
+'* either of the following licenses
+'*
+'* - GNU Lesser General Public License Version 2.1
+'* - Sun Industry Standards Source License Version 1.1
+'*
+'* Sun Microsystems Inc., October, 2000
+'*
+'* GNU Lesser General Public License Version 2.1
+'* =============================================
+'* Copyright 2000 by Sun Microsystems, Inc.
+'* 901 San Antonio Road, Palo Alto, CA 94303, USA
+'*
+'* This library is free software; you can redistribute it and/or
+'* modify it under the terms of the GNU Lesser General Public
+'* License version 2.1, as published by the Free Software Foundation.
+'*
+'* This library 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 for more details.
+'*
+'* You should have received a copy of the GNU Lesser General Public
+'* License along with this library; if not, write to the Free Software
+'* Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+'* MA 02111-1307 USA
+'*
+'*
+'* Sun Industry Standards Source License Version 1.1
+'* =================================================
+'* The contents of this file are subject to the Sun Industry Standards
+'* Source License Version 1.1 (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.openoffice.org/license.html.
+'*
+'* Software provided under this License is provided on an "AS IS" basis,
+'* WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+'* WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+'* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+'* See the License for the specific provisions governing your rights and
+'* obligations concerning the Software.
+'*
+'* The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+'*
+'* Copyright: 2000 by Sun Microsystems, Inc.
+'*
+'* All Rights Reserved.
+'*
+'* Contributor(s): _______________________________________
+'*
+'*
+'*************************************************************************
+'*************************************************************************
+
+
+
+' 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
+</script:module>
generated by cgit (git 2.34.1) at 2024-07-10 09:18:23 +0000