diff options
author | August Sodora <augsod@gmail.com> | 2011-12-07 00:55:10 -0500 |
---|---|---|
committer | August Sodora <augsod@gmail.com> | 2011-12-07 00:56:22 -0500 |
commit | a2eb0cf44bbd15ae24f9423d3bc6e420691c300d (patch) | |
tree | b11ce54011011e96217d9b504e81ec87aaef38a4 /testautomation/chart2/required/includes/ch2_toolbars.inc | |
parent | e2621785569969374cc3bc39fae0341d8b848612 (diff) |
Remove testtool
Diffstat (limited to 'testautomation/chart2/required/includes/ch2_toolbars.inc')
-rw-r--r-- | testautomation/chart2/required/includes/ch2_toolbars.inc | 168 |
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 - |