'************************************************************************* ' ' Licensed to the Apache Software Foundation (ASF) under one ' or more contributor license agreements. See the NOTICE file ' distributed with this work for additional information ' regarding copyright ownership. The ASF licenses this file ' to you under the Apache License, Version 2.0 (the ' "License"); you may not use this file except in compliance ' with the License. You may obtain a copy of the License at ' ' http://www.apache.org/licenses/LICENSE-2.0 ' ' Unless required by applicable law or agreed to in writing, ' software distributed under the License is distributed on an ' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY ' KIND, either express or implied. See the License for the ' specific language governing permissions and limitations ' under the License. ' '************************************************************************* Sub RunTest() '************************************************************************* ' INTERFACE: ' com.sun.star.text.XTextTableCursor '************************************************************************* On Error Goto ErrHndl Dim bOK As Boolean Test.StartMethod("gotoStart()") bOK = true oObj.gotoStart(false) bOK = bOK AND Expected("A1") Test.MethodTested("gotoStart()", bOK) Test.StartMethod("getRangeName()") bOK = true cName = oObj.getRangeName() bOK = bOK AND NOT isNULL(cName) Test.MethodTested("getRangeName()", bOK) Test.StartMethod("gotoCellByName()") bOK = true bOK = bOK AND oObj.gotoCellByName("B2", true) bOK = bOK AND Expected("A1:B2") Test.MethodTested("gotoCellByName()", bOK) Test.StartMethod("goLeft()") bOK = true bOK = bOK AND oObj.goLeft(1, false) bOK = bOK AND Expected("A2") Test.MethodTested("goLeft()", bOK) Test.StartMethod("goRight()") bOK = true bOK = bOK AND oObj.goRight(3, true) bOK = bOK AND Expected("A2:D2") Test.MethodTested("goRight()", bOK) Test.StartMethod("goUp()") bOK = true bOK = bOK AND oObj.goUp(1, true) bOK = bOK AND Expected("A2:D1") Test.MethodTested("goUp()", bOK) Test.StartMethod("goDown()") bOK = true bOK = bOK AND oObj.goDown(3, false) bOK = bOK AND Expected("D4") Test.MethodTested("goDown()", bOK) Test.StartMethod("gotoEnd()") bOK = true oObj.gotoEnd(true) bOK = bOK AND Expected("D4:E5") Test.MethodTested("gotoEnd()", bOK) Test.StartMethod("mergeRange()") bOK = true oObj.gotoStart(false) oObj.gotoEnd(true) bOK = bOK AND oObj.mergeRange() bOK = bOK AND Expected("A1") Test.MethodTested("mergeRange()", bOK) Test.StartMethod("splitRange()") bOK = true bOK = bOK AND oObj.splitRange(3, true) oObj.gotoEnd(true) bOK = bOK AND Expected("A1.1.1:A1.1.4") oObj.gotoStart(false) bOK = bOK AND oObj.splitRange(2, false) oObj.goRight(2, true) bOK = bOK AND Expected("A1.1.1:A1.3.1") Test.MethodTested("splitRange()", bOK) Exit Sub ErrHndl: Test.Exception() bOK = false resume next End Sub Function Expected(cName As String) As Boolean Dim bOK As Boolean Dim cRangeName As String Dim cAltName As String Dim dPos As Integer cRangeName = oObj.getRangeName() dPos = inStr(1, cName, ":") if (dPos > 0) then cAltName = Mid(cName, dPos + 1) & ":" & Left(cName, dPos - 1) bOK = (cRangeName = cName) OR (cAltName = cRangeName) else bOK = cRangeName = cName end if if (NOT bOK) then Out.Log("Expected RangeName is '" & cName & "' and actual is '" & cRangeName & "'") end if Expected() = bOK End Function