diff options
Diffstat (limited to 'testautomation/graphics/optional/includes/global/g_line.inc')
-rw-r--r-- | testautomation/graphics/optional/includes/global/g_line.inc | 573 |
1 files changed, 0 insertions, 573 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_line.inc b/testautomation/graphics/optional/includes/global/g_line.inc deleted file mode 100644 index eb672b3b9716..000000000000 --- a/testautomation/graphics/optional/includes/global/g_line.inc +++ /dev/null @@ -1,573 +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 : wolfram.garten@oracle.com -'* -'* short description : -'* -'************************************************************************************** -' #1 tiFormatLine -' #1 tLineConnect -'\************************************************************************************* -testcase tiFormatLine - - Dim ZaehlerStil - Dim ZaehlerFarbe - Dim ZaehlerTransp - Dim i 'Variable fuer Stil (Anzahl) - Dim j 'Variable fur Farbe (Anzahl) - Dim k 'Variable fuer Transparenz (Anzahl) - Dim l - Dim ZaehlerStilLinks - - printlog "New impress document" - Call hNewDocument - sleep 3 - printlog "create rectangle" - Call hRechteckErstellen (10,10,60,60) - sleep 2 - printlog "open Format line dialog" - FormatLine - Kontext - printlog "Open TabLine Tabpage" - Active.SetPage TabLinie - Kontext "TabLinie" - sleep 2 - printlog "Get item count for style" - Stil.GetItemCount - printlog "Get item count for color" - Farbe.GetItemCount - printlog "change value for" - Breite.More 1 - ZaehlerStil = Stil.GetItemCount - ZaehlerFarbe = Farbe.GetItemCount - - printlog "Apply every style to the rectangle" - for i=1 to ZaehlerStil - wait 10 - Stil.Select i - wait 10 - printlog "Closing dialog with ok" - TabLinie.OK - ' Kontext "DocumentImpress" - printlog "Open TabLine Tabpage" - FormatLine - Kontext - Active.SetPage TabLinie - Kontext "TabLinie" - next i - - printlog "Apply every color to the rectangle" - for j=1 to ZaehlerFarbe - PrintLog "-- " + Farbe.GetSelText - wait 10 - Farbe.Select j - wait 10 - TabLinie.OK - ' Kontext "DocumentImpress" - FormatLine - Kontext - Active.SetPage TabLinie - Kontext "TabLinie" - next j - printlog "change Breite" - Breite.More 3 - Breite.Less 2 - for k=1 to 6 - printlog "change tranparence" - Transparenz.More 1 - next k - TabLinie.OK - '--------------------------------------- - sleep 2 - printlog "Select all objects in document" - EditSelectAll - sleep 2 - printlog "Delete objects" - hTypeKeys "<DELETE>" - sleep 2 - FormatLine - - Kontext - printlog "TabLine" - Active.SetPage TabLinie - Kontext "TabLinie" - StilLinks.GetItemCount - ZaehlerStilLinks=StilLinks.GetItemCount - printlog "Apply all line end styles" - for l=1 to ZaehlerStilLinks - wait 10 - printlog "check synchronize" - if EndenSynchronisieren.IsChecked=False Then EndenSynchronisieren.Check - wait 10 - StilLinks.Select l - printlog "check if style is automatically applied for both ends" - if StilLinks.GetSelText<>StilRechts.GetSelText Then - WarnLog " Ends not synchronized. " + StilLinks.GetSelText + " Right: " + StilRechts.GetSelText - else - PrintLog " Left: " + StilLinks.GetSelText + " Right: " + StilRechts.GetSelText - end if - EndenSynchronisieren.UnCheck - next l -ZentriertLinks.Check - if ZentriertRechts.isChecked = True Then PrintLog " Centered right does work" - i = CornerStyle.GetItemCount - if i <> 4 then warnlog "CornerStyle should contain four options, but currently has: " + i - for i = 1 to 4 - CornerStyle.Select i - if CornerStyle.GetSelIndex <> i then warnlog "Corner Styles was: " + CornerStyle.GetSelIndex + ", should have been " + i - Printlog "Corner Style nr: " + i + " = " + CornerStyle.GetSelText - next i - TabLinie.OK - '------------------------------------------ - sleep 2 - FormatLine - Kontext - Active.SetPage TabLinienstile - Kontext "TabLinienstile" - printlog "Add new line style" - Hinzufuegen.Click - Kontext "NameDlg" - printlog "insert name of style (Testlinie2)" - Eingabefeld.SetText "Testlinie2" - NameDlg.OK - sleep 1 - Kontext - Active.SetPage TabLinienstile - Kontext "TabLinienstile" - printlog "delete created style" - Loeschen.Click - Kontext "Active" - Active.Yes - Kontext - Active.SetPage TabLinienstile - Kontext "TabLinienstile" - TypLinks.Select 2 - TypRechts.Select 2 - AnzahlLinks.SetText "20" - AnzahlRechts.SetText "5" - LaengeLinks.More 3 - LaengeRechts.More 3 - Abstand.SetText "0,1" - printlog "all fields changed in TabLinienstile" - if AnLinienbreite.IsChecked = True Then AnLinienbreite.Click - PrintLog " All controls could be manipulated." - TypLinks.Select 1 - TypRechts.Select 1 - printlog "check if its possible to apply a length to a point" - if LaengeLinks.IsEnabled And LaengeRechts.IsEnabled =True Then - WarnLog " A point where you can change its length is not a point anymore" - else - printlog "All styles for points are changed " - PrintLog " Line style pint tested" - end if - sleep 1 - try - Linienstil.Select 1 - catch - printlog "check if style list is filled" - if Linienstil.GetItemCount = 0 then - Warnlog "- The list for line styles is empty" - printlog "new style" - Hinzufuegen.Click - Kontext "NameDlg" - NameDlg.OK - end if - endcatch - Kontext - Active.SetPage TabLinienstile - Kontext "TabLinienstile" - printlog "change style" - Aendern.Click - Kontext "NameDlg" - printlog "new name for changed style" - Eingabefeld.SetText Eingabefeld.GetText + "1" - printlog "put name into clipboard" - SetClipboard Eingabefeld.GetText - NameDlg.OK - Kontext - Active.SetPage TabLinienstile - Kontext "TabLinienstile" - TabLinienstile.OK - sleep 2 - FormatLine - Kontext - Active.SetPage TabLinienstile - Kontext "TabLinienstile" - try - Aendern.Click - catch - Hinzufuegen.Click - endcatch - Kontext "NameDlg" - printlog "check if changed style is in list" - if Eingabefeld.GetText <> GetClipboardText Then WarnLog "No changes for Line style" - NameDlg.Cancel - sleep 2 - Kontext - Active.SetPage TabLinienstile - Kontext "TabLinienstile" - sleep 1 - try - printlog "delete changed style" - Loeschen.Click - Kontext "Active" - Active.Yes - sleep 3 - catch - if Linienstile.GetItemCount = 0 Then - Hinzufuegen.Click - Kontext "NameDlg" - sleep 1 - Eingabefeld.SetText "Delete" - NameDlg.OK - end if - endcatch - Kontext - Active.SetPage TabLinienstile - Kontext "TabLinienstile" - sleep 1 - TabLinienstile.OK - '-------------------------------------------- - sleep 2 - printlog "create rectangle" - Call hRechteckErstellen (40,40,80,50) - sleep 2 - FormatLine - Kontext - Active.SetPage TabLinienenden - Kontext "TabLinienenden" - sleep 2 - Kontext "Linienstil" - printlog "change style" - if Linienstil.Exists then Aendern.Click - sleep 1 - Kontext - Active.SetPage TabLinienenden - Kontext "TabLinienenden" - sleep 1 - Liste.GetItemCount - Liste.Select 3 - printlog "add style" - Hinzufuegen.Click - Kontext "NameDlg" - NameDlg.OK - - Kontext - Active.SetPage TabLinienenden - Kontext "TabLinienenden" - printlog "change style" - Aendern.Click - Kontext "Active" - Printlog Active.GetText - Active.OK - Kontext "NameDlg" - Eingabefeld.SetText Eingabefeld.GetText + "1" - PrintLog " Name inserted" - NameDlg.OK - - Kontext - if active.GetRt=304 then - active.ok - Kontext "NameDlg" - Eingabefeld.SetText Eingabefeld.GetText + "1" - PrintLog " Name inserted" - NameDlg.OK - endif - if active.GetRt=304 then - active.ok - warnlog "still not a valid name :-(" - endif - Kontext - Active.SetPage TabLinienenden - Kontext "TabLinienenden" - printlog "delete style" - Loeschen.Click - Kontext "Active" - Active.Yes - - Kontext - Active.SetPage TabLinienenden - Kontext "TabLinienenden" - sleep 1 - printlog "save style" - Speichern.Click - sleep 1 - Kontext "SpeichernDlg" - sleep 1 - SpeichernDlg.Cancel - - Kontext "TabLinienenden" - TabLinienenden.Cancel - sleep 2 - - 'New part for line - 'EditSelectAll printlog "Select all objects in document" - 'sleep 2 - 'hTypeKeys "<DELETE>" printlog "Delete objects" - 'sleep 2 - - 'printlog "Create line to test shadow tabpage in line dialog - 'kontext "Toolbar" - 'Kurven.Click - 'sleep 1 - 'if (gApplication = "DRAW") then - ' Kontext "DocumentDraw" - ' gMouseMove (30,50, 40,60) - ' sleep 1 - 'else - ' Kontext "DocumentImpress" - ' gMouseMove (30,50, 40,60) - ' sleep 1 - 'endif - 'FormatLine - 'Kontext - 'Active.SetPage TabSchatten - - ' FormatLine.Cancel - printlog "close document" - Call hCloseDocument - -endcase 'tiFormatLine -'-------------------------------------------------------------------------------' -testcase tLineConnect - - Dim value1 as integer - Dim value2 as integer - Dim value3 as integer - Dim StatusBarText as string - Dim i as integer - Dim cname as string - Dim cfirst as integer - - if bAsianLan then - QaErrorLog "tLineConnect ends because Asian languages are not fully supported." - goto Endsub - end if - - printlog "New Impress / Draw document" - Call hNewDocument - Call sSelectEmptyLayout - sleep 3 - kontext "GraphicObjectbar" - if GraphicObjectbar.Exists then - if GraphicObjectbar.isDocked = False then - GraphicObjectbar.Move 900,900 - endif - endif - kontext "Gluepointsobjectbar" - if Gluepointsobjectbar.Exists then - if Gluepointsobjectbar.isDocked = false then - Gluepointsobjectbar.Move 900,900 - endif - endif - kontext "Optionsbar" - if Optionsbar.Exists then - if Optionsbar.isDocked = false then - Optionsbar.Move 900,900 - end if - endif - - printlog "Create 2 lines" - kontext "Toolbar" - Kurven.Click - sleep 1 - if (gApplication = "DRAW") then - Kontext "DocumentDraw" - gMouseMove (30,50, 40,60) - sleep 1 - kontext "Toolbar" - Kurven.Click - Kontext "DocumentDraw" - gMouseMove (70,50, 60,60) - else - Kontext "DocumentImpress" - gMouseMove (30,50, 40,60) - sleep 1 - kontext "Toolbar" - Kurven.Click - Kontext "DocumentImpress" - gMouseMove (70,50, 60,60) - endif - - printlog "'" + (gApplication) +"'" - - printlog "Check the amount of objects" - gMouseClick (10, 10) - sleep 1 - EditSelectAll - sleep 1 - if (gApplication = "IMPRESS") then - StatusBarText = DocumentImpress.StatusGetText(DocumentImpress.StatusGetItemID(1)) - else - kontext "DocumentDraw" - StatusBarText = DocumentDraw.StatusGetText(DocumentDraw.StatusGetItemID(1)) - endif - if bAsianLan then - value1 = left(StatusBarText,(InStr(StatusBarText, "2" ))) - if value1 <> 2 then - warnlog "UH? There is supposed to be two objects visible, but was: " + value1 + " and the StatusBarText said: " + StatusBarText + "." - end if - else - value1 = left(StatusBarText,1) - printlog "StatusBarText was: " + StatusBarText - if value1 <> 2 then - warnlog "UH? There is supposed to be two objects visible, but we found " + value1 + " objects." - end if - end if - - printlog "Connect the two objects selected" - hOpenContextMenu - sleep 1 - hMenuSelectNr(13) - sleep 1 - printlog "Check the amount of objects" - gMouseClick (10, 10) - sleep 1 - EditSelectAll - sleep 1 - if (gApplication = "IMPRESS") then - StatusBarText = DocumentImpress.StatusGetText(DocumentImpress.StatusGetItemID(1)) - else - kontext "DocumentDraw" - StatusBarText = DocumentDraw.StatusGetText(DocumentDraw.StatusGetItemID(1)) - endif - value2 = left(StatusBarText,1) - printlog "StatusBarText was: " + StatusBarText - - printlog "if same as the first value = wrong" - if value1 = value2 then - warnlog "Expected to find one object, but found " + value2 + " instead." - endif - if value2 = "2" then - warnlog "Connect was not successful. We should have one object, but have " + value2 + " instead." - endif - - printlog "unmark the objects, thereafter mark them again" - gMouseClick (10, 10) - sleep 1 - EditSelectAll - sleep 1 - printlog "Break them from eachother" - hOpenContextMenu - sleep 1 - hMenuSelectNr(11) - sleep 1 - printlog "unmark the objects, thereafter mark them again" - gMouseClick (10, 10) - sleep 1 - EditSelectAll - sleep 1 - printlog "Check the amount of objects" - if (gApplication = "IMPRESS") then - StatusBarText = DocumentImpress.StatusGetText(DocumentImpress.StatusGetItemID(1)) - else - kontext "DocumentDraw" - StatusBarText = DocumentDraw.StatusGetText(DocumentDraw.StatusGetItemID(1)) - endif - value3 = left(StatusBarText,1) - - printlog "StatusBarText was: " + StatusBarText - - printlog "if the same as any of the ones before: Wrong" - if (value3 = value1 OR value3 = value2) then - warnlog "Expected to find three objects, but found " + value3 + " instead." - endif - - printlog "if 3 objects, then everything is ok" - if value3 = 3 then - printlog "Found three objects. Means the test was successful." - else - warnlog "Wrong value, expected three objects, but found " + value3 + "." - endif - - printlog "Go through the different Corner-styles" - - hOpenContextMenu - sleep 1 - hMenuSelectNr(2) 'Choose "Line" - - Kontext "TabLinie" - if TabLinie.Exists(2) then - cfirst = CornerStyle.GetSelIndex - else - sleep 1 - endif - - For i = 1 to CornerStyle.GetItemCount - Kontext "TabLinie" - if (i > 1) AND (cname <> CornerStyle.GetSelText) then - warnlog "Cornerstylename wasnt saved. Should have been: " + cname + ". But was: " + CornerStyle.GetSelText - endif - CornerStyle.Select i - cname = CornerStyle.GetSelText - Printlog " Found and selected Corner-Style: " + cname - TabLinie.Ok - sleep 1 - hOpenContextMenu - hMenuSelectNr(2) 'Choose "Line" - Next i - - Kontext "TabLinie" - CornerStyle.Select cfirst - TabLinie.Ok - - printlog "And a nice finish to make life a bit happier for anyone who looks at the test" - kontext "Toolbar" - Ellipsen.Click - if (gApplication = "DRAW") then - Kontext "DocumentDraw" - gMouseMove (40,40, 50,30) - sleep 1 - kontext "Toolbar" - Ellipsen.Click - Kontext "DocumentDraw" - gMouseMove (51,40, 61,30) - kontext "Toolbar" - Ellipsen.Click - Kontext "DocumentDraw" - gMouseMove (48,43, 53,50) - else - Kontext "DocumentImpress" - gMouseMove (40,40, 50,30) - sleep 1 - kontext "Toolbar" - Ellipsen.Click - Kontext "DocumentImpress" - gMouseMove (51,40, 61,30) - kontext "Toolbar" - Ellipsen.Click - Kontext "DocumentImpress" - gMouseMove (48,43, 53,50) - endif - gMouseClick (10, 10) - printlog "Close the document" - hCloseDocument - printlog "Endcase" - -endcase 'tiLineConnect -'-------------------------------------------------------------------------------' |