'************************************************************************* ' ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. ' ' Copyright 2008 by Sun Microsystems, Inc. ' ' OpenOffice.org - a multi-platform office productivity suite ' ' $RCSfile: text_XWordCursor.xba,v $ ' ' $Revision: 1.3 $ ' ' 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 ' ' for a copy of the LGPLv3 License. ' '************************************************************************* '************************************************************************* Sub RunTest() '************************************************************************* ' INTERFACE: ' com.sun.star.text.XWordCursor '************************************************************************* On Error Goto ErrHndl Dim bOK As Boolean oObj.Text.string = "1Word1: 2Word2, 3Word3." oObj.gotoStart(false) Test.StartMethod("gotoStartOfWord()") bOK = true oObj.gotoStartOfWord(false) oObj.String = "1" bOK = bOK AND inStr(1, oObj.Text.String, "11W") <> 0 Test.MethodTested("gotoStartOfWord()", bOK) Test.StartMethod("gotoEndOfWord()") bOK = true oObj.gotoEndOfWord(false) oObj.String = "2" bOK = bOK AND inStr(1, oObj.Text.String, "d12") <> 0 Test.MethodTested("gotoEndOfWord()", bOK) Test.StartMethod("gotoNextWord()") bOK = true oObj.gotoNextWord(false) oObj.gotoNextWord(false) oObj.gotoEndOfWord(false) oObj.String = "3" bOK = bOK AND inStr(1, oObj.Text.String, "d33") <> 0 Test.MethodTested("gotoNextWord()", bOK) Test.StartMethod("gotoPreviousWord()") bOK = true oObj.gotoPreviousWord(false) oObj.gotoStartOfWord(false) oObj.String = "4" bOK = bOK AND inStr(1, oObj.Text.String, "42W") <> 0 Test.MethodTested("gotoPreviousWord()", bOK) Test.StartMethod("isStartOfWord()") bOK = true oObj.gotoStartOfWord(false) bOK = bOK AND oObj.isStartOfWord() Test.MethodTested("isStartOfWord()", bOK) Test.StartMethod("isEndOfWord()") bOK = true oObj.gotoEndOfWord(false) bOK = bOK AND oObj.isEndOfWord() Test.MethodTested("isEndOfWord()", bOK) Exit Sub ErrHndl: Test.Exception() bOK = false resume next End Sub