Branch data Line data Source code
1 : : /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
2 : : /*
3 : : * Version: MPL 1.1 / GPLv3+ / LGPLv3+
4 : : *
5 : : * The contents of this file are subject to the Mozilla Public License Version
6 : : * 1.1 (the "License"); you may not use this file except in compliance with
7 : : * the License or as specified alternatively below. You may obtain a copy of
8 : : * the License at http://www.mozilla.org/MPL/
9 : : *
10 : : * Software distributed under the License is distributed on an "AS IS" basis,
11 : : * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
12 : : * for the specific language governing rights and limitations under the
13 : : * License.
14 : : *
15 : : * Major Contributor(s):
16 : : * Copyright (C) 2011 Laurent Godard lgodard.libre@laposte.net (initial developer)
17 : : *
18 : : * All Rights Reserved.
19 : : *
20 : : * For minor contributions see the git repository.
21 : : *
22 : : * Alternatively, the contents of this file may be used under the terms of
23 : : * either the GNU General Public License Version 3 or later (the "GPLv3+"), or
24 : : * the GNU Lesser General Public License Version 3 or later (the "LGPLv3+"),
25 : : * in which case the provisions of the GPLv3+ or the LGPLv3+ are applicable
26 : : * instead of those above.
27 : : */
28 : :
29 : : #include <test/sheet/xnamedranges.hxx>
30 : :
31 : : #include <com/sun/star/beans/XPropertySet.hpp>
32 : : #include <com/sun/star/sheet/XSpreadsheetDocument.hpp>
33 : : #include <com/sun/star/sheet/XSpreadsheet.hpp>
34 : : #include <com/sun/star/table/XCellRange.hpp>
35 : : #include <com/sun/star/sheet/XCellRangeAddressable.hpp>
36 : : #include <com/sun/star/sheet/XCellRangeReferrer.hpp>
37 : : #include <com/sun/star/sheet/XNamedRanges.hpp>
38 : : #include <com/sun/star/sheet/XNamedRange.hpp>
39 : : #include <com/sun/star/table/XCell.hpp>
40 : : #include <com/sun/star/text/XTextRange.hpp>
41 : : #include <com/sun/star/container/XIndexAccess.hpp>
42 : :
43 : : #include <com/sun/star/table/CellAddress.hpp>
44 : : #include <com/sun/star/table/CellRangeAddress.hpp>
45 : : #include <com/sun/star/sheet/Border.hpp>
46 : : #include <com/sun/star/sheet/NamedRangeFlag.hpp>
47 : :
48 : : #include <rtl/oustringostreaminserter.hxx>
49 : : #include "cppunit/extensions/HelperMacros.h"
50 : : #include <iostream>
51 : :
52 : : using namespace com::sun::star::uno;
53 : :
54 : : namespace apitest {
55 : :
56 : 6 : XNamedRanges::XNamedRanges():
57 [ + - ]: 6 : maNameToRemove(RTL_CONSTASCII_USTRINGPARAM("initial1"))
58 : : {
59 : :
60 : 6 : }
61 : :
62 : 0 : XNamedRanges::XNamedRanges(const rtl::OUString& rNameToRemove):
63 : 0 : maNameToRemove(rNameToRemove)
64 : : {
65 : :
66 : 0 : }
67 : :
68 : 6 : XNamedRanges::~XNamedRanges()
69 : : {
70 [ - + ]: 6 : }
71 : :
72 : 2 : void XNamedRanges::testAddNewByName()
73 : : {
74 [ + - ][ + - ]: 2 : uno::Reference< sheet::XNamedRanges > xNamedRanges(init(), UNO_QUERY_THROW);
75 [ + - ][ + - ]: 2 : uno::Reference< container::XNameAccess > xNamedRangesNameAccess(init(1), UNO_QUERY_THROW);
76 : :
77 : 2 : table::CellAddress aBaseAddress = table::CellAddress(0,0,0);
78 : :
79 : 2 : sal_Int32 nType = 0;
80 [ + - ]: 2 : rtl::OUString aContent1(RTL_CONSTASCII_USTRINGPARAM("D1"));
81 [ + - ]: 2 : rtl::OUString aName1(RTL_CONSTASCII_USTRINGPARAM("type_0"));
82 [ + - ][ + - ]: 2 : xNamedRanges->addNewByName(aName1, aContent1, aBaseAddress, nType);
83 [ + - ][ + - ]: 2 : CPPUNIT_ASSERT_MESSAGE("Failed to create Namedrange Type 0 - Normal case", xNamedRanges->hasByName(aName1));
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ]
84 : :
85 : 2 : nType = ::sheet::NamedRangeFlag::COLUMN_HEADER;
86 [ + - ]: 2 : rtl::OUString aContent2(RTL_CONSTASCII_USTRINGPARAM("D2"));
87 [ + - ]: 2 : rtl::OUString aName2(RTL_CONSTASCII_USTRINGPARAM("type_COLUMN_HEADER"));
88 [ + - ][ + - ]: 2 : xNamedRanges->addNewByName(aName2, aContent2, aBaseAddress, nType);
89 [ + - ][ + - ]: 2 : CPPUNIT_ASSERT_MESSAGE("Failed to create Namedrange Type COLUMN_HEADER", xNamedRanges->hasByName(aName2));
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ]
90 : :
91 : 2 : nType = ::sheet::NamedRangeFlag::FILTER_CRITERIA;
92 [ + - ]: 2 : rtl::OUString aContent3(RTL_CONSTASCII_USTRINGPARAM("D3"));
93 [ + - ]: 2 : rtl::OUString aName3(RTL_CONSTASCII_USTRINGPARAM("type_FILTER_CRITERIA"));
94 [ + - ][ + - ]: 2 : xNamedRanges->addNewByName(aName3, aContent3, aBaseAddress, nType);
95 [ + - ][ + - ]: 2 : CPPUNIT_ASSERT_MESSAGE("Failed to create Namedrange Type FILTER_CRITERIA", xNamedRanges->hasByName(aName3));
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ]
96 : :
97 : 2 : nType = ::sheet::NamedRangeFlag::PRINT_AREA;
98 [ + - ]: 2 : rtl::OUString aContent4(RTL_CONSTASCII_USTRINGPARAM("D4"));
99 [ + - ]: 2 : rtl::OUString aName4(RTL_CONSTASCII_USTRINGPARAM("type_PRINT_AREA"));
100 [ + - ][ + - ]: 2 : xNamedRanges->addNewByName(aName4, aContent4, aBaseAddress, nType);
101 [ + - ][ + - ]: 2 : CPPUNIT_ASSERT_MESSAGE("Failed to create Namedrange Type PRINT_AREA", xNamedRanges->hasByName(aName4));
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ]
102 : :
103 : 2 : nType = ::sheet::NamedRangeFlag::ROW_HEADER;
104 [ + - ]: 2 : rtl::OUString aContent5(RTL_CONSTASCII_USTRINGPARAM("D5"));
105 [ + - ]: 2 : rtl::OUString aName5(RTL_CONSTASCII_USTRINGPARAM("type_ROW_HEADER"));
106 [ + - ][ + - ]: 2 : xNamedRanges->addNewByName(aName5, aContent5, aBaseAddress, nType);
107 [ + - ][ + - ]: 2 : CPPUNIT_ASSERT_MESSAGE("Failed to create Namedrange Type ROW_HEADER", xNamedRanges->hasByName(aName5));
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ]
108 : :
109 : 2 : }
110 : :
111 : 2 : void XNamedRanges::testAddNewFromTitles()
112 : : {
113 [ + - ][ + - ]: 2 : uno::Reference< sheet::XNamedRanges > xNamedRanges(init(1), UNO_QUERY_THROW);
114 [ + - ]: 2 : uno::Reference< container::XIndexAccess > xNamedRangesIndex(xNamedRanges, UNO_QUERY_THROW);
115 [ + - ]: 2 : uno::Reference< container::XNameAccess > xNamedRangesNameAccess(xNamedRanges, UNO_QUERY_THROW);
116 : :
117 : 2 : table::CellRangeAddress aCellRangeAddress = table::CellRangeAddress(1,0,0,3,3);
118 : :
119 : 2 : rtl::OUString aString;
120 : 2 : uno::Reference< table::XCell > xCell;
121 : :
122 [ + - ][ + - ]: 2 : xNamedRanges->addNewFromTitles(aCellRangeAddress, sheet::Border_TOP);
123 : :
124 [ + + ]: 8 : for (sal_Int32 i = 1; i < 4; i++)
125 : : {
126 : : // verify namedrange exists
127 [ + - ][ + - ]: 6 : xCell = xSheet->getCellByPosition(i,0);
[ + - ]
128 [ + - ]: 6 : uno::Reference< text::XTextRange > xTextRange(xCell, UNO_QUERY_THROW);
129 [ + - ][ + - ]: 6 : aString = xTextRange->getString();
130 [ + - ][ + - ]: 6 : std::cout << "addNewFromTitles: verify " << aString << std::endl;
[ + - ]
131 [ + - ][ + - ]: 6 : CPPUNIT_ASSERT_MESSAGE("Non existing NamedRange", xNamedRanges->hasByName(aString));
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ]
132 : :
133 : : // verify it points on the right cell
134 [ + - ][ + - ]: 6 : uno::Any aNr = xNamedRangesNameAccess->getByName(aString);
135 [ + - ]: 6 : uno::Reference< sheet::XNamedRange > xNamedRange(aNr, UNO_QUERY_THROW);
136 : :
137 [ + - ]: 6 : uno::Reference< sheet::XCellRangeReferrer > xCellRangeRef(xNamedRange, UNO_QUERY_THROW);
138 [ + - ][ + - ]: 6 : uno::Reference< sheet::XCellRangeAddressable > xCellRangeAdr(xCellRangeRef->getReferredCells(), UNO_QUERY_THROW);
[ + - ]
139 [ + - ][ + - ]: 6 : table::CellRangeAddress cellRangeAddress = xCellRangeAdr->getRangeAddress();
140 : :
141 [ + - ][ + - ]: 6 : CPPUNIT_ASSERT(cellRangeAddress.EndColumn == i && cellRangeAddress.StartColumn == i);
[ + - ][ + - ]
[ + - ][ + - ]
[ - + ][ + - ]
[ + - ][ + - ]
142 [ + - ][ + - ]: 6 : CPPUNIT_ASSERT(cellRangeAddress.StartRow == 1);
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
143 [ + - ][ + - ]: 6 : CPPUNIT_ASSERT(cellRangeAddress.EndRow == 3);
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
144 [ + - ][ + - ]: 6 : CPPUNIT_ASSERT(cellRangeAddress.Sheet == 1);
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
145 : 6 : }
146 : :
147 [ + - ][ + - ]: 2 : xNamedRanges->addNewFromTitles(aCellRangeAddress, sheet::Border_LEFT);
148 : :
149 [ + + ]: 8 : for (sal_Int32 i = 1; i < 4; i++)
150 : : {
151 : : // verify namedrange exists
152 [ + - ][ + - ]: 6 : xCell = xSheet->getCellByPosition(0,i);
[ + - ]
153 [ + - ]: 6 : uno::Reference< text::XTextRange > xTextRange(xCell, UNO_QUERY_THROW);
154 [ + - ][ + - ]: 6 : aString = xTextRange->getString();
155 [ + - ][ + - ]: 6 : std::cout << "verify " << aString << std::endl;
[ + - ]
156 [ + - ][ + - ]: 6 : CPPUNIT_ASSERT_MESSAGE("Non existing NamedRange", xNamedRanges->hasByName(aString));
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ]
157 : :
158 : : // verify it points on the right cell
159 [ + - ][ + - ]: 6 : uno::Any aNr= xNamedRangesNameAccess->getByName(aString);
160 [ + - ]: 6 : uno::Reference< sheet::XNamedRange > xNamedRange(aNr, UNO_QUERY_THROW);
161 : :
162 [ + - ]: 6 : uno::Reference< sheet::XCellRangeReferrer > xCellRangeRef(xNamedRange, UNO_QUERY_THROW);
163 [ + - ][ + - ]: 6 : uno::Reference< sheet::XCellRangeAddressable > xCellRangeAdr(xCellRangeRef->getReferredCells(), UNO_QUERY_THROW);
[ + - ]
164 [ + - ][ + - ]: 6 : table::CellRangeAddress cellRangeAddress = xCellRangeAdr->getRangeAddress();
165 : :
166 [ + - ][ + - ]: 6 : CPPUNIT_ASSERT(cellRangeAddress.EndRow == i && cellRangeAddress.StartRow == i);
[ + - ][ + - ]
[ + - ][ + - ]
[ - + ][ + - ]
[ + - ][ + - ]
167 [ + - ][ + - ]: 6 : CPPUNIT_ASSERT(cellRangeAddress.StartColumn == 1);
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
168 [ + - ][ + - ]: 6 : CPPUNIT_ASSERT(cellRangeAddress.EndColumn == 3);
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
169 [ + - ][ + - ]: 6 : CPPUNIT_ASSERT(cellRangeAddress.Sheet == 1);
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
170 : 8 : }
171 : 2 : }
172 : :
173 : 0 : void XNamedRanges::testRemoveByName()
174 : : {
175 [ # # ][ # # ]: 0 : uno::Reference< sheet::XNamedRanges > xNamedRanges(init(), UNO_QUERY_THROW);
176 [ # # ]: 0 : uno::Reference< container::XIndexAccess > xIndex(xNamedRanges, UNO_QUERY_THROW);
177 : :
178 [ # # ][ # # ]: 0 : bool bHasIt = xNamedRanges->hasByName(maNameToRemove);
179 [ # # ][ # # ]: 0 : CPPUNIT_ASSERT_MESSAGE("NamedRange initial1 des not exits, can't remove it", bHasIt);
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
180 : :
181 [ # # ]: 0 : if (bHasIt)
182 : : {
183 : : // remove existing
184 [ # # ][ # # ]: 0 : sal_Int32 nInitialCount = xIndex->getCount();
185 [ # # ][ # # ]: 0 : xNamedRanges->removeByName(maNameToRemove);
186 [ # # ][ # # ]: 0 : sal_Int32 nNewCount = xIndex->getCount();
187 [ # # ][ # # ]: 0 : CPPUNIT_ASSERT_EQUAL_MESSAGE("NamedRange initial1 not removed", nNewCount, nInitialCount - 1);
[ # # ][ # # ]
[ # # ]
188 [ # # ][ # # ]: 0 : CPPUNIT_ASSERT_MESSAGE("Wrong NamedRange removed, initial1 still present", !xNamedRanges->hasByName(maNameToRemove));
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ][ # # ]
[ # # ]
189 : : // try to remove non existing
190 [ # # ]: 0 : rtl::OUString aNr2(RTL_CONSTASCII_USTRINGPARAM("dummyNonExistingNamedRange"));
191 [ # # ][ # # ]: 0 : xNamedRanges->removeByName(aNr2);// an exception should be raised here
192 : 0 : }
193 : 0 : }
194 : :
195 : 2 : void XNamedRanges::testOutputList()
196 : : {
197 : 2 : table::CellAddress xCellAddress = table::CellAddress (0,2,0);
198 [ + - ][ + - ]: 2 : uno::Reference< sheet::XNamedRanges > xNamedRanges(init(), UNO_QUERY_THROW);
199 [ + - ][ + - ]: 2 : uno::Reference< container::XIndexAccess > xNamedRangesIndex(init(), UNO_QUERY_THROW);
200 [ + - ][ + - ]: 2 : sal_Int32 nElementsCount = xNamedRangesIndex->getCount();
201 : :
202 [ + - ][ + - ]: 2 : xNamedRanges->outputList(xCellAddress);
203 : :
204 : 2 : rtl::OUString aString;
205 : 2 : uno::Reference< table::XCell > xCell;
206 : :
207 [ + + ]: 32 : for (sal_Int32 i = 0; i < nElementsCount; i++)
208 : : {
209 [ + - ][ + - ]: 30 : xCell = xSheet->getCellByPosition(2,i);
[ + - ]
210 [ + - ]: 30 : uno::Reference< text::XTextRange > xTextRange(xCell, UNO_QUERY_THROW);
211 [ + - ][ + - ]: 30 : aString = xTextRange->getString();
212 [ + - ][ + - ]: 30 : std::cout << "verify " << aString << std::endl;
[ + - ]
213 [ + - ][ + - ]: 30 : CPPUNIT_ASSERT_MESSAGE("Non existing NamedRange", xNamedRanges->hasByName(aString));
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ][ + - ]
[ + - ]
214 : 32 : }
215 : 2 : }
216 : :
217 [ + - ][ + - ]: 66 : }
218 : :
219 : : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
