chartmultiline: merge with DEV300_m74

2 files changed, 133 insertions, 6 deletions

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