diff options
Diffstat (limited to 'qadevOOo/tests/basic/ifc/ucb')
32 files changed, 0 insertions, 1725 deletions
diff --git a/qadevOOo/tests/basic/ifc/ucb/XCachedContentResultSetFactory/script.xlb b/qadevOOo/tests/basic/ifc/ucb/XCachedContentResultSetFactory/script.xlb deleted file mode 100644 index ac4ee4bfe229..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XCachedContentResultSetFactory/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?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 deleted file mode 100644 index 646757fbaa21..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XCachedContentResultSetFactory/ucb_XCachedContentResultSetFactory.xba +++ /dev/null @@ -1,91 +0,0 @@ -<?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 deleted file mode 100644 index 35e8bdf341f0..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XCachedContentResultSetStubFactory/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?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 deleted file mode 100644 index a8a4516757e7..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XCachedContentResultSetStubFactory/ucb_XCachedContentResultSetStubFactory.xba +++ /dev/null @@ -1,91 +0,0 @@ -<?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 deleted file mode 100644 index 355cb7dd01b2..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XCachedDynamicResultSetFactory/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?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 deleted file mode 100644 index 292af7567947..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XCachedDynamicResultSetFactory/ucb_XCachedDynamicResultSetFactory.xba +++ /dev/null @@ -1,97 +0,0 @@ -<?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 deleted file mode 100644 index 8e6110e4c280..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XCachedDynamicResultSetStubFactory/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?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 deleted file mode 100644 index 8f323d227d5b..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XCachedDynamicResultSetStubFactory/ucb_XCachedDynamicResultSetStubFactory.xba +++ /dev/null @@ -1,125 +0,0 @@ -<?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 deleted file mode 100644 index 5b0eb48543ee..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XCommandProcessor/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?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 deleted file mode 100644 index 3281500c4b1d..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XCommandProcessor/ucb_XCommandProcessor.xba +++ /dev/null @@ -1,85 +0,0 @@ -<?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 deleted file mode 100644 index 52e741f78ce3..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XContentIdentifierFactory/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?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 deleted file mode 100644 index 32e2149f0c88..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XContentIdentifierFactory/ucb_XContentIdentifierFactory.xba +++ /dev/null @@ -1,77 +0,0 @@ -<?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 deleted file mode 100644 index 8f76e1207192..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XContentProvider/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?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 deleted file mode 100644 index 437c6e543bfd..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XContentProvider/ucb_XContentProvider.xba +++ /dev/null @@ -1,95 +0,0 @@ -<?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 deleted file mode 100644 index d4230fd9c2e4..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XContentProviderFactory/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?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 deleted file mode 100644 index b667fa59c743..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XContentProviderFactory/ucb_XContentProviderFactory.xba +++ /dev/null @@ -1,61 +0,0 @@ -<?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 deleted file mode 100644 index 020d1bbd6498..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XContentProviderManager/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?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 deleted file mode 100644 index 478485d31a4a..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XContentProviderManager/ucb_XContentProviderManager.xba +++ /dev/null @@ -1,115 +0,0 @@ -<?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 deleted file mode 100644 index c5b36f463e24..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XDataContainer/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?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 deleted file mode 100644 index 362684c3853d..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XDataContainer/ucb_XDataContainer.xba +++ /dev/null @@ -1,155 +0,0 @@ -<?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 deleted file mode 100644 index 81007cb5654c..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XFileIdentifierConverter/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?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 deleted file mode 100644 index 8b69b8f6cdc2..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XFileIdentifierConverter/ucb_XFileIdentifierConverter.xba +++ /dev/null @@ -1,90 +0,0 @@ -<?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 deleted file mode 100644 index a5c8a5a0a01c..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XPropertyMatcherFactory/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?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 deleted file mode 100644 index 59cf541e3b34..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XPropertyMatcherFactory/ucb_XPropertyMatcherFactory.xba +++ /dev/null @@ -1,71 +0,0 @@ -<?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 deleted file mode 100644 index e21cccfe01f9..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XPropertySetRegistryFactory/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?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 deleted file mode 100644 index da9574f36b1b..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XPropertySetRegistryFactory/ucb_XPropertySetRegistryFactory.xba +++ /dev/null @@ -1,62 +0,0 @@ -<?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 deleted file mode 100644 index ce7b93254b04..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XSimpleFileAccess/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?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 deleted file mode 100644 index c4c24686f6c6..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XSimpleFileAccess/ucb_XSimpleFileAccess.xba +++ /dev/null @@ -1,242 +0,0 @@ -<?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 deleted file mode 100644 index d7216c83c7f8..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XSimpleFileAccess2/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?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 deleted file mode 100644 index 95933450c149..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XSimpleFileAccess2/ucb_XSimpleFileAccess2.xba +++ /dev/null @@ -1,77 +0,0 @@ -<?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 deleted file mode 100644 index 60ad898df6de..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XSortedDynamicResultSetFactory/script.xlb +++ /dev/null @@ -1,5 +0,0 @@ -<?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 deleted file mode 100644 index d32aee8b52d9..000000000000 --- a/qadevOOo/tests/basic/ifc/ucb/XSortedDynamicResultSetFactory/ucb_XSortedDynamicResultSetFactory.xba +++ /dev/null @@ -1,111 +0,0 @@ -<?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> |