summaryrefslogtreecommitdiff
path: root/testautomation/graphics/optional/includes/global/id_004.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/graphics/optional/includes/global/id_004.inc')
-rw-r--r--testautomation/graphics/optional/includes/global/id_004.inc388
1 files changed, 388 insertions, 0 deletions
diff --git a/testautomation/graphics/optional/includes/global/id_004.inc b/testautomation/graphics/optional/includes/global/id_004.inc
new file mode 100644
index 000000000000..b1034c331ded
--- /dev/null
+++ b/testautomation/graphics/optional/includes/global/id_004.inc
@@ -0,0 +1,388 @@
+'encoding UTF-8 Do not remove or change this line!
+'**************************************************************************
+' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+'
+' Copyright 2000, 2010 Oracle and/or its affiliates.
+'
+' OpenOffice.org - a multi-platform office productivity suite
+'
+' This file is part of OpenOffice.org.
+'
+' OpenOffice.org is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Lesser General Public License version 3
+' only, as published by the Free Software Foundation.
+'
+' OpenOffice.org is distributed in the hope that it will be useful,
+' but WITHOUT ANY WARRANTY; without even the implied warranty of
+' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+' GNU Lesser General Public License version 3 for more details
+' (a copy is included in the LICENSE file that accompanied this code).
+'
+' You should have received a copy of the GNU Lesser General Public License
+' version 3 along with OpenOffice.org. If not, see
+' <http://www.openoffice.org/license.html>
+' for a copy of the LGPLv3 License.
+'
+'/************************************************************************
+'*
+'* Owner : wolfram.garten@sun.com
+'*
+'* 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
+'\**********************************************************************************
+
+
+testcase tiInsertSlide
+
+ Call hNewDocument
+ InsertSlide
+ WaitSlot (2000)
+ hTypekeys "<Pagedown>"
+ WaitSlot (2000) 'sleep 2
+ Call hCloseDocument
+endcase
+
+testcase tiInsertDuplicateSlide
+ Call hNewDocument
+ Call hRechteckErstellen ( 30, 40, 40, 50 )
+ InsertDuplicateSlide
+ WaitSlot (2000)
+ Call hCloseDocument
+endcase
+
+testcase tiInsertField
+ Call hNewDocument
+
+ InsertFieldsTimeFix
+ WaitSlot (1000)
+ printlog "OK Time Fix"
+ EditSelectAll
+ hTypekeys "<Delete>"
+ sleep 1
+
+ InsertFieldsDateFix
+ WaitSlot (1000)
+ printlog "OK Date Fix"
+ EditSelectAll
+ hTypekeys "<Delete>"
+ sleep 1
+
+ InsertFieldsTimeVariable
+ WaitSlot (1000)
+ printlog "OK Time Variabel"
+ EditSelectAll
+ hTypekeys "<Delete>"
+ sleep 1
+
+ InsertFieldsDateVariable
+ WaitSlot (1000)
+ printlog "OK Date Variabel"
+ EditSelectAll
+ hTypekeys "<Delete>"
+ sleep 1
+
+ InsertFieldsAuthorDraw
+ WaitSlot (1000)
+ printlog "OK Author"
+ EditSelectAll
+ hTypekeys "<Delete>"
+ sleep 1
+
+ InsertFieldsPageNumberDraw
+ WaitSlot (1000)
+ printlog "OK Page number"
+ EditSelectAll
+ hTypekeys "<Delete>"
+ sleep 1
+
+ InsertFieldsFileName
+ WaitSlot (1000) 'sleep 1
+ printlog "OK File name"
+ EditSelectAll
+ hTypekeys "<Delete>"
+ sleep 2
+ Call hCloseDocument
+endcase
+
+testcase tiInsertSpecialCharacter
+ Call hNewDocument
+
+ hTextrahmenErstellen ("This is a testtext",30,40,60,50)
+ sleep 2
+ InsertSpecialCharacterDraw
+ WaitSlot (2000)
+ Kontext "Sonderzeichen"
+ Call DialogTest (Sonderzeichen)
+ Sonderzeichen.Cancel
+ sleep 2
+ Call hCloseDocument
+endcase
+
+testcase tiInsertHyperlink
+ Call hNewDocument
+ InsertHyperlink
+ WaitSlot (5000)
+ Kontext "Hyperlink"
+ if Hyperlink.exists (5) then
+ 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>"
+ NameText.Typekeys "<MOD1 A><DELETE>"
+ TabHyperlinkInternet.Typekeys "<TAB>", 6
+ TabHyperlinkInternet.Typekeys "<LEFT>", 3
+ 'End of workaround...
+
+ Internet.Check
+ ZielUrl.Settext "http://mahler"
+ Kontext "Hyperlink"
+ Uebernehmen.Click
+ Hyperlink.Close
+ else
+ warnlog "Failed to open hyperlink ??!!"
+ end if
+ Call hCloseDocument
+endcase
+
+testcase tiInsertGraphic
+ Call hNewDocument
+ InsertGraphicsFromFile
+ WaitSlot (2000) '
+ try
+ Kontext "GrafikEinfuegenDlg"
+ if Link.exists then
+ Link.Check
+ else
+ Warnlog "Linking grafik doesn't work :-("
+ end if
+ if Preview.exists then
+ Preview.Check
+ else
+ Warnlog "Preview of graphic doesn't work :-("
+ end if
+ DialogTest (GrafikEinfuegenDlg)
+
+ Dateiname.settext Convertpath (gTesttoolPath + "global\input\graf_inp\stabler.tif")
+ Oeffnen.click
+ catch
+ Warnlog "Insert graphic doesn't work :-("
+ endcatch
+
+ Call hCloseDocument
+endcase
+
+testcase tiInsertObjectSound
+ goto endsub ' disabled for final, because always wrong (TZ 01/2002)
+ 'TODO: TBO: enhance!
+ Call hNewDocument
+ try
+ InsertObjectSound
+ WaitSlot (1000)
+ Kontext "OeffnenDlg"
+ ' Call Dialogtest (OeffnenDlg) ' just be sure to check one pth and one open dialog : TZ 28.11.201
+
+ OeffnenDlg.Cancel
+ catch
+ printlog "'Insert -> Object -> Sound' not available. TestDevelopmentInProgress (TDIP) ;-)"
+ endcatch
+ Call hCloseDocument
+endcase
+
+testcase tiInsertObjectVideo
+ goto endsub
+ 'TODO: TBO: enhance!
+ Call hNewDocument
+ try
+ InsertObjectVideo
+ Kontext "OeffnenDlg"
+ ' Call Dialogtest (OeffnenDlg)
+ WaitSlot (1000)
+ OeffnenDlg.Cancel
+ catch
+ printlog "'Insert -> Object -> Video' not available. (TDIP) ;-)"
+ endcatch
+ Call hCloseDocument
+endcase
+
+testcase tiInsertChart
+ Call hNewDocument
+ InsertChart
+ WaitSlot (2000)
+ Kontext "Messagebox"
+ if Messagebox.Exists then
+ Warnlog Messagebox.GetText
+ Messagebox.OK
+ sleep 1
+ end if
+ gMouseClick 1,1
+ sleep 2
+ Call hCloseDocument
+endcase
+
+testcase tiInsertObjectOLEObjects
+ hNewDocument
+ InsertObjectOLEObject
+ Kontext "OLEObjektEinfuegen"
+ ' Call Dialogtest ( OLEObjektEinfuegen )
+ ' NeuErstellen.Check ' is default value
+ Call DialogTest (OLEObjektEinfuegen, 1)
+ AusDateiErstellen.Check
+ Call DialogTest (OLEObjektEinfuegen, 2)
+ Durchsuchen.click
+ Kontext "OeffnenDlG"
+ OeffnenDLG.Cancel
+ Kontext "OLEObjektEinfuegen"
+ OLEObjektEinfuegen.Cancel
+ sleep 1
+ Call hCloseDocument
+endcase
+
+testcase tiInsertSpreadsheet
+ if gtSYSName = "Linux" then
+ printlog "Linux = wont test tiInsertSpreadsheet"
+ goto endsub
+ endif
+
+ Call hNewDocument
+ WaitSlot (2000)
+ InsertSpreadsheetDraw
+ WaitSlot (2000)
+ Kontext "Messagebox"
+ if Messagebox.Exists (5) then
+ Warnlog Messagebox.GetText
+ Messagebox.OK
+ end if
+ sleep 2
+ gMouseClick 1,1
+ sleep 1
+ hTypekeys "<Tab><Delete>"
+ sleep 2
+ Call hCloseDocument
+endcase
+
+testcase tiInsertFormula
+ Call hNewDocument
+ InsertObjectFormulaDraw
+ WaitSlot (2000)
+ Kontext "Messagebox"
+ if Messagebox.Exists then
+ Warnlog Messagebox.GetText
+ Messagebox.OK
+ sleep 1
+ end if
+ gMouseClick 1,1
+ sleep 1
+ hTypekeys "<Tab><Delete>"
+ Call hCloseDocument
+endcase
+
+testcase tiInsertFloatingFrame
+ Call hNewDocument
+ InsertFloatingFrame
+ WaitSlot (2000)
+ Kontext "TabEigenschaften"
+ Dialogtest (TabEigenschaften)
+ Oeffnen.Click
+ Kontext "OeffnenDlg"
+ sleep 1
+ OeffnenDlg.Cancel
+ Kontext "TabEigenschaften"
+ TabEigenschaften.Cancel
+ Call hCloseDocument
+endcase
+
+testcase tiInsertFile
+ Call hNewDocument
+ WaitSlot (1000)
+ InsertFileDraw
+ WaitSlot (1000)
+ Kontext "OeffnenDLG"
+ ' Call Dialogtest ( OeffnenDLG )
+ OeffnenDLG.Cancel
+ Call hCloseDocument
+endcase
+
+testcase tiInsertPlugin
+ call hNewDocument
+ InsertObjectPlugIn
+ Kontext "PluginEinfuegen"
+ if PluginEinfuegen.exists (5) then
+ call Dialogtest (PluginEinfuegen)
+ Durchsuchen.Click
+ sleep 1
+ Kontext "Messagebox"
+ if Messagebox.Exists (5) Then
+ Warnlog Messagebox.GetText
+ Messagebox.OK
+ else
+ printlog "No Messagebox :-)"
+ end if
+ Kontext "OeffnenDlG"
+ if OeffnenDlG.exists (5) then
+ sleep 1
+ OeffnenDLG.Cancel
+ end if
+ Kontext "PluginEinfuegen"
+ if PluginEinfuegen.exists (5) then PluginEinfuegen.Cancel
+ else
+ warnlog "Insert Plugin does not work :-("
+ end if
+ Call hCloseDocument
+endcase
+
+testcase tiInsertScan
+ goto endsub
+ Call hNewDocument
+ InsertScanRequest ' as long as there is no scanner available, nothing happens
+ WaitSlot (1000)
+ InsertScanSelectSource
+ WaitSlot (1000)
+ printlog "Not testable, not translatable, just callable, because of systemdialog :-("
+ Call hCloseDocument
+endcase
+
+testcase tiInsertSnappointLine
+ Call hNewDocument
+ InsertSnapPointLine
+ Kontext "NeuesFangobjekt"
+ DialogTest ( NeuesFangobjekt )
+ NeuesFangobjekt.Cancel
+ sleep 2
+ Call hCloseDocument
+endcase
+
+testcase tdInsertLayer
+ Call hNewDocument
+ WaitSlot (1000)
+ ViewLayer
+ InsertLayer
+ Kontext "EbeneEinfuegenDlg"
+ DialogTest ( EbeneEinfuegenDlg )
+ EbeneEinfuegenDlg.Cancel
+ Call hCloseDocument
+endcase
+
generated by cgit (git 2.34.1) at 2024-06-30 05:23:32 +0000