1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
2 /*
3 * This file is part of the LibreOffice project.
4 *
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/.
8 */
9
10 #include <test/sheet/xspreadsheets.hxx>
11
12 #include <com/sun/star/container/XIndexAccess.hpp>
13 #include <com/sun/star/container/XNamed.hpp>
14 #include <com/sun/star/sheet/XSpreadsheets.hpp>
15
16 #include <cppunit/extensions/HelperMacros.h>
17
18 using namespace com::sun::star;
19 using namespace com::sun::star::uno;
20
21
22 namespace apitest {
23
testInsertNewByName()24 void XSpreadsheets::testInsertNewByName()
25 {
26 uno::Reference< sheet::XSpreadsheets > xSpreadsheets(init(), UNO_QUERY_THROW);
27
28 OUString newSheetName( "SheetToInsert" );
29 xSpreadsheets->insertNewByName(newSheetName, 0);
30
31 uno::Reference< container::XNameAccess > xNameAccess(xSpreadsheets, UNO_QUERY_THROW);
32 CPPUNIT_ASSERT_MESSAGE("Sheet was not insert",
33 xNameAccess->hasByName(newSheetName));
34 }
35
testInsertNewByNameBadName()36 void XSpreadsheets::testInsertNewByNameBadName()
37 {
38 uno::Reference< sheet::XSpreadsheets > xSpreadsheets(init(), UNO_QUERY_THROW);
39
40 CPPUNIT_ASSERT_THROW_MESSAGE("No exception thrown",
41 xSpreadsheets->insertNewByName("$%#/?\\", 0),
42 uno::RuntimeException);
43 }
44
testMoveByName()45 void XSpreadsheets::testMoveByName()
46 {
47 uno::Reference< sheet::XSpreadsheets > xSpreadsheets(init(), UNO_QUERY_THROW);
48
49 // first insert one that should be moved
50 xSpreadsheets->insertNewByName("SheetToMove", 0);
51 uno::Reference< container::XNameAccess > xNameAccess(xSpreadsheets, UNO_QUERY_THROW);
52 CPPUNIT_ASSERT_MESSAGE("Sheet to move was not insert",
53 xNameAccess->hasByName("SheetToMove"));
54
55 xSpreadsheets->moveByName("SheetToMove", 2);
56
57 // get sheet from the new position
58 uno::Reference< container::XIndexAccess > oIndexAccess(xSpreadsheets, UNO_QUERY_THROW);
59 uno::Any aAny = oIndexAccess->getByIndex(1);
60 uno::Reference< container::XNamed > xNamed;
61 CPPUNIT_ASSERT(aAny >>= xNamed);
62
63 CPPUNIT_ASSERT_EQUAL_MESSAGE("Sheet was not moved",
64 OUString("SheetToMove"),
65 xNamed->getName());
66 }
67
testCopyByName()68 void XSpreadsheets::testCopyByName()
69 {
70 uno::Reference< sheet::XSpreadsheets > xSpreadsheets(init(), UNO_QUERY_THROW);
71
72 // insert new sheet to copy
73 xSpreadsheets->insertNewByName("SheetToCopySrc", 0);
74 uno::Reference< container::XNameAccess > xNameAccess(xSpreadsheets, UNO_QUERY_THROW);
75 CPPUNIT_ASSERT_MESSAGE("Sheet to copy was not insert",
76 xNameAccess->hasByName("SheetToCopySrc"));
77
78 xSpreadsheets->copyByName("SheetToCopySrc", "SheetToCopyDst", 0);
79 CPPUNIT_ASSERT_MESSAGE("Sheet was not copied",
80 xNameAccess->hasByName("SheetToCopyDst"));
81 }
82
83 }
84
85 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
86