summaryrefslogtreecommitdiff
path: root/testautomation/chart2/required
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/chart2/required')
-rw-r--r--testautomation/chart2/required/ch2_updt_calc.bas3
-rw-r--r--testautomation/chart2/required/includes/ch2_menu.inc6
-rw-r--r--testautomation/chart2/required/includes/ch2_toolbars.inc133
3 files changed, 134 insertions, 8 deletions
diff --git a/testautomation/chart2/required/ch2_updt_calc.bas b/testautomation/chart2/required/ch2_updt_calc.bas
index 0f9bff4b0103..7dba15ead84f 100644
--- a/testautomation/chart2/required/ch2_updt_calc.bas
+++ b/testautomation/chart2/required/ch2_updt_calc.bas
@@ -128,7 +128,7 @@ sub main
printlog Chr(13) + "--------- Chart2 Window Menu ---------"
Call tWindowNewWindowAndClose
printLog Chr(13) + "---------- Chart2 Toolbars -----------"
- Call tdummyToolbar
+ Call tDrawBar
printLog Chr(13) + "--------- Chart2 as OLE object ---------"
Call tChartOLE("WRITER")
Call tChartOLE("CALC")
@@ -150,4 +150,3 @@ sub LoadIncludeFiles
Call GetUseFiles
gApplication = "CALC"
end sub
-
diff --git a/testautomation/chart2/required/includes/ch2_menu.inc b/testautomation/chart2/required/includes/ch2_menu.inc
index 7c24c3857b60..7461fbc1461c 100644
--- a/testautomation/chart2/required/includes/ch2_menu.inc
+++ b/testautomation/chart2/required/includes/ch2_menu.inc
@@ -108,13 +108,13 @@ testcase tMainMenu
end if
call hMenuClose()
- printlog "check if there are 4 items in the VIEW/TOOLBAR menu."
+ printlog "check if there are 5 items in the VIEW/TOOLBAR menu."
DocumentCalc.UseMenu
hMenuSelectNr(3) ' VIEW
hMenuSelectNr(1) ' TOOLBAR
iCount = hMenuItemGetCount()
- if (iCount <> 4) then
- warnlog "There should 4 items in the VIEW/TOOLBAR menu but there are " + iCount + " items."
+ if (iCount <> 5) then
+ warnlog "There should 5 items in the VIEW/TOOLBAR menu but there are " + iCount + " items."
end if
call hMenuClose()
diff --git a/testautomation/chart2/required/includes/ch2_toolbars.inc b/testautomation/chart2/required/includes/ch2_toolbars.inc
index c1cf8f195584..c447078131fc 100644
--- 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