diff options
Diffstat (limited to 'testautomation/graphics/optional/includes/global/id_004.inc')
-rw-r--r-- | testautomation/graphics/optional/includes/global/id_004.inc | 74 |
1 files changed, 28 insertions, 46 deletions
diff --git a/testautomation/graphics/optional/includes/global/id_004.inc b/testautomation/graphics/optional/includes/global/id_004.inc index b1034c331ded..ff1317ce5d01 100644 --- a/testautomation/graphics/optional/includes/global/id_004.inc +++ b/testautomation/graphics/optional/includes/global/id_004.inc @@ -29,25 +29,6 @@ '* '* short description : '* -'*********************************************************************************** -' #1 tiInsertSlide -' #1 tiInsertDuplicateSlide -' #1 tiInsertField -' #1 tiInsertSpecialCharacter -' #1 tiInsertHyperlink -' #1 tiInsertGraphic -' #1 tiInsertObjectSound -' #1 tiInsertObjectVideo -' #1 tiInsertChart -' #1 tiInsertObjectOLEObjects -' #1 tiInsertSpreadsheet -' #1 tiInsertFormula -' #1 tiInsertFloatingFrame -' #1 tiInsertFile -' #1 tiInsertPlugin -' #1 tiInsertScan -' #1 tiInsertSnappointLine -' #1 tdInsertLayer '\********************************************************************************** @@ -129,26 +110,30 @@ testcase tiInsertSpecialCharacter hTextrahmenErstellen ("This is a testtext",30,40,60,50) sleep 2 InsertSpecialCharacterDraw - WaitSlot (2000) + Kontext "Sonderzeichen" - Call DialogTest (Sonderzeichen) - Sonderzeichen.Cancel - sleep 2 + if ( Sonderzeichen.exists( 2 ) ) then + Call DialogTest (Sonderzeichen) + hCloseDialog( Sonderzeichen, "Cancel" ) + else + warnlog( "<Special Characters> dialog not open" ) + endif Call hCloseDocument endcase testcase tiInsertHyperlink + Call hNewDocument InsertHyperlink - WaitSlot (5000) - Kontext "Hyperlink" - if Hyperlink.exists (5) then + + kontext "HyperlinkDialog" + if ( HyperlinkDialog.exists( 2 ) ) then + + Kontext "TabHyperlinkInternet" Auswahl.MouseDown 50, 5 Auswahl.MouseUp 50, 5 Auswahl.typekeys "<PAGEDOWN><PAGEUP>" Auswahl.typekeys "<TAB>" - sleep 3 - Kontext "TabHyperlinkInternet" 'Workaround to get rid of a Focusing-problem... NameText.Typekeys "alal <RETURN>" @@ -158,12 +143,14 @@ testcase tiInsertHyperlink 'End of workaround... Internet.Check - ZielUrl.Settext "http://mahler" - Kontext "Hyperlink" - Uebernehmen.Click - Hyperlink.Close + ZielUrl.SetText( "http://www.nowhere.com" ) + Uebernehmen.Click() + + kontext "HyperlinkDialog" + HyperlinkDialog.Close() + else - warnlog "Failed to open hyperlink ??!!" + warnlog "Failed to open <HyperlinkDialog>" end if Call hCloseDocument endcase @@ -231,12 +218,11 @@ endcase testcase tiInsertChart Call hNewDocument InsertChart - WaitSlot (2000) + Kontext "Messagebox" - if Messagebox.Exists then + if ( Messagebox.Exists( 2 ) ) then Warnlog Messagebox.GetText - Messagebox.OK - sleep 1 + hCloseDialog( Messagebox, "OK" ) end if gMouseClick 1,1 sleep 2 @@ -274,9 +260,8 @@ testcase tiInsertSpreadsheet Kontext "Messagebox" if Messagebox.Exists (5) then Warnlog Messagebox.GetText - Messagebox.OK + hCloseDialog( Messagebox, "ok" ) end if - sleep 2 gMouseClick 1,1 sleep 1 hTypekeys "<Tab><Delete>" @@ -287,12 +272,11 @@ endcase testcase tiInsertFormula Call hNewDocument InsertObjectFormulaDraw - WaitSlot (2000) + Kontext "Messagebox" - if Messagebox.Exists then + if ( Messagebox.Exists( 2 ) ) then Warnlog Messagebox.GetText - Messagebox.OK - sleep 1 + hCloseDialog( Messagebox, "ok" ) end if gMouseClick 1,1 sleep 1 @@ -308,8 +292,7 @@ testcase tiInsertFloatingFrame Dialogtest (TabEigenschaften) Oeffnen.Click Kontext "OeffnenDlg" - sleep 1 - OeffnenDlg.Cancel + hCloseDialog( OeffnenDlg, "Cancel" ) Kontext "TabEigenschaften" TabEigenschaften.Cancel Call hCloseDocument @@ -343,7 +326,6 @@ testcase tiInsertPlugin end if Kontext "OeffnenDlG" if OeffnenDlG.exists (5) then - sleep 1 OeffnenDLG.Cancel end if Kontext "PluginEinfuegen" |