1<?xml version="1.0" encoding="UTF-8"?> 2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3<script:module xmlns:script="http://openoffice.org/2000/script" script:name="table_XCell" script:language="StarBasic"> 4 5 6'************************************************************************* 7' 8' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 9' 10' Copyright 2000, 2010 Oracle and/or its affiliates. 11' 12' OpenOffice.org - a multi-platform office productivity suite 13' 14' This file is part of OpenOffice.org. 15' 16' OpenOffice.org is free software: you can redistribute it and/or modify 17' it under the terms of the GNU Lesser General Public License version 3 18' only, as published by the Free Software Foundation. 19' 20' OpenOffice.org is distributed in the hope that it will be useful, 21' but WITHOUT ANY WARRANTY; without even the implied warranty of 22' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 23' GNU Lesser General Public License version 3 for more details 24' (a copy is included in the LICENSE file that accompanied this code). 25' 26' You should have received a copy of the GNU Lesser General Public License 27' version 3 along with OpenOffice.org. If not, see 28' <http://www.openoffice.org/license.html> 29' for a copy of the LGPLv3 License. 30' 31'************************************************************************* 32'************************************************************************* 33 34 35 36' Be sure that all variables are dimensioned: 37option explicit 38 39 40 41Sub RunTest() 42 43'************************************************************************* 44' INTERFACE: 45' com.sun.star.table.XCell 46'************************************************************************* 47On Error Goto ErrHndl 48 Dim bOK As Boolean 49 Dim aFormula As String 50 Dim aValue As Integer 51 Dim aType As Variant 52 53 Test.StartMethod("setFormula()") 54 bOK = true 55 Out.Log("setFormula(""=2+2"")") 56 oObj.setFormula("=2+2") 57 Test.MethodTested("setFormula()", bOK) 58 59 Test.StartMethod("getFormula()") 60 bOK = true 61 aFormula = oObj.getFormula() 62 Out.Log("getFormula() returned '" & aFormula & "'") 63 bOK = bOK AND inStr(1, aFormula, "2+2") 64 Test.MethodTested("getFormula()", bOK) 65 66 Test.StartMethod("getValue()") 67 bOK = true 68 aValue = oObj.getValue() 69 bOK = bOK AND aValue = 4 70 Test.MethodTested("getValue()", bOK) 71 72 Test.StartMethod("setValue()") 73 bOK = true 74 oObj.setValue(10) 75 bOK = bOK AND oObj.getValue = 10 76 Test.MethodTested("setValue()", bOK) 77 78 Test.StartMethod("getType()") 79 bOK = true 80 aType = oObj.getType() 81 bOK = bOK AND (aType = com.sun.star.table.CellContentType.EMPTY OR _ 82 aType = com.sun.star.table.CellContentType.VALUE OR _ 83 aType = com.sun.star.table.CellContentType.TEXT OR _ 84 aType = com.sun.star.table.CellContentType.FORMULA) 85 Test.MethodTested("getType()", bOK) 86 87 Test.StartMethod("getError()") 88 bOK = true 89 bOK = bOK AND (oObj.getError() = 0) 90 oObj.setFormula("=sqrt(-2)") 91 bOK = bOK AND (oObj.getError() <> 0) 92 Test.MethodTested("getError()", bOK) 93 94Exit Sub 95ErrHndl: 96 Test.Exception() 97 bOK = false 98 resume next 99End Sub 100</script:module> 101