1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4; fill-column: 100 -*- */
3 * This file is part of the LibreOffice project.
5 * This Source Code Form is subject to the terms of the Mozilla Public
6 * License, v. 2.0. If a copy of the MPL was not distributed with this
7 * file, You can obtain one at http://mozilla.org/MPL/2.0/.
10 #include <test/unoapi_test.hxx>
11 #include <test/container/xenumeration.hxx>
13 #include <com/sun/star/beans/XPropertySet.hpp>
14 #include <com/sun/star/container/XEnumerationAccess.hpp>
15 #include <com/sun/star/lang/XComponent.hpp>
16 #include <com/sun/star/sheet/XNamedRanges.hpp>
17 #include <com/sun/star/sheet/XSpreadsheetDocument.hpp>
18 #include <com/sun/star/table/CellAddress.hpp>
19 #include <com/sun/star/table/CellRangeAddress.hpp>
20 #include <com/sun/star/uno/XInterface.hpp>
22 #include <com/sun/star/uno/Any.hxx>
23 #include <com/sun/star/uno/Reference.hxx>
26 using namespace css::uno
;
30 class ScIndexEnumeration_NamedRangesEnumeration
: public UnoApiTest
, public apitest::XEnumeration
33 ScIndexEnumeration_NamedRangesEnumeration();
35 virtual uno::Reference
<uno::XInterface
> init() override
;
36 virtual void setUp() override
;
38 CPPUNIT_TEST_SUITE(ScIndexEnumeration_NamedRangesEnumeration
);
41 CPPUNIT_TEST(testHasMoreElements
);
42 CPPUNIT_TEST(testNextElement
);
44 CPPUNIT_TEST_SUITE_END();
47 ScIndexEnumeration_NamedRangesEnumeration::ScIndexEnumeration_NamedRangesEnumeration()
48 : UnoApiTest("/sc/qa/extras/testdocuments")
52 uno::Reference
<uno::XInterface
> ScIndexEnumeration_NamedRangesEnumeration::init()
54 uno::Reference
<sheet::XSpreadsheetDocument
> xDoc(mxComponent
, uno::UNO_QUERY_THROW
);
55 CPPUNIT_ASSERT_MESSAGE("no calc document", xDoc
.is());
57 uno::Reference
<beans::XPropertySet
> xPropertySet(xDoc
, uno::UNO_QUERY_THROW
);
58 uno::Reference
<sheet::XNamedRanges
> xNR
;
59 CPPUNIT_ASSERT(xPropertySet
->getPropertyValue("NamedRanges") >>= xNR
);
61 table::CellRangeAddress
aCellRangeAddr(0, 0, 0, 2, 2);
62 table::CellAddress
aBaseAddr(aCellRangeAddr
.Sheet
, aCellRangeAddr
.StartColumn
,
63 aCellRangeAddr
.StartRow
);
64 xNR
->addNewByName("ANamedRange", "A1:B2", aBaseAddr
, 0);
65 xNR
->outputList(table::CellAddress(0, 1, 1));
67 uno::Reference
<container::XEnumerationAccess
> xEA(xNR
, uno::UNO_QUERY_THROW
);
69 return xEA
->createEnumeration();
72 void ScIndexEnumeration_NamedRangesEnumeration::setUp()
75 mxComponent
= loadFromDesktop("private:factory/scalc");
78 CPPUNIT_TEST_SUITE_REGISTRATION(ScIndexEnumeration_NamedRangesEnumeration
);
80 } // namespace sc_apitest
82 CPPUNIT_PLUGIN_IMPLEMENT();
84 /* vim:set shiftwidth=4 softtabstop=4 expandtab cinoptions=b1,g0,N-s cinkeys+=0=break: */