sccomp/qa/unit/solver.cxx

   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 <sal/config.h>
  11
  12 #include <com/sun/star/frame/Desktop.hpp>
  13 #include <com/sun/star/sheet/XSolver.hpp>
  14 #include <com/sun/star/sheet/XSolverDescription.hpp>
  15 #include <test/bootstrapfixture.hxx>
  16
  17 using namespace css;
  18
  19 namespace {
  20
  21 class LpSolverTest: public test::BootstrapFixture
  22 {
  23     uno::Reference<sheet::XSpreadsheetDocument> m_xDocument;
  24
  25 #ifdef ENABLE_LPSOLVE
  26     void testLpSolver();
  27 #endif
  28 #ifdef ENABLE_COINMP
  29     void testCoinMPSolver();
  30 #endif
  31
  32 #if defined(ENABLE_LPSOLVE) || defined(ENABLE_COINMP)
  33     void testSolver(OUString const & rName);
  34 #endif
  35
  36 public:
  37     virtual void setUp() override;
  38     virtual void tearDown() override;
  39
  40     CPPUNIT_TEST_SUITE(LpSolverTest);
  41 #ifdef ENABLE_LPSOLVE
  42     CPPUNIT_TEST(testLpSolver);
  43 #endif
  44 #ifdef ENABLE_COINMP
  45     CPPUNIT_TEST(testCoinMPSolver);
  46 #endif
  47     CPPUNIT_TEST_SUITE_END();
  48 };
  49
  50 void LpSolverTest::setUp()
  51 {
  52     test::BootstrapFixture::setUp();
  53     uno::Reference<frame::XDesktop2> xComponentLoader = frame::Desktop::create(m_xContext);
  54     uno::Reference<lang::XComponent> xComponent(xComponentLoader->loadComponentFromURL(
  55             "private:factory/scalc", "_blank", 0,
  56             uno::Sequence < css::beans::PropertyValue >()));
  57     m_xDocument.set(xComponent, uno::UNO_QUERY_THROW);
  58 }
  59
  60 void LpSolverTest::tearDown()
  61 {
  62     uno::Reference<lang::XComponent>(m_xDocument, uno::UNO_QUERY_THROW)->dispose();
  63     test::BootstrapFixture::tearDown();
  64 }
  65
  66 #ifdef ENABLE_LPSOLVE
  67 void LpSolverTest::testLpSolver()
  68 {
  69     testSolver("com.sun.star.comp.Calc.LpsolveSolver");
  70 }
  71 #endif
  72
  73 #ifdef ENABLE_COINMP
  74 void LpSolverTest::testCoinMPSolver()
  75 {
  76     testSolver("com.sun.star.comp.Calc.CoinMPSolver");
  77 }
  78 #endif
  79
  80 #if defined(ENABLE_LPSOLVE) || defined(ENABLE_COINMP)
  81 void LpSolverTest::testSolver(OUString const & rName)
  82 {
  83     uno::Reference<sheet::XSolver> xSolver(m_xContext->getServiceManager()->
  84             createInstanceWithContext(rName, m_xContext), uno::UNO_QUERY_THROW);
  85
  86     table::CellAddress aObjective(0, 0, 0);
  87
  88     // "changing cells" - unknown variables
  89     uno::Sequence<table::CellAddress> aVariables(1);
  90     aVariables[0] = table::CellAddress(0, 0, 0);
  91
  92     // constraints
  93     uno::Sequence<sheet::SolverConstraint> aConstraints(1);
  94     aConstraints[0].Left = table::CellAddress(0, 0, 0);
  95     aConstraints[0].Operator = sheet::SolverConstraintOperator_LESS_EQUAL;
  96     aConstraints[0].Right <<= 5.0;
  97
  98     // initialize solver
  99     xSolver->setDocument( m_xDocument );
 100     xSolver->setObjective( aObjective );
 101     xSolver->setVariables( aVariables );
 102     xSolver->setConstraints( aConstraints );
 103     xSolver->setMaximize( true );
 104
 105     // test results
 106     xSolver->solve();
 107     CPPUNIT_ASSERT(xSolver->getSuccess());
 108     uno::Sequence<double> aSolution = xSolver->getSolution();
 109     CPPUNIT_ASSERT_EQUAL(aSolution.getLength(), aVariables.getLength());
 110     CPPUNIT_ASSERT_EQUAL(aSolution[0], 5.0);
 111
 112     uno::Reference<sheet::XSolverDescription> xDesc(xSolver, uno::UNO_QUERY_THROW);
 113     const OString sMessage("Empty description for " + OUStringToOString(rName, RTL_TEXTENCODING_UTF8));
 114     CPPUNIT_ASSERT_MESSAGE(sMessage.getStr(), !xDesc->getComponentDescription().isEmpty());
 115 }
 116 #endif
 117
 118 CPPUNIT_TEST_SUITE_REGISTRATION(LpSolverTest);
 119
 120 }
 121
 122 CPPUNIT_PLUGIN_IMPLEMENT();
 123
 124 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */