diff options
Diffstat (limited to 'qadevOOo/tests/java/mod/_sc/ScNamedRangesObj.java')
-rw-r--r-- | qadevOOo/tests/java/mod/_sc/ScNamedRangesObj.java | 207 |
1 files changed, 207 insertions, 0 deletions
diff --git a/qadevOOo/tests/java/mod/_sc/ScNamedRangesObj.java b/qadevOOo/tests/java/mod/_sc/ScNamedRangesObj.java new file mode 100644 index 000000000000..6a51160adbdd --- /dev/null +++ b/qadevOOo/tests/java/mod/_sc/ScNamedRangesObj.java @@ -0,0 +1,207 @@ +/************************************************************************* + * + * $RCSfile: ScNamedRangesObj.java,v $ + * + * $Revision: 1.1 $ + * + * last change:$Date: 2003-01-27 18:16:17 $ + * + * The Contents of this file are made available subject to the terms of + * either of the following licenses + * + * - GNU Lesser General Public License Version 2.1 + * - Sun Industry Standards Source License Version 1.1 + * + * Sun Microsystems Inc., October, 2000 + * + * GNU Lesser General Public License Version 2.1 + * ============================================= + * Copyright 2000 by Sun Microsystems, Inc. + * 901 San Antonio Road, Palo Alto, CA 94303, USA + * + * This library is free software; you can redistribute it and/or + * modify it under the terms of the GNU Lesser General Public + * License version 2.1, as published by the Free Software Foundation. + * + * This library 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 for more details. + * + * You should have received a copy of the GNU Lesser General Public + * License along with this library; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place, Suite 330, Boston, + * MA 02111-1307 USA + * + * + * Sun Industry Standards Source License Version 1.1 + * ================================================= + * The contents of this file are subject to the Sun Industry Standards + * Source License Version 1.1 (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.openoffice.org/license.html. + * + * Software provided under this License is provided on an "AS IS" basis, + * WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, + * WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS, + * MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING. + * See the License for the specific provisions governing your rights and + * obligations concerning the Software. + * + * The Initial Developer of the Original Code is: Sun Microsystems, Inc. + * + * Copyright: 2000 by Sun Microsystems, Inc. + * + * All Rights Reserved. + * + * Contributor(s): _______________________________________ + * + * + ************************************************************************/ + +package mod._sc; + +import com.sun.star.beans.XPropertySet; +import com.sun.star.container.XIndexAccess; +import com.sun.star.lang.XComponent; +import com.sun.star.sheet.XNamedRanges; +import com.sun.star.sheet.XSpreadsheet; +import com.sun.star.sheet.XSpreadsheetDocument; +import com.sun.star.sheet.XSpreadsheets; +import com.sun.star.table.CellAddress; +import com.sun.star.table.CellRangeAddress; +import com.sun.star.uno.UnoRuntime; +import com.sun.star.uno.XInterface; +import java.io.PrintWriter; +import lib.StatusException; +import lib.TestCase; +import lib.TestEnvironment; +import lib.TestParameters; +import util.SOfficeFactory; + +/** +* Test for object which is represented by service +* <code>com.sun.star.sheet.NamedRanges</code>. <p> +* Object implements the following interfaces : +* <ul> +* <li> <code>com::sun::star::sheet::XNamedRanges</code></li> +* <li> <code>com::sun::star::container::XNameAccess</code></li> +* <li> <code>com::sun::star::container::XElementAccess</code></li> +* </ul> +* @see com.sun.star.sheet.NamedRanges +* @see com.sun.star.sheet.XNamedRanges +* @see com.sun.star.container.XNameAccess +* @see com.sun.star.container.XElementAccess +* @see ifc.sheet._XNamedRanges +* @see ifc.container._XNameAccess +* @see ifc.container._XElementAccess +*/ +public class ScNamedRangesObj extends TestCase { + XSpreadsheetDocument xSheetDoc = null; + + /** + * Creates Spreadsheet document. + */ + protected void initialize( TestParameters tParam, PrintWriter log ) { + SOfficeFactory SOF = SOfficeFactory.getFactory( tParam.getMSF() ); + + try { + log.println( "creating a Spreadsheet document" ); + xSheetDoc = SOF.createCalcDoc(null); + } catch ( com.sun.star.uno.Exception e ) { + // Some exception occures.FAILED + e.printStackTrace( log ); + throw new StatusException( "Couldnt create document", e ); + } + } + + /** + * Disposes Spreadsheet document. + */ + protected void cleanup( TestParameters tParam, PrintWriter log ) { + log.println( " disposing xSheetDoc " ); + XComponent oComp = (XComponent) + UnoRuntime.queryInterface (XComponent.class, xSheetDoc) ; + oComp.dispose(); + } + + /** + * Creating a Testenvironment for the interfaces to be tested. + * Retrieves a collection of spreadsheets from a document + * and takes one of them. Obtains the value of the property + * <code>'NamedRanges'</code> that is the collection of named ranges. + * This collection is the instance of the service + * <code>com.sun.star.sheet.NamedRanges</code>. Creates and adds new range to + * the collection. + * Object relations created : + * <ul> + * <li> <code>'SHEET'</code> for + * {@link ifc.sheet._XNamedRanges} (the retrieved spreadsheet) </li> + * </ul> + * @see com.sun.star.sheet.NamedRanges + */ + public synchronized TestEnvironment createTestEnvironment( + TestParameters Param, PrintWriter log) throws StatusException { + + XInterface oInterface = null; + XInterface oObj = null; + + // creation of testobject here + // first we write what we are intend to do to log file + log.println( "Creating a test environment" ); + XSpreadsheet oSheet = null; + + log.println("Getting test object "); + XSpreadsheets oSheets = xSheetDoc.getSheets(); + XIndexAccess oIndexSheets = (XIndexAccess) + UnoRuntime.queryInterface(XIndexAccess.class, oSheets); + try { + oSheet = (XSpreadsheet) oIndexSheets.getByIndex(0); + } catch (com.sun.star.lang.WrappedTargetException e) { + e.printStackTrace(log); + throw new StatusException( "Couldn't get a spreadsheet", e); + } catch (com.sun.star.lang.IndexOutOfBoundsException e) { + e.printStackTrace(log); + throw new StatusException( "Couldn't get a spreadsheet", e); + } + + // Getting named ranges. + XPropertySet docProps = (XPropertySet) + UnoRuntime.queryInterface(XPropertySet.class, xSheetDoc); + Object ranges = null; + try { + ranges = docProps.getPropertyValue("NamedRanges"); + } catch(com.sun.star.lang.WrappedTargetException e){ + e.printStackTrace(log); + throw new StatusException("Couldn't get NamedRanges", e); + } catch(com.sun.star.beans.UnknownPropertyException e){ + e.printStackTrace(log); + throw new StatusException("Couldn't get NamedRanges", e); + } + + XNamedRanges xNamedRanges = (XNamedRanges) + UnoRuntime.queryInterface(XNamedRanges.class, ranges); + + CellRangeAddress DataArea = new CellRangeAddress((short)0, 0, 0, 2, 2); + CellAddress base = new CellAddress(DataArea.Sheet, + DataArea.StartColumn, + DataArea.StartRow); + + xNamedRanges.addNewByName("ANamedRange", "A1:B2", base, 0); + + CellAddress listOutputPosition = new CellAddress((short)0, 1, 1); + xNamedRanges.outputList(listOutputPosition); + + oObj = xNamedRanges; + + TestEnvironment tEnv = new TestEnvironment( oObj ); + + // Other parameters required for interface tests + tEnv.addObjRelation("SHEET", oSheet); + + return tEnv; + } + +} + + |