11 #include <rtl/ustring.hxx>
13 #include <com/sun/star/container/XIndexAccess.hpp>
14 #include <com/sun/star/sheet/Border.hpp>
15 #include <com/sun/star/sheet/NamedRangeFlag.hpp>
16 #include <com/sun/star/sheet/XCellRangeAddressable.hpp>
17 #include <com/sun/star/sheet/XCellRangeReferrer.hpp>
18 #include <com/sun/star/sheet/XNamedRange.hpp>
19 #include <com/sun/star/sheet/XNamedRanges.hpp>
20 #include <com/sun/star/table/CellAddress.hpp>
21 #include <com/sun/star/table/CellRangeAddress.hpp>
22 #include <com/sun/star/table/XCell.hpp>
23 #include <com/sun/star/text/XTextRange.hpp>
25 #include <com/sun/star/uno/Reference.hxx>
27 #include <cppunit/TestAssert.h>
36 void XNamedRanges::testAddNewByName()
38 uno::Reference<sheet::XNamedRanges> xNamedRanges(
init(), UNO_QUERY_THROW);
39 uno::Reference<container::XNameAccess> xNamedRangesNameAccess(getXNamedRanges(1),
42 table::CellAddress aBaseAddress(0, 0, 0);
45 OUString aName1(
"type_0");
46 xNamedRanges->addNewByName(aName1,
"D1", aBaseAddress, nType);
47 CPPUNIT_ASSERT_MESSAGE(
"Failed to create Namedrange Type 0 - Normal case",
48 xNamedRanges->hasByName(aName1));
50 nType = ::sheet::NamedRangeFlag::COLUMN_HEADER;
51 OUString aName2(
"type_COLUMN_HEADER");
52 xNamedRanges->addNewByName(aName2,
"D2", aBaseAddress, nType);
53 CPPUNIT_ASSERT_MESSAGE(
"Failed to create Namedrange Type COLUMN_HEADER",
54 xNamedRanges->hasByName(aName2));
56 nType = ::sheet::NamedRangeFlag::FILTER_CRITERIA;
57 OUString aName3(
"type_FILTER_CRITERIA");
58 xNamedRanges->addNewByName(aName3,
"D3", aBaseAddress, nType);
59 CPPUNIT_ASSERT_MESSAGE(
"Failed to create Namedrange Type FILTER_CRITERIA",
60 xNamedRanges->hasByName(aName3));
62 nType = ::sheet::NamedRangeFlag::PRINT_AREA;
63 OUString aName4(
"type_PRINT_AREA");
64 xNamedRanges->addNewByName(aName4,
"D4", aBaseAddress, nType);
65 CPPUNIT_ASSERT_MESSAGE(
"Failed to create Namedrange Type PRINT_AREA",
66 xNamedRanges->hasByName(aName4));
68 nType = ::sheet::NamedRangeFlag::ROW_HEADER;
69 OUString aName5(
"type_ROW_HEADER");
70 xNamedRanges->addNewByName(aName5,
"D5", aBaseAddress, nType);
71 CPPUNIT_ASSERT_MESSAGE(
"Failed to create Namedrange Type ROW_HEADER",
72 xNamedRanges->hasByName(aName5));
75 void XNamedRanges::testAddNewFromTitles()
77 uno::Reference<sheet::XNamedRanges> xNamedRanges(getXNamedRanges(1), UNO_QUERY_THROW);
78 uno::Reference<container::XIndexAccess> xNamedRangesIndex(xNamedRanges, UNO_QUERY_THROW);
79 uno::Reference<container::XNameAccess> xNamedRangesNameAccess(xNamedRanges, UNO_QUERY_THROW);
81 table::CellRangeAddress aCellRangeAddress(1, 0, 0, 3, 3);
84 uno::Reference<table::XCell> xCell;
86 xNamedRanges->addNewFromTitles(aCellRangeAddress, sheet::Border_TOP);
88 for (sal_Int32
i = 1;
i < 4;
i++)
91 xCell = xSheet->getCellByPosition(
i, 0);
92 uno::Reference<text::XTextRange> xTextRange(xCell, UNO_QUERY_THROW);
93 aString = xTextRange->getString();
94 std::cout <<
"addNewFromTitles: verify " << aString << std::endl;
95 CPPUNIT_ASSERT_MESSAGE(
"Non existing NamedRange", xNamedRanges->hasByName(aString));
98 uno::Any aNr = xNamedRangesNameAccess->getByName(aString);
99 uno::Reference<sheet::XNamedRange> xNamedRange(aNr, UNO_QUERY_THROW);
101 uno::Reference<sheet::XCellRangeReferrer> xCellRangeRef(xNamedRange, UNO_QUERY_THROW);
102 uno::Reference<sheet::XCellRangeAddressable> xCellRangeAdr(
103 xCellRangeRef->getReferredCells(), UNO_QUERY_THROW);
104 table::CellRangeAddress cellRangeAddress = xCellRangeAdr->getRangeAddress();
106 CPPUNIT_ASSERT_EQUAL(
i, cellRangeAddress.EndColumn);
107 CPPUNIT_ASSERT_EQUAL(
i, cellRangeAddress.StartColumn);
108 CPPUNIT_ASSERT_EQUAL(sal_Int32(1), cellRangeAddress.StartRow);
109 CPPUNIT_ASSERT_EQUAL(sal_Int32(3), cellRangeAddress.EndRow);
110 CPPUNIT_ASSERT_EQUAL(sal_Int16(1), cellRangeAddress.Sheet);
113 xNamedRanges->addNewFromTitles(aCellRangeAddress, sheet::Border_LEFT);
115 for (sal_Int32
i = 1;
i < 4;
i++)
118 xCell = xSheet->getCellByPosition(0,
i);
119 uno::Reference<text::XTextRange> xTextRange(xCell, UNO_QUERY_THROW);
120 aString = xTextRange->getString();
121 std::cout <<
"verify " << aString << std::endl;
122 CPPUNIT_ASSERT_MESSAGE(
"Non existing NamedRange", xNamedRanges->hasByName(aString));
125 uno::Any aNr = xNamedRangesNameAccess->getByName(aString);
126 uno::Reference<sheet::XNamedRange> xNamedRange(aNr, UNO_QUERY_THROW);
128 uno::Reference<sheet::XCellRangeReferrer> xCellRangeRef(xNamedRange, UNO_QUERY_THROW);
129 uno::Reference<sheet::XCellRangeAddressable> xCellRangeAdr(
130 xCellRangeRef->getReferredCells(), UNO_QUERY_THROW);
131 table::CellRangeAddress cellRangeAddress = xCellRangeAdr->getRangeAddress();
133 CPPUNIT_ASSERT_EQUAL(
i, cellRangeAddress.EndRow);
134 CPPUNIT_ASSERT_EQUAL(
i, cellRangeAddress.StartRow);
135 CPPUNIT_ASSERT_EQUAL(sal_Int32(1), cellRangeAddress.StartColumn);
136 CPPUNIT_ASSERT_EQUAL(sal_Int32(3), cellRangeAddress.EndColumn);
137 CPPUNIT_ASSERT_EQUAL(sal_Int16(1), cellRangeAddress.Sheet);
141 void XNamedRanges::testRemoveByName()
143 uno::Reference<sheet::XNamedRanges> xNamedRanges(
init(), UNO_QUERY_THROW);
144 uno::Reference<container::XIndexAccess> xIndex(xNamedRanges, UNO_QUERY_THROW);
146 bool bHasIt = xNamedRanges->hasByName(maNameToRemove);
147 CPPUNIT_ASSERT_MESSAGE(
"NamedRange initial1 does not exist, can't remove it", bHasIt);
153 sal_Int32 nInitialCount = xIndex->getCount();
154 xNamedRanges->removeByName(maNameToRemove);
155 sal_Int32 nNewCount = xIndex->getCount();
156 CPPUNIT_ASSERT_EQUAL_MESSAGE(
"NamedRange initial1 not removed", nNewCount, nInitialCount - 1);
157 CPPUNIT_ASSERT_MESSAGE(
"Wrong NamedRange removed, initial1 still present",
158 !xNamedRanges->hasByName(maNameToRemove));
160 xNamedRanges->removeByName(
"dummyNonExistingNamedRange");
163 void XNamedRanges::testOutputList()
165 table::CellAddress aCellAddress(0, 2, 0);
166 uno::Reference<sheet::XNamedRanges> xNamedRanges(
init(), UNO_QUERY_THROW);
167 uno::Reference<container::XIndexAccess> xNamedRangesIndex(
init(), UNO_QUERY_THROW);
168 sal_Int32 nElementsCount = xNamedRangesIndex->getCount();
170 xNamedRanges->outputList(aCellAddress);
173 uno::Reference<table::XCell> xCell;
175 for (sal_Int32
i = 0;
i < nElementsCount;
i++)
177 xCell = xSheet->getCellByPosition(2,
i);
178 uno::Reference<text::XTextRange> xTextRange(xCell, UNO_QUERY_THROW);
179 aString = xTextRange->getString();
180 std::cout <<
"verify " << aString << std::endl;
181 CPPUNIT_ASSERT_MESSAGE(
"Non existing NamedRange", xNamedRanges->hasByName(aString));
FILE * init(int, char **)