LCOV - code coverage report
Current view: top level - basic/qa/cppunit - test_nested_struct.cxx (source / functions) Hit Total Coverage
Test: commit 10e77ab3ff6f4314137acd6e2702a6e5c1ce1fae Lines: 134 134 100.0 %
Date: 2014-11-03 Functions: 18 19 94.7 %
Legend: Lines: hit not hit

          Line data    Source code
       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             : #include "basictest.hxx"
      10             : #include <osl/file.hxx>
      11             : #include <osl/process.h>
      12             : 
      13             : #include <basic/sbmod.hxx>
      14             : #include <basic/sbmeth.hxx>
      15             : #include <com/sun/star/awt/WindowDescriptor.hpp>
      16             : #include <com/sun/star/table/TableBorder.hpp>
      17             : #include <basic/sbuno.hxx>
      18             : 
      19             : namespace
      20             : {
      21             :     using namespace com::sun::star;
      22          36 :     class Nested_Struct : public test::BootstrapFixture
      23             :     {
      24             :         public:
      25          18 :         Nested_Struct(): BootstrapFixture(true, false) {};
      26             :         void testAssign1();
      27             :         void testAssign1Alt(); // result is uno-ised and tested
      28             :         void testOldAssign();
      29             :         void testOldAssignAlt(); // result is uno-ised and tested
      30             :         void testUnfixedVarAssign();
      31             :         void testUnfixedVarAssignAlt(); // result is uno-ised and tested
      32             :         void testFixedVarAssign();
      33             :         void testFixedVarAssignAlt(); // result is uno-ised and tested
      34             :         void testUnoAccess(); // fdo#60117 specific test
      35             : 
      36             :         // Adds code needed to register the test suite
      37           4 :         CPPUNIT_TEST_SUITE(Nested_Struct);
      38             : 
      39             :         // Declares the method as a test to call
      40           2 :         CPPUNIT_TEST(testAssign1);
      41           2 :         CPPUNIT_TEST(testAssign1Alt);
      42           2 :         CPPUNIT_TEST(testOldAssign);
      43           2 :         CPPUNIT_TEST(testOldAssignAlt);
      44           2 :         CPPUNIT_TEST(testUnfixedVarAssign);
      45           2 :         CPPUNIT_TEST(testUnfixedVarAssignAlt);
      46           2 :         CPPUNIT_TEST(testFixedVarAssign);
      47           2 :         CPPUNIT_TEST(testFixedVarAssignAlt);
      48           2 :         CPPUNIT_TEST(testUnoAccess);
      49             : 
      50             :         // End of test suite definition
      51           4 :         CPPUNIT_TEST_SUITE_END();
      52             :     };
      53             : 
      54             : // tests the new behaviour, we should be able to
      55             : // directly modify the value of the nested 'HorizontalLine' struct
      56           4 : OUString sTestSource1(
      57             :     "Function doUnitTest() as Integer\n"
      58             :     "Dim b0 as new \"com.sun.star.table.TableBorder\"\n"
      59             :     "b0.HorizontalLine.OuterLineWidth = 9\n"
      60             :     "doUnitTest = b0.HorizontalLine.OuterLineWidth\n"
      61             :     "End Function\n"
      62           2 : );
      63             : 
      64           4 : OUString sTestSource1Alt(
      65             :     "Function doUnitTest() as Object\n"
      66             :     "Dim b0 as new \"com.sun.star.table.TableBorder\"\n"
      67             :     "b0.HorizontalLine.OuterLineWidth = 9\n"
      68             :     "doUnitTest = b0\n"
      69             :     "End Function\n"
      70           2 : );
      71             : 
      72             : // tests the old behaviour, we should still be able
      73             : // to use the old workaround of
      74             : // a) creating a new instance BorderLine,
      75             : // b) cloning the new instance with the value of b0.HorizontalLine
      76             : // c) modifying the new instance
      77             : // d) setting b0.HorizontalLine with the value of the new instance
      78           4 : OUString sTestSource2(
      79             :     "Function doUnitTest()\n"
      80             :     "Dim b0 as new \"com.sun.star.table.TableBorder\", l as new \"com.sun.star.table.BorderLine\"\n"
      81             :     "l = b0.HorizontalLine\n"
      82             :     "l.OuterLineWidth = 9\n"
      83             :     "b0.HorizontalLine = l\n"
      84             :     "doUnitTest = b0.HorizontalLine.OuterLineWidth\n"
      85             : "End Function\n"
      86           2 : );
      87             : 
      88           4 : OUString sTestSource2Alt(
      89             :     "Function doUnitTest()\n"
      90             :     "Dim b0 as new \"com.sun.star.table.TableBorder\", l as new \"com.sun.star.table.BorderLine\"\n"
      91             :     "l = b0.HorizontalLine\n"
      92             :     "l.OuterLineWidth = 9\n"
      93             :     "b0.HorizontalLine = l\n"
      94             :     "doUnitTest = b0\n"
      95             : "End Function\n"
      96           2 : );
      97             : // it should be legal to assign a variant to a struct ( and copy by val )
      98             : // make sure we aren't copying by reference, we make sure that l is not
      99             : // a reference copy of b0.HorizontalLine, each one should have an
     100             : // OuterLineWidth of 4 & 9 respectively and we should be returning
     101             : // 13 the sum of the two ( hopefully unique values if we haven't copied by reference )
     102           4 : OUString sTestSource3(
     103             :     "Function doUnitTest()\n"
     104             :     "Dim b0 as new \"com.sun.star.table.TableBorder\"\n"
     105             :     "l = b0.HorizontalLine\n"
     106             :     "l.OuterLineWidth = 9\n"
     107             :     "b0.HorizontalLine = l\n"
     108             :     "l.OuterLineWidth = 4\n"
     109             :     "doUnitTest = b0.HorizontalLine.OuterLineWidth + l.OuterLineWidth\n"
     110             : "End Function\n"
     111           2 : );
     112             : 
     113           4 : OUString sTestSource3Alt(
     114             :     "Function doUnitTest()\n"
     115             :     "Dim b0 as new \"com.sun.star.table.TableBorder\"\n"
     116             :     "l = b0.HorizontalLine\n"
     117             :     "l.OuterLineWidth = 9\n"
     118             :     "b0.HorizontalLine = l\n"
     119             :     "l.OuterLineWidth = 4\n"
     120             :     "Dim result(1)\n"
     121             :     "result(0) = b0\n"
     122             :     "result(1) = l\n"
     123             :     "doUnitTest = result\n"
     124             : "End Function\n"
     125           2 : );
     126             : 
     127             : // nearly the same as above but this time for a fixed type
     128             : // variable
     129           4 : OUString sTestSource4(
     130             :     "Function doUnitTest()\n"
     131             :     "Dim b0 as new \"com.sun.star.table.TableBorder\", l as new \"com.sun.star.table.BorderLine\"\n"
     132             :     "l = b0.HorizontalLine\n"
     133             :     "l.OuterLineWidth = 9\n"
     134             :     "b0.HorizontalLine = l\n"
     135             :     "l.OuterLineWidth = 4\n"
     136             :     "doUnitTest = b0.HorizontalLine.OuterLineWidth + l.OuterLineWidth\n"
     137             : "End Function\n"
     138           2 : );
     139             : 
     140           4 : OUString sTestSource4Alt(
     141             :     "Function doUnitTest()\n"
     142             :     "Dim b0 as new \"com.sun.star.table.TableBorder\", l as new \"com.sun.star.table.BorderLine\"\n"
     143             :     "l = b0.HorizontalLine\n"
     144             :     "l.OuterLineWidth = 9\n"
     145             :     "b0.HorizontalLine = l\n"
     146             :     "l.OuterLineWidth = 4\n"
     147             :     "Dim result(1)\n"
     148             :     "result(0) = b0\n"
     149             :     "result(1) = l\n"
     150             :     "doUnitTest = result\n"
     151             : "End Function\n"
     152           2 : );
     153             : 
     154             : // Although basic might appear to correctly change nested struct elements
     155             : // fdo#60117 shows that basic can be fooled ( and even the watch(ed) variable
     156             : // in the debugger shows the expected values )
     157             : // We need to additionally check the actual uno struct to see if the
     158             : // changes made are *really* reflected in the object
     159           4 : OUString sTestSource5(
     160             :     "Function doUnitTest() as Object\n"
     161             :     "Dim aWinDesc as new \"com.sun.star.awt.WindowDescriptor\"\n"
     162             :     "Dim aRect as new \"com.sun.star.awt.Rectangle\"\n"
     163             :     "aRect.X = 200\n"
     164             :     "aWinDesc.Bounds = aRect\n"
     165             :     "doUnitTest = aWinDesc\n"
     166             : "End Function\n"
     167           2 : );
     168             : 
     169             : 
     170           2 : void Nested_Struct::testAssign1()
     171             : {
     172           2 :     MacroSnippet myMacro( sTestSource1 );
     173           2 :     myMacro.Compile();
     174           2 :     CPPUNIT_ASSERT_MESSAGE("testAssign1 fails with compile error",!myMacro.HasError() );
     175           4 :     SbxVariableRef pNew = myMacro.Run();
     176           4 :     CPPUNIT_ASSERT(pNew->GetInteger() == 9 );
     177           2 : }
     178             : 
     179           2 : void Nested_Struct::testAssign1Alt()
     180             : {
     181           2 :     MacroSnippet myMacro( sTestSource1Alt );
     182           2 :     myMacro.Compile();
     183           2 :     CPPUNIT_ASSERT_MESSAGE("testAssign1Alt fails with compile error",!myMacro.HasError() );
     184           4 :     SbxVariableRef pNew = myMacro.Run();
     185           4 :     uno::Any aRet = sbxToUnoValue( pNew );
     186           2 :     table::TableBorder aBorder;
     187           2 :     aRet >>= aBorder;
     188             : 
     189           2 :     int result = aBorder.HorizontalLine.OuterLineWidth;
     190           4 :     CPPUNIT_ASSERT_EQUAL( 9, result );
     191           2 : }
     192             : 
     193           2 : void Nested_Struct::testOldAssign()
     194             : {
     195           2 :     MacroSnippet myMacro( sTestSource2 );
     196           2 :     myMacro.Compile();
     197           2 :     CPPUNIT_ASSERT_MESSAGE("testOldAssign fails with compile error",!myMacro.HasError() );
     198           4 :     SbxVariableRef pNew = myMacro.Run();
     199           4 :     CPPUNIT_ASSERT(pNew->GetInteger() == 9 );
     200           2 : }
     201             : 
     202           2 : void Nested_Struct::testOldAssignAlt()
     203             : {
     204           2 :     MacroSnippet myMacro( sTestSource2Alt );
     205           2 :     myMacro.Compile();
     206           2 :     CPPUNIT_ASSERT_MESSAGE("testOldAssign fails with compile error",!myMacro.HasError() );
     207           4 :     SbxVariableRef pNew = myMacro.Run();
     208           4 :     uno::Any aRet = sbxToUnoValue( pNew );
     209           2 :     table::TableBorder aBorder;
     210           2 :     aRet >>= aBorder;
     211             : 
     212           2 :     int result = aBorder.HorizontalLine.OuterLineWidth;
     213           4 :     CPPUNIT_ASSERT_EQUAL( 9, result );
     214           2 : }
     215             : 
     216           2 : void Nested_Struct::testUnfixedVarAssign()
     217             : {
     218           2 :     MacroSnippet myMacro( sTestSource3 );
     219           2 :     myMacro.Compile();
     220           2 :     CPPUNIT_ASSERT_MESSAGE("testUnfixedVarAssign fails with compile error",!myMacro.HasError() );
     221             :     // forces a broadcast
     222           4 :     SbxVariableRef pNew = myMacro.Run();
     223           4 :     CPPUNIT_ASSERT(pNew->GetInteger() == 13 );
     224           2 : }
     225             : 
     226           2 : void Nested_Struct::testUnfixedVarAssignAlt()
     227             : {
     228           2 :     MacroSnippet myMacro( sTestSource3Alt );
     229           2 :     myMacro.Compile();
     230           2 :     CPPUNIT_ASSERT_MESSAGE("testUnfixedVarAssignAlt fails with compile error",!myMacro.HasError() );
     231           4 :     SbxVariableRef pNew = myMacro.Run();
     232           4 :     uno::Any aRet = sbxToUnoValue( pNew );
     233             : 
     234           4 :     uno::Sequence< uno::Any > aResult;
     235           2 :     bool bRes = aRet >>= aResult;
     236           2 :     CPPUNIT_ASSERT_EQUAL(true, bRes );
     237             : 
     238           2 :     int result = aResult.getLength();
     239             :     // should have 2 elements in a sequence returned
     240           2 :     CPPUNIT_ASSERT_EQUAL(2, result );
     241             : 
     242           2 :     table::TableBorder aBorder;
     243           2 :     aResult[0] >>= aBorder;
     244             : 
     245           2 :     table::BorderLine aBorderLine;
     246           2 :     aResult[1] >>= aBorderLine;
     247           2 :     result = aBorder.HorizontalLine.OuterLineWidth;
     248           2 :     CPPUNIT_ASSERT_EQUAL(9, result );
     249           2 :     result = aBorderLine.OuterLineWidth;
     250           4 :     CPPUNIT_ASSERT_EQUAL(4, result );
     251           2 : }
     252             : 
     253           2 : void Nested_Struct::testFixedVarAssign()
     254             : {
     255           2 :     MacroSnippet myMacro( sTestSource4 );
     256           2 :     myMacro.Compile();
     257           2 :     CPPUNIT_ASSERT_MESSAGE("testFixedVarAssign fails with compile error",!myMacro.HasError() );
     258           4 :     SbxVariableRef pNew = myMacro.Run();
     259           4 :     CPPUNIT_ASSERT(pNew->GetInteger() == 13 );
     260           2 : }
     261             : 
     262           2 : void Nested_Struct::testFixedVarAssignAlt()
     263             : {
     264           2 :     MacroSnippet myMacro( sTestSource4Alt );
     265           2 :     myMacro.Compile();
     266           2 :     CPPUNIT_ASSERT_MESSAGE("testFixedVarAssignAlt fails with compile error",!myMacro.HasError() );
     267           4 :     SbxVariableRef pNew = myMacro.Run();
     268           4 :     uno::Any aRet = sbxToUnoValue( pNew );
     269             : 
     270           4 :     uno::Sequence< uno::Any > aResult;
     271           2 :     bool bRes = aRet >>= aResult;
     272           2 :     CPPUNIT_ASSERT_EQUAL(true, bRes );
     273             : 
     274           2 :     int result = aResult.getLength();
     275             :     // should have 2 elements in a sequence returned
     276           2 :     CPPUNIT_ASSERT_EQUAL(2, result );
     277             : 
     278           2 :     table::TableBorder aBorder;
     279           2 :     aResult[0] >>= aBorder;
     280             : 
     281           2 :     table::BorderLine aBorderLine;
     282           2 :     aResult[1] >>= aBorderLine;
     283           2 :     result = aBorder.HorizontalLine.OuterLineWidth;
     284           2 :     CPPUNIT_ASSERT_EQUAL(9, result );
     285           2 :     result = aBorderLine.OuterLineWidth;
     286           4 :     CPPUNIT_ASSERT_EQUAL(4, result );
     287           2 : }
     288             : 
     289           2 : void Nested_Struct::testUnoAccess()
     290             : {
     291           2 :     MacroSnippet myMacro( sTestSource5 );
     292           2 :     myMacro.Compile();
     293           2 :     CPPUNIT_ASSERT_MESSAGE("testUnoAccess fails with compile error",!myMacro.HasError() );
     294           4 :     SbxVariableRef pNew = myMacro.Run();
     295           4 :     uno::Any aRet = sbxToUnoValue( pNew );
     296           4 :     awt::WindowDescriptor aWinDesc;
     297           2 :     aRet >>= aWinDesc;
     298             : 
     299           2 :     int result = aWinDesc.Bounds.X;
     300           4 :     CPPUNIT_ASSERT_EQUAL(200, result );
     301           2 : }
     302             : 
     303             :   // Put the test suite in the registry
     304           2 :   CPPUNIT_TEST_SUITE_REGISTRATION(Nested_Struct);
     305             : } // namespace
     306           8 : CPPUNIT_PLUGIN_IMPLEMENT();
     307             : 
     308             : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */

Generated by: LCOV version 1.10