xref: /trunk/main/qadevOOo/tests/basic/ifc/sdbc/XRowUpdate/sdbc_XRowUpdate.xba (revision eebed415)

<?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_XRowUpdate" script:language="StarBasic">


'*************************************************************************
'
'  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
'       must be an array of Strings with description of column types
'     - Global rowTypesCol As Variant
'       corresponding column numbers

'*************************************************************************






Sub RunTest()

'*************************************************************************
' INTERFACE:
' com.sun.star.sdbc.XRowUpdate
'*************************************************************************
On Error Goto ErrHndl
    Dim bOK As Boolean, bNullOK As Boolean
    Dim i As Integer
    Dim getV As Variant, newV As Variant, resV As Variant
    Dim colType As String

    if NOT hasUnoInterfaces(oObj, "com.sun.star.sdbc.XRow") then
        Out.Log("The interface com.sun.star.sdbc.XRow isn't supported by the component.")
        Out.Log("The test must be upgraded !!!")
        exit Sub
    end if

    Test.RecreateObj()

    bNullOK = true

    Test.StartMethod("updateBoolean()")
    colType = "boolean"
    i = findColumn(colType)
    if i >= 0 then
        bOK = true
        getV = oObj.getBoolean(i+1)
        newV = NOT getV
        oObj.updateBoolean(i+1, newV)
        resV = oObj.getBoolean(i+1)
        Out.Log("Was: " + getv + ", New: " + newV + ", Res: " + resV)
        bOK = bOK AND (resV = newV)
        Test.MethodTested("updateBoolean()", bOK)

        oObj.updateNull(i+1)
        oObj.getBoolean(i+1)
        bNullOK = bNullOK AND oObj.wasNull()
    else
        Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.")
        Out.Log("Nevertheless status is OK")
        Test.MethodTested("updateBoolean()", true)
    end if

    Test.StartMethod("updateByte()")
    colType = "byte"
    i = findColumn(colType)
    if i >= 0 then
        bOK = true
        getV = oObj.getByte(i+1)
        newV = getV + 1
        oObj.updateByte(i+1, newV)
        resV = oObj.getByte(i+1)
        Out.Log("Was: " + getv + ", New: " + newV + ", Res: " + resV)
        bOK = bOK AND (resV = newV)
        Test.MethodTested("updateByte()", bOK)

        oObj.updateNull(i+1)
        oObj.getByte(i+1)
        bNullOK = bNullOK AND oObj.wasNull()
    else
        Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.")
        Out.Log("Nevertheless status is OK")
        Test.MethodTested("updateByte()", true)
    end if

    Test.StartMethod("updateShort()")
    colType = "short"
    i = findColumn(colType)
    if i >= 0 then
        bOK = true
        getV = oObj.getShort(i+1)
        newV = getV + 1
        oObj.updateShort(i+1, newV)
        resV = oObj.getShort(i+1)
        Out.Log("Was: " + getv + ", New: " + newV + ", Res: " + resV)
        bOK = bOK AND (resV = newV)
        Test.MethodTested("updateShort()", bOK)

        oObj.updateNull(i+1)
        oObj.getShort(i+1)
        bNullOK = bNullOK AND oObj.wasNull()
    else
        Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.")
        Out.Log("Nevertheless status is OK")
        Test.MethodTested("updateShort()", true)
    end if

    Test.StartMethod("updateInt()")
    colType = "int"
    i = findColumn(colType)
    if i >= 0 then
        bOK = true
        getV = oObj.getInt(i+1)
        newV = getV + 1
        oObj.updateInt(i+1, newV)
        resV = oObj.getInt(i+1)
        Out.Log("Was: " + getv + ", New: " + newV + ", Res: " + resV)
        bOK = bOK AND (resV = newV)
        Test.MethodTested("updateInt()", bOK)

        oObj.updateNull(i+1)
        oObj.getInt(i+1)
        bNullOK = bNullOK AND oObj.wasNull()
    else
        Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.")
        Out.Log("Nevertheless status is OK")
        Test.MethodTested("updateInt()", true)
    end if

    Test.StartMethod("updateLong()")
    colType = "long"
    i = findColumn(colType)
    if i >= 0 then
        bOK = true
        getV = oObj.getLong(i+1)
        newV = getV + 1
        oObj.updateLong(i+1, newV)
        resV = oObj.getLong(i+1)
        Out.Log("Was: " + getv + ", New: " + newV + ", Res: " + resV)
        bOK = bOK AND (resV = newV)
        Test.MethodTested("updateLong()", bOK)

        oObj.updateNull(i+1)
        oObj.getLong(i+1)
        bNullOK = bNullOK AND oObj.wasNull()
    else
        Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.")
        Out.Log("Nevertheless status is OK")
        Test.MethodTested("updateLong()", true)
    end if

    Test.StartMethod("updateFloat()")
    colType = "float"
    i = findColumn(colType)
    if i >= 0 then
        bOK = true
        getV = oObj.getFloat(i+1)
        newV = getV + 1.3
        oObj.updateFloat(i+1, newV)
        resV = oObj.getFloat(i+1)
        Out.Log("Was: " + getv + ", New: " + newV + ", Res: " + resV)
        bOK = bOK AND (resV = newV)
        Test.MethodTested("updateFloat()", bOK)

        oObj.updateNull(i+1)
        oObj.getFloat(i+1)
        bNullOK = bNullOK AND oObj.wasNull()
    else
        Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.")
        Out.Log("Nevertheless status is OK")
        Test.MethodTested("updateFloat()", true)
    end if

    Test.StartMethod("updateDouble()")
    colType = "double"
    i = findColumn(colType)
    if i >= 0 then
        bOK = true
        getV = oObj.getDouble(i+1)
        newV = getV + 1.5
        oObj.updateDouble(i+1, newV)
        resV = oObj.getDouble(i+1)
        Out.Log("Was: " + getv + ", New: " + newV + ", Res: " + resV)
        bOK = bOK AND (resV = newV)
        Test.MethodTested("updateDouble()", bOK)

        oObj.updateNull(i+1)
        oObj.getDouble(i+1)
        bNullOK = bNullOK AND oObj.wasNull()
    else
        Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.")
        Out.Log("Nevertheless status is OK")
        Test.MethodTested("updateDouble()", true)
    end if

    Test.StartMethod("updateString()")
    colType = "string"
    i = findColumn(colType)
    if i >= 0 then
        bOK = true
        getV = oObj.getString(i+1)
        newV = "_" + getV
        oObj.updateString(i+1, newV)
        resV = oObj.getString(i+1)
        Out.Log("Was: '" + getv + "', New: '" + newV + "', Res: '" + resV + "'")
        bOK = bOK AND (resV = newV)
        Test.MethodTested("updateString()", bOK)

        oObj.updateNull(i+1)
        oObj.getString(i+1)
        bNullOK = bNullOK AND oObj.wasNull()
    else
        Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.")
        Out.Log("Nevertheless status is OK")
        Test.MethodTested("updateString()", true)
    end if

    Test.StartMethod("updateBytes()")
    colType = "bytes"
    i = findColumn(colType)
    if i >= 0 then
        bOK = true
        getV = oObj.getBytes(i+1)

        if (oObj.wasNull() OR ubound(getV()) &lt; 0) then
            newV = Array(1,2,3)
        else
            newV = getV
            newV(0) = newV(0) + 1
        end if

        oObj.updateBytes(i+1, newV)
        resV = oObj.getBytes(i+1)

        Out.Log("Was: " + getv(0) + ", New: " + newV(0) + ", Res: " + resV(0))
        bOK = bOK AND (resV(0) = newV(0))
        Test.MethodTested("updateBytes()", bOK)

        oObj.updateNull(i+1)
        oObj.getBytes(i+1)
        bNullOK = bNullOK AND oObj.wasNull()
    else
        Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.")
        Out.Log("Nevertheless status is OK")
        Test.MethodTested("updateBytes()", true)
    end if


    Dim dat As com.sun.star.util.Date
    Test.StartMethod("updateDate()")
    colType = "date"
    i = findColumn(colType)
    if i >= 0 then
        bOK = true
        getV = oObj.getDate(i+1)
        if (oObj.wasNull() OR isNull(getV)) then
            newV = dat
        else
            newV = getV
            newV.Year = newV.Year + 1
        end if

        oObj.updateDate(i+1, newV)
        resV = oObj.getDate(i+1)
        Out.Log("Was: '" + getv.Year + "', New: '" + newV.Year + "', Res: '" + resV.Year + "'")
        bOK = bOK AND (resV.Year = newV.Year)
        Test.MethodTested("updateDate()", bOK)

        oObj.updateNull(i+1)
        oObj.getDate(i+1)
        bNullOK = bNullOK AND oObj.wasNull()
    else
        Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.")
        Out.Log("Nevertheless status is OK")
        Test.MethodTested("updateDate()", true)
    end if

    Dim tim As com.sun.star.util.Time
    Test.StartMethod("updateTime()")
    colType = "time"
    i = findColumn(colType)
    if i >= 0 then
        bOK = true
        getV = oObj.getTime(i+1)
        if (oObj.wasNull() OR isNull(getV)) then
            newV = tim
        else
            newV = getV
            newV.Seconds = newV.Seconds + 1
        end if

        oObj.updateTime(i+1, newV)
        resV = oObj.getTime(i+1)
        Out.Log("Was: '" + getv.Seconds + "', New: '" + newV.Seconds + "', Res: '" + resV.Seconds + "'")
        bOK = bOK AND (resV.Seconds = newV.Seconds)
        Test.MethodTested("updateTime()", bOK)

        oObj.updateNull(i+1)
        oObj.getTime(i+1)
        bNullOK = bNullOK AND oObj.wasNull()
    else
        Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.")
        Out.Log("Nevertheless status is OK")
        Test.MethodTested("updateTime()", true)
    end if

    Dim dattm As com.sun.star.util.DateTime
    Test.StartMethod("updateTimestamp()")
    colType = "timestamp"
    i = findColumn(colType)
    if i >= 0 then
        bOK = true
        getV = oObj.getTimestamp(i+1)
        if (oObj.wasNull() OR isNull(getV)) then
            newV = dattm
        else
            newV = getV
            newV.Year = newV.Year + 1
        end if

        oObj.updateTimestamp(i+1, newV)
        resV = oObj.getTimestamp(i+1)
        Out.Log("Was: '" + getv.Year + "', New: '" + newV.Year + "', Res: '" + resV.Year + "'")
        bOK = bOK AND (resV.Year = newV.Year)
        Test.MethodTested("updateTimestamp()", bOK)

        oObj.updateNull(i+1)
        oObj.getTimestamp(i+1)
        bNullOK = bNullOK AND oObj.wasNull()
    else
        Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.")
        Out.Log("Nevertheless status is OK")
        Test.MethodTested("updateTimestamp()", true)
    end if

    Dim bytes As Variant, nBytes As Long
    Test.StartMethod("updateCharacterStream()")
    colType = "characterstream"
    i = findColumn(colType)
    if i >= 0 then
        bOK = true
        newV = createUnoService("com.sun.star.io.Pipe")
        newV.writeBytes(Array(123, 234))
        oObj.updateCharacterStream(i+1, newV)
        resV = oObj.getCharacterStream(i+1)
        'Out.Log("Was: '" + getv + "', New: '" + newV + "', Res: '" + resV + "'")
        bOK = bOK AND NOT oObj.wasNull() AND NOT isNull(resV)

        if bOK then
            Out.Log("Testing further ...")
            nBytes = resV.readBytes(bytes, 2)
            bOK = bOK AND (nBytes = 2) AND (bytes(0) = 123) AND (bytes(1) = 234)
        end if

        Test.MethodTested("updateCharacterStream()", bOK)

        oObj.updateNull(i+1)
        oObj.getCharacterStream(i+1)
        bNullOK = bNullOK AND oObj.wasNull()
    else
        Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.")
        Out.Log("Nevertheless status is OK")
        Test.MethodTested("updateCharacterStream()", true)
    end if

    Test.StartMethod("updateBinaryStream()")
    colType = "binarystream"
    i = findColumn(colType)
    if i >= 0 then
        bOK = true
        newV = createUnoService("com.sun.star.io.Pipe")
        newV.writeBytes(Array(123, 234))
        oObj.updateBinaryStream(i+1, newV)
        resV = oObj.getBinaryStream(i+1)
        'Out.Log("Was: '" + getv + "', New: '" + newV + "', Res: '" + resV + "'")
        bOK = bOK AND NOT oObj.wasNull() AND NOT isNull(resV)

        if bOK then
            Out.Log("Testing further ...")
            nBytes = resV.readBytes(bytes, 2)
            bOK = bOK AND (nBytes = 2) AND (bytes(0) = 123) AND (bytes(1) = 234)
        end if

        Test.MethodTested("updateBinaryStream()", bOK)

        oObj.updateNull(i+1)
        oObj.getBinaryStream(i+1)
        bNullOK = bNullOK AND oObj.wasNull()
    else
        Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.")
        Out.Log("Nevertheless status is OK")
        Test.MethodTested("updateBinaryStream()", true)
    end if

    Test.StartMethod("updateObject()")
    colType = "object"
    i = findColumn(colType)
    if i >= 0 then
        bOK = true
        getV = oObj.getObject(i+1)
        if (NOT hasUnoInterfaces(getV, "com.sun.star.io.XInputStream")) then
            newV = createUnoService("com.sun.star.io.DataInputStream")
        else
            newV = createUnoService("com.sun.star.io.DataOutputStream")
        end if

        oObj.updateObject(i+1, newV)
        resV = oObj.getObject(i+1)

        bOK = bOK AND (hasUnoInterfaces(newV, "com.sun.star.io.XInputStream") = _
                       hasUnoInterfaces(resV, "com.sun.star.io.XInputStream")) AND _
                      (hasUnoInterfaces(newV, "com.sun.star.io.XOutputStream") = _
                       hasUnoInterfaces(resV, "com.sun.star.io.XOutputStream"))

        Test.MethodTested("updateObject()", bOK)

        oObj.updateNull(i+1)
        oObj.getObject(i+1)
        bNullOK = bNullOK AND oObj.wasNull()
    else
        Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.")
        Out.Log("Nevertheless status is OK")
        Test.MethodTested("updateObject()", true)
    end if

    Test.StartMethod("updateNumericObject()")
    colType = "numericobject"
    i = findColumn(colType)
    if i >= 0 then
        bOK = true
        getV = oObj.getNumericObject(i+1)
        if (NOT hasUnoInterfaces(getV, "com.sun.star.io.XInputStream")) then
            newV = createUnoService("com.sun.star.io.DataInputStream")
        else
            newV = createUnoService("com.sun.star.io.DataOutputStream")
        end if

        oObj.updateNumericObject(i+1, newV, 0)
        resV = oObj.getNumericObject(i+1)

        bOK = bOK AND (hasUnoInterfaces(newV, "com.sun.star.io.XInputStream") = _
                       hasUnoInterfaces(resV, "com.sun.star.io.XInputStream")) AND _
                      (hasUnoInterfaces(newV, "com.sun.star.io.XOutputStream") = _
                       hasUnoInterfaces(resV, "com.sun.star.io.XOutputStream"))

        Test.MethodTested("updateNumericObject()", bOK)

        oObj.updateNull(i+1)
        oObj.getNumericObject(i+1)
        bNullOK = bNullOK AND oObj.wasNull()
    else
        Out.Log("!!! Column of type '" + colType + "' is not found. No test performed.")
        Out.Log("Nevertheless status is OK")
        Test.MethodTested("updateNumericObject()", true)
    end if

    Test.StartMethod("updateNull()")
    Test.MethodTested("updateNull()", bNullOK)

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) - 1
            exit function
        end if
    next i

    findColumn() = -1
End function
</script:module>