testautomation/chart2/required/includes/ch2_toolbars.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '
   5 ' Copyright 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/************************************************************************
  27 '*
  28 '* owner : oliver.craemer@oracle.com
  29 '*
  30 '* short description : Chart resource test - section toolbars
  31 '*
  32 '************************************************************************
  33 '*
  34 ' #1 tDrawBar
  35 '*
  36 '\************************************************************************
  37
  38 testcase tDrawBar
  39
  40     printlog " Load simple chart document"
  41     if fLoadVerySimpleChartAndSaveLocal() > 0 then
  42         warnlog "Loading test document seems to have failed -> Check this out!"
  43         goto endsub
  44     endif
  45     printlog " Select chart using navigator"
  46     call fSelectFirstOLE
  47     printlog " Invoke Edit::Object::Edit to enter Inplace Mode"
  48     EditObjectEdit
  49     printlog " Verify that the drawbar is visible"
  50     Kontext "DrawBar"
  51
  52     qaerrorlog "#i107003# disabled because of bug in toolbars"
  53 '    if Not DrawBar.Exists then
  54 '       Call hToolbarSelect("Drawing", true)
  55 '    endif
  56
  57     printlog " Check if all items on drawbar are available"
  58     if DrawBar.GetItemCount <> 16 then
  59         warnlog "There are " & DrawBar.GetItemCount & " instead of 16 items on drawbar"
  60     endif
  61     printlog " Click on every button on the Drawingbar"
  62     Auswahl.click
  63     Linie.click
  64     LineArrowEnd.click
  65     Rechteck.click
  66     Ellipse.click
  67     Freihand.click
  68     Textobjekt.click
  69     Legende.click
  70     BasicShapes.click
  71     SymbolShapes.click
  72     BlockArrows.click
  73     Flowcharts.click
  74     Callouts.click
  75     Stars.click
  76     printlog " Open menubutton BasicShapes"
  77     BasicShapes.TearOff
  78     Kontext "BasicShapes"
  79     printlog " Check that there are 25 BasicShapes"
  80     if BasicShapes.GetItemCount <> 25 then
  81         warnlog "There are " & BasicShapes.GetItemCount & " instead of 25 BasicShapes"
  82     endif
  83     BasicShapes.close
  84     Kontext "DrawBar"
  85     printlog " Open menubutton SymbolShapes"
  86     SymbolShapes.TearOff
  87     Kontext "SymbolShapes"
  88     printlog " Check that there are 20 SymbolShapes"
  89     if SymbolShapes.GetItemCount <> 20 then
  90         warnlog "There are " & SymbolShapes.GetItemCount & " instead of 25 SymbolShapes"
  91     endif
  92     SymbolShapes.close
  93     Kontext "DrawBar"
  94     printlog " Open menubutton BlockArrows"
  95     BlockArrows.TearOff
  96     Kontext "ArrowShapes"
  97     printlog " Check that there are 30 ArrowShapes"
  98     if ArrowShapes.GetItemCount <> 30 then
  99         warnlog "There are " & ArrowShapes.GetItemCount & " instead of 25 ArrowShapes"
 100     endif
 101     ArrowShapes.close
 102     Kontext "DrawBar"
 103     printlog " Open menubutton Flowcharts"
 104     Flowcharts.TearOff
 105     Kontext "Flowchart"
 106     printlog " Check that there are 32 FlowChartShapes"
 107     if Flowchart.GetItemCount <> 32 then
 108         warnlog "There are " & Flowchart.GetItemCount & " instead of 32 Flowchartshapes"
 109     endif
 110     Flowchart.close
 111     Kontext "DrawBar"
 112     printlog " Open menubutton Callouts"
 113     Callouts.TearOff
 114     Kontext "Callouts"
 115     printlog " Check that there are 7 Callouts"
 116     if Callouts.GetItemCount <> 7 then
 117         warnlog "There are " & Callouts.GetItemCount & " instead of 7 Callouts"
 118     endif
 119     Callouts.close
 120     Kontext "DrawBar"
 121     printlog " Open menubutton Stars"
 122     Stars.TearOff
 123     Kontext "Starshapes"
 124     printlog " Check that there are 13 StarShapes"
 125     if Starshapes.GetItemCount <> 13 then
 126         warnlog "There are " & Starshapes.GetItemCount & " instead of 13 StarShapes"
 127     endif
 128     Starshapes.close
 129     printlog " Insert a shape to the chart by <STRG-RETURN>"
 130     Kontext "DrawBar"
 131     sleep (1)
 132     DrawBar.typekeys "<TAB>",TRUE
 133     DrawBar.typekeys "<TAB>",TRUE
 134     DrawBar.typekeys "<TAB>",TRUE
 135     DrawBar.typekeys "<TAB>",TRUE
 136     DrawBar.typekeys "<MOD1 RETURN>",TRUE
 137     printlog " Rename inserted shape"
 138     Kontext "DocumentChart"
 139     DocumentChart.OpenContextMenu
 140     sleep (1)
 141     hMenuSelectNr (6)
 142     sleep (1)
 143     Kontext "NameDlgObject"
 144     NameField.SetText "ChartShape1"
 145     NameDlgObject.OK
 146     printlog " Leave Chart"
 147     Kontext "DocumentCalc"
 148     DocumentCalc.TypeKeys "<Escape>"
 149     printlog "Select chart using navigator"
 150     call fSelectFirstOLE
 151     printlog "Invoke Edit::Object::Edit to enter Inplace Mode"
 152     EditObjectEdit
 153     printlog " Check if shape is still there"
 154     Kontext "DocumentChart"
 155     DocumentChart.typekeys "<SHIFT TAB>",TRUE
 156     Sleep (1)
 157     Kontext "Toolbar"
 158     if ChartElementSelector.GetSelText <> "ChartShape1" then
 159         warnlog "Something is wrong with the shape"
 160     endif
 161     printlog " Leave Chart"
 162     Kontext "DocumentCalc"
 163     DocumentCalc.TypeKeys "<Escape>"
 164     printlog " Close document"
 165     Call hCloseDocument
 166
 167 endcase
 168