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.inc370
1 files changed, 0 insertions, 370 deletions
diff --git a/testautomation/graphics/optional/includes/global/id_004.inc b/testautomation/graphics/optional/includes/global/id_004.inc
deleted file mode 100644
index 2e1aa6db3cd1..000000000000
--- a/testautomation/graphics/optional/includes/global/id_004.inc
+++ /dev/null
@@ -1,370 +0,0 @@
-'encoding UTF-8 Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org. If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/************************************************************************
-'*
-'* Owner : wolfram.garten@oracle.com
-'*
-'* short description :
-'*
-'\**********************************************************************************
-
-
-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
-
- Kontext "Sonderzeichen"
- 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
-
- kontext "HyperlinkDialog"
- if ( HyperlinkDialog.exists( 2 ) ) then
-
- Kontext "TabHyperlinkInternet"
- Auswahl.MouseDown 50, 5
- Auswahl.MouseUp 50, 5
- Auswahl.typekeys "<PAGEDOWN><PAGEUP>"
- Auswahl.typekeys "<TAB>"
-
- '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://www.nowhere.com" )
- Uebernehmen.Click()
-
- kontext "HyperlinkDialog"
- HyperlinkDialog.Close()
-
- else
- warnlog "Failed to open <HyperlinkDialog>"
- 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
-
- Kontext "Messagebox"
- if ( Messagebox.Exists( 2 ) ) then
- Warnlog Messagebox.GetText
- hCloseDialog( Messagebox, "OK" )
- 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
- hCloseDialog( Messagebox, "ok" )
- end if
- gMouseClick 1,1
- sleep 1
- hTypekeys "<Tab><Delete>"
- sleep 2
- Call hCloseDocument
-endcase
-
-testcase tiInsertFormula
- Call hNewDocument
- InsertObjectFormulaDraw
-
- Kontext "Messagebox"
- if ( Messagebox.Exists( 2 ) ) then
- Warnlog Messagebox.GetText
- hCloseDialog( Messagebox, "ok" )
- 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"
- hCloseDialog( 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
- 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-07-13 14:05:58 +0000