From a32de79fdb59629e6f42342968ae6977bbc32683 Mon Sep 17 00:00:00 2001
From: Oliver Craemer <oc@openoffice.org>
Date: Tue, 24 Nov 2009 14:43:48 +0000
Subject: #i106356# Autotests for chartshapes

---
 .../chart2/required/includes/ch2_toolbars.inc      | 133 ++++++++++++++++++++-
 1 file changed, 130 insertions(+), 3 deletions(-)

(limited to 'testautomation/chart2/required/includes/ch2_toolbars.inc')

diff --git a/testautomation/chart2/required/includes/ch2_toolbars.inc b/testautomation/chart2/required/includes/ch2_toolbars.inc
index 3dc52aa0c0e4..e0485d5e8c24 100755
--- a/testautomation/chart2/required/includes/ch2_toolbars.inc
+++ b/testautomation/chart2/required/includes/ch2_toolbars.inc
@@ -37,11 +37,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
 
-- 
cgit v1.2.3