| /************************************************************** |
| * |
| * 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. |
| * |
| *************************************************************/ |
| |
| |
| |
| package mod._sc; |
| |
| import java.io.PrintWriter; |
| |
| import lib.StatusException; |
| import lib.TestCase; |
| import lib.TestEnvironment; |
| import lib.TestParameters; |
| import util.SOfficeFactory; |
| |
| import com.sun.star.beans.XPropertySet; |
| import com.sun.star.container.XIndexAccess; |
| import com.sun.star.lang.XComponent; |
| import com.sun.star.lang.XMultiServiceFactory; |
| 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.AnyConverter; |
| import com.sun.star.uno.Type; |
| import com.sun.star.uno.UnoRuntime; |
| import com.sun.star.uno.XInterface; |
| |
| /** |
| * 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 { |
| static XSpreadsheetDocument xSheetDoc = null; |
| |
| /** |
| * Creates Spreadsheet document. |
| */ |
| protected void initialize( TestParameters tParam, PrintWriter log ) { |
| SOfficeFactory SOF = SOfficeFactory.getFactory( (XMultiServiceFactory)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( "Couldn't 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) ; |
| util.DesktopTools.closeDoc(oComp); |
| } |
| |
| /** |
| * 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 |
| */ |
| protected synchronized TestEnvironment createTestEnvironment(TestParameters Param, PrintWriter log) { |
| |
| 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) AnyConverter.toObject( |
| new Type(XSpreadsheet.class),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); |
| } catch (com.sun.star.lang.IllegalArgumentException 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; |
| } |
| |
| } |