'encoding UTF-8 Do not remove or change this line! '************************************************************************* ' ' Licensed to the Apache Software Foundation (ASF) under one ' or more contributor license agreements. See the NOTICE file ' distributed with this work for additional information ' regarding copyright ownership. The ASF licenses this file ' to you under the Apache License, Version 2.0 (the ' "License"); you may not use this file except in compliance ' with the License. You may obtain a copy of the License at ' ' http://www.apache.org/licenses/LICENSE-2.0 ' ' Unless required by applicable law or agreed to in writing, ' software distributed under the License is distributed on an ' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY ' KIND, either express or implied. See the License for the ' specific language governing permissions and limitations ' under the License. ' '************************************************************************* '* '* short description : '* '\************************************************************************************** testcase tdInsertObjectOleObjects Dim Zaehler as Integer Dim i as integer Dim a as integer Dim Liste (100) as String Liste (0) = 0 printlog " open application " Call hNewDocument printlog " Insert->Object->OLE Object... " InsertObjectOLEObject Kontext "OLEObjektInsert" Zaehler = Objekttyp.GetItemCount printlog " - there are: --"+Zaehler + "-- possible items to insert" ' on lin & sol there are no additional OLE-Types, like on win ??!?!?!?!. ' first letter is usuallay 'S' from 'Star...', but on windows exists 'Further Objects' as last type. this won't be used. if (left(Objekttyp.GetItemText (Zaehler),1) <> left (Objekttyp.GetItemText (1),1)) then PrintLog " "+Zaehler +": '"+Objekttyp.GetItemText (Zaehler) + "' WONT be inserted" a = Zaehler -1 else a = Zaehler endif printlog " insert every object type, except the one, that is the last with the first letter being different from the firts' object' letter " for i = 1 to a printlog "+ select object entry in list " Objekttyp.Select i sleep 2 PrintLog " "+i+": '"+Objekttyp.GetSelText + "' will be inserted" printlog "+ leave dialog 'Insert OLE Object' with OK " OLEObjektInsert.OK sleep 2 printlog "+ leave edit mode by typing key [Escape] " hTypeKeys "" printlog "+ Edit -> Select All " EditSelectAll sleep 2 printlog "+ Delete object by typing key [Delete] " hTypeKeys "" sleep 2 printlog "+ Insert->Object->OLE Object... " InsertObjectOLEObject Kontext "OLEObjektInsert" next i printlog "+ leave dialog 'Insert OLE Object' with CANCEL " OLEObjektInsert.Cancel sleep 1 printlog " close application " Call hCloseDocument endcase 'tdInsertObjectOleObjects '------------------------------------------------------------------------------- testcase tInsertFloatingFrame dim iWaitIndex as integer if (gApplication = "IMPRESS") then ExtensionString = "odp" else ExtensionString = "odg" end if printlog " open application " Call hNewDocument printlog " Insert->Floating Frame... " InsertFloatingFrame Kontext "TabEigenschaften" printlog " set 'name' to something " FrameName.SetText "StarDivision Home" printlog " set 'Contents' to 'graphics\\input\\leer.od?' " Inhalt.SetText ConvertPath (gTesttoolPath + "graphics\required\input\leer." + ExtensionString) printlog " close dialog 'Floating Frames Properties' with OK " TabEigenschaften.OK iWaitIndex = 0 do while TabEigenschaften.Exists AND iWaitIndex < 10 sleep (1) iWaitIndex = iWaitIndex + 1 loop ' gMouseMove 10,10,90,90 printlog " the object should be selected by default now " try printlog " Format->Position And Size " ContextPositionAndSize Kontext Active.SetPage TabPositionAndSize Kontext "TabPositionAndSize" If (PositionY.GetText = "") Then Warnlog "No position for frame available ?!" endif printlog " close dialog with OK " TabPositionAndSize.OK catch Warnlog "- Insert Floating Frame did not work, there is nothing in the document?" endcatch printlog " delete object by typing Key [Delete] " hTypekeys "" sleep 2 kontext if (messagebox.exists (5)) then printlog "messageb: " + messagebox.gettext messagebox.cancel else qaErrorLog "Messagebox missing about changes in inserted document! #103343# 6.y" endif sleep 2 printlog " close application " Call hCloseDocument endcase 'tInsertFloatingFrame '------------------------------------------------------------------------------- testcase tInsertFields dim sTemp as string dim sFile as string dim i as integer if (gApplication = "IMPRESS") then ExtensionString = "odp" else ExtensionString = "odg" end if Call hNewDocument printlog " new document " printlog " open 'tools->options' and set first/last name and email adress on the page 'StarOffice->UserData' " ToolsOptions hToolsOptions ("STAROFFICE","USERDATA") VorName.SetText "Garfield" ZuName.SetText "Peanuts" EMail.SetText "recumbent@oracle.com" Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK printlog " every item from menue 'Insert->Fields' is inserted, and the keys [Strg]+[A], [Delete] are pressed " InsertFieldsDateFix printlog " (date fix) " EditSelectAll hTypeKeys "" InsertFieldsDateVariable printlog " (date variable) " EditSelectAll hTypeKeys "" InsertFieldsTimeFix printlog " (time fix)" EditSelectAll hTypeKeys "" InsertFieldsTimeVariable printlog " (time variable) " EditSelectAll hTypeKeys "" InsertFieldsPageCountDraw printlog " (page count)" EditSelectAll hTypeKeys "" InsertFieldsAuthorDraw printlog " (author) " printlog "+ additional test for author " printlog "+ it has to tbe 'Garfield Peanuts' " hTypeKeys "" EditSelectAll EditCopy sTemp = GetClipboard() if (sTemp <> "Garfield Peanuts") then Warnlog "wrong author; expected: 'Garfield Peanuts' is: '" + sTemp + "'" else Printlog "Author is: '" + sTemp + "'" endif hTypeKeys "" printlog "deleting content" EditSelectAll hTypeKeys "" printlog "+ additional test for pagenumber " for i = 1 to 2 InsertFieldsPageNumberDraw printlog "Inserting page number. It has to be '1' and should remain the same when we insert a new slide " hTypeKeys "" EditSelectAll EditCopy sTemp = GetClipboard() if (sTemp <> right(str(i),1) ) then if sTemp = 2 then warnlog "Wrong number; expected it to still be: '1' but was: '" + sTemp + "'" else printlog "Good. Number is: '" + sTemp + "'" endif else printlog "Good. Number is: '" + sTemp + "'" endif hTypeKeys "" EditSelectAll hTypeKeys "" printlog " Insert->Slide " InsertSlide sleep 2 next i printlog "And one try when we switch slides manually, deleting slides to start." EditDeleteSlide EditDeleteSlide for i = 1 to 2 InsertFieldsPageNumberDraw printlog " (page number) " printlog "+ additional test for pagenumber " printlog "+ it has to change when we insert a new slide and press pagedown " hTypeKeys "" EditSelectAll EditCopy sTemp = GetClipboard() if i > 1 then if (sTemp <> right(str(i),1) ) then warnlog "Wrong number; expected: '" + i + "' and it was: '" + sTemp + "'" else printlog "Good. We expected number: '" + i + "' and it was number: '" + sTemp + "'" endif else if (sTemp <> right(str(i),1) ) then warnlog "Wrong number; expected: '" + i + "' and it was: '" + sTemp + "'" else printlog "Good. We expected number: '" + i + "' and it was number: '" + sTemp + "'" endif endif hTypeKeys "" EditSelectAll hTypeKeys "" printlog " Insert->Slide " InsertSlide hTypeKeys "" sleep 2 next i printlog "Additional test for Page Count:" InsertFieldsPageCountDraw hTypeKeys "" EditSelectAll EditCopy sTemp = GetClipboard() if sTemp <> "3" then warnlog "Wrong page count detected!" else printlog "Page count " & sTemp & " was expected." endif hTypeKeys "" printlog "checking of page count changes if slide is inserted" InsertSlide hTypeKeys "" EditSelectAll hTypeKeys "" EditSelectAll EditCopy sTemp = GetClipboard() if sTemp <> "4" then warnlog "Wrong page count detected!" else printlog "Page count " & sTemp & " was expected and updated correctly." endif hTypeKeys "" printlog "deleting all" EditSelectAll hTypeKeys "" InsertFieldsFileName printlog " (file name) " printlog "+ additional test for filename " printlog "+ save file as " + gOfficePath + "user\\work\\fields.od ?" sFile = ConvertPath (gOfficePath + "user\work\fields" if FileExists(sFile + "." + ExtensionString) then kill (sFile + "." + ExtensionString) end if hFileSaveAsKill (sFile) sleep 5 hTypeKeys "" EditSelectAll EditCopy sTemp = GetClipboard() if (sTemp <> sFile) then Warnlog "wrong author; expected: '" + sFile + "' is: '" + sTemp + "'" else Printlog "Author is: '" + sTemp + "'" end if hTypeKeys "" EditSelectAll hTypeKeys "" printlog " close application " hCloseDocument endcase 'tInsertFields '------------------------------------------------------------------------------- testcase tdInsertSnapPoint_Line qaerrorlog "Disabled SnappPointLine test, because of unpredictable mouse moves (07/2002 TBO)" goto endsub Dim Wert1 as string Dim Wert2 as string dim sGridArea as string ' holds the old value from the options dim i as integer dim z as integer dim itemp as integer dim iState as integer dim iPosition as integer printlog " new document " Call hNewDocument printlog " the snap depends on the snap-grid in tools->options->draw->grid ...->snap range " printlog "+ so i will modify the snap range to the maximum of 50 pixel, to be safe, i hope :-) " printlog " Tools->Options " ToolsOptions printlog " select Grid tab page in application " Select Case Ucase(gApplication) case "DRAW" : hToolsOptions ("Drawing","GRID") case "IMPRESS" : hToolsOptions ("IMPRESS","GRID") end select sGridArea = fangenFangBereich.GetText printlog " set metric field 'Snap Range' to Maximum " fangenFangBereich.ToMax Kontext "ExtrasOptionenDlg" printlog " close options dialog with OK " ExtrasOptionenDlg.OK for i = 1 to 3 printlog " new document " Call hNewDocument printlog " ContextMenu: Insert SnapPointLine " InsertSnapPointLine Kontext "NeuesFangobjekt" printlog "+ check checkbox 'Type: Point' " select case i case 1: printlog "------- vertical Snap Object" Vertikal.Check case 2: printlog "------- horizontal Snap Object" Horizontal.Check case 3: printlog "------- Point Snap Object" Punkt.Check end select printlog "+ set Metric Field 'Position X' to 5 and get entry from field for further reference " if (1 AND i) then X.SetText "5" Wert1=X.GetText endif printlog "+ set Metric Field 'Position Y' to 5 and get entry from field for further reference " if (2 AND i) then Y.SetText "5" Wert2=Y.GetText else Wert2=Wert1 endif sleep 2 printlog "+ close dialog 'New Snap Object' with OK " NeuesFangobjekt.OK Printlog "SnapPoint x: '"+Wert1+"', y: '"+Wert2+"' created" sleep 2 printlog " view->Zoom... " ViewZoom Kontext "Massstab" printlog "+ check radiobutton '75%' " Vergroesserung75.Check printlog "+ close dialog 'Zoom' with OK " Massstab.OK printlog " create a rectangle " Call hRechteckErstellen (27,27,80,80) sleep 3 printlog " Moove rectangle to test snapping: " printlog "+ Format->Position and SIze... " ContextPositionAndSize Kontext printlog "+ select tabpage 'Position and Size' on dialog 'Position and Size' " Active.SetPage TabPositionAndSize Kontext "TabPositionAndSize" printlog "+ enter saved text into metricfields into 'Position X' and 'Position Y' " printlog "+ press more button on metric fields 'Position X' and 'Position Y' " if (1 AND i) then PositionX.SetText Wert1 sleep 1 PositionX.More endif if (2 AND i) then PositionY.SetText Wert2 sleep 1 PositionY.More endif printlog "+ close dialog 'Position and Size' with OK " TabPositionAndSize.OK sleep 2 printlog " move rectangle " iState = 0 for z = 1 to 100 gmousemove2 z,z try iTemp = getmousestyle catch qaerrorlog "OOo-Application was not on top all applications - please move the testtool to the back!" endcatch if ((0 = iState) and (6 = iTemp)) then iState = 1 ' found object iPosition = z printlog "found: " + z endif if ((1 = iState) and (6 <> iTemp)) then iState = 2 ' left object iPosition = (fix (z - iPosition) / 2) + iPosition printlog "found: " + z endif next z if (2 <> iState) then qaerrorlog "couldn't find object - the following action may fail..." iPosition = 60 endif gMousemove (iPosition,iPosition,iPosition + 1,iPosition + 1) sleep 4 printlog " check if object snapped back to snap point " ContextPositionAndSize Kontext if active.exists (5) then Active.SetPage TabPositionAndSize else warnlog "Couldn't switch tabpage (2), because object was deselected" hTypeKeys "" ContextPositionAndSize Kontext Active.SetPage TabPositionAndSize endif Kontext "TabPositionAndSize" if (1 AND i) then if (PositionX.GetText <> Wert1) Then WarnLog "(1) Rectangle not aligned to snap point. Soll X= "+ Wert1 + " IST= " + PositionX.GetText else PrintLog "(1) Rectangle aligned to snap point. Soll= " + Wert1 + " Ist= " + PositionX.GetText end if end if if (2 AND i) then if (PositionY.GetText <> Wert2) Then WarnLog "(1) Rectangle not aligned to snap point. Soll Y= "+ Wert2 + " IST= " + PositionY.GetText else PrintLog "(1) Rectangle aligned to snap point. Soll= " + Wert2 + " Ist= " + PositionY.GetText end if end if TabPositionAndSize.OK sleep 1 printlog " close application " Call hCloseDocument next i ToolsOptions Select Case Ucase(gApplication) case "DRAW" : hToolsOptions ("Drawing","GRID") case "IMPRESS" : hToolsOptions ("IMPRESS","GRID") end select fangenFangBereich.SetText sGridArea Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK printlog " close application " Call hCloseDocument endcase 'tdInsertSnapPoint_Line '------------------------------------------------------------------------------- testcase tdInsertFile dim sTemp as string dim sFile as string dim i as integer dim iCut as integer if (gApplication = "IMPRESS") then ExtensionString = "odp" else ExtensionString = "odg" end if printlog " open application " Call hNewDocument sleep 1 printlog " take a text file without .txt extension, to test file regcognition " printlog " Insert->File " InsertFileDraw sleep 1 Kontext "OeffnenDlg" printlog " use file: graphics\\optional\\input\\einfg.ini" sFile = ConvertPath (gTesttoolPath + "graphics\required\input\einfg.ini") Printlog "file: '" + sFile + "'" Dateiname.SetText (sFile) printlog " click button 'Insert' " Oeffnen.Click Kontext "SeitenObjekteEinfuegen" sleep 3 printlog " expected: dialog 'Insert Slides/Objects' " if (SeitenObjekteEinfuegen.Exists (5) = False) Then warnlog "1 - Dialog 'Insert Slides/Objects' does not exist :-(" kontext ' Text File Path - do it again :-( if active.exists (5) then printlog "ACTIVE: "+active.gettext active.ok ' will be wrong next time, bzw support it tooo printlog "Have to select the text filter manually, to get file loaded" InsertFileDraw sleep 1 Kontext "OeffnenDlg" Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\einfg.ini") Select Case Ucase(gApplication) case "DRAW" DateiTyp.Select 6 ' hopefully TEXT! case "IMPRESS" DateiTyp.Select 11 ' hopefully TEXT! end select printlog "selected filter: "+DateiTyp.GetSelText Oeffnen.Click kontext if active.exists (5) then printlog "ACTIVE: "+active.gettext active.ok warnlog "failed to open file? :-(" endif ' Text File Path - dialog is there :-( else Kontext "AsciiFilterOptionen" If AsciiFilterOptionen.Exists(3) then printlog "NO, not loaded (yet): we are in ASCII filter dialog :-(" AsciiFilterOptionen.OK else warnlog "Now there is a problem :-( 1" endif endif sleep 3 Kontext "SeitenObjekteEinfuegen" if SeitenObjekteEinfuegen.Exists (5) <> TRUE then warnlog "Now there is a problem :-( 2" else Printlog "InsertFile Text-dialogue came up :-) (finaly)" SeitenObjekteEinfuegen.OK sleep 3 endif ' as expected, file got regcognized and i can select the slides else ' the good way with ' little strange dialog '*SeitenObjekteEinfuegen DLG_INSERT_PAGES_OBJS 'DeleteUnusedBackgrounds sd:CheckBox:DLG_INSERT_PAGES_OBJS:CBX_CHECK_MASTERS Printlog "1: '" + InsertObjectsList.GetSelText + "'" printlog " leave dialog 'Insert Slides/Objects' with OK " SeitenObjekteEinfuegen.OK sleep 3 end if printlog " select all inserted text, by typing [Strg]+[A] " EditSelectAll try printlog " Edit->Cut " EditCut catch Warnlog "It seems there is nothing inserted :-(" endcatch sleep 1 printlog " use a presentation file to test extended capability of dialog " printlog " Insert->File " InsertFileDraw sleep 1 Kontext "OeffnenDlg" printlog " use file: graphics\required\input\diashow.odp" sFile = ConvertPath (gTesttoolPath + "graphics\required\input\diashow.odp") Printlog "file used : '" + sFile + "'" Dateiname.SetText (sFile) printlog " click button 'Insert' " Oeffnen.Click Kontext "SeitenObjekteEinfuegen" sleep 3 printlog " expected: dialog 'Insert Slides/Objects' " if (SeitenObjekteEinfuegen.Exists (5) = False) Then warnlog "unexpected error :-(" else ' the good way with ' little strange dialog '*SeitenObjekteEinfuegen DLG_INSERT_PAGES_OBJS 'DeleteUnusedBackgrounds sd:CheckBox:DLG_INSERT_PAGES_OBJS:CBX_CHECK_MASTERS InsertObjectsList.TypeKeys "" sTemp = InsertObjectsList.GetSelText if (gPlatgroup <> "unx") then ' to get rid of file://[/] on unix the last '/' belongs too the file path :-( iCut = 8 else iCut = 7 endif if (fConvertBackslashToSlash (sFile) = right(sTEmp, len(sTemp)-(iCut))) then Printlog " 0: '" + sTemp + "'" else Warnlog "different : '" + fConvertBackslashToSlash (sFile) + "' than '" + right(sTEmp, len(sTemp)-(iCut)) + "'" endif InsertObjectsList.TypeKeys "<+>" sleep 10 for i = 1 to 4 InsertObjectsList.TypeKeys "" sTemp = InsertObjectsList.GetSelText if (right(sTemp,1) <> right (str(i),1)) then warnlog " " + i + ": '" + sTemp + "' is not as expected :-(" else Printlog " " + i + ": '" + sTemp + "'" endif next i printlog " leave dialog 'Insert Slides/Objects' with OK " SeitenObjekteEinfuegen.OK sleep 3 end if kontext "Messagebox" printlog " in draw pops a mesbox up, about adopting format for objects, too [yes no cancel] -> say NO printlog " if messagebox.exists (5) then printlog "active: '" + messagebox.gettext + "'" messagebox.no endif printlog " select the inserted slide content on the last slide, by typing [End] [Strg]+[A] " hTypeKeys "" EditSelectAll try printlog " Edit->Cut " EditCut catch Warnlog "It seems there is nothing inserted :-(" endcatch sleep 1 printlog " close application " Call hCloseDocument endcase 'tdInsertFile '------------------------------------------------------------------------------- testcase tInsertGraphics dim i as integer printlog " open application " Call hNewDocument printlog " Insert->Graphics " InsertGraphicsFromFile Kontext "GrafikEinfuegenDlg" sleep 2 printlog " check number of graphics filter in dialog, should be 27 " i = Dateityp.GetItemCount if (i <> 27) Then Warnlog "- Number of filters changed. Should be = 27 / but it is = '" + i + "'" endif sleep 1 printlog " set file name to global\\input\\graf_inp\\enter.bmp" Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp") sleep 3 printlog " check checkbox 'Preview' " Preview.Check sleep 5 printlog " click button 'open' " Oeffnen.Click sleep 5 Kontext "Active" if Active.Exists Then Warnlog Active.GetText Active.OK end if try printlog " to check if something was inserted, try Edit->Cut and Edit->Paste " EditCut sleep 3 EditPaste sleep 3 catch WarnLog " Nothing was created, so EditCut does not work ?" endcatch sleep 2 printlog " close application " Call hCloseDocument 'TODO: TBO: Check if link graphic would work!" endcase 'tInsertGraphics '------------------------------------------------------------------------------- testcase tInsertObjectFormula printlog " open application " Call hNewDocument printlog " put '1+2+3+4+5+6+7+8+9=x' into the Clipboard " SetClipboard "1+2+3+4+5+6+7+8+9=x" printlog " Insert->Object->Formula " InsertObjectFormulaDraw sleep 2 printlog " check if window 'Selection' exists -> if not ERROR & open window with View->Selection " Kontext "AuswahlMath" if AuswahlMath.Exists Then printlog " - selection is visible :-) " else if gApplication = "IMPRESS" then Kontext "DocumentImpress" DocumentImpress.UseMenu hMenuSelectNr(3) hMenuItemCheck(6) else Kontext "DocumentDraw" DocumentDraw.UseMenu hMenuSelectNr(3) hMenuItemCheck(6) endif endif 'ViewSelection deactivated due to problems with Slot printlog " - selection wasn't visible :-( " Kontext "AuswahlMath" if (AuswahlMath.Exists = FALSE) Then warnlog " - selection is STILL not visible :-) " endif sleep 5 Kontext "AuswahlMath" sleep 3 if AuswahlMath.Exists Then AuswahlMath.Close printlog " put Clipboard into window 'Commands' with Edit->Paste " if gApplication = "IMPRESS" then Kontext "DocumentImpress" DocumentImpress.UseMenu hMenuSelectNr(2) hMenuSelectNr(5) else Kontext "DocumentDraw" DocumentDraw.UseMenu hMenuSelectNr(2) hMenuSelectNr(5) endif 'EditPaste deactivated due to problems with Slot PrintLog "Formel: " + GetClipboardText + " placed into document" else Warnlog " Selection-window doesn't exist" end if gMouseClick 10,10 printlog " close application " hCloseDocument endcase 'tInsertObjectFormula '------------------------------------------------------------------------------- testcase tInsertChart qaerrorlog "Not yet ready." goto endsub dim sTemp as string printlog " open application " Call hNewDocument printlog " Insert->Chart " InsertChart sleep 5 printlog " now to check we are in Chart mode, trie Insert->Title " InsertTitle Kontext "InsertTitleDialog" printlog " type something in field 'Main Title' " MainTitle.SetText "Koelner Dom Koelsch" PrintLog MainTitle.GetText printlog " Close dialog 'InsertTitleDialog' " InsertTitleDialog.OK printlog " click outside the chart, to get out of chart mode " gMouseClick 10,10 printlog " check if the InsertTitle -entry is available, if yes, then it's a bug. If not, then it's ok " try InsertTitle Kontext "InsertTitleDialog" Warnlog "Edit mode of chart was not left :-(" InsertTitleDialog.Cancel catch Printlog "Edit mode of chart left :-)" endcatch printlog " go into edit mode of chart again, by typing [Tab][Return] " hTypeKeys "" printlog " now to check we are in Chart mode, trie Insert->Title " InsertTitle Kontext "InsertTitleDialog" sTemp = MainTitle.GetText if (sTemp <> "Koelner Dom Koelsch") then Warnlog "Title changed :-( is: '" + sTemp + "'; should be: '" + "Koelner Dom Koelsch" + "'" endif InsertTitleDialog.Cancel printlog " click outside the chart, to get out of chart mode " gMouseClick 10,10 printlog " go into edit mode of chart again, by typing [Tab][Return] " hTypeKeys "" printlog " now to check we are in Chart mode, try Insert->Title " InsertTitle Kontext "InsertTitleDialog" SubtitleCheck.Check sTemp = MainTitle.GetText if (sTemp <> "Koelner Dom Koelsch") then Warnlog "Title changed :-( is: '" + sTemp + "'; should be: '" + "Koelner Dom Koelsch" + "'" endif printlog " type something in field 'Main Title' " SubtitleTitle.SetText "This is the Subtitle-Title" PrintLog SubtitleTitle.GetText printlog " Close dialog 'InsertTitleDialog' " InsertTitleDialog.OK printlog " click outside the chart, to get out of chart mode " gMouseClick 10,10 printlog " go into edit mode of chart again, by typing [Tab][Return] " hTypeKeys "" printlog " now to check we are in Chart mode, trie Insert->Title " InsertTitle Kontext "InsertTitleDialog" XaxisCheck.Check sTemp = SubtitleTitle.GetText if (sTemp <> "This is the Subtitle-Title") then Warnlog "Title changed :-( is: '" + sTemp + "'; should be: '" + "This is the Subtitle-Title" + "'" endif sTemp = MainTitle.GetText if (sTemp <> "Koelner Dom Koelsch") then Warnlog "Title changed :-( is: '" + sTemp + "'; should be: '" + "Koelner Dom Koelsch" + "'" endif printlog " type something in field 'X Axis Title' " XaxisTitle.SetText "This is the X Axis -Title" PrintLog XaxisTitle.GetText printlog " Close dialog 'InsertTitleDialog' " InsertTitleDialog.OK printlog " click outside the chart, to get out of chart mode " gMouseClick 10,10 printlog " go into edit mode of chart again, by typing [Tab][Return] " hTypeKeys "" printlog " now to check we are in Chart mode, try Insert->Title " InsertTitle Kontext "InsertTitleDialog" YaxisCheck.Check sTemp = XaxisTitle.GetText if (sTemp <> "This is the X Axis -Title") then Warnlog "Title changed :-( is: '" + sTemp + "'; should be: '" + "This is the X Axis -Title" + "'" endif sTemp = SubtitleTitle.GetText if (sTemp <> "This is the Subtitle-Title") then Warnlog "Title changed :-( is: '" + sTemp + "'; should be: '" + "This is the Subtitle-Title" + "'" endif sTemp = MainTitle.GetText if (sTemp <> "Koelner Dom Koelsch") then Warnlog "Title changed :-( is: '" + sTemp + "'; should be: '" + "Koelner Dom Koelsch" + "'" endif if ZaxisCheck.IsChecked then Warnlog "ZaxisTitle should not have been checked. Check why." else try ZaxisTitle.SetText "This is the Z Axis -Title" Warnlog "ZaxisTitle should not be writable at this moment." catch printlog "ZaxisTitle was not writable. Good." endcatch end if printlog " type something in field 'Main Title' " YaxisTitle.SetText "This is the Y Axis -Title" PrintLog YaxisTitle.GetText printlog " Close dialog 'InsertTitleDialog' " InsertTitleDialog.OK printlog " click outside the chart, to get out of chart mode " gMouseClick 10,10 hTypeKeys "" printlog " go into edit mode of chart again, by typing [Tab][Return] " hTypeKeys "" printlog " now to check we are in Chart mode, trie Insert->Title " InsertTitle Kontext "InsertTitleDialog" ' ZaxisCheck.Check sTemp = YaxisTitle.GetText if (sTemp <> "This is the Y Axis -Title") then Warnlog "Title changed :-( is: '" + sTemp + "'; should be: '" + "This is the Y Axis -Title" + "'" endif sTemp = XaxisTitle.GetText if (sTemp <> "This is the X Axis -Title") then Warnlog "Title changed :-( is: '" + sTemp + "'; should be: '" + "This is the X Axis -Title" + "'" endif sTemp = SubtitleTitle.GetText if (sTemp <> "This is the Subtitle-Title") then Warnlog "Title changed :-( is: '" + sTemp + "'; should be: '" + "This is the Subtitle-Title" + "'" endif sTemp = MainTitle.GetText if (sTemp <> "Koelner Dom Koelsch") then Warnlog "Title changed :-( is: '" + sTemp + "'; should be: '" + "Koelner Dom Koelsch" + "'" endif printlog " type something in field 'X Axis Title' " ' ZaxisTitle.SetText "This is the Z Axis -Title" ' PrintLog ZaxisTitle.GetText printlog " Close dialog 'InsertTitleDialog' " InsertTitleDialog.OK printlog " click outside the chart, to get out of chart mode " gMouseClick 10,10 printlog " go into edit mode of chart again, by typing [Tab][Return] " hTypeKeys "" printlog " now to check we are in Chart mode, trie Insert->Title " InsertTitle Kontext "InsertTitleDialog" sTemp = YaxisTitle.GetText if (sTemp <> "This is the Y Axis -Title") then Warnlog "Title changed :-( is: '" + sTemp + "'; should be: '" + "This is the Y Axis -Title" + "'" endif sTemp = XaxisTitle.GetText if (sTemp <> "This is the X Axis -Title") then Warnlog "Title changed :-( is: '" + sTemp + "'; should be: '" + "This is the X Axis -Title" + "'" endif sTemp = SubtitleTitle.GetText if (sTemp <> "This is the Subtitle-Title") then Warnlog "Title changed :-( is: '" + sTemp + "'; should be: '" + "This is the Subtitle-Title" + "'" endif sTemp = MainTitle.GetText if (sTemp <> "Koelner Dom Koelsch") then Warnlog "Title changed :-( is: '" + sTemp + "'; should be: '" + "Koelner Dom Koelsch" + "'" endif ' sTemp = ZaxisTitle.GetText ' if (sTemp <> "This is the Z Axis -Title") then ' Warnlog "Title changed :-( is: '" + sTemp + "'; should be: '" + "This is the Z Axis -Title" + "'" ' endif printlog " Close dialog 'InsertTitleDialog' " InsertTitleDialog.OK printlog " click outside the chart, to get out of chart mode " gMouseClick 10,10 printlog " close application " Call hCloseDocument endcase 'tInsertChart '---------------------------------------------------------------------------------------------------------------------------------------------------------- testcase tInsertObjectPlugIn dim i as integer dim x as integer dim bAble as boolean dim sTemp as string printlog " open application " call hNewDocument sleep 2 printlog " Insert->Object->Plug-in" InsertObjectPlugIn sleep 2 Kontext "PlugInEinfuegen" printlog " click on button 'Browse...' " Durchsuchen.Click sleep 2 kontext "OeffnenDLG" sleep 1 bAble = FALSE x = Dateityp.GetItemCount Printlog "-------TBO: print all entries from File-Type-List: " for i = 1 to x sTemp = Dateityp.GetItemText (i) printlog "- - - - -: '"+ sTemp +"'" if (inStr(sTemp, ".mov") > 0) then bAble = True Printlog "^^^^^^^^^^^^^^^^^^ contains a Apple QT plugin .mov :-) " endif next i Printlog "---------------------------------------------------" OeffnenDLG.cancel Kontext "PlugInEinfuegen" ' :-) printlog " if .mov files are regcognized, insert the folowing one; else cancel dialog!" if bAble then printlog "+ set field 'File/URL' to 'graphics\\input\\sample.mov' " DateiUrl.SetText ConvertPath (gTesttoolPath + "graphics\required\input\sample.mov") printlog "+ press button 'OK' to close dialog " PlugInEinfuegen.OK sleep 2 Kontext "Active" if Active.Exists then printlog Active.GetText Active.OK sleep 1 end if printlog "+ click outside the inserted frame " gMouseClick 30,30 try printlog "+ check with 'Edit->Select all' and key [delete] if something was inserted " EditSelectAll hTypeKeys "" catch Warnlog " Nothing inserted which could be deleted" endcatch else qaErrorLog "Not able to test the insertion of a plugin, because no ability to play .mov files is available :-(" PlugInEinfuegen.Cancel endif printlog " close application " hCloseDocument endcase 'tInsertObjectPlugIn '------------------------------------------------------------------------------- testcase tInsertSpecialCharacter qaerrorlog "tInsertSpecialCharacter outcommented due to unpredictable results" goto endsub Dim i as integer Dim j as integer Dim Zaehler as integer Dim sSchriftType Dim Zufall as Integer dim sTemp as string printlog " open application " Call hNewDocument printlog " insert a text frame with content " hTextRahmenErstellen ("Who will read this?",30,30,80,80) printlog " Insert->Special Character... " InsertSpecialCharacterDraw Kontext "Sonderzeichen" printlog " select a character for every 'font' " j = Schrift.GetItemCount For i = 1 to j Schrift.Select j Zufall = Int((12*Rnd)+1) printlog "+ to insert a character, randomize the type keys [Cursor Right] and press [Space] " SchriftListe.TypeKeys "" , Zufall SchriftListe.TypeKeys "" next i sleep 1 printlog " press button [Delete] " Loeschen.Click '----------------------------------- > NOTHING is inserted !! sleep 1 try printlog " tries to close dialog 'Special Characters' with OK " Sonderzeichen.OK Warnlog "Dialogue need not to be closeable, because nothing is selected :-(" catch printlog " close dialog with 'Cancel' " Sonderzeichen.Cancel endcatch sleep 1 printlog " select something with keys [Shift]+[Home] " hTypeKeys "" printlog " Edit->Copy " EditCopy sTemp = GetClipboardText printlog " Compare the selected text with the one typed at the beginning - it has to be the same " ' if (sTemp <> "Who will read this?") then ' Warnlog "Hmm, there is something wrong! But what? :-( " ' printlog "is: '" + sTemp + "'; should: '" + "Who will read this?" + "'" ' endif sleep 2 hTypeKeys "" ' printlog " select a character for every 'font' " ' j = Schrift.GetItemCount For i = 1 to j printlog " Insert->Special Character... " InsertSpecialCharacterDraw Kontext "Sonderzeichen" sleep 1 try Schrift.Select i catch qaErrorLog("Sometimes this Timeout happens: " + i ) endcatch Printlog "(" + i + "/" + j + "): '" + Schrift.GetSelText + "'" sleep 1 Zufall = Int((256*Rnd)+1) printlog "+ to insert a character, randomize the type keys [Cursor Right] and press [Space] " SchriftListe.TypeKeys "" SchriftListe.TypeKeys "" , Zufall SchriftListe.TypeKeys "" sleep 1 try printlog " trie to close dialog 'Special Characters' with OK " Sonderzeichen.OK catch printlog " close dialog with 'Cancel' " Warnlog "Dialog was not closeable with OK :-(" Sonderzeichen.Cancel endcatch sleep 2 next i printlog " select the inserted chars with keys with keys [Strg]+[End] + j-times [shift]+[right] " hTypeKeys "" hTypeKeys ("", j) printlog " Edit->Copy " EditCut printlog " now select the rest with keys [Shift]+[Home] " hTypeKeys "" printlog " Edit->Copy " EditCopy sTemp = GetClipboardText printlog " Compare the selected text with the one typed at the beginning - it has to be the same " if (sTemp <> "Who will read this?") then qaerrorlog "is: '" + sTemp + "'; should: '" + "Who will read this?" + "'" endif sleep 2 hTypeKeys "" printlog " Insert->Special Character... " InsertSpecialCharacterDraw Kontext "Sonderzeichen" sleep 3 ' printlog " select a character for every 'font' " ' j = Schrift.GetItemCount For i = 1 to j Zufall = Int((256*Rnd)+1) Schrift.Select i sleep 5 Printlog "(" + i + "/" + j + "): '" + Schrift.GetSelText + "'; " + Zufall sleep 3 printlog "+ to insert a character, randomize the type keys [Cursor Right] and press [Space] " SchriftListe.TypeKeys "" , Zufall SchriftListe.TypeKeys "" sleep 3 next i sleep 1 try printlog " tries to close dialog 'Special Characters' with OK " Sonderzeichen.OK catch printlog " close dialog with 'Cancel' " Warnlog "Dialogue was not closeable with OK :-(" Sonderzeichen.Cancel endcatch sleep 2 printlog " close application " Call hCloseDocument endcase 'tInsertSpecialCharacter '------------------------------------------------------------------------------- testcase tInsertSpreadsheet printlog " open application " Call hNewDocument sleep 3 printlog " Insert->Spreadsheet " InsertSpreadsheetDraw sleep 2 try printlog " Spreadsheet is in edit mode per default " printlog " Format->Sheet->Rename " FormatSheetRename Kontext "TabelleUmbenennen" printlog " close dialog 'Rename Sheet' with OK " TabelleUmbenennen.OK catch WarnLog "Spreadsheet is not in editmode :-( " endcatch printlog " delete spreadsheet OLE by typing [DELETE] (first click outside the spreadsheet!) " gMouseClick (1,1) hTypeKeys "" sleep 3 hTypeKeys "" sleep 2 printlog " close application " hCloseDocument endcase 'tInsertSpreadsheet '-------------------------------------------------------------------------------