summaryrefslogtreecommitdiff
path: root/testautomation/chart2/required/includes/ch2_toolbars.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/chart2/required/includes/ch2_toolbars.inc')
-rw-r--r--testautomation/chart2/required/includes/ch2_toolbars.inc168
1 files changed, 0 insertions, 168 deletions
diff --git a/testautomation/chart2/required/includes/ch2_toolbars.inc b/testautomation/chart2/required/includes/ch2_toolbars.inc
deleted file mode 100644
index 32eed54ee370..000000000000
--- a/testautomation/chart2/required/includes/ch2_toolbars.inc
+++ /dev/null
@@ -1,168 +0,0 @@
-'encoding UTF-8 Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org. If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/************************************************************************
-'*
-'* owner : oliver.craemer@oracle.com
-'*
-'* short description : Chart resource test - section toolbars
-'*
-'************************************************************************
-'*
-' #1 tDrawBar
-'*
-'\************************************************************************
-
-testcase tDrawBar
-
- printlog " Load simple chart document"
- if fLoadVerySimpleChartAndSaveLocal() > 0 then
- warnlog "Loading test document seems to have failed -> Check this out!"
- goto endsub
- endif
- printlog " Select chart using navigator"
- call fSelectFirstOLE
- printlog " Invoke Edit::Object::Edit to enter Inplace Mode"
- EditObjectEdit
- printlog " Verify that the drawbar is visible"
- Kontext "DrawBar"
-
- qaerrorlog "#i107003# disabled because of bug in toolbars"
-' if Not DrawBar.Exists then
-' Call hToolbarSelect("Drawing", true)
-' endif
-
- printlog " Check if all items on drawbar are available"
- if DrawBar.GetItemCount <> 16 then
- warnlog "There are " & DrawBar.GetItemCount & " instead of 16 items on drawbar"
- endif
- printlog " Click on every button on the Drawingbar"
- Auswahl.click
- Linie.click
- LineArrowEnd.click
- Rechteck.click
- Ellipse.click
- Freihand.click
- Textobjekt.click
- Legende.click
- BasicShapes.click
- SymbolShapes.click
- BlockArrows.click
- Flowcharts.click
- Callouts.click
- Stars.click
- printlog " Open menubutton BasicShapes"
- BasicShapes.TearOff
- Kontext "BasicShapes"
- printlog " Check that there are 25 BasicShapes"
- if BasicShapes.GetItemCount <> 25 then
- warnlog "There are " & BasicShapes.GetItemCount & " instead of 25 BasicShapes"
- endif
- BasicShapes.close
- Kontext "DrawBar"
- printlog " Open menubutton SymbolShapes"
- SymbolShapes.TearOff
- Kontext "SymbolShapes"
- printlog " Check that there are 20 SymbolShapes"
- if SymbolShapes.GetItemCount <> 20 then
- warnlog "There are " & SymbolShapes.GetItemCount & " instead of 25 SymbolShapes"
- endif
- SymbolShapes.close
- Kontext "DrawBar"
- printlog " Open menubutton BlockArrows"
- BlockArrows.TearOff
- Kontext "ArrowShapes"
- printlog " Check that there are 30 ArrowShapes"
- if ArrowShapes.GetItemCount <> 30 then
- warnlog "There are " & ArrowShapes.GetItemCount & " instead of 25 ArrowShapes"
- endif
- ArrowShapes.close
- Kontext "DrawBar"
- printlog " Open menubutton Flowcharts"
- Flowcharts.TearOff
- Kontext "Flowchart"
- printlog " Check that there are 32 FlowChartShapes"
- if Flowchart.GetItemCount <> 32 then
- warnlog "There are " & Flowchart.GetItemCount & " instead of 32 Flowchartshapes"
- endif
- Flowchart.close
- Kontext "DrawBar"
- printlog " Open menubutton Callouts"
- Callouts.TearOff
- Kontext "Callouts"
- printlog " Check that there are 7 Callouts"
- if Callouts.GetItemCount <> 7 then
- warnlog "There are " & Callouts.GetItemCount & " instead of 7 Callouts"
- endif
- Callouts.close
- Kontext "DrawBar"
- printlog " Open menubutton Stars"
- Stars.TearOff
- Kontext "Starshapes"
- printlog " Check that there are 13 StarShapes"
- if Starshapes.GetItemCount <> 13 then
- warnlog "There are " & Starshapes.GetItemCount & " instead of 13 StarShapes"
- endif
- Starshapes.close
- printlog " Insert a shape to the chart by <STRG-RETURN>"
- Kontext "DrawBar"
- sleep (1)
- DrawBar.typekeys "<TAB>",TRUE
- DrawBar.typekeys "<TAB>",TRUE
- DrawBar.typekeys "<TAB>",TRUE
- DrawBar.typekeys "<TAB>",TRUE
- DrawBar.typekeys "<MOD1 RETURN>",TRUE
- printlog " Rename inserted shape"
- Kontext "DocumentChart"
- DocumentChart.OpenContextMenu
- sleep (1)
- hMenuSelectNr (6)
- sleep (1)
- Kontext "NameDlgObject"
- NameField.SetText "ChartShape1"
- NameDlgObject.OK
- printlog " Leave Chart"
- Kontext "DocumentCalc"
- DocumentCalc.TypeKeys "<Escape>"
- printlog "Select chart using navigator"
- call fSelectFirstOLE
- printlog "Invoke Edit::Object::Edit to enter Inplace Mode"
- EditObjectEdit
- printlog " Check if shape is still there"
- Kontext "DocumentChart"
- DocumentChart.typekeys "<SHIFT TAB>",TRUE
- Sleep (1)
- Kontext "Toolbar"
- if ChartElementSelector.GetSelText <> "ChartShape1" then
- warnlog "Something is wrong with the shape"
- endif
- printlog " Leave Chart"
- Kontext "DocumentCalc"
- DocumentCalc.TypeKeys "<Escape>"
- printlog " Close document"
- Call hCloseDocument
-
-endcase
-