diff options
Diffstat (limited to 'qadevOOo/tests/basic/ifc/ucb')
32 files changed, 1725 insertions, 0 deletions
diff --git a/qadevOOo/tests/basic/ifc/ucb/XCachedContentResultSetFactory/script.xlb b/qadevOOo/tests/basic/ifc/ucb/XCachedContentResultSetFactory/script.xlb new file mode 100644 index 000000000000..ac4ee4bfe229 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XCachedContentResultSetFactory/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="ucb_XCachedContentResultSetFactory" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="ucb_XCachedContentResultSetFactory"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/ucb/XCachedContentResultSetFactory/ucb_XCachedContentResultSetFactory.xba b/qadevOOo/tests/basic/ifc/ucb/XCachedContentResultSetFactory/ucb_XCachedContentResultSetFactory.xba new file mode 100644 index 000000000000..646757fbaa21 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XCachedContentResultSetFactory/ucb_XCachedContentResultSetFactory.xba @@ -0,0 +1,91 @@ +<?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="ucb_XCachedContentResultSetFactory" 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. +' +'************************************************************************* +'************************************************************************* + + + +' 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 oCachedContentResultSetStub As Object + +'************************************************************************* + + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.ucb.XCachedContentResultSetFactory +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + Test.StartMethod("createCachedContentResultSet()") + bOK = true + + Dim oResSet As Object + oResSet = oObj.createCachedContentResultSet(oCachedContentResultSetStub, NULL_OBJECT) + + If IsNull(oResSet) Then + bOK = False + out.log("Method returned NULL") + Else + Dim stubRowNum, setRowNum As Integer + oCachedContentResultSetStub.last() + stubRowNum = oCachedContentResultSetStub.getRow() + + oResSet.last() + setRowNum = oResSet.getRow() + + bOK = (stubRowNum = setRowNum) and (setRowNum > 0) + out.log("Number of rows : stub=" + stubRowNum + " set=" + setRowNum) + EndIf + + Test.MethodTested("createCachedContentResultSet()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/ucb/XCachedContentResultSetStubFactory/script.xlb b/qadevOOo/tests/basic/ifc/ucb/XCachedContentResultSetStubFactory/script.xlb new file mode 100644 index 000000000000..35e8bdf341f0 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XCachedContentResultSetStubFactory/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="ucb_XCachedContentResultSetStubFactory" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="ucb_XCachedContentResultSetStubFactory"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/ucb/XCachedContentResultSetStubFactory/ucb_XCachedContentResultSetStubFactory.xba b/qadevOOo/tests/basic/ifc/ucb/XCachedContentResultSetStubFactory/ucb_XCachedContentResultSetStubFactory.xba new file mode 100644 index 000000000000..a8a4516757e7 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XCachedContentResultSetStubFactory/ucb_XCachedContentResultSetStubFactory.xba @@ -0,0 +1,91 @@ +<?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="ucb_XCachedContentResultSetStubFactory" 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. +' +'************************************************************************* +'************************************************************************* + + + +' 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 oContentResultSet As Object + +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.ucb.XCachedContentResultSetStubFactory +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + Test.StartMethod("createCachedContentResultSetStub()") + bOK = true + + Dim oResSetStub As Object + oResSetStub = oObj.createCachedContentResultSetStub(oContentResultSet) + + If IsNull(oResSetStub) Then + bOk = False + out.log("Method returned NULL") + Else + Dim stubRowNum, setRowNum As Integer + + oResSetStub.last() + stubRowNum = oResSetStub.getRow() + + oContentResultSet.last() + setRowNum = oContentResultSet.getRow() + + bOk = (stubRowNum = setRowNum) and (setRowNum > 0) + out.log("Number of rows : set=" + setRowNum + "stub=" + stubRowNum) + EndIf + + Test.MethodTested("createCachedContentResultSetStub()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/ucb/XCachedDynamicResultSetFactory/script.xlb b/qadevOOo/tests/basic/ifc/ucb/XCachedDynamicResultSetFactory/script.xlb new file mode 100644 index 000000000000..355cb7dd01b2 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XCachedDynamicResultSetFactory/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="ucb_XCachedDynamicResultSetFactory" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="ucb_XCachedDynamicResultSetFactory"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/ucb/XCachedDynamicResultSetFactory/ucb_XCachedDynamicResultSetFactory.xba b/qadevOOo/tests/basic/ifc/ucb/XCachedDynamicResultSetFactory/ucb_XCachedDynamicResultSetFactory.xba new file mode 100644 index 000000000000..292af7567947 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XCachedDynamicResultSetFactory/ucb_XCachedDynamicResultSetFactory.xba @@ -0,0 +1,97 @@ +<?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="ucb_XCachedDynamicResultSetFactory" 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. +' +'************************************************************************* +'************************************************************************* + + + +' 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 oResSetStub As Object + +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE : +' com.sun.star.ucb.XCachedDynamicResultSetFactory +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Test.StartMethod("createCachedDynamicResultSet()") + bOK = true + + Dim oResSet As Object + oResSet = oObj.createCachedDynamicResultSet(oResSetStub, NULL_OBJECT) + + If IsNull(oResSet) Then + bOk = False + out.log("Method returned NULL") + Else + Dim oResultSetS As Object, oResultSetStubS As Object + + oResultSetS = oResSet.getStaticResultSet() + + oResultSetStubS = oResSetStub.getStaticResultSet() + + Dim stubRowNum As Integer, setRowNum As Integer + + oResultSetStubS.last() + stubRowNum = oResultSetStubS.getRow() + + oResultSetS.last() + setRowNum = oResultSetS.getRow() + + bOK = (stubRowNum = setRowNum) and (setRowNum > 0) + + out.log("Number of rows : stub=" + stubRowNum + " set=" + setRowNum) + EndIf + + Test.MethodTested("createCachedDynamicResultSet()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/ucb/XCachedDynamicResultSetStubFactory/script.xlb b/qadevOOo/tests/basic/ifc/ucb/XCachedDynamicResultSetStubFactory/script.xlb new file mode 100644 index 000000000000..8e6110e4c280 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XCachedDynamicResultSetStubFactory/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="ucb_XCachedDynamicResultSetStubFactory" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="ucb_XCachedDynamicResultSetStubFactory"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/ucb/XCachedDynamicResultSetStubFactory/ucb_XCachedDynamicResultSetStubFactory.xba b/qadevOOo/tests/basic/ifc/ucb/XCachedDynamicResultSetStubFactory/ucb_XCachedDynamicResultSetStubFactory.xba new file mode 100644 index 000000000000..8f323d227d5b --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XCachedDynamicResultSetStubFactory/ucb_XCachedDynamicResultSetStubFactory.xba @@ -0,0 +1,125 @@ +<?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="ucb_XCachedDynamicResultSetStubFactory" 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. +' +'************************************************************************* +'************************************************************************* + + + +' 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 oResSet As Object + +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.ucb.XCachedDynamicResultSetStubFactory +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + Test.StartMethod("createCachedDynamicResultSetStub()") + bOK = true + + Dim oResSetStub As Object + oResSetStub = oObj.createCachedDynamicResultSetStub(oResSet) + + If IsNull(oResSetStub) Then + bOK = False + out.log("Method returned NULL") + Else + Dim oResSetS, oResSetStubS As Object + + oResSetS = oResSet.getStaticResultSet() + oResSetStubS = oResSetStub.getStaticResultSet() + + Dim stubRowNum, setRowNum As Integer + + oResSetStubS.last() + stubRowNum = oResSetStubS.getRow() + + oResSetS.last() + setRowNum = oResSetS.getRow() + + bOK = (stubRowNum = setRowNum) and (setRowNum > 0) + + out.log("Number of rows : stub=" + stubRowNum + " set=" + setRowNum) + EndIf + + Test.MethodTested("createCachedDynamicResultSetStub()", bOK) + + Test.StartMethod("connectToCache()") + bOK = true + + Dim oFac As Object + oFac = createUnoService("com.sun.star.ucb.CachedDynamicResultSetFactory") + + Dim oDynResSet As Object + oDynResSet = oFac.createCachedDynamicResultSet(NULL_OBJECT, NULL_OBJECT) + + oObj.connectToCache(oResSet, oDynResSet, NULL_OBJECT, NULL_OBJECT) + + out.log("checking connection to the source...") + + oResSetS = oResSet.getStaticResultSet() + oResSetStubS = oDynResSet.getStaticResultSet() + + oResSetStubS.last() + stubRowNum = oResSetStubS.getRow() + + oResSetS.last() + setRowNum = oResSetS.getRow() + + bOK = (stubRowNum = setRowNum) and (setRowNum > 0) + + out.log("Number of rows : stub=" + stubRowNum + " set=" + setRowNum) + + Test.MethodTested("connectToCache()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/ucb/XCommandProcessor/script.xlb b/qadevOOo/tests/basic/ifc/ucb/XCommandProcessor/script.xlb new file mode 100644 index 000000000000..5b0eb48543ee --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XCommandProcessor/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="ucb_XCommandProcessor" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="ucb_XCommandProcessor"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/ucb/XCommandProcessor/ucb_XCommandProcessor.xba b/qadevOOo/tests/basic/ifc/ucb/XCommandProcessor/ucb_XCommandProcessor.xba new file mode 100644 index 000000000000..3281500c4b1d --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XCommandProcessor/ucb_XCommandProcessor.xba @@ -0,0 +1,85 @@ +<?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="ucb_XCommandProcessor" 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.ucb.XCommandProcessor +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Dim CommandId As Long + Dim oCommand As New com.sun.star.ucb.Command + Dim Environment As Object + Dim Res As Variant + Dim Commands As Variant + + Test.StartMethod("createCommandIdentifier()") + bOK = true + CommandId = oObj.createCommandIdentifier() + bOK = bOK AND CommandId <> 0 + Test.MethodTested("createCommandIdentifier()", bOK) + + Test.StartMethod("execute()") + bOK = true + oCommand.Name = "getCommandInfo" + oCommand.Handle = -1 + oCommand.Argument = "arg" + + Res = oObj.execute(oCommand, CommandId, Environment) + Out.Log("getCommandInfo returned: ") + Commands = Res.getCommands() + for i = 0 to ubound(commands) + Out.Log " " & commands(i).Name + next i + + Test.MethodTested("execute()", bOK) + + Test.StartMethod("abort()") + bOK = true + oObj.abort(CommandId) + Test.MethodTested("abort()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/ucb/XContentIdentifierFactory/script.xlb b/qadevOOo/tests/basic/ifc/ucb/XContentIdentifierFactory/script.xlb new file mode 100644 index 000000000000..52e741f78ce3 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XContentIdentifierFactory/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="ucb_XContentIdentifierFactory" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="ucb_XContentIdentifierFactory"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/ucb/XContentIdentifierFactory/ucb_XContentIdentifierFactory.xba b/qadevOOo/tests/basic/ifc/ucb/XContentIdentifierFactory/ucb_XContentIdentifierFactory.xba new file mode 100644 index 000000000000..32e2149f0c88 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XContentIdentifierFactory/ucb_XContentIdentifierFactory.xba @@ -0,0 +1,77 @@ +<?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="ucb_XContentIdentifierFactory" 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. +' +'************************************************************************* +'************************************************************************* + + + +' 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 sContentID As String + +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.ucb.XContentIdentifierFactory +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim ContentID As Object + + if (sContentID = "") then + Out.Log("sContentID NOT initialized!") + Exit Sub + end if + + Test.StartMethod("createContentIdentifier()") + bOK = true + ContentID = oObj.createContentIdentifier(sContentID) + bOK = bOK AND hasUNOInterfaces(ContentID, "com.sun.star.ucb.XContentIdentifier") + Test.MethodTested("createContentIdentifier()", bOK) +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/ucb/XContentProvider/script.xlb b/qadevOOo/tests/basic/ifc/ucb/XContentProvider/script.xlb new file mode 100644 index 000000000000..8f76e1207192 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XContentProvider/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="ucb_XContentProvider" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="ucb_XContentProvider"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/ucb/XContentProvider/ucb_XContentProvider.xba b/qadevOOo/tests/basic/ifc/ucb/XContentProvider/ucb_XContentProvider.xba new file mode 100644 index 000000000000..437c6e543bfd --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XContentProvider/ucb_XContentProvider.xba @@ -0,0 +1,95 @@ +<?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="ucb_XContentProvider" 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. +' +'************************************************************************* +'************************************************************************* + + + +' 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 ContentID1 As Object +' - Global ContentID2 As Object + +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.ucb.XContentProvider +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim compRes As Integer + Dim Content As Object + + if (NOT hasUNOInterfaces(ContentID1, "com.sun.star.ucb.XContentIdentifier") OR _ + NOT hasUNOInterfaces(ContentID2, "com.sun.star.ucb.XContentIdentifier")) then + Out.Log("ContentID1 or/and ContentID2 not initialized.") + Exit Sub + end if + + Test.StartMethod("queryContent()") + bOK = true + Out.Log("Try to query content for '" & ContentID1.getContentIdentifier() & "'") + Content = oObj.queryContent(ContentID1) + bOK = bOK AND hasUnoInterfaces(Content, "com.sun.star.ucb.XContent") + Out.Log("Content is XContent - " & bOK) + if (bOK) then + Out.Log("Returned identifier is " & Content.getIdentifier.getContentIdentifier()) + bOK = bOK AND (Content.getIdentifier.getContentIdentifier() = ContentID1.getContentIdentifier()) + end if + Test.MethodTested("queryContent()", bOK) + + Test.StartMethod("compareContentIds()") + bOK = true + compRes = oObj.compareContentIds(ContentID1, ContentID2) + bOK = bOK AND compRes <> 0 + compRes = oObj.compareContentIds(ContentID2, ContentID2) + bOK = bOK AND compRes = 0 + Test.MethodTested("compareContentIds()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/ucb/XContentProviderFactory/script.xlb b/qadevOOo/tests/basic/ifc/ucb/XContentProviderFactory/script.xlb new file mode 100644 index 000000000000..d4230fd9c2e4 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XContentProviderFactory/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="ucb_XContentProviderFactory" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="ucb_XContentProviderFactory"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/ucb/XContentProviderFactory/ucb_XContentProviderFactory.xba b/qadevOOo/tests/basic/ifc/ucb/XContentProviderFactory/ucb_XContentProviderFactory.xba new file mode 100644 index 000000000000..b667fa59c743 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XContentProviderFactory/ucb_XContentProviderFactory.xba @@ -0,0 +1,61 @@ +<?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="ucb_XContentProviderFactory" 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.ucb.XContentProviderFactory +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + Test.StartMethod("createContentProvider()") + bOK = true + bOK = bOK AND hasUnoInterfaces(oObj.createContentProvider(_ + "com.sun.star.ucb.ContentProviderFactory"),_ + "com.sun.star.ucb.XContentProvider") + Test.MethodTested("createContentProvider()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/ucb/XContentProviderManager/script.xlb b/qadevOOo/tests/basic/ifc/ucb/XContentProviderManager/script.xlb new file mode 100644 index 000000000000..020d1bbd6498 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XContentProviderManager/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="ucb_XContentProviderManager" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="ucb_XContentProviderManager"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/ucb/XContentProviderManager/ucb_XContentProviderManager.xba b/qadevOOo/tests/basic/ifc/ucb/XContentProviderManager/ucb_XContentProviderManager.xba new file mode 100644 index 000000000000..478485d31a4a --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XContentProviderManager/ucb_XContentProviderManager.xba @@ -0,0 +1,115 @@ +<?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="ucb_XContentProviderManager" 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.ucb.XContentProviderManager +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Dim Provider As Object + Dim Scheme As String + Dim ReplaceExisting As Boolean + Dim ContentProvider As Object + Dim queryInfo As Variant + Dim bFound As Boolean + + Test.StartMethod("queryContentProviders()") + bOK = true + queryInfo = oObj.queryContentProviders() + Out.Log("queryContentProviders() returned " & ubound(queryInfo) & " elements.") + for i = 0 to ubound(queryInfo) + Out.Log(queryInfo(i).Scheme) + next i + Test.MethodTested("queryContentProviders()", bOK) + + Test.StartMethod("registerContentProvider()") + bOK = true + ReplaceExisting = true + Scheme = "XContentProviderManager" + Provider = createUNOService("com.sun.star.ucb.FileContentProvider") + Out.Log("Registering Scheme = '" & Scheme & "'") + ContentProvider = oObj.registerContentProvider(Provider, Scheme, ReplaceExisting) + bOK = bOK AND hasUnoInterfaces(ContentProvider, "com.sun.star.ucb.XContentProvider") + Out.Log("ContentProvider is XContentProvider - " & bOK) + if bOK then + bFound = false + queryInfo = oObj.queryContentProviders() + for i = 0 to ubound(queryInfo) + bFound = bFound OR queryInfo(i).Scheme = Scheme + next i + if NOT bFound then + Out.Log("Can't find registered ContentProvider in query!") + bOK = false + end if + end if + Test.MethodTested("registerContentProvider()", bOK) + + Test.StartMethod("deregisterContentProvider()") + if bOK then + oObj.deregisterContentProvider(ContentProvider, Scheme) + bFound = false + queryInfo = oObj.queryContentProviders() + for i = 0 to ubound(queryInfo) + bFound = bFound OR queryInfo(i).Scheme = Scheme + next i + if bFound then + Out.Log("ContentProvider was found in query! It was not DeRegistered!") + bOK = false + end if + else + Out.Log("Can't deregister ContentProvider without registering!") + end if + + Test.MethodTested("deregisterContentProvider()", bOK) + + Test.StartMethod("queryContentProvider()") + bOK = true + ContentProvider = oObj.queryContentProvider(queryInfo(0).Scheme) + bOK = bOK AND hasUnoInterfaces(ContentProvider, "com.sun.star.ucb.XContentProvider") + Test.MethodTested("queryContentProvider()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/ucb/XDataContainer/script.xlb b/qadevOOo/tests/basic/ifc/ucb/XDataContainer/script.xlb new file mode 100644 index 000000000000..c5b36f463e24 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XDataContainer/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="ucb_XDataContainer" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="ucb_XDataContainer"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/ucb/XDataContainer/ucb_XDataContainer.xba b/qadevOOo/tests/basic/ifc/ucb/XDataContainer/ucb_XDataContainer.xba new file mode 100644 index 000000000000..362684c3853d --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XDataContainer/ucb_XDataContainer.xba @@ -0,0 +1,155 @@ +<?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="ucb_XDataContainer" 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. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.ucb.XDataContainer +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim i As Integer + + + Test.StartMethod("setContentType()") + Test.StartMethod("getContentType()") + + Dim aContType As String + Dim objContType As String + Dim newContType As String + + bOK = true + aContType = oObj.getContentType() + Out.Log("Current content type is: '" + aContType + "'") + newContType = "text/html" + + if (newContType = aContType) then + newContType = "text/plain" + end if + + Out.Log("Trying to change type to " + newContType) + oObj.setContentType(newContType) + + objContType = oObj.getContentType() + Out.Log("Actual content type is: '" + objContType + "'") + bOK = bOK AND objContType = newContType + Out.Log("Change type back to original...") + oObj.setContentType(aContType) + + Test.MethodTested("getContentType()", bOK) + Test.MethodTested("setContentType()", bOK) + + + Test.StartMethod("getData()") + bOK = true + + Dim Data As Variant + + Data = oObj.getData() + Out.Log("getData returned array with ubound = " + ubound(Data)) + bOK = bOK AND ubound(Data) >= -1 + for i = 0 to ubound(Data) + Out.Log("" + Data(i) + " " + chr(Data(i))) + next i + Test.MethodTested("getData()", bOK) + + Test.StartMethod("setData()") + bOK = true + + Dim DataToSet As Variant + DataToSet = DimArray(ubound(Data())) + + for i = 0 to ubound(DataToSet()) + DataToSet(i) = Data(i) + 1 + next i + + oObj.setData(DataToSet) + Data = oObj.getData() + Out.Log("after setData() call: getData returned array with ubound = " + ubound(Data)) + bOK = bOK AND (ubound(Data) = ubound(DataToSet)) + if (bOK) then + for i = 0 to ubound(Data) + Out.Log("" + Data(i) + " " + chr(Data(i))) + bOK = bOK AND (DataToSet(i) = Data(i)) + next i + end if + + Test.MethodTested("setData()", bOK) + + Test.StartMethod("getDataURL()") + Test.StartMethod("setDataURL()") + + + Dim aDataURL As String + Dim objDataURL As String + Dim newDataURL As String + + bOK = true + aDataURL = oObj.getDataURL() + Out.Log("Current data URL is: '" + aDataURL + "'") + newDataURL = "http://www.sun.com" + if (newDataURL = aDataURL) then + newDataURL = "http://www.openoffice.org" + end if + + Out.Log("Trying to change data URL to " + newDataURL) + oObj.setDataURL(newDataURL) + + objDataURL = oObj.getDataURL() + Out.Log("Actual data URL is: '" + objDataURL + "'") + bOK = bOK AND objDataURL = newDataURL + Out.Log("Change data URL back to original...") + oObj.setDataURL(aDataURL) + + Out.Log("Methods getDataURL() and setDataURL() are DEPRICATED. The result of test is ALWAYS true!") + + bOK = true + + Test.MethodTested("getDataURL()", bOK) + Test.MethodTested("setDataURL()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/ucb/XFileIdentifierConverter/script.xlb b/qadevOOo/tests/basic/ifc/ucb/XFileIdentifierConverter/script.xlb new file mode 100644 index 000000000000..81007cb5654c --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XFileIdentifierConverter/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="ucb_XFileIdentifierConverter" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="ucb_XFileIdentifierConverter"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/ucb/XFileIdentifierConverter/ucb_XFileIdentifierConverter.xba b/qadevOOo/tests/basic/ifc/ucb/XFileIdentifierConverter/ucb_XFileIdentifierConverter.xba new file mode 100644 index 000000000000..8b69b8f6cdc2 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XFileIdentifierConverter/ucb_XFileIdentifierConverter.xba @@ -0,0 +1,90 @@ +<?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="ucb_XFileIdentifierConverter" 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. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.ucb.XFileIdentifierConverter +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim iRes As Integer + Dim sRes As String + + + Test.StartMethod("getFileProviderLocality()") + bOK = true + + Out.Log("Test that " & cBaseURL & " is correct") + iRes = oObj.getFileProviderLocality(cBaseURL) + Out.Log("Returned value is " & iRes) + bOK = bOK AND iRes > 0 + + Out.Log("Test that wrong URL is NOT correct") + iRes = oObj.getFileProviderLocality("++lsjd_!!") + Out.Log("Returned value is " & iRes) + bOK = bOK AND iRes < 0 + + Test.MethodTested("getFileProviderLocality()", bOK) + + Test.StartMethod("getFileURLFromSystemPath()") + bOK = true + Out.Log("Convert " & cSystemPath) + sRes = oObj.getFileURLFromSystemPath(cBaseURL, cSystemPath) + Out.Log("Returned value is " & sRes) + bOK = bOK AND sRes = Path2URL(cSystemPath) + Test.MethodTested("getFileURLFromSystemPath()", bOK) + + Test.StartMethod("getSystemPathFromFileURL()") + bOK = true + Out.Log("Convert " & cURLPath) + sRes = oObj.getSystemPathFromFileURL(cURLPath) + Out.Log("Returned value is " & sRes) + bOK = bOK AND sRes = URL2Path(cURLPath) + Test.MethodTested("getSystemPathFromFileURL()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/ucb/XPropertyMatcherFactory/script.xlb b/qadevOOo/tests/basic/ifc/ucb/XPropertyMatcherFactory/script.xlb new file mode 100644 index 000000000000..a5c8a5a0a01c --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XPropertyMatcherFactory/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="ucb_XPropertyMatcherFactory" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="ucb_XPropertyMatcherFactory"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/ucb/XPropertyMatcherFactory/ucb_XPropertyMatcherFactory.xba b/qadevOOo/tests/basic/ifc/ucb/XPropertyMatcherFactory/ucb_XPropertyMatcherFactory.xba new file mode 100644 index 000000000000..59cf541e3b34 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XPropertyMatcherFactory/ucb_XPropertyMatcherFactory.xba @@ -0,0 +1,71 @@ +<?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="ucb_XPropertyMatcherFactory" 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.ucb.XPropertyMatcherFactory +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oSearchCriteria(0) As New com.sun.star.ucb.SearchCriterium + Dim oTerms(0) As New com.sun.star.ucb.RuleTerm + Dim oPropertyMatcher As Object + + + Test.StartMethod("createPropertyMatcher()") + bOK = true + oTerms(0).Property = "Name" + oTerms(0).Operand = 1 + oTerms(0).Operator = "=" + oTerms(0).CaseSensitive = false + oTerms(0).RegularExpression = false + + oSearchCriteria(0).Terms = oTerms() + oPropertyMatcher = oObj.createPropertyMatcher(oSearchCriteria()) + + bOK = bOK AND hasUnoInterfaces(oPropertyMatcher, "com.sun.star.ucb.XPropertyMatcher") + Test.MethodTested("createPropertyMatcher()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/ucb/XPropertySetRegistryFactory/script.xlb b/qadevOOo/tests/basic/ifc/ucb/XPropertySetRegistryFactory/script.xlb new file mode 100644 index 000000000000..e21cccfe01f9 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XPropertySetRegistryFactory/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="ucb_XPropertySetRegistryFactory" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="ucb_XPropertySetRegistryFactory"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/ucb/XPropertySetRegistryFactory/ucb_XPropertySetRegistryFactory.xba b/qadevOOo/tests/basic/ifc/ucb/XPropertySetRegistryFactory/ucb_XPropertySetRegistryFactory.xba new file mode 100644 index 000000000000..da9574f36b1b --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XPropertySetRegistryFactory/ucb_XPropertySetRegistryFactory.xba @@ -0,0 +1,62 @@ +<?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="ucb_XPropertySetRegistryFactory" 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.ucb.XPropertySetRegistryFactory +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + Test.StartMethod("createPropertySetRegistry()") + bOK = true + + bOK = bOK AND hasUnoInterfaces(oObj.createPropertySetRegistry(""),_ + "com.sun.star.ucb.XPropertySetRegistry") + + Test.MethodTested("createPropertySetRegistry()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/ucb/XSimpleFileAccess/script.xlb b/qadevOOo/tests/basic/ifc/ucb/XSimpleFileAccess/script.xlb new file mode 100644 index 000000000000..ce7b93254b04 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XSimpleFileAccess/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="ucb_XSimpleFileAccess" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="ucb_XSimpleFileAccess"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/ucb/XSimpleFileAccess/ucb_XSimpleFileAccess.xba b/qadevOOo/tests/basic/ifc/ucb/XSimpleFileAccess/ucb_XSimpleFileAccess.xba new file mode 100644 index 000000000000..c4c24686f6c6 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XSimpleFileAccess/ucb_XSimpleFileAccess.xba @@ -0,0 +1,242 @@ +<?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="ucb_XSimpleFileAccess" 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. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.ucb.XSimpleFileAccess +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim testDir As String + Dim cSubFolder As String + Dim cFile1 As String + Dim cFile2 As String + Dim cFile3 As String + Dim oFC As Variant + Dim oDT As Object + Dim oOS As Object + Dim oIS As Object + Dim cFileName As String + Dim cCrDate As String + Dim cType As String + Dim i As Integer + Dim k As Integer + Dim oIH As Object + + Dim Bytes(5) As Integer + for i = 0 to 5 + Bytes(i) = i + next i + + testDir = utils.Path2URL(cTestDocsDir + "XSimpleFileAccessBASIC") + Out.Log("Test directory is '" + testDir + "'") + cSubFolder = utils.getTempFileURL( + "/SubFolder") + cFile1 = utils.Path2URL(testDir + "/File1.txt") + cFile2 = utils.Path2URL(testDir + "/File2.txt") + cFile3 = utils.Path2URL(cSubFolder + "/File3.txt") + if FileExists(cFile3) then kill(cFile3) + if (FileExists(cSubFolder)) then rmDir(cSubFolder) + + Out.Log("Test that files are in place...") + bOK = true + bOK = bOK AND FileExists(cFile1) + bOK = bOK AND FileExists(cFile2) + if (NOT bOK) then + Out.Log("Can't find '" + cFile1 + "' and/or '" + cFile2 + "'") + Exit Sub + end if + + Test.StartMethod("createFolder()") + bOK = true + Out.Log("Creating subfolder '" + cSubFolder + "'") + oObj.createFolder(cSubFolder) + bOK = bOK AND FileExists(cSubFolder) + Test.MethodTested("createFolder()", bOK) + + Test.StartMethod("isFolder()") + bOK = true + bOK = bOK AND oObj.isFolder(cSubFolder) + bOK = bOK AND NOT oObj.isFolder(cFile1) + Test.MethodTested("isFolder()", bOK) + + Test.StartMethod("getFolderContents()") + bOK = true + Out.Log("Getting content of folder '" + utils.Path2URL(cTestDocsDir) + "'") + oFC = oObj.getFolderContents(utils.Path2URL(cTestDocsDir), False) + ' Getting files amount (without folders) + cFileName = Dir(utils.Path2URL(cTestDocsDir)) + i = 0 + Out.Log("File list :") + while (cFileName <> "") + Out.Log(" " + cFileName) + i = i + 1 + cFileName = Dir() + wend + + bOK = bOK AND ubound(oFC) = i - 1 + if (bOK) then + for k = 0 to i - 1 + bOK = bOK AND FileExists(oFC(k)) + next k + else + Out.Log("Amount of files in list is wrong: " + (ubound(oFC) + 1) + "," + i) + + end if + + Test.MethodTested("getFolderContents()", bOK) + + Test.StartMethod("move()") + bOK = true + oObj.move(cFile2, cFile3) + bOK = bOK AND FileExists(cFile3) AND NOT FileExists(cFile2) + Test.MethodTested("move()", bOK) + + Test.StartMethod("copy()") + bOK = true + oObj.copy(cFile3, cFile2) + bOK = bOK AND FileExists(cFile3) AND FileExists(cFile2) + Test.MethodTested("copy()", bOK) + + Test.StartMethod("openFileWrite()") + bOK = true + + Test.StartMethod("kill()") + bOK = true + oObj.kill(cFile3) + bOK = bOK AND NOT FileExists(cFile3) + Test.MethodTested("kill()", bOK) + + Test.StartMethod("exists()") + bOK = true + bOK = bOK AND oObj.exists(cFile1) = FileExists(cFile1) AND oObj.exists(cFile3) = FileExists(cFile3) + Test.MethodTested("exists()", bOK) + + Out.Log("creating a new file '" + cFile3 + "'") + oOS = oObj.openFileWrite(cFile3) + bOK = bOK AND NOT isNULL(oOS) + bOK = bOK AND FileExists(cFile3) + if (bOK) then + oOS.writeBytes(Bytes()) + oOS.closeOutput() + end if + Test.MethodTested("openFileWrite()", bOK) + + Test.StartMethod("getSize()") + bOK = true + Out.Log("Actual: " + oObj.getSize(cFile3) + " Expected: " + (ubound(Bytes()) + 1)) + bOK = bOK AND oObj.getSize(cFile3) = (ubound(Bytes()) + 1) + Test.MethodTested("getSize()", bOK) + + Test.StartMethod("setReadOnly()") + Test.StartMethod("isReadOnly()") + bOK = true + oObj.setReadOnly(cSubFolder, true) + bOK = bOK AND oObj.isReadOnly(cSubFolder) + oObj.setReadOnly(cSubFolder, false) + bOK = bOK AND NOT oObj.isReadOnly(cSubFolder) + Test.MethodTested("isReadOnly()", bOK) + Test.MethodTested("setReadOnly()", bOK) + + Test.StartMethod("getContentType()") + bOK = true + cType = oObj.getContentType(cFile3) + Out.Log("Content Type is '" + cType + "'") + Test.MethodTested("getContentType()", bOK) + + Test.StartMethod("getDateTimeModified()") + bOK = true + oDT = oObj.getDateTimeModified(cFile3) + cCrDate = Date() + + + bOK = bOK AND Day(cCrDate) = oDT.Day + bOK = bOK AND Month(cCrDate) = oDT.Month + bOK = bOK AND Year(cCrDate) = oDT.Year + + if (NOT bOK) then + Out.Log("FileDateTime returned '" + cCrDate + "'") + Out.Log("getDateTimeModified returned '" + oDT.Day + "/" _ + + oDT.Month + "/" _ + + oDT.Year + " " _ + + oDT.Hours + ":" _ + + oDT.Minutes + ":" _ + + oDT.Seconds + "'") + end if + Test.MethodTested("getDateTimeModified()", bOK) + + Test.StartMethod("openFileRead()") + bOK = true + oIS = oObj.openFileRead(cFile3) + bOK = bOK AND NOT isNULL(oIS) + Dim rData(10) As Integer + Dim nRb As Integer + nRb = oIS.readBytes(rData(), 100) + bOK = bOK AND nRb = ubound(Bytes()) + 1 + if (NOT bOK) then + Out.Log("Amount of read files is wrong") + else + for i = 0 to nRb - 1 + bOK = bOK AND Bytes(i) = rData(i) + next i + end if + oIS.closeInput() + Test.MethodTested("openFileRead()", bOK) + + Test.StartMethod("openFileReadWrite()") + bOK = true + oIS = oObj.openFileReadWrite(cFile3) + bOK = bOK AND hasUnoInterfaces(oIS, "com.sun.star.io.XStream") + Test.MethodTested("openFileReadWrite()", bOK) + + Test.StartMethod("setInteractionHandler()") + bOK = true + oIH = createUNOInterface("com.sun.star.sdb.InteractionHandler") + oObj.setInteractionHandler(oIH) + Test.MethodTested("setInteractionHandler()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/ucb/XSimpleFileAccess2/script.xlb b/qadevOOo/tests/basic/ifc/ucb/XSimpleFileAccess2/script.xlb new file mode 100644 index 000000000000..d7216c83c7f8 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XSimpleFileAccess2/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="ucb_XSimpleFileAccess2" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="ucb_XSimpleFileAccess2"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/ucb/XSimpleFileAccess2/ucb_XSimpleFileAccess2.xba b/qadevOOo/tests/basic/ifc/ucb/XSimpleFileAccess2/ucb_XSimpleFileAccess2.xba new file mode 100644 index 000000000000..95933450c149 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XSimpleFileAccess2/ucb_XSimpleFileAccess2.xba @@ -0,0 +1,77 @@ +<?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="ucb_XSimpleFileAccess2" 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. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.ucb.XSimpleFileAccess2 +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim urlFileForWrite As String + Dim urlFileForRead As String + Dim oInputStream As Object + + Test.StartMethod("writeFile()") + + urlFileForWrite = utils.getTempFileURL("XSimpleFileAccess_new.txt") + urlFileForRead = utils.Path2URL(cTestDocsDir + "\XSimpleFileAccess\XSimpleFileAccess.txt") + + oInputStream = oObj.openFileRead(urlFileForRead) + + if oObj.exists(urlFileForWrite) then + oObj.kill(urlFileForWrite) + endif + + oObj.writeFile(urlFileForWrite, oInputStream) + wait(1000) + + bOK = oObj.exists(urlFileForWrite) + oObj.kill(urlFileForWrite) + + Test.MethodTested("writeFile()", bOK) +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/ucb/XSortedDynamicResultSetFactory/script.xlb b/qadevOOo/tests/basic/ifc/ucb/XSortedDynamicResultSetFactory/script.xlb new file mode 100644 index 000000000000..60ad898df6de --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XSortedDynamicResultSetFactory/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="ucb_XSortedDynamicResultSetFactory" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="ucb_XSortedDynamicResultSetFactory"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/ucb/XSortedDynamicResultSetFactory/ucb_XSortedDynamicResultSetFactory.xba b/qadevOOo/tests/basic/ifc/ucb/XSortedDynamicResultSetFactory/ucb_XSortedDynamicResultSetFactory.xba new file mode 100644 index 000000000000..d32aee8b52d9 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/ucb/XSortedDynamicResultSetFactory/ucb_XSortedDynamicResultSetFactory.xba @@ -0,0 +1,111 @@ +<?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="ucb_XSortedDynamicResultSetFactory" 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. +' +'************************************************************************* +'************************************************************************* + + + +' Be sure that all variables are dimensioned: +option explicit + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.ucb.XSortedDynamicResultSetFactory +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + Test.StartMethod("createSortedDynamicResultSet()") + + Dim oUCB As Object + oUCB = createUnoService("com.sun.star.ucb.UniversalContentBroker") + Dim args As Variant + args = Array("Local", "Office") + oUCB.initialize(args()) + + Dim sURL, sCntURL As String + sURL = utils.Path2URL(cTestDocsDir & "solibrary.jar") + sURL = utils.utils.StrReplace(sURL, "/", "%2F") + sCntURL = "vnd.sun.star.pkg://" & sURL & "/" + + Dim oCI, oContent As Object + oCI = oUCB.createContentIdentifier(sCntUrl) + oContent = oUCB.queryContent(oCI) + + Dim props(0) As new com.sun.star.beans.Property + Dim cmd As new com.sun.star.ucb.Command + Dim ocArg As new com.sun.star.ucb.OpenCommandArgument2 + Dim sortInfo(0) As new com.sun.star.ucb.NumberedSortingInfo + Dim oDynResSet As Object + + props(0).Name = "Title" + + ocArg.Mode = com.sun.star.ucb.OpenMode.ALL + ocArg.Priority = 10000 + ocArg.Properties = props() + ocArg.SortingInfo = sortInfo() + + cmd.Name = "open" + cmd.Handle = -1 + cmd.Argument = ocArg + + oDynResSet = oContent.execute(cmd, 0, NULL_OBJECT) + + Dim oSortedSet As Object + oSortedSet = oObj.createSortedDynamicResultSet(oDynResSet, sortInfo(), NULL_OBJECT) + + If IsNULL(oSortedSet) Then + out.log("returns null") + bOK = False + Else + Dim oSet As Object + oSet = oSortedSet.getStaticResultSet() + oSet.last() + Dim rowCount As Integer + rowCount = oSet.getRow() + out.log("number of row : " + rowCount) + bOK = rowCount > 0 + EndIf + + Test.MethodTested("createSortedDynamicResultSet()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> |