diff options
Diffstat (limited to 'qadevOOo/tests/basic/ifc/table')
26 files changed, 1263 insertions, 0 deletions
diff --git a/qadevOOo/tests/basic/ifc/table/CellProperties/script.xlb b/qadevOOo/tests/basic/ifc/table/CellProperties/script.xlb new file mode 100644 index 000000000000..f6d079817389 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/CellProperties/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="table_CellProperties" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="table_CellProperties"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/table/CellProperties/table_CellProperties.xba b/qadevOOo/tests/basic/ifc/table/CellProperties/table_CellProperties.xba new file mode 100644 index 000000000000..74d2e9706f3b --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/CellProperties/table_CellProperties.xba @@ -0,0 +1,109 @@ +<?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="table_CellProperties" 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 + + +Dim bOK As Boolean +Dim oTB As Variant, oldVal As Variant +Dim newVal As Variant, valToSet As Variant + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.table.CellProperties +'************************************************************************* +On Error Goto ErrHndl + Dim aCellStyles(1) As String + + aCellStyles(0) = "Result" + aCellStyles(1) = "Default" + PropertyTester.TestProperty("CellStyle", aCellStyles()) + + PropertyTester.TestProperty("CellBackColor") + + PropertyTester.TestProperty("IsCellBackgroundTransparent") + + Dim aNumberFormats(1) As Integer + aNumberFormats(0) = 2 + aNumberFormats(1) = 1 + PropertyTester.TestProperty("NumberFormat", aNumberFormats()) + + PropertyTester.TestProperty("ShadowFormat") + + PropertyTester.TestProperty("HoriJustify") + + PropertyTester.TestProperty("VertJustify") + + PropertyTester.TestProperty("Orientation") + + PropertyTester.TestProperty("CellProtection") + + Test.StartMethod("TableBorder") + + Dim oTBNew As New com.sun.star.table.TableBorder + bOK = true + oldVal = oObj.TableBorder.Distance + Out.Log("value of 'TableBorder.Distance' before: "+oldVal) + oTBNew = oObj.TableBorder + Out.Log("setting value: "+ (oldVal + 20)) + oTBNew.Distance = oldVal + 20 + oObj.setPropertyValue("TableBorder", oTBNew) + newVal = oObj.TableBorder.Distance + Out.Log("value of 'TableBorder.Distance' after: "+newVal) + bOK = bOK AND (newVal = oTBNew.Distance) + Test.MethodTested("TableBorder", bOK) + + PropertyTester.TestProperty("IsTextWrapped") + + Dim nRotate(1) As Integer + nRotate(0) = 30999 + nRotate(1) = 4500 + PropertyTester.TestProperty("RotateAngle",nRotate()) + + PropertyTester.TestProperty("RotateReference") + + PropertyTester.TestProperty("AsianVerticalMode") +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/table/TableColumn/script.xlb b/qadevOOo/tests/basic/ifc/table/TableColumn/script.xlb new file mode 100644 index 000000000000..6e6455ba0f2f --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/TableColumn/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="table_TableColumn" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="table_TableColumn"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/table/TableColumn/table_TableColumn.xba b/qadevOOo/tests/basic/ifc/table/TableColumn/table_TableColumn.xba new file mode 100644 index 000000000000..cf052ca74719 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/TableColumn/table_TableColumn.xba @@ -0,0 +1,64 @@ +<?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="table_TableColumn" 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() + +'************************************************************************* +' SERVICE: +' com.sun.star.table.TableColumn +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + PropertyTester.TestProperty("Width") + + PropertyTester.TestProperty("OptimalWidth") + + PropertyTester.TestProperty("IsVisible") + + PropertyTester.TestProperty("IsStartOfNewPage") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/table/TableRow/script.xlb b/qadevOOo/tests/basic/ifc/table/TableRow/script.xlb new file mode 100644 index 000000000000..a60eabb39d69 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/TableRow/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="table_TableRow" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="table_TableRow"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/table/TableRow/table_TableRow.xba b/qadevOOo/tests/basic/ifc/table/TableRow/table_TableRow.xba new file mode 100644 index 000000000000..f46e5f1e7e09 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/TableRow/table_TableRow.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="table_TableRow" 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() + +'************************************************************************* +' SERVICE: +' com.sun.star.table.TableRow +'************************************************************************* +On Error Goto ErrHndl + + PropertyTester.TestProperty("Height") + + PropertyTester.TestProperty("OptimalHeight") + + PropertyTester.TestProperty("IsVisible") + + PropertyTester.TestProperty("IsStartOfNewPage") + +Exit Sub +ErrHndl: + Test.Exception() + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/table/XAutoFormattable/script.xlb b/qadevOOo/tests/basic/ifc/table/XAutoFormattable/script.xlb new file mode 100644 index 000000000000..88458e208447 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/XAutoFormattable/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="table_XAutoFormattable" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="table_XAutoFormattable"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/table/XAutoFormattable/table_XAutoFormattable.xba b/qadevOOo/tests/basic/ifc/table/XAutoFormattable/table_XAutoFormattable.xba new file mode 100644 index 000000000000..d67b346a9203 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/XAutoFormattable/table_XAutoFormattable.xba @@ -0,0 +1,67 @@ +<?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="table_XAutoFormattable" 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.table.XAutoFormattable +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim iBg1 As Variant, iBg2 As Variant + + Test.StartMethod("autoFormat()") + bOK = true + oObj.getCellByPosition(0, 0).setPropertyValue("BackColor", 0) + oObj.getCellByPosition(1, 1).setPropertyValue("BackColor", 0) + oObj.autoFormat("Default") + iBg1 = oObj.getCellByPosition(0, 0).getPropertyValue("BackColor") + iBg2 = oObj.getCellByPosition(1, 1).getPropertyValue("BackColor") + bOK = bOK AND iBg1 <> iBg2 + Test.MethodTested("autoFormat()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/table/XCell/script.xlb b/qadevOOo/tests/basic/ifc/table/XCell/script.xlb new file mode 100644 index 000000000000..837a8f5c67f9 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/XCell/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="table_XCell" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="table_XCell"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/table/XCell/table_XCell.xba b/qadevOOo/tests/basic/ifc/table/XCell/table_XCell.xba new file mode 100644 index 000000000000..6bb675e5088c --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/XCell/table_XCell.xba @@ -0,0 +1,100 @@ +<?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="table_XCell" 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.table.XCell +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim aFormula As String + Dim aValue As Integer + Dim aType As Variant + + Test.StartMethod("setFormula()") + bOK = true + Out.Log("setFormula(""=2+2"")") + oObj.setFormula("=2+2") + Test.MethodTested("setFormula()", bOK) + + Test.StartMethod("getFormula()") + bOK = true + aFormula = oObj.getFormula() + Out.Log("getFormula() returned '" & aFormula & "'") + bOK = bOK AND inStr(1, aFormula, "2+2") + Test.MethodTested("getFormula()", bOK) + + Test.StartMethod("getValue()") + bOK = true + aValue = oObj.getValue() + bOK = bOK AND aValue = 4 + Test.MethodTested("getValue()", bOK) + + Test.StartMethod("setValue()") + bOK = true + oObj.setValue(10) + bOK = bOK AND oObj.getValue = 10 + Test.MethodTested("setValue()", bOK) + + Test.StartMethod("getType()") + bOK = true + aType = oObj.getType() + bOK = bOK AND (aType = com.sun.star.table.CellContentType.EMPTY OR _ + aType = com.sun.star.table.CellContentType.VALUE OR _ + aType = com.sun.star.table.CellContentType.TEXT OR _ + aType = com.sun.star.table.CellContentType.FORMULA) + Test.MethodTested("getType()", bOK) + + Test.StartMethod("getError()") + bOK = true + bOK = bOK AND (oObj.getError() = 0) + oObj.setFormula("=sqrt(-2)") + bOK = bOK AND (oObj.getError() <> 0) + Test.MethodTested("getError()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/table/XCellCursor/script.xlb b/qadevOOo/tests/basic/ifc/table/XCellCursor/script.xlb new file mode 100644 index 000000000000..beb85284488f --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/XCellCursor/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="table_XCellCursor" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="table_XCellCursor"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/table/XCellCursor/table_XCellCursor.xba b/qadevOOo/tests/basic/ifc/table/XCellCursor/table_XCellCursor.xba new file mode 100644 index 000000000000..b681dfa1a334 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/XCellCursor/table_XCellCursor.xba @@ -0,0 +1,144 @@ +<?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="table_XCellCursor" 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 + +'************************************************************************* +'XCellCursor walks in a range of data. That +' means: If you have the range (A1:B10) filled +' with data gotoStart() goes to (A1), gotoEnd() +' goes to (B10). But: you must insite this range. +' If you are in (C3) you will nerver go to (A1). + +'************************************************************************* + + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.table.XCellCursor +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim bSupport As Boolean + Dim ResetCols As Integer, ResetRows As Long + Dim nStartSCol, nStartECol As Integer + Dim nStartSRow, nStartERow As Long + Dim nNextECol As Integer, nNextERow As Long + Dim nEndECol As Integer, nEndERow As Long + Dim nPrevECol As Integer, nPrevERow As Long + Dim nOffECol As Integer, nOffERow As Long + Dim oAddress As Object + + if hasUnoInterfaces(oObj, "com.sun.star.sheet.XSheetCellCursor") then + bSupport = true + ResetCols = oObj.getColumns().getCount() + ResetRows = oObj.getRows().getCount() + else + bSupport = false + end if + + Test.StartMethod("gotoStart()") + bOK = true + oObj.gotoStart() + oAddress = oObj.getRangeAddress() + nStartSCol = oAddress.StartColumn + nStartECol = oAddress.EndColumn + nStartSRow = oAddress.StartRow + nStartERow = oAddress.EndRow + bOK = bOK AND (nStartSCol = nStartECol) AND (nStartSRow = nStartERow) + Out.Log("nStartSCol = " & nStartSCol & " nStartECol = " & nStartECol &_ + " nStartSRow = " & nStartSRow & " nStartERow = " & nStartERow) + Test.MethodTested("gotoStart()", bOK) + + Test.StartMethod("gotoNext()") + bOK = true + oObj.gotoNext() + oAddress = oObj.getRangeAddress() + nNextECol = oAddress.EndColumn + nNextERow = oAddress.EndRow + bOK = bOK AND ((nNextECol = nStartSCol + 1) OR (nNextERow = nStartSRow + 1)) + Out.Log("nNextECol = " & nNextECol & " nNextERow = " & nNextERow) + Test.MethodTested("gotoNext()", bOK) + + Test.StartMethod("gotoEnd()") + bOK = true + oObj.gotoEnd() + oAddress = oObj.getRangeAddress() + nEndECol = oAddress.EndColumn + nEndERow = oAddress.EndRow + bOK = bOK AND ((nEndECol > nStartECol) OR (nEndERow > nStartERow)) + Out.Log("nEndSCol = " & nEndECol & " nEndERow = " & nEndERow) + Test.MethodTested("gotoEnd()", bOK) + + Test.StartMethod("gotoPrevious()") + bOK = true + oObj.gotoPrevious() + oAddress = oObj.getRangeAddress() + nPrevECol = oAddress.EndColumn + nPrevERow = oAddress.EndRow + bOK = bOK AND ((nPrevECol < nEndECol) OR (nPrevERow < nEndERow)) + Out.Log("nPrevECol = " & nPrevECol & " nPrevERow = " & nPrevERow) + Test.MethodTested("gotoPrevious()", bOK) + + Test.StartMethod("gotoOffset()") + bOK = true + oObj.gotoStart() + oObj.gotoOffset(1,1) + oAddress = oObj.getRangeAddress() + nOffECol = oAddress.EndColumn + nOffERow = oAddress.EndRow + bOK = bOK AND (nOffECol = nStartSCol + 1) AND (nOffERow = nStartSRow + 1) + Out.Log("nOffECol = " & nOffECol & " nOffERow = " & nOffERow) + Test.MethodTested("gotoOffset()", bOK) + + if bSupport then + Out.Log("Reset to old range: " & ResetCols & "," & ResetRows) + oObj.collapseToSize(ResetCols, ResetRows) + end if + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/table/XCellRange/script.xlb b/qadevOOo/tests/basic/ifc/table/XCellRange/script.xlb new file mode 100644 index 000000000000..432c2e2fd845 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/XCellRange/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="table_XCellRange" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="table_XCellRange"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/table/XCellRange/table_XCellRange.xba b/qadevOOo/tests/basic/ifc/table/XCellRange/table_XCellRange.xba new file mode 100644 index 000000000000..84588e716650 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/XCellRange/table_XCellRange.xba @@ -0,0 +1,142 @@ +<?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="table_XCellRange" 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 + +'************************************************************************* +' You can only get ranges within your +' object-range. That means is your object-range +' is (A1:C3) you can get only a range within +' (A1:C3). + +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.table.XCellRange +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Dim oCell As Object + Dim oCellRange As Object + Dim oCellRange1 As Object + Dim bSupport As Boolean + Dim oAddress As Object + Dim nSCol As Long, nECol As Long + Dim nSRow As Long, nERow As Long + Dim nCol As Long, nRow As Long + Dim cSCol As String, cECol As String + + bOK = true + 'does the object support this service? If yes, the object is a range itself. + 'So we must look for the range address to be get a valid range + if hasUnoInterfaces( oObj, "com.sun.star.sheet.XCellRangeAddressable" ) then + Out.Log("Object supports com.sun.star.sheet.XCellRangeAddressable") + bSupport = true + oAddress = oObj.getRangeAddress() + nSCol = oAddress.StartColumn + nECol = oAddress.EndColumn + nSRow = oAddress.StartRow + nERow = oAddress.EndRow + nCol = nECol - nSCol + nRow = nERow - nSRow + else + bSupport = false + nCol = 1 + nRow = 1 + end if + + Test.StartMethod("getCellByPosition()") + bOK = true + Out.Log("try to getCellByPosition(" + nCol + "," + nRow + ")") + oCell = oObj.getCellByPosition(nCol, nRow) + bOK = bOK AND hasUnoInterfaces( oCell, "com.sun.star.table.XCell" ) + Test.MethodTested("getCellByPosition()", bOK) + + Test.StartMethod("getCellRangeByPosition()") + bOK = true + Out.Log("try to getCellRangeByPosition(0,0," + nCol + "," + nRow + ")") + oCellRange = oObj.getCellRangeByPosition(0, 0, nCol, nRow) + bOK = bOK AND hasUnoInterfaces( oCellRange, "com.sun.star.table.XCellRange" ) + Test.MethodTested("getCellRangeByPosition()", bOK) + + Test.StartMethod("getCellRangeByName()") + bOK = true + if bSupport then + oAddress = oObj.getRangeAddress() + nSCol = oAddress.StartColumn + nECol = oAddress.EndColumn + nSRow = oAddress.StartRow + nERow = oAddress.EndRow + cSCol = getCharacter(nSCol) + cECol = getCharacter(nECol) + else + nSRow = 0 + nERow = 2 + cSCol = "A" + cECol = "C" + end if + Out.Log("Try to getCellRangeByName(""" + cSCol + (nSRow + 1) + ":" + cECol + (nERow + 1) + """)") + oCellRange1 = oObj.getCellRangeByName("" + cSCol + (nSRow + 1) + ":" + cECol + (nERow + 1)) + bOK = bOK AND hasUnoInterfaces( oCellRange1, "com.sun.star.table.XCellRange" ) + Test.MethodTested("getCellRangeByName()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +Function getCharacter( nCol as Integer) as String + Dim Char As String + Dim nNum As Integer + nNum = nCol + Char = "" + if (nNum - 26) > 0 Then + Char = Chr((nNum mod 26)+65) + nNum = Int((nNum - 26)/ 26) + end if + Char = Chr(nNum + 65) + Char + getCharacter = Char +End Function +</script:module> diff --git a/qadevOOo/tests/basic/ifc/table/XColumnRowRange/script.xlb b/qadevOOo/tests/basic/ifc/table/XColumnRowRange/script.xlb new file mode 100644 index 000000000000..7dc9dec2d4c2 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/XColumnRowRange/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="table_XColumnRowRange" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="table_XColumnRowRange"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/table/XColumnRowRange/table_XColumnRowRange.xba b/qadevOOo/tests/basic/ifc/table/XColumnRowRange/table_XColumnRowRange.xba new file mode 100644 index 000000000000..8b22ff74500e --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/XColumnRowRange/table_XColumnRowRange.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="table_XColumnRowRange" 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.table.XColumnRowRange +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Dim oColumns As Variant + Dim oRows As Variant + + Test.StartMethod("getColumns()") + bOK = true + oColumns = oObj.getColumns() + bOK = bOK AND hasUnoInterfaces( oColumns, "com.sun.star.table.XTableColumns" ) + Test.MethodTested("getColumns()", bOK) + + Test.StartMethod("getRows()") + bOK = true + oRows = oObj.getRows() + bOK = bOK AND hasUnoInterfaces( oRows, "com.sun.star.table.XTableRows" ) + Test.MethodTested("getRows()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/table/XTableChart/script.xlb b/qadevOOo/tests/basic/ifc/table/XTableChart/script.xlb new file mode 100644 index 000000000000..7a8bc8b28a2e --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/XTableChart/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="table_XTableChart" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="table_XTableChart"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/table/XTableChart/table_XTableChart.xba b/qadevOOo/tests/basic/ifc/table/XTableChart/table_XTableChart.xba new file mode 100644 index 000000000000..8d5caa7f9faa --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/XTableChart/table_XTableChart.xba @@ -0,0 +1,106 @@ +<?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="table_XTableChart" 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.table.XTableChart +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim tAddr(0) As New com.sun.star.table.CellRangeAddress + Dim objAddr As Object + + Test.StartMethod("getHasColumnHeaders()") + bOK = true + bOK = bOK AND NOT isNULL(oObj.getHasColumnHeaders()) + Test.MethodTested("getHasColumnHeaders()", bOK) + + Test.StartMethod("setHasColumnHeaders()") + bOK = true + oObj.setHasColumnHeaders(true) + bOK = bOK AND oObj.getHasColumnHeaders() = true + oObj.setHasColumnHeaders(false) + bOK = bOK AND oObj.getHasColumnHeaders() = false + Test.MethodTested("setHasColumnHeaders()", bOK) + + Test.StartMethod("getHasRowHeaders()") + bOK = true + bOK = bOK AND NOT isNULL(oObj.getHasRowHeaders()) + Test.MethodTested("getHasRowHeaders()", bOK) + + Test.StartMethod("setHasRowHeaders()") + bOK = true + oObj.setHasRowHeaders(true) + bOK = bOK AND oObj.getHasRowHeaders() + oObj.setHasRowHeaders(false) + bOK = bOK AND oObj.getHasRowHeaders() = false + Test.MethodTested("setHasRowHeaders()", bOK) + + Test.StartMethod("getRanges()") + bOK = true + bOK = bOK AND NOT isNULL(oObj.getRanges()) + Test.MethodTested("getRanges()", bOK) + + Test.StartMethod("setRanges()") + bOK = true + tAddr(0).Sheet = 0 + tAddr(0).StartRow = 0 + tAddr(0).StartColumn = 0 + tAddr(0).EndRow = 3 + tAddr(0).EndColumn = 3 + + oObj.setRanges(tAddr()) + objAddr = oObj.getRanges() + bOK = bOK AND NOT isNULL(objAddr) + if bOK then + Out.Log("oChart.getRanges() returned array of " & ubound(objAddr) + 1 & " element(s)") + bOK = bOK AND (ubound(objAddr) <> -1) + end if + Test.MethodTested("setRanges()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/table/XTableCharts/script.xlb b/qadevOOo/tests/basic/ifc/table/XTableCharts/script.xlb new file mode 100644 index 000000000000..e02edbd313f5 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/XTableCharts/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="table_XTableCharts" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="table_XTableCharts"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/table/XTableCharts/table_XTableCharts.xba b/qadevOOo/tests/basic/ifc/table/XTableCharts/table_XTableCharts.xba new file mode 100644 index 000000000000..b9a76250e533 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/XTableCharts/table_XTableCharts.xba @@ -0,0 +1,99 @@ +<?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="table_XTableCharts" 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 cChartDataAddress As New com.sun.star.table.CellRangeAddress + +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.table.XTableCharts +'************************************************************************* +On Error Goto ErrHndl +On Error goto ErrHndl + Dim bOK As Boolean + + Dim cCount As Integer + cCount = oObj.count() + + Dim tRect As New com.sun.star.awt.Rectangle + tRect.X = 100 + tRect.Y = 100 + tRect.Width = 5000 + tRect.Height = 2000 + + Test.StartMethod("addNewByName()") + bOK = true + + Dim oRanges(0) As New com.sun.star.table.CellRangeAddress + oRanges(0).Sheet = cChartDataAddress.Sheet + oRanges(0).StartRow = cChartDataAddress.StartRow + oRanges(0).EndRow = cChartDataAddress.EndRow + oRanges(0).StartColumn = cChartDataAddress.StartColumn + oRanges(0).EndColumn = cChartDataAddress.EndColumn + + oObj.addNewByName("XTableCharts", tRect, oRanges(), true, true) + bOK = bOK AND oObj.Count = cCount + 1 + Out.Log("Inserting chart " & bOK) + oInst = oObj.getByName("XTableCharts") + bOK = bOK AND NOT isNULL(oInst) + Test.MethodTested("addNewByName()", bOK) + + Test.StartMethod("removeByName()") + bOK = true + oObj.removeByName("XTableCharts") + bOK = bOK AND (oObj.Count = cCount) + Test.MethodTested("removeByName()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/table/XTableChartsSupplier/script.xlb b/qadevOOo/tests/basic/ifc/table/XTableChartsSupplier/script.xlb new file mode 100644 index 000000000000..4103c5404308 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/XTableChartsSupplier/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="table_XTableChartsSupplier" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="table_XTableChartsSupplier"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/table/XTableChartsSupplier/table_XTableChartsSupplier.xba b/qadevOOo/tests/basic/ifc/table/XTableChartsSupplier/table_XTableChartsSupplier.xba new file mode 100644 index 000000000000..19fa85f4f01d --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/XTableChartsSupplier/table_XTableChartsSupplier.xba @@ -0,0 +1,59 @@ +<?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="table_XTableChartsSupplier" 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.table.XTableChartsSupplier +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Test.StartMethod("getCharts()") + bOK = true + oCharts = oObj.getCharts() + bOK = bOK AND hasUnoInterfaces(oCharts, "com.sun.star.table.XTableCharts") + Test.MethodTested("getCharts()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/table/XTableColumns/script.xlb b/qadevOOo/tests/basic/ifc/table/XTableColumns/script.xlb new file mode 100644 index 000000000000..efeba31d43bd --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/XTableColumns/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="table_XTableColumns" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="table_XTableColumns"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/table/XTableColumns/table_XTableColumns.xba b/qadevOOo/tests/basic/ifc/table/XTableColumns/table_XTableColumns.xba new file mode 100644 index 000000000000..40aafed887c0 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/XTableColumns/table_XTableColumns.xba @@ -0,0 +1,87 @@ +<?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="table_XTableColumns" 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 oTable As Object + +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.table.XTableColumns +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Out.Log("Filling three cells.") + oTable.getCellByPosition(0, 0).String = cObjectName & " 1" + oTable.getCellByPosition(1, 0).String = cObjectName & " 2" + oTable.getCellByPosition(2, 0).String = "" + + Test.StartMethod("insertByIndex()") + bOK = true + oObj.insertByIndex(1, 1) + bOK = bOK AND oTable.getCellByPosition(0, 0).String = cObjectName & " 1" + bOK = bOK AND oTable.getCellByPosition(1, 0).String = "" + bOK = bOK AND oTable.getCellByPosition(2, 0).String = cObjectName & " 2" + Test.MethodTested("insertByIndex()", bOK) + + Test.StartMethod("removeByIndex()") + bOK = true + oObj.removeByIndex(1, 1) + bOK = bOK AND oTable.getCellByPosition(0, 0).String = cObjectName & " 1" + bOK = bOK AND oTable.getCellByPosition(1, 0).String = cObjectName & " 2" + bOK = bOK AND oTable.getCellByPosition(2, 0).String = "" + Test.MethodTested("removeByIndex()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/table/XTableRows/script.xlb b/qadevOOo/tests/basic/ifc/table/XTableRows/script.xlb new file mode 100644 index 000000000000..83ad19104b27 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/XTableRows/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="table_XTableRows" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="table_XTableRows"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/table/XTableRows/table_XTableRows.xba b/qadevOOo/tests/basic/ifc/table/XTableRows/table_XTableRows.xba new file mode 100644 index 000000000000..e86e922ba644 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/table/XTableRows/table_XTableRows.xba @@ -0,0 +1,88 @@ +<?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="table_XTableRows" 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 oTable As Object + +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.table.XTableRows +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Out.Log("Filling three cells.") + oTable.getCellByPosition(0, 0).String = cObjectName & " 1" + oTable.getCellByPosition(0, 1).String = cObjectName & " 2" + oTable.getCellByPosition(0, 2).String = "" + + Test.StartMethod("insertByIndex()") + bOK = true + Out.Log("Insert Row between first ones") + oObj.insertByIndex(1, 1) + bOK = bOK AND oTable.getCellByPosition(0, 0).String = cObjectName & " 1" + bOK = bOK AND oTable.getCellByPosition(0, 1).String = "" + bOK = bOK AND oTable.getCellByPosition(0, 2).String = cObjectName & " 2" + Test.MethodTested("insertByIndex()", bOK) + + Test.StartMethod("removeByIndex()") + bOK = true + oObj.removeByIndex(1, 1) + bOK = bOK AND oTable.getCellByPosition(0, 0).String = cObjectName & " 1" + bOK = bOK AND oTable.getCellByPosition(0, 1).String = cObjectName & " 2" + bOK = bOK AND oTable.getCellByPosition(0, 2).String = "" + Test.MethodTested("removeByIndex()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> |