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')
-rwxr-xr-xtestautomation/chart2/required/includes/ch2_toolbars.inc133
1 files changed, 130 insertions, 3 deletions
diff --git a/testautomation/chart2/required/includes/ch2_toolbars.inc b/testautomation/chart2/required/includes/ch2_toolbars.inc
index 4b1a66e88500..1651073e05fb 100755
--- a/testautomation/chart2/required/includes/ch2_toolbars.inc
+++ b/testautomation/chart2/required/includes/ch2_toolbars.inc
@@ -31,11 +31,138 @@
'*
'************************************************************************
'*
-' #1 tdummyToolbar
+' #1 tDrawBar
'*
'\************************************************************************
-testcase tdummyToolbar
- QAErrorLog "Implement test for toolbar features when toolbars are ready"
+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