1 files changed, 140 insertions, 0 deletions
diff --git a/qadevOOo/tests/basic/ifc/text/XTextTable/text_XTextTable.xba b/qadevOOo/tests/basic/ifc/text/XTextTable/text_XTextTable.xba
new file mode 100644
index 000000000000..32009e626418
--- /dev/null
+++ b/qadevOOo/tests/basic/ifc/text/XTextTable/text_XTextTable.xba
@@ -0,0 +1,140 @@
+<?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="text_XTextTable" 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 nTableW As Integer
+'     - Global nTableH As Integer
+
+'*************************************************************************
+
+
+
+
+
+Sub RunTest()
+
+'*************************************************************************
+' INTERFACE: 
+' com.sun.star.text.XTextTable
+'*************************************************************************
+On Error Goto ErrHndl
+    Dim bOK As Boolean
+    Dim i As Integer, j As Integer
+    Dim oRows As Object, oColumns As Object
+    Dim oCursor As Object, oCell As Object
+    Dim aNames As Variant
+    Dim nDscColumns As Integer, nDscRows As Integer
+
+    Test.StartMethod("initialize()")
+    bOK = true
+    ' Object is already was initialized, when it was created... So, assume that this is OK.
+
+    For i = 0 to nTableW - 1
+        For j = 0 to nTableH - 1
+            oObj.getCellByPosition(i, j).Value = i + j * nTableW
+        Next j
+    Next i
+    
+    nDscColumns = ubound(oObj.getColumnDescriptions()) + 1
+    nDscRows = ubound(oObj.getRowDescriptions()) + 1
+
+    bOK = bOK AND nDscRows = nTableH AND nDscColumns = nTableW 
+    if NOT bOK then
+        Out.Log("The table must have size (" + nTableW + "," + nTableH + _
+            "), but descriptions returned for size (" + nDscColumns + "," + nDscRows + ")")
+    endif
+    Test.MethodTested("initialize()", bOK)
+
+    Test.StartMethod("getRows()")
+    bOK = true
+
+    oRows = oObj.getRows()
+
+    bOK = bOK AND hasUnoInterfaces(oRows, "com.sun.star.table.XTableRows")
+    bOK = bOK AND oRows.getCount() = nTableH
+    Test.MethodTested("getRows()", bOK)
+
+    Test.StartMethod("getColumns()")
+    bOK = true
+
+    oColumns = oObj.getColumns()
+
+    bOK = bOK AND hasUnoInterfaces(oColumns, "com.sun.star.table.XTableColumns")
+    bOK = bOK AND oColumns.getCount() = nTableW
+    Test.MethodTested("getColumns()", bOK)
+
+
+    Test.StartMethod("createCursorByCellName()")
+    bOK = true
+    oCursor = oObj.createCursorByCellName("B2")
+    bOK = bOK AND hasUnoInterfaces(oCursor, "com.sun.star.text.XTextTableCursor")
+    bOK = bOK AND oCursor.getRangeName() = "B2"
+    Test.MethodTested("createCursorByCellName()", bOK)
+
+    oCursor.splitRange(1, true)
+    oCursor.splitRange(1, false)
+
+    Test.StartMethod("getCellNames()")
+    bOK = true
+    aNames = oObj.getCellNames()
+    bOK = bOK AND ubound(aNames) = nTableW * nTableH + 1 ' = nTableW * nTableH - 1 + 2(after splitting)
+    Test.MethodTested("getCellNames()", bOK)
+
+    Test.StartMethod("getCellByName()")
+    bOK = true
+    oCell = oObj.getCellByPosition(0,0)
+    oCell.String = "A1"
+    oCell = oObj.getCellByName("A1")
+    bOK = bOK AND oCell.String = "A1"
+    
+    oCell = oObj.getCellByName("B2.2.1")
+    bOK = bOK AND hasUnoInterfaces(oCell, "com.sun.star.table.XCell")
+
+    Test.MethodTested("getCellByName()", bOK)
+
+    ReCreateObj()
+Exit Sub
+ErrHndl:
+    Test.Exception()
+    bOK = false
+    resume next
+End Sub
+</script:module>