diff options
Diffstat (limited to 'testautomation/graphics/optional/includes/global/g_format.inc')
| -rw-r--r-- | testautomation/graphics/optional/includes/global/g_format.inc | 1254 |
1 files changed, 1254 insertions, 0 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_format.inc b/testautomation/graphics/optional/includes/global/g_format.inc new file mode 100644 index 000000000000..dbd8d6fe8a43 --- /dev/null +++ b/testautomation/graphics/optional/includes/global/g_format.inc @@ -0,0 +1,1254 @@ +'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 tiFormatText +' #1 tdFormatLayer +' #1 tdFormatConnector +' #1 tiFormatPositionAndSize +' #1 tiFormat3D_Effekte +' #1 tdFormatTemplates +' #1 tiFormatAufzaehlungszeichen +'\****************************************************************** +testcase tiFormatText + Dim a as string + Dim b as string + Dim n as integer + Dim i as integer + Dim ZaehlerEffekt + dim sTemp as string + + '/// open application ///' + Call hNewDocument + Call sSelectEmptyLayout + '/// create a textbox with text ///' + Call hTextrahmenErstellen ("This is a text, which, I hope, in Staroffice, will be automaticly formatted. Should that not be the case, then it doesn't matter.",20,20,70,20) + WaitSlot (1000) + '/// click outside of textbox, to leave edit mode of textbox and deselect it ///' + gMouseClick 99,99 + '/// type key [TAB] to select textbox again ///' + hTypeKeys "<TAB>" + + '/// Format->Position and Size ///' + FormatPositionAndSize + Kontext + '/// select tabpage 'Format and Size' on dialog 'Position and Size' ///' + Active.SetPage TabPositionAndSize + Kontext "TabPositionAndSize" + sleep 2 + '/// get and remember Position: 'Position X' ///' + a = PositionX.GetText + '/// close dialog 'Position and Size' with OK ///' + TabPositionAndSize.OK + + '/// Format -> Text... ///' + FormatTextDraw + Kontext + '/// select tabpage 'Text' ///' + Active.SetPage TabText + Kontext "TabText" + '/// Check checkbox 'Fit width to text' ///' + BreiteAnTextAnpassen.Check + '/// leave dialog with OK ///' + TabText.OK + + '/// Dialog should have been resized and moved now! ///' + + '/// Format->Position and Size ///' + ContextPositionAndSize + Kontext + '/// select tabpage 'Format and Size' on dialog 'Position and Size' ///' + Active.SetPage TabPositionAndSize + Kontext "TabPositionAndSize" + WaitSlot (2000) + '/// compare 'Position X' with saved value - has to be different ///' + sTemp = PositionX.GetText + if (sTemp <> a) Then + Printlog " - Fit to frame does work" + else + warnlog " - Fit to frame doesn't work: expected: '" + a + "' is: '" + + "'" + end if + '/// get and remember Position: 'Position Y' ///' + b=PositionY.GetText + TabPositionAndSize.OK + + '/// Format -> Text... ///' + FormatTextDraw + Kontext + '/// select tabpage 'Text' ///' + Active.SetPage TabText + Kontext "TabText" + '/// UNCheck checkbox 'Fit width to text' ///' + BreiteAnTextAnpassen.Uncheck + '/// check checkbox 'Fit height to text' ///' + HoeheAnTextAnpassen.Check + '/// if checkbox 'Fit to frame' is enabled: this state only happens, if 'Fit height to text' and 'Fit width to text' are checked ///' + if AmRahmenAnpassen.IsEnabled Then + WarnLog " - checkbox 'Fit to frame' is enabled, which is wrong!" + else + PrintLog " - checkbox 'Fit to frame' is disabled." + end if + WaitSlot (1000) + '/// UNcheck checkbox 'Fit height to text' ///' + HoeheAnTextAnpassen.UnCheck + '/// UNCheck checkbox 'Fit width to text' ///' + BreiteAnTextAnpassen.UnCheck + '/// if checkbox 'Fit to frame' is disabled: this state only happens, if 'Fit height to text' and/or 'Fit width to text' are checked ///' + if AmRahmenAnpassen.IsEnabled Then + PrintLog " - checkbox 'Fit to frame' is enabled." + else + WarnLog " - checkbox 'Fit to frame' is disabled, which is wrong!" + end if +' PrintLog "Full width: " + GanzeBreite.IsChecked + '/// set metric field 'Left' to 10 ///' + Links.SetText "10" + '/// set metric field 'Right' to 10 ///' + Rechts.SetText "10" + '/// set metric field 'Top' to 10 ///' + Oben.SetText "10" + '/// set metric field 'Bottom' to 10 ///' + Unten.SetText "10" + '/// leave dialog with OK ///' + TabText.OK + + '/// Edit -> Select All ///' + EditSelectAll + '/// type Keys [Strg]+[x] to cut object ///' + hTypeKeys "<MOD1 X>" + '/// No object exists in dokument right now! ///' + '/// Format -> Text... ///' + FormatTextDraw + Kontext + '/// select tabpage 'Text' ///' + Active.SetPage TabText + Kontext "TabText" + '/// check checkbox 'Adjust to contour' ///' + Konturfluss.Check + '/// now every other control on the dialog has to get disabled ///' + if ((AmRahmenAnpassen.IsEnabled=False) And (Links.IsEnabled=False) And (Rechts.IsEnabled=False) And (Oben.IsEnabled=False) And (Unten.IsEnabled =False)) Then + PrintLog " - Adjust to contour is working" + else + WarnLog " - contourflow aktivated doesn't work it's supposed to" + end if + '/// leave dialog with OK ///' + TabText.OK + + '/// create a textbox with text ///' + Call hTextrahmenErstellen ("blablablablablablablablablablablabla",20,20,60,60) + WaitSlot (5000) + '/// Format -> Text... ///' + FormatTextDraw + Kontext + '/// select tabpage 'Text Animation' ///' + Active.SetPage TabLauftext + Kontext "TabLauftext" + + ZaehlerEffekt = Effekt.GetItemCount + if (ZaehlerEffekt <> 5) then + qaerrorlog "There are now more or less than 5 Effects - Change testcase! " + ZaehlerEffekt + end if + for n=1 to ZaehlerEffekt + Effekt.Select n + printlog "" + n + ": '" + Effekt.getSelText + "' -------------------------------" + if (n > 2) then + '/// test all directions ///' + for i = 1 to 4 + printlog "" + i + select case i + case 1: NachOben.click + case 2: NachLinks.click + case 3: NachRechts.click + case 4: NachUnten.click + end select + sFormatTextDrawAnimation + next i + end if + if ((n > 1) AND (n < 5)) then + '/// test all Start/End Text visibility ///' + for i = 1 to 4 + printlog "" + i + select case i + case 1: TextSichtbarBeimStarten.check : TextSichtbarBeimBeenden.uncheck + case 2: TextSichtbarBeimBeenden.check + case 3: TextSichtbarBeimStarten.uncheck + case 4: TextSichtbarBeimBeenden.uncheck + end select + sFormatTextDrawAnimation + next i + end if + if ((n > 1) AND (n < 5)) then + '/// test all Animation cycles ///' + for i = 1 to 3 + printlog "" + i + select case i + case 1: Endlos.check + case 2: Endlos.UnCheck : Anzahl.typeKeys ("<PageUp>") + case 3: If Endlos.IsChecked = true then + QaErrorLog "#i74067# - Checkbox checked when it shouldn't have been." + Endlos.UnCheck + end if + Anzahl.setText ("1") + end select + sFormatTextDrawAnimation + next i + end if + if (n > 2) then + '/// test all Increment ///' + for i = 1 to 4 + printlog "" + i + select case i + case 1: Pixel.check : Schrittweite.setText("1") + case 2: printlog "#114551# Loop, if Step greater than object size" + case 3: Pixel.UnCheck : Schrittweite.typeKeys ("<PageDown>") + case 4: printlog "#114551# Loop, if Step greater than object size" + end select + sFormatTextDrawAnimation + next i + end if + if (n > 1) then + '/// test all Delay ///' + for i = 1 to 3 + printlog "" + i + select case i + case 1: Automatisch.check + case 2: Automatisch.UnCheck : Verzoegerung.setText("1") + case 3: Verzoegerung.typeKeys ("<PageUp>") + end select + sFormatTextDrawAnimation + next i + end if + next n + TabLauftext.OK + Call hCloseDocument + +endcase 'tiFormatText +'------------------------------------------------------------------------------- +testcase tdFormatLayer + + '/// open application ///' + Call hNewDocument + + '/// Edit->Layer->Insert (in DRAW also via Insert->Layer) ///' + InsertLayer + Kontext "EbeneEinfuegenDlg" + EbenenName.SetText " Test 4" + LayerTitle.SetText " Test no 4" + LayerDescription.SetText " This is the Description of the Layer." + EbeneEinfuegenDlg.OK + + '/// Edit->Layer->Modify (in DRAW also via Format->Layer)///' + FormatLayer + Kontext "EbeneAendernDlg" + if EbenenName.GetText = " Test 4" Then + EbenenName.SetText "Layer 5" + end if + if LayerTitle.GetText = " Test no 4" Then + LayerTitle.SetText "Layer test 5" + end if + if LayerDescription.GetText = " This is the Description of the Layer." Then + LayerDescription.SetText " This is the changed Description of the Layer." + end if + + Sichtbar.Check + Druckbar.Check + Gesperrt.Check + EbeneAendernDlg.OK + + '/// Edit->Layer->Modify (in DRAW also via Format->Layer)///' + FormatLayer + Kontext "EbeneAendernDlg" + if EbenenName.GetText <> "Layer 5" Then + WarnLog " Name-Value either didn't change at all, or was empty. Expected: 'Layer 5', but was: " + EbenenName.GetText + end if + if LayerTitle.GetText <> "Layer test 5" Then + WarnLog " Title-Value either didn't change at all, or was empty. Expected: 'Layer test 5', but was: " + LayerTitle.GetText + end if + if LayerDescription.GetText <> " This is the changed Description of the Layer." Then + WarnLog " Description-Value either didn't change at all, or was empty. Expected: ' This is the changed Description of the Layer.', but was: " + LayerDescription.GetText + end if + + if Sichtbar.IsChecked=False Then + WarnLog " Value changed: visible" + end if + if Druckbar.IsChecked=False Then + WarnLog " Value changed: printable" + end if + if Gesperrt.IsChecked=False then + WarnLog " Value changed: locked" + end if + EbeneAendernDlg.OK + + '/// close application ///' + Call hCloseDocument + +endcase 'tdFormatLayer +'------------------------------------------------------------------------------- +testcase tdFormatConnector + + Dim Zaehler as integer + Dim i as integer + dim sUnit as string + dim sTemp as string + dim cDecSep as string + + if (gApplication = "IMPRESS") then + ExtensionString = "odp" + else + ExtensionString = "odg" + end if + + Call hNewDocument + '/// insert connector /// + kontext "Connectorsbar" + if Connectorsbar.Exists then + Connectorsbar.Close + end if + + kontext "Toolbar" + Sleep (1) + try + Verbinder.TearOff ' insert connector + catch + warnlog "bug for GH from TBO; .tearoff doesn't tell success" + endcatch + + kontext "Connectorsbar" + Verbinder.click + gMouseMove ( 10,10,30,30) + + Call hCloseDocument + '/// Open file with a finished scenario ///' + hFileOpen ConvertPath (gTesttoolPath + "graphics\required\input\FormatConnector." + ExtensionString) + sleep (1) + '/// Check if the document is writable ///' + if fIsDocumentWritable = false then + ' Make the document writable and check if it's succesfull + if fMakeDocumentWritable = false then + warnlog "The document can't be make writeable. Test stopped." + goto endsub + end if + end if + gMouseClick 1,1 + + '/// Press TAB three times to select the connector. ///' + hTypekeys "<TAB>" + hTypekeys "<TAB>" + hTypekeys "<TAB>" + + WaitSlot (1000) + hTypeKeys "<SHIFT F10>" 'OpenContextMenu(true) + sleep (2) + hMenuSelectNr(2) ' Connector + sleep (1) + Kontext "Verbinder" + Typ.Select 2 ' the one with 2 from 3 posibilities to set a value... + Sleep (1) + AnfangHorizontal.SetText "1" + Verbinder.TypeKeys "<TAB>" + AnfangVertikal.SetText "1" + Verbinder.TypeKeys "<TAB>" + EndeHorizontal.SetText "1" + Verbinder.TypeKeys "<TAB>" + EndeVertikal.SetText "1" + Verbinder.TypeKeys "<TAB>" + printlog EndeVertikal.getText + try + Linie1.SetText "10" + Verbinder.TypeKeys "<TAB>" + sTemp = Linie1.getText + sUnit = GetMeasUnit(sTemp) + cDecSep = GetDecimalSeperator(sTemp) + catch + PrintLog " Lineoffset not activated -> you have to choose another linetype: 1" + endcatch + try + Linie2.SetText "10" + Verbinder.TypeKeys "<TAB>" + catch + PrintLog " Lineoffset not activated -> you have to choose another linetype: 2" + endcatch + try + Linie3.SetText "10" + Verbinder.TypeKeys "<TAB>" + catch + PrintLog " Lineoffset not activated -> you have to choose another linetype: 3 when will this be enabled ?" + endcatch + Verbinder.OK + + FormatConnector + Kontext "Verbinder" + sTemp = AnfangHorizontal.GetText + + if fCompareTwoValues(sTemp, "1"+cDecSep+"00"+sUnit) Then + WarnLog " value not changed" + printlog "AnfangHorizontal = is '" + sTemp + "' should: '"+"1"+cDecSep+"00"+sUnit+"'" + end if + if fCompareTwoValues(AnfangVertikal.GetText, "1"+cDecSep+"00"+sUnit) Then + WarnLog " value not changed" + printlog "AnfangVertikal.GetText = " + AnfangVertikal.GetText + end if + if fCompareTwoValues(EndeHorizontal.GetText, "1"+cDecSep+"00"+sUnit) Then + WarnLog " value not changed" + printlog "EndeHorizontal.GetText = " + EndeHorizontal.GetText + end if + if fCompareTwoValues(EndeVertikal.GetText, "1"+cDecSep+"00"+sUnit) Then + WarnLog " value not changed" + printlog "EndeHorizontal.GetText = " + EndeHorizontal.GetText + end if + + Zaehler = Typ.GetItemCount + for i = 1 to Zaehler + Typ.Select i + SetClipboard Typ.GetSelText + Verbinder.OK + FormatConnector + Kontext "Verbinder" + if GetClipboardText <> Typ.GetSelText Then + WarnLog " Selection not saved. Was: " + Typ.GetSelText + " . But should have been: " +GetClipboardText + end if + next i + Verbinder.OK + Call hCloseDocument + +endcase 'tdFormatConnector +'------------------------------------------------------------------------------- +testcase tiFormatPositionAndSize + + Dim x 'Variable fuer PositionX + Dim y 'Variable fuer PositionY + Dim h 'Variable fuer Hoehe + Dim b 'Variable fuer Breite + Dim r 'Variable fuer Radius + Dim w 'Variable fuer Winkel + +printlog "New impress doc" + Call hNewDocument + WaitSlot (3000) + printlog "RECTANGLE-----1/2" + printlog "create rectangle" + Call hRechteckErstellen (20,20,70,30) + WaitSlot (1000) + gMouseClick 50,25 + WaitSlot (1000) + printlog "Format-position and size" + ContextPositionAndSize + WaitSlot (1000) + Kontext + printlog "TabPositionAndSize" + Active.SetPage TabPositionAndSize + Kontext "TabPositionAndSize" + printlog "put x and y position into clipboard" + printlog "x = " & PositionX.GetText + printlog "y = " & PositionY.GetText + SetClipboard (PositionX.GetText + PositionY.GetText) + TabPositionAndSize.OK + WaitSlot (1000) + printlog "move rectangle down and right" + hTypeKeys "<DOWN>",10 + hTypeKeys "<RIGHT>",10 + printlog "open PositionAndSize" + ContextPositionAndSize + WaitSlot (1000) + Kontext + printlog "TabPositionAndSize" + Active.SetPage TabPositionAndSize + Kontext "TabPositionAndSize" + printlog "control position changes with clipboard content" + if (PositionX.GetText + PositionY.GetText) = GetClipboardText Then WarnLog "Der Dialog hat die Positionsaenderung nicht registriert" + printlog "set position of rectange using the edit fields" + PositionX.SetText "2" + x=PositionX.GetText + PositionY.SetText "2" + y=PositionY.GetText + printlog "check protect" + ProtectPosition.Check + TabPositionAndSize.OK + WaitSlot (1000) + ContextPositionAndSize + WaitSlot (1000) + Kontext + Active.SetPage TabPositionAndSize + Kontext "TabPositionAndSize" + printlog "check if values are correct" + if PositionX.GetText = x And PositionY.GetText = y Then PrintLog " Values could be changed" + printlog "check if protect works" + if PositionX.GetText<> x Then + WarnLog "Protect does not work" + else + PrintLog "Protext works, X axis checked" + end if + if PositionY.GetText<> y Then + WarnLog "Protect does not work" + else + PrintLog " Protext does work, checked y axis" + end if + printlog "uncheck protect" + ProtectPosition.UnCheck + TabPositionAndSize.OK + WaitSlot (1000) + ContextPositionAndSize + WaitSlot (1000) + Kontext + printlog "TabPositionAndSize" + WaitSlot (1000) + Active.SetPage TabPositionAndSize + Kontext "TabPositionAndSize" + KeepRatio.UnCheck + printlog "set width to 10" + WaitSlot (1000) + Width.SetText "10" + printlog "put value into a variable" + WaitSlot (1000) + b=Width.GetText + printlog "Width is " & b + SetClipboard Width.GetText + '/// set heigth to 5 ///' + Height.SetText "5" + printlog "put value into variable" + WaitSlot (1000) + h=Height.GetText + printlog "Height is " & h + printlog "check protect" + ProtectPosition.Check + printlog "close dialog" + TabPositionAndSize.OK + WaitSlot (1000) + ContextPositionAndSize + WaitSlot (1000) + Kontext + Active.SetPage TabPositionAndSize + Kontext "TabPositionAndSize" + WaitSlot (2000) + printlog "control size changes" + printlog "Width value is: " & Width.GetText + printlog "Value from Clipboard is: " & GetClipboardText + if Width.GetText = GetClipboardText Then + PrintLog " Size of rectangle could be changed. It is = " + Width.GetText + " but it should be = " + b + else + WarnLog " Controls for height and width do not work" + end if + printlog "Uncheck the Position-Protection, so we can work with this window." + if ProtectPosition.isChecked = FALSE then + printlog "Should be checked since it was checked just 16 rows ago" + ErrorLog "ProtectPosition was not checked - why?" + else + ProtectPosition.Uncheck + end if + + KeepRatio.Check + printlog "raise value for width" + Width.More 5 + if Height.GetText = h Then + WarnLog " Keep ratio does not work properly" + else + PrintLog " Keep ratio does work" + KeepRatio.UnCheck + end if + TabPositionAndSize.OK + WaitSlot (2000) + gMouseClick 90,90 + WaitSlot (2000) + printlog "Now trying TEXT..." + printlog "create textbox" + Call hTextrahmenErstellen ("Never before have I written such a meaning" ,10,10,60,20) + WaitSlot (2000) + printlog "Format-Postion and Size" + FormatPositionAndSize + WaitSlot (1000) + Kontext + printlog "TabPositionAndSize" + Active.SetPage TabPositionAndSize + Kontext "TabPositionAndSize" + printlog "default value ?: width :-----"+Width.IsEnabled + printlog "check fit width to text" + if Width.IsEnabled then FitWidthText.Check + if Width.IsEnabled = True Then + WarnLog " Fit width does not work" + else + PrintLog " Fit width does work" + end if + printlog "fit heigth to text" + FitHeightText.Check + if Height.IsEnabled = True Then + WarnLog " fit heigth doe not work" + else + PrintLog " fit heigth does work" + end if + ' PrintLog " Fit width to text active: " + FitWidthText.IsChecked + ' PrintLog " Fit heigth to text active: " + FitHeightText.IsChecked + printlog "uncheck fit width to text" + FitWidthText.UnCheck + printlog "uncheck fit heigth to text" + FitHeightText.Uncheck + TabPositionAndSize.OK + WaitSlot (1000) + hTypeKeys "<escape>",2 + hTypeKeys "<TAB>",2 + WaitSlot (1000) + ContextPositionAndSize + WaitSlot (1000) + Kontext + Active.SetPage TabPositionAndSize + Kontext "TabPositionAndSize" + printlog "check x-position of textbox" + SetClipboard PositionX.GetText + WaitSlot (1000) + Kontext + printlog "set rotation angle to 50 and position x and y to 1" + Active.SetPage TabDrehung + Kontext "TabDrehung" + PositionX.SetText "1" + PositionY.SetText "1" + Winkel.SetText "50" + w=Winkel.GetText + TabDrehung.OK + WaitSlot (3000) + + printlog "check position of manipulated textbox" + ContextPositionAndSize + WaitSlot (3000) + Kontext + Active.SetPage TabPositionAndSize + Kontext "TabPositionAndSize" + if PositionX = GetClipboardText Then PrintLog " Position changed due to rotation" + Kontext + Active.SetPage TabDrehung + Kontext "TabDrehung" + WaitSlot (1000) + printlog "check rotation angle" + if Winkel.GetText = w Then PrintLog " Object rotated" + TabDrehung.OK + + printlog "RECTANGLE-----2/2" + printlog "create rectangle" + Call hRechteckErstellen (10,60,70,90) + WaitSlot (2000) + ContextPositionAndSize + WaitSlot (1000) + Kontext + Active.SetPage TabPositionAndSize + Kontext "TabPositionAndSize" + printlog "put x-axis postion of rectangle into clipboard" + SetClipboard PositionX.GetText + Kontext + printlog "set slant angle to 5" + Active.SetPage TabSchraegstellen + Kontext "TabSchraegstellen" + WaitSlot (1000) + printlog "set radius to 5" + Radius.SetText "5" + r=Radius.GetText + Winkel.SetText w + TabSchraegstellen.OK + WaitSlot (1000) + ContextPositionAndSize + Kontext + Active.SetPage TabPositionAndSize + Kontext "TabPositionAndSize" + if PositionX <> GetClipboardText Then PrintLog " Object changed position due to scaling" + printlog "Before we change tab, we set the Position-marker back to checked " + ProtectPosition.Check + Kontext + printlog "check slant angle and radius" + Active.SetPage TabSchraegstellen + Kontext "TabSchraegstellen" + if Radius.GetText = r Then PrintLog " Cornwer radius changed" + if Winkel.GetText =w Then PrintLog " Object rotated over 45°" + TabSchraegstellen.OK + Call hCloseDocument + +endcase 'tiFormatPositionAndSize +'------------------------------------------------------------------------------- +testcase tiFormat3D_Effekte + + Dim Hor as string + Dim Vert as string + Dim Rund as string + Dim Skal as string + Dim Tief as string + Dim Winkel as string ' get value for angle + Dim X as string + Dim y as integer + Dim i as integer + Dim Zaehler as integer + Dim Posi as string + + Call hNewDocument + Call sSelectEmptyLayout + printlog "new document" + '-----------------------------------RECTANGLE------------------------------------------------------ + Call hRechteckErstellen (20,20,60,70) '/// create rectangle ///' + WaitSlot (1000) + ContextPositionAndSize '/// get position and size of rectangle ///' + Kontext + Active.SetPage TabPositionAndSize + Kontext "TabPositionAndSize" + PositionX.SetText "5" + X=PositionX.GetText + printlog "--- created RECTANGLE; xPosition @ "+ x + TabPositionAndSize.OK + ContextConvertInto3D '/// convert rectangle into 3d ///' + WaitSlot (1000) + Kontext "Drei_D_Effekte" + if Drei_D_Effekte.exists(3) then + qaerrorlog " The 3D-Effects-dialogue was open. Check why." + else + Format3D_Effects '/// open 3d flyer///' + end if + try + if Perspektive.isvisible then + Perspektive.Click '/// check perspective ///' + else + warnlog "why not in draw?" + end if + catch + warnlog "something is wrong mit perspective" + endcatch + Zuweisen.Click '/// assign perspective ///' + Kontext "DocumentImpress" + hTypeKeys "<MOD1 A>" + ContextPositionAndSize '/// check position and size ///' + Kontext + Active.SetPage TabPositionAndSize + Kontext "TabPositionAndSize" + if PositionX.GetText = X Then + printlog "- Perspective acitvated x: "+PositionX.GetText + else + warnlog "- Perspective seems to have a problem, x value has changed!" + end if + TabPositionAndSize.OK + Kontext "Drei_D_Effekte" + Aktualisieren.Click + Drei_D_Effekte.Close + EditSelectAll '/// delete rectangle ///' + hTypeKeys "<DELETE>" + + '-----------------------------------RECTANGLE------------------------------------------------------ + hRechteckErstellen (20,20,60,70) '/// create new rectangle ///' + printlog "--- created RECTANGLE 2" + Format3D_Effects '/// open 3d flyer ///' + Kontext "Drei_D_Effekte" + Rotationskoerper.Click '/// create lathe object ///' + WaitSlot (1000) + Kontext "DocumentImpress" + ContextPositionAndSize '/// check position and size ///' + Kontext + Active.SetPage TabPositionAndSize + Kontext "TabPositionAndSize" + if PositionX.GetText = X Then + Warnlog "- Rectangle not converted into a lath object; x: "+PositionX.GetText + else + Printlog "- Creating a lath object seems to work" + end if + TabPositionAndSize.OK + EditSelectAll + hTypeKeys "<DELETE>" '/// delete object ///' + Sleep (1) + '-----------------------------------RECTANGLE------------------------------------------------------ + hRechteckErstellen (20,20,60,70) '/// create rectangle ///' + printlog "--- created RECTANGLE 3" + Kontext "Drei_D_Effekte" + WaitSlot (1000) + In_3D_Umwandeln.Click '/// convert to 3d in 3d flyer ///' + WaitSlot (2000) + gMouseClick 40,40 + qaerrorlog "#i92910: automation: crash when executing tiFormat3D_Effekte in test g_format" + 'hOpenContextmenu + 'y = hMenuItemGetCount + 'MenuSelect (0) + 'gMouseClick 90,90 + 'select case gApplication + ' case "DRAW" : if y = 13 then + ' Printlog "- 3D object created" + ' else + ' Warnlog " Context-menu-entry-number was wrong. Expected 13, but was " + y + "." + ' end if + ' case else : if y = 15 then + ' Printlog "- 3D object created" + ' else + ' Warnlog " Context-menu-entry-number was wrong. Expected 15, but was " + y + "." + ' end if + 'end select + + EditSelectAll + hTypeKeys "<DELETE>" '/// delete object ///' + + '-----------------------------------ZYLINDER------------------------------------------------------ + Sleep (1) + printlog "--- create CYLINDER" + WL_SD_Zylinder '/// create cylinder ///' + gMousemove 30,30,80,80 '/// This affects the Vertical-value down to 15 ///' + Sleep (1) + hTypeKeys "<ESC>" + Kontext "Drei_D_Effekte" + Geometrie.Click '/// geometry ///' + WaitSlot (1000) + ' Endwinkel.More + Vert=Vertikale_Segmente.GetText '/// get value for vertical segments (default) ///' + Hor =Horizontale_Segmente.GetText '/// get value for horizontal segments (default) ///' + Rund=Kantenrundung.GetText '/// get value for edge rounding ///' + Skal=Tiefenskalierung.GetText '/// get value for scale ///' + Tief=Tiefe.GetText '/// get value for depth ///' + Winkel=Endwinkel.GetText '/// get value for angle ///' + + '/// Check if every entry has a value <> "" -> an init value is shown. ///' + if Vert ="" then warnlog "Vertical Segment has no init value" + if Hor ="" then warnlog "Horizontal Segment has no init value" + if Rund ="" then warnlog "Rounded edges has no init value" + if Skal ="" then warnlog "Scaled depth has no init value" + if Tief ="" then warnlog "Depth has no init value" + if Winkel="" then printlog "Rotation angle has no init value" + + '/// Go back to the 3d-effects-dialogue and change the value for the cylinder ///' + + hTypeKeys "<ESC>" '/// Deselect object and check if 3d controller has default values again ///' + Kontext "Drei_D_Effekte" + + '/// Check if value for vertical segments has changed in 3d controller ///' + if Vertikale_Segmente.GetText = Vert Then + Printlog "- Vertical segment value read from object's properties in the 3d flyer" + else + Warnlog "- 3D flyer could not read vertical segment information from object. It is = '"+ Vertikale_Segmente.GetText + "' but should be = '" + Vert + "'" + end if + + if Horizontale_Segmente.GetText = Hor Then '/// check if value for horizontal segments has changed ///' + Printlog "- Horizontal segment value read from object's properties in the 3d flyer" + else + Warnlog "- 3D flyer not be able to read horizonal segment information from object. It is = '"+ Horizontale_Segmente.GetText + "' but should be = '" + Hor + "'" + end if + + if Kantenrundung.GetText = Rund Then '/// check if value for edge rounding has changed ///' + Printlog "- Rounded edges works" + else + Warnlog "- Rounded edges value could not be read by the 3d flyer It is = '" + Kantenrundung.GetText + "' but should be = '" + rund + "'" + end if + + if Tiefenskalierung.GetText = Skal Then '/// check value for scale ///' + Printlog "- Scaled depth works" + else + Warnlog "- Scale depth value could not be read by the 3d flyer It is = '" + Tiefenskalierung.GetText + "' but should be = '" + skal + "'" + end if + + if Tiefe.GetText = Tief Then '/// check value for depth ///' + Printlog "- Depth value could be read by the 3d flyer" + else + Warnlog "- Depth value of object could not be read by the flyer It is = '"+ Tiefe.GetText + "' but should be = '" + tief + "'" + end if + + if Endwinkel.GetText = Winkel Then '/// check value for angle ///' + Printlog "- Angle value could be read by the 3d flyer" + else + Warnlog "- Angle value is not correct" + end if + + hTypeKeys "<ESC>" '/// deselect object and check if 3d controller has default values again ///' + Kontext "Drei_D_Effekte" + Sleep (2) + Printlog "- check if 3D flyer goes back to default values if object is deselected" + if Vertikale_Segmente.GetText <> Vert Then Warnlog " Vertical Segment - Default value is wrong is: "+Vertikale_Segmente.GetText+"; should: " +vert + if Horizontale_Segmente.GetText <> Hor Then Warnlog " Horizontal Segment - Default value is wrong" + if Kantenrundung.GetText <> Rund Then Warnlog " Rounded edges - Default value is wrong" + if Tiefenskalierung.GetText <> Skal Then Warnlog " Scaled depth - Default value is wrong" + if Endwinkel.GetText <> Winkel Then Warnlog " Rotation angle - Default value is wrong" + if Tiefe.GetText<>Tief Then Warnlog " Depth - Default value is wrong" + + hTypeKeys "<TAB>" + Kontext "Drei_D_Effekte" + Sleep (2) + Horizontale_Segmente.SetText "32" '/// change horizontal and vertical segments ///' + Vertikale_Segmente.SetText "32" + Kantenrundung.SetText "100" + Endwinkel.Settext "300" + Tiefenskalierung.SetText "500" + Tiefe.SetText "100" + Zuweisen.Click '/// assign changes ///' + + WaitSlot (1000) '/// check value changes ///' + if Vertikale_Segmente.GetText = Vert Then Warnlog "- Default value is wrong" + if Horizontale_Segmente.GetText = Hor Then Warnlog "- Default value is wrong" + if Kantenrundung.GetText = Rund Then Warnlog "- Default value is wrong" + if Tiefenskalierung.GetText = Skal Then Warnlog "- Default value is wrong" + if Endwinkel.GetText = Winkel Then Warnlog "- Default value is wrong" + if Tiefe.GetText=Tief Then Warnlog "- Default value is wrong" + EditSelectAll + hTypeKeys "<DELETE>" '/// delete cylinder ///' + + '-----------------------------------ZYLINDER------------------------------------------------------ + WL_SD_Zylinder '/// create new cylinder ///' + gMouseMove (20,20,60,60) + WaitSlot (3000) + Kontext "Drei_D_Effekte" + Printlog "- Change basic geometric parameters for the object" + Printlog "Segments : Horizontal: 8; Vertical: 8; Rounded edges: 50 %" + Horizontale_Segmente.SetText "8" '/// changing values for cylinder ///' + Vertikale_Segmente.SetText "8" + Kantenrundung.SetText "50 %" + Sleep (1) + Zuweisen.Click + WaitSlot (2000) + gMouseClick 90,90 + Sleep (2) + EditSelectAll '/// select object ///' + WaitSlot (1000) + Kontext "Drei_D_Effekte" '/// control if changes are done ///' + if Horizontale_Segmente.GetText <> "8" Then Warnlog "- Horizontal segment count is not correct "+Horizontale_Segmente.GetText + if Vertikale_Segmente.GetText <> "8" Then Warnlog "- Vertical segment count is not correct "+Vertikale_Segmente.GetText + if Kantenrundung.GetText <> "50 %" Then Warnlog "- Value for rounded edges is not correct "+Kantenrundung.GetText + Darstellung.Click + Zaehler=Modus.GetItemCount '/// get number of pssibole render methods ///' + for i =1 to Zaehler + Modus.Select i + Zuweisen.Click '/// assign every render method ///' + gMouseClick 90,90 + Sleep (1) + EditSelectAll '/// select object ///' + Sleep (1) + Kontext "Drei_D_Effekte" + if Modus.GetSelIndex <> i Then Warnlog "- Value for render modus did not change" '/// check if render method has changed ///' + next i + Printlog "- Check 3d shadow and surface angle" + Drei_DSchatten.Click '/// check 3d shadow ///' + Papierneigung.SetText "90 degree(s)" + vert = Papierneigung.getText + Zuweisen.Click '/// assign shadow ///' + gMouseClick 90,90 '/// deselect object ///' + WaitSlot (1000) + EditSelectAll '/// select object ///' + Kontext "Drei_D_Effekte" + if Papierneigung.GetText <> vert Then Warnlog "- Value for surface angle is not correct" '/// check value changes ///' + Entfernung.SetText "10" '/// set distance to 10 ///' + Sleep (1) + hor = Entfernung.getText + Sleep (1) + Zuweisen.Click + if Entfernung.GetText <> hor Then Warnlog "- Value for distance is not correct; should: "+hor+"; is: "+Entfernung.GetText + WaitSlot (2000) + hTypeKeys "<TAB>" + Sleep (2) + ContextPositionAndSize + WaitSlot (2000) + Kontext + Active.SetPage TabPositionAndSize + Kontext "TabPositionAndSize" + PositionX.SetText "5,00cm" + Posi=PositionX.GetText + TabPositionAndSize.OK + WaitSlot (1000) + Kontext "Drei_D_Effekte" + + Brennweite.SetText "50" '/// set focval length to 50 ///' + Zuweisen.Click + ContextPositionAndSize '/// check change in position of the object ///' + Kontext + Active.SetPage TabPositionAndSize + Kontext "TabPositionAndSize" + If PositionX.GetText = Posi Then + printlog "- Raising value for focal length has not changed optical appearence of object, ok." + else + warnlog "Problem with focal lenght here!" + endif + TabPositionAndSize.OK + WaitSlot (1000) + Kontext "Drei_D_Effekte" + Brennweite.SetText "5" + Zuweisen.Click + WaitSlot (1000) + EditSelectAll + WaitSlot (3000) + ContextPositionAndSize + WaitSlot (1000) + Kontext + Sleep (1) + Active.SetPage TabPositionAndSize + Kontext "TabPositionAndSize" + Sleep (2) + if PositionX.GetText = Posi Then + printlog "- Lowering focus length value has not changed optical appearence of object, ok." + else + warnlog "problem with focus, check!" + endif + TabPositionAndSize.OK + Kontext "Drei_D_Effekte" + printlog "close document" + Drei_D_Effekte.Close + Call hCloseDocument + +endcase 'tiFormat3D_Effekte +'------------------------------------------------------------------ +testcase tdFormatTemplates + + qaerrorlog "Not yet ready." + goto endsub + + dim Zaehler as integer + dim i as integer + dim x as integer + dim iWaitIndex as integer + dim sStyleName as string + dim bDouble as boolean + dim sTemp(2) as string + + Call hNewDocument '/// new impress document ///' + + WaitSlot (5000) + FormatStylesCatalog '/// format-Style catalog///' + iWaitIndex = 0 + do while Vorlagenkatalog.NotExists AND iWaitIndex < 10 + sleep (1) + iWaitIndex = iWaitIndex + 1 + loop + + Kontext "Vorlagenkatalog" + Vorlagen.GetItemCount '/// get item count for templates ///' + Vorlagen.Select 2 '/// select template 2 ///' + + if Bereich.GetItemCount = Vorlagen.GetItemCount Then '/// check if area changes when selecting a template ///' + PrintLog " - Area did changed" + else + WarnLog " Number of entrees should be 2, but it is " + Bereich.GetItemCount + end if + + Zaehler = Ansicht.GetItemCount 'Vorlagenliste.GetItemCount + + for i = 1 to Zaehler + Ansicht.TypeKeys "<DOWN>" ,i + SetClipboard Ansicht.GetSelText + WaitSlot (2000) + Vorlagen.Select 1 + PrintLog " "+i+": Offset: '" + Vorlagen.GetSelText+"'" + if Bereich.GetItemCount=Vorlagen.GetItemCount Then WarnLog " Range has not changed" + Vorlagen.Select 2 + WaitSlot (1000) + Ansicht.TypeKeys "<HOME>" + WaitSlot (1000) + Ansicht.Select 1 + WaitSlot (1000) + PrintLog " : Offset: '"+Vorlagen.GetSelText + "'; Opinion: '" + Ansicht.GetSelText+"'" + Vorlagenkatalog.OK + FormatStylesCatalog + Kontext "Vorlagenkatalog" + next i + + Vorlagen.Select 2 + WaitSlot (2000) + Vorlagen.Select 1 '/// select first template ///' + if Neu.IsEnabled =False Then WarnLog " Button must be choosable, but is not" + Ansicht.Select 1 + WaitSlot (1000) + Neu.Click '/// create new template ///' + Kontext + Active.SetPage TabVerwalten + Kontext "TabVerwalten" + sStyleName = VorlagenName.GetText + printlog " created new style: '"+sStyleName +"'" + TabVerwalten.OK + PrintLog " New template created" + Kontext "Vorlagenkatalog" + WaitSlot (1000) + ' find newly created style, because they are alphabetical ordered :-( i have to check every entry :-((((( + Zaehler = Ansicht.GetItemCount + i=1 + Ansicht.TypeKeys "<home>" + bDouble = false + sTemp(1) = Ansicht.GetText + while (sTemp(1) <> sStyleName) AND (i <= Zaehler) + Ansicht.TypeKeys "<DOWN>" + inc i + if (i > Zaehler) then ' here we are only, if we didn't found 'our' template + if bDouble then + qaErrorLog "There are Double Entries in the list! #111652#" + else + warnlog " style not found :-(" ' print out the styles... + end if + Ansicht.TypeKeys "<home>" + for x=0 to zaehler + printlog " "+(x+1)+": "+Ansicht.GetText + if (Loeschen.IsEnabled) then qaErrorLog "^ is delete-able :-)" + Ansicht.TypeKeys "<DOWN>" + next x + end if + sTemp(2) = sTemp(1) + sTemp(1) = Ansicht.GetText + if (sTemp(1) = sTemp(2)) then + bDouble = true + end if + wEnd + if bDouble then + i=1 + Ansicht.TypeKeys "<end>" + sTemp(1) = Ansicht.GetText + while (sTemp(1) <> sStyleName) AND (i <= Zaehler) + printlog " "+(i)+": "+sTemp(1) + Ansicht.TypeKeys "<UP>" + inc i + if (i > Zaehler) then ' here we are only, if we didn't found 'our' template + warnlog " style not found :-(" ' print out the styles... + Ansicht.TypeKeys "<end>" + for x=0 to zaehler + printlog " "+(x+1)+": "+Ansicht.GetText + if (Loeschen.IsEnabled) then qaErrorLog "^ is delete-able :-)" + Ansicht.TypeKeys "<UP>" + next x + end if + sTemp(1) = Ansicht.GetText + wEnd + end if + if (i <= Zaehler) then printlog " found created entry for deleting it :-)" + ' Ansicht.TypeKeys "<DOWN>" ,( i + 1 ) '/// control if template list has created template included ///' + WaitSlot (2000) + try + Loeschen.Click '/// delete template ///' + WaitSlot (1000) + Kontext "Active" + if active.exists then + printlog "ac: "+active.gettext + try + Active.Yes + catch + warnlog "active-Yes doesn't exist :-( WorkInProgress TBO" + endcatch + end if + PrintLog " Delete did work" + Kontext "Vorlagenkatalog" + catch + WarnLog " Only a new created template can be deleted" + endcatch + WaitSlot (1000) + UseBindings + Ansicht.Select 1 + WaitSlot (1000) + Aendern.Click '/// modify template ///' + WaitSlot (2000) + Kontext + Active.SetPage TabSchatten + Kontext "TabSchatten" + WaitSlot (2000) + TabSchatten.Cancel + WaitSlot (2000) + Kontext "Vorlagenkatalog" + + Verwalten.Click '/// organize templates ///' + WaitSlot (2000) + Kontext "DVVerwalten" + DVVerwalten.OK + WaitSlot (1000) + try + Kontext "Vorlagenkatalog" + Vorlagenkatalog.OK + catch + Warnlog " - Style Catalog can't close unless the Template Management-dialog is closed" + endcatch + PrintLog " FormatStylesCatalog finished" '/// close template catalog ///' + WaitSlot (2000) + FormatModifyLayout '/// format modify layout ///' + WaitSlot (2000) + Kontext "Seitenvorlage" + if HintergrundseiteAustauschen.IsChecked=True Then HintergrundseiteAustauschen.UnCheck '/// uncheck switch background page ///' + Laden.Click '/// load ///' + WaitSlot (2000) + Kontext "Neu" + Neu.Cancel + Kontext "Seitenvorlage" '/// choose a page layout ///' + 'Waehlen.Click + Seitenvorlage.OK '/// close dialog ///' + + Call hCloseDocument '/// close document ///' + +endcase 'tdFormatTemplates +'------------------------------------------------------------------------------- +testcase tiFormatAufzaehlungszeichen + + Dim i as Integer + PrintLog "- Format/Numbering and Bullets" + + Call hNewDocument + Call sSelectEmptyLayout + WaitSlot (2000) + Kontext "DocumentImpress" + hTextrahmenErstellen ("Hello <Return><Return>",20,20,60,60) + for i=1 to 8 + Kontext "DocumentImpress" + gMouseClick 30,30 + EditSelectAll + WaitSlot (1000) + FormatNumberingBulletsDraw + WaitSlot (2000) + Kontext + Active.SetPage TabBullet + Kontext "TabBullet" + Auswahl.TypeKeys "<Right>", i + TabBullet.OK + Kontext "DocumentImpress" + next i + for i=1 to 8 + Kontext "DocumentImpress" + gMouseClick 30,30 + EditSelectAll + WaitSlot (1000) + FormatNumberingBulletsDraw + Kontext + Active.SetPage TabNumerierungsart + Kontext "TabNumerierungsart" + Auswahl.TypeKeys "<Right>", i + TabNumerierungsart.OK + Kontext "DocumentImpress" + next i + for i=1 to 8 + Kontext "DocumentImpress" + gMouseClick 30,30 + EditSelectAll + FormatNumberingBulletsDraw + Kontext + Active.SetPage TabNumerierungsart + Kontext "TabNumerierungsart" + Auswahl.TypeKeys "<Right>", i + TabNumerierungsart.OK + Kontext "DocumentImpress" + next i + WaitSlot (3000) + for i=1 to 29 + WaitSlot (3000) + FormatNumberingBulletsDraw + WaitSlot (3000) + Kontext + Active.SetPage TabGrafiken + Kontext "TabGrafiken" + sleep 1 + Auswahl.TypeKeys "<Right>", i + TabGrafiken.OK + Kontext "DocumentImpress" + next i + + gMouseClick 90,90 + + Call hCloseDocument + +endcase 'tiFormatAufzaehlungszeichen |