diff options
Diffstat (limited to 'testautomation/graphics/optional/includes/global/g_insert.inc')
| -rwxr-xr-x | testautomation/graphics/optional/includes/global/g_insert.inc | 1814 |
1 files changed, 907 insertions, 907 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_insert.inc b/testautomation/graphics/optional/includes/global/g_insert.inc index 984ec7251d4a..7e8a02386bc9 100755 --- a/testautomation/graphics/optional/includes/global/g_insert.inc +++ b/testautomation/graphics/optional/includes/global/g_insert.inc @@ -1,7 +1,7 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* +'* '* Copyright 2008 by Sun Microsystems, Inc. '* '* OpenOffice.org - a multi-platform office productivity suite @@ -53,117 +53,117 @@ testcase tdInsertObjectOleObjects QaErrorLog "#79794# - tdInsertObjectOleObjects outcommented due to bug." goto endsub - 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 "<escape>" - printlog "+ Edit -> Select All " - EditSelectAll - sleep 2 - printlog "+ Delete object by typing key [Delete] " - hTypeKeys "<DELETE>" - 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 - + 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 "<escape>" + printlog "+ Edit -> Select All " + EditSelectAll + sleep 2 + printlog "+ Delete object by typing key [Delete] " + hTypeKeys "<DELETE>" + 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 + dim iWaitIndex as integer - if (gApplication = "IMPRESS") then + 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 + 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 + 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 "<DELETE>" - 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 - + ' 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 "<DELETE>" + 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 '------------------------------------------------------------------------------- @@ -172,14 +172,14 @@ testcase tInsertFields dim sTemp as string dim sFile as string dim i as integer - - if (gApplication = "IMPRESS") then + + if (gApplication = "IMPRESS") then ExtensionString = "odp" else ExtensionString = "odg" end if - - Call hNewDocument + + Call hNewDocument printlog " new document " printlog " open 'tools->options' and set first/last name and email adress on the page 'StarOffice->UserData' " @@ -190,24 +190,24 @@ testcase tInsertFields EMail.SetText "recumbent@sun.com" Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - + printlog " every item from menue 'Insert->Fields' is inserted, and the keys [Strg]+[A], [Delete] are pressed " - InsertFieldsDateFix + InsertFieldsDateFix printlog " (date fix) " EditSelectAll hTypeKeys "<DELETE>" - - InsertFieldsDateVariable + + InsertFieldsDateVariable printlog " (date variable) " EditSelectAll hTypeKeys "<DELETE>" - - InsertFieldsTimeFix + + InsertFieldsTimeFix printlog " (time fix)" EditSelectAll hTypeKeys "<DELETE>" - - InsertFieldsTimeVariable + + InsertFieldsTimeVariable printlog " (time variable) " EditSelectAll hTypeKeys "<DELETE>" @@ -217,7 +217,7 @@ testcase tInsertFields EditSelectAll hTypeKeys "<DELETE>" - InsertFieldsAuthorDraw + InsertFieldsAuthorDraw printlog " (author) " printlog "+ additional test for author " printlog "+ it has to tbe 'Garfield Peanuts' " @@ -226,9 +226,9 @@ testcase tInsertFields EditCopy sTemp = GetClipboard() if (sTemp <> "Garfield Peanuts") then - Warnlog "wrong author; expected: 'Garfield Peanuts' is: '" + sTemp + "'" + Warnlog "wrong author; expected: 'Garfield Peanuts' is: '" + sTemp + "'" else - Printlog "Author is: '" + sTemp + "'" + Printlog "Author is: '" + sTemp + "'" endif hTypeKeys "<Escape><Escape>" printlog "deleting content" @@ -237,7 +237,7 @@ testcase tInsertFields printlog "+ additional test for pagenumber " for i = 1 to 2 - InsertFieldsPageNumberDraw + InsertFieldsPageNumberDraw printlog "Inserting page number. It has to be '1' and should remain the same when we insert a new slide " hTypeKeys "<F2>" EditSelectAll @@ -258,41 +258,41 @@ testcase tInsertFields printlog " Insert->Slide " InsertSlide sleep 2 - next i + 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 "<F2>" - 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 "<Escape><Escape>" - EditSelectAll - hTypeKeys "<DELETE>" - printlog " Insert->Slide " - InsertSlide - hTypeKeys "<PAGEDOWN>" - sleep 2 + 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 "<F2>" + 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 "<Escape><Escape>" + EditSelectAll + hTypeKeys "<DELETE>" + printlog " Insert->Slide " + InsertSlide + hTypeKeys "<PAGEDOWN>" + sleep 2 next i printlog "Additional test for Page Count:" InsertFieldsPageCountDraw @@ -320,13 +320,13 @@ testcase tInsertFields else printlog "Page count " & sTemp & " was expected and updated correctly." endif - + hTypeKeys "<Escape><Escape>" printlog "deleting all" EditSelectAll hTypeKeys "<DELETE>" - - InsertFieldsFileName + + InsertFieldsFileName printlog " (file name) " printlog "+ additional test for filename " printlog "+ save file as " + gOfficePath + "user\\work\\fields.od ?" @@ -335,12 +335,12 @@ testcase tInsertFields kill (sFile + "." + ExtensionString) end if - hFileSaveAsKill (sFile) - sleep 5 - hTypeKeys "<F2>" - EditSelectAll - EditCopy - sTemp = GetClipboard() + hFileSaveAsKill (sFile) + sleep 5 + hTypeKeys "<F2>" + EditSelectAll + EditCopy + sTemp = GetClipboard() if (sTemp <> sFile) then Warnlog "wrong author; expected: '" + sFile + "' is: '" + sTemp + "'" @@ -348,13 +348,13 @@ testcase tInsertFields Printlog "Author is: '" + sTemp + "'" end if - hTypeKeys "<Escape><Escape>" - EditSelectAll - hTypeKeys "<DELETE>" + hTypeKeys "<Escape><Escape>" + EditSelectAll + hTypeKeys "<DELETE>" + + printlog " close application " + hCloseDocument - printlog " close application " - hCloseDocument - endcase 'tInsertFields '------------------------------------------------------------------------------- @@ -378,17 +378,17 @@ testcase tdInsertSnapPoint_Line 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 + 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 " @@ -396,41 +396,41 @@ testcase tdInsertSnapPoint_Line 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 + 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 + 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) @@ -438,25 +438,25 @@ testcase tdInsertSnapPoint_Line 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 + 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 @@ -482,36 +482,36 @@ testcase tdInsertSnapPoint_Line qaerrorlog "couldn't find object - the following action may fail..." iPosition = 60 endif - gMousemove (iPosition,iPosition,iPosition + 1,iPosition + 1) + 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 + if active.exists (5) then + Active.SetPage TabPositionAndSize + else + warnlog "Couldn't switch tabpage (2), because object was deselected" + hTypeKeys "<TAB>" + 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 - warnlog "Couldn't switch tabpage (2), because object was deselected" - hTypeKeys "<TAB>" - 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 + PrintLog "(1) Rectangle aligned to snap point. Soll= " + Wert1 + " Ist= " + PositionX.GetText 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 + 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 - TabPositionAndSize.OK + end if + TabPositionAndSize.OK sleep 1 printlog " close application " @@ -519,270 +519,270 @@ testcase tdInsertSnapPoint_Line 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 + 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 + dim sTemp as string + dim sFile as string + dim i as integer + dim iCut as integer - if (gApplication = "IMPRESS") then + if (gApplication = "IMPRESS") then ExtensionString = "odp" else ExtensionString = "odg" end if - printlog " open application " - Call hNewDocument - sleep 1 - printlog "<b> take a text file without .txt extension, to test file regcognition </b>" - 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 :-(" + printlog " open application " + Call hNewDocument + sleep 1 + printlog "<b> take a text file without .txt extension, to test file regcognition </b>" + 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 - ' 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 + printlog "ACTIVE: "+active.gettext + active.ok + warnlog "failed to open file? :-(" endif - sleep 3 - Kontext "SeitenObjekteEinfuegen" - if SeitenObjekteEinfuegen.Exists (5) <> TRUE then - warnlog "Now there is a problem :-( 2" + ' 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 - Printlog "InsertFile Text-dialogue came up :-) (finaly)" - SeitenObjekteEinfuegen.OK - sleep 3 + warnlog "Now there is a problem :-( 1" 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 " + 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 - 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 "<b> use a presentation file to test extended capability of dialog </b>" - 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 "<up>" + 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 "<b> use a presentation file to test extended capability of dialog </b>" + 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 "<up>" + 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 "<down>" 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 + "'" + if (right(sTemp,1) <> right (str(i),1)) then + warnlog " " + i + ": '" + sTemp + "' is not as expected :-(" else - Warnlog "different : '" + fConvertBackslashToSlash (sFile) + "' than '" + right(sTEmp, len(sTemp)-(iCut)) + "'" + Printlog " " + i + ": '" + sTemp + "'" endif - InsertObjectsList.TypeKeys "<+>" - sleep 10 - for i = 1 to 4 - InsertObjectsList.TypeKeys "<down>" - 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 "<end>" - EditSelectAll - try - printlog " Edit->Cut " - EditCut - catch - Warnlog "It seems there is nothing inserted :-(" - endcatch - sleep 1 - - printlog " close application " - Call hCloseDocument - + 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 "<end>" + 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!" - + 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 tInsertObjectApplet - printlog " open application " - Call hNewDocument - printlog " Insert->Object->Applet " - sleep 1 - InsertObjectApplet - Kontext "AppletEinfuegen" - printlog " press button 'Search' " - sleep 2 - Suchen.Click - Kontext "OeffnenDlg" - printlog " set filename to 'global\\input\\java\\rocket.class' " - Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\java\Clock.class") - printlog " close dialog 'Open' by pressing 'Open' " - sleep 2 - Oeffnen.Click - Kontext "AppletEinfuegen" - printlog " close dialog 'Insert Applet' by pressing OK " - sleep 2 - AppletEinfuegen.OK - sleep 3 - printlog " deselect object by typing key [Escape] " - hTypeKeys ("<Escape>") - sleep 3 - try - printlog " Edit->Select All " - EditSelectAll - printlog " delete object by typing key [Delete] " - sleep 3 - hTypeKeys "<DELETE>" - catch - Warnlog "Delete did not work, maybe some error while creating the object before" - endcatch - sleep 1 -' gMouseclick 70,70 - printlog " close application " - Call hCloseDocument - + printlog " open application " + Call hNewDocument + printlog " Insert->Object->Applet " + sleep 1 + InsertObjectApplet + Kontext "AppletEinfuegen" + printlog " press button 'Search' " + sleep 2 + Suchen.Click + Kontext "OeffnenDlg" + printlog " set filename to 'global\\input\\java\\rocket.class' " + Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\java\Clock.class") + printlog " close dialog 'Open' by pressing 'Open' " + sleep 2 + Oeffnen.Click + Kontext "AppletEinfuegen" + printlog " close dialog 'Insert Applet' by pressing OK " + sleep 2 + AppletEinfuegen.OK + sleep 3 + printlog " deselect object by typing key [Escape] " + hTypeKeys ("<Escape>") + sleep 3 + try + printlog " Edit->Select All " + EditSelectAll + printlog " delete object by typing key [Delete] " + sleep 3 + hTypeKeys "<DELETE>" + catch + Warnlog "Delete did not work, maybe some error while creating the object before" + endcatch + sleep 1 + ' gMouseclick 70,70 + printlog " close application " + Call hCloseDocument + endcase 'tInsertObjectApplet '------------------------------------------------------------------------------- @@ -811,40 +811,40 @@ testcase tInsertObjectFormula 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 + '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 - 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) + 'EditPaste deactivated due to problems with Slot + + PrintLog "Formel: " + GetClipboardText + " placed into document" 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 - + Warnlog " Selection-window doesn't exist" + end if + gMouseClick 10,10 + printlog " close application " + hCloseDocument + endcase 'tInsertObjectFormula '------------------------------------------------------------------------------- @@ -852,198 +852,198 @@ 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 "<TAB><RETURN>" - 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 "<TAB><RETURN>" - 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 "<TAB><RETURN>" - 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 "<TAB><RETURN>" - 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 "<TAB>" - - - printlog " go into edit mode of chart again, by typing [Tab][Return] " - hTypeKeys "<TAB><RETURN>" - 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 "<TAB><RETURN>" - 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 + 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 "<TAB><RETURN>" + 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 "<TAB><RETURN>" + 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 "<TAB><RETURN>" + 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 "<TAB><RETURN>" + 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 "<TAB>" + + + printlog " go into edit mode of chart again, by typing [Tab][Return] " + hTypeKeys "<TAB><RETURN>" + 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 "<TAB><RETURN>" + 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 @@ -1052,72 +1052,72 @@ testcase tInsertChart 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 + 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 + 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 "<DELETE>" - catch + 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 - + 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 '------------------------------------------------------------------------------- @@ -1125,163 +1125,163 @@ 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 "<b> Insert->Special Character... </b>" - 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 "<RIGHT>" , Zufall - SchriftListe.TypeKeys "<SPACE>" - 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 "<SHIFT HOME>" - 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 "<end>" - -' printlog "<b> select a character for every 'font' </b>" -' 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 "<home>" - SchriftListe.TypeKeys "<RIGHT>" , Zufall - SchriftListe.TypeKeys "<SPACE>" - 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 "<Mod1 end>" - hTypeKeys ("<shift left>", j) - printlog " Edit->Copy " - EditCut - printlog " now select the rest with keys [Shift]+[Home] " - hTypeKeys "<SHIFT HOME>" - 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 "<end>" - - printlog "<b> Insert->Special Character... </b>" - 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 "<RIGHT>" , Zufall - SchriftListe.TypeKeys "<SPACE>" - 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 - + 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 "<b> Insert->Special Character... </b>" + 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 "<RIGHT>" , Zufall + SchriftListe.TypeKeys "<SPACE>" + 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 "<SHIFT HOME>" + 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 "<end>" + + ' printlog "<b> select a character for every 'font' </b>" + ' 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 "<home>" + SchriftListe.TypeKeys "<RIGHT>" , Zufall + SchriftListe.TypeKeys "<SPACE>" + 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 "<Mod1 end>" + hTypeKeys ("<shift left>", j) + printlog " Edit->Copy " + EditCut + printlog " now select the rest with keys [Shift]+[Home] " + hTypeKeys "<SHIFT HOME>" + 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 "<end>" + + printlog "<b> Insert->Special Character... </b>" + 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 "<RIGHT>" , Zufall + SchriftListe.TypeKeys "<SPACE>" + 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 "<tab>" - sleep 3 - hTypeKeys "<DELETE>" - sleep 2 - printlog " close application " - hCloseDocument - + 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 "<tab>" + sleep 3 + hTypeKeys "<DELETE>" + sleep 2 + printlog " close application " + hCloseDocument + endcase 'tInsertSpreadsheet '------------------------------------------------------------------------------- |