summaryrefslogtreecommitdiff
path: root/testautomation/graphics/optional/includes
diff options
context:
space:
mode:
authorIvo Hinkelmann <ihi@openoffice.org>2009-06-17 11:36:51 +0000
committerIvo Hinkelmann <ihi@openoffice.org>2009-06-17 11:36:51 +0000
commit6ed1958b83babfda36cef3512198dfeba98d5894 (patch)
treeefae0b1cbeac4b284d6a280f2ddedf3667916d5b /testautomation/graphics/optional/includes
parent2574c2381e36c7feac8ed6cfa83bc5bceae509ab (diff)
CWS-TOOLING: integrate CWS automation006
2009-05-26 13:25:30 +0200 jsk r272296 : #i102088# - final cosmetic touch 2009-05-25 14:40:06 +0200 jsk r272244 : #i102202# - quite a chunk. 2009-05-25 05:29:48 +0200 jsk r272215 : #i102202# - Cleanup, code refactored, indention and headers fixed 2009-05-25 04:55:58 +0200 jsk r272214 : #i102088# - update .bas-files to load call GetOLEDefaultNames from external file 2009-05-20 12:55:18 +0200 jsk r272116 : #i102088# Replace old OLE stuff, get it from API, localized
Diffstat (limited to 'testautomation/graphics/optional/includes')
-rwxr-xr-xtestautomation/graphics/optional/includes/global/export_graphic.inc934
-rwxr-xr-xtestautomation/graphics/optional/includes/global/export_graphic_2.inc1766
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_accessability.inc497
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_area.inc641
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_arrangealign.inc385
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_autocorrection.inc387
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_character.inc734
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_clipboard.inc453
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_clipexport.inc600
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_clipexport2.inc87
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_clipexport3.inc1235
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_convertto.inc421
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_crossfading.inc366
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_customshapes.inc1407
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_demoguide.inc185
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_dimensions.inc136
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_edit.inc333
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_export_html.inc1171
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_find_replace.inc306
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_format.inc1789
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_group.inc115
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_imagemap.inc167
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_insert.inc1814
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_line.inc597
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_load_save.inc1000
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_mediaplayer.inc343
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_navigator.inc260
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_ole.inc157
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_paneview.inc952
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_paragraph.inc244
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_print.inc148
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_savepictureas.inc1231
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_shaddow.inc882
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_slidelayer.inc113
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_spellcheck.inc204
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_stylist.inc1251
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_tables.inc146
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_toolbars.inc573
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_tools.inc431
-rwxr-xr-xtestautomation/graphics/optional/includes/global/g_zoom.inc165
-rwxr-xr-xtestautomation/graphics/optional/includes/global/gallery.inc1081
-rwxr-xr-xtestautomation/graphics/optional/includes/global/gallery2.inc162
-rwxr-xr-xtestautomation/graphics/optional/includes/global/id_001.inc1289
-rwxr-xr-xtestautomation/graphics/optional/includes/global/id_002.inc364
-rwxr-xr-xtestautomation/graphics/optional/includes/global/id_003.inc125
-rwxr-xr-xtestautomation/graphics/optional/includes/global/id_004.inc316
-rwxr-xr-xtestautomation/graphics/optional/includes/global/id_005.inc975
-rwxr-xr-xtestautomation/graphics/optional/includes/global/id_006.inc417
-rwxr-xr-xtestautomation/graphics/optional/includes/global/id_007.inc340
-rwxr-xr-xtestautomation/graphics/optional/includes/global/id_008.inc41
-rwxr-xr-xtestautomation/graphics/optional/includes/global/id_009.inc360
-rwxr-xr-xtestautomation/graphics/optional/includes/global/id_011.inc1705
52 files changed, 14347 insertions, 17454 deletions
diff --git a/testautomation/graphics/optional/includes/global/export_graphic.inc b/testautomation/graphics/optional/includes/global/export_graphic.inc
index ad1bdb1fdb2c..ef6baa9030cf 100755
--- a/testautomation/graphics/optional/includes/global/export_graphic.inc
+++ b/testautomation/graphics/optional/includes/global/export_graphic.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
@@ -50,7 +50,7 @@
'*
'\******************************************************************************
testcase tEPS
-
+
dim x as integer
dim i as integer
dim sFilter as string
@@ -59,388 +59,388 @@ testcase tEPS
sFilter = "EPS - Encapsulated PostScript (.eps)"
sExt = ".eps"
- printlog "open the document"
- hFileOpen ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString)
-
- if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
- Kontext "EPSOptionen"
- if EPSOptionen.Exists (2) then
- printlog "check if all properties have the right count, and depend on each other"
- ' they do not affect annything, i can check (TBO)
- ' VorschauTIF.Check
- ' InterchangeEPSI.Check
- Level1.Check
+ printlog "open the document"
+ hFileOpen ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString)
+
+ if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
+ Kontext "EPSOptionen"
+ if EPSOptionen.Exists (2) then
+ printlog "check if all properties have the right count, and depend on each other"
+ ' they do not affect annything, i can check (TBO)
+ ' VorschauTIF.Check
+ ' InterchangeEPSI.Check
+ Level1.Check
if Farbe.IsEnabled then warnlog " :-("
- if Graustufen.IsEnabled then warnlog " :-("
- if LZWKodierung.IsEnabled then warnlog " :-("
- if Keine.IsEnabled then warnlog " :-("
- ' if (TextEinstellungen.IsEnabled <> TRUE) then warnlog " :-("
- Level2.Check
- if (Farbe.IsEnabled <> TRUE) then warnlog " :-("
- if (Graustufen.IsEnabled <> TRUE) then warnlog " :-("
- if (LZWKodierung.IsEnabled <> TRUE) then warnlog " :-("
- if (Keine.IsEnabled <> TRUE) then warnlog " :-("
- ' if (TextEinstellungen.IsEnabled <> TRUE) then warnlog " :-("
- printlog "'Color Resolution' listbox contains eight items"
- ' x = TextEinstellungen.GetItemCount
- ' if x <> 2 then warnlog "'TextEinstellungen' Count is wrong; should:2, is:" + x
- ' for i = 1 to x
- ' TextEinstellungen.Select i
- ' sleep 1
- ' Printlog " - " + i + ": '" +TextEinstellungen.GetSelText + "'"
- ' next i
- printlog "leave dialog with cancel -> there has to be no file created!"
- EPSOptionen.Cancel
- sleep 5
- if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
- Printlog "Ok :-)"
- else
- warnlog "Dialog was canceled, but file got saved, too :-( - i35177"
- endif
- else
- Warnlog "No '" + sFilter + "'-Option-Dialog!"
- i=5
- end if
- sleep 2
- Kontext "Active"
- if Active.Exists(2) then
- Warnlog "'" + sFilter + "' has a problem"
- Active.OK
- end if
- end if
- printlog " now save it realy and load the file afterwards"
- if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
- Kontext "EPSOptionen"
- if EPSOptionen.Exists (2) then
- printlog "TextEinstellungen.select 2"
- EPSOptionen.OK
- sleep 5
- endif
- if ( dir(OutputGrafikTBO+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hNewDocument()
- sleep 5
- Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
- endif
-
- call hCloseDocument
+ if Graustufen.IsEnabled then warnlog " :-("
+ if LZWKodierung.IsEnabled then warnlog " :-("
+ if Keine.IsEnabled then warnlog " :-("
+ ' if (TextEinstellungen.IsEnabled <> TRUE) then warnlog " :-("
+ Level2.Check
+ if (Farbe.IsEnabled <> TRUE) then warnlog " :-("
+ if (Graustufen.IsEnabled <> TRUE) then warnlog " :-("
+ if (LZWKodierung.IsEnabled <> TRUE) then warnlog " :-("
+ if (Keine.IsEnabled <> TRUE) then warnlog " :-("
+ ' if (TextEinstellungen.IsEnabled <> TRUE) then warnlog " :-("
+ printlog "'Color Resolution' listbox contains eight items"
+ ' x = TextEinstellungen.GetItemCount
+ ' if x <> 2 then warnlog "'TextEinstellungen' Count is wrong; should:2, is:" + x
+ ' for i = 1 to x
+ ' TextEinstellungen.Select i
+ ' sleep 1
+ ' Printlog " - " + i + ": '" +TextEinstellungen.GetSelText + "'"
+ ' next i
+ printlog "leave dialog with cancel -> there has to be no file created!"
+ EPSOptionen.Cancel
+ sleep 5
+ if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
+ Printlog "Ok :-)"
+ else
+ warnlog "Dialog was canceled, but file got saved, too :-( - i35177"
+ endif
+ else
+ Warnlog "No '" + sFilter + "'-Option-Dialog!"
+ i=5
+ end if
+ sleep 2
+ Kontext "Active"
+ if Active.Exists(2) then
+ Warnlog "'" + sFilter + "' has a problem"
+ Active.OK
+ end if
+ end if
+ printlog " now save it realy and load the file afterwards"
+ if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
+ Kontext "EPSOptionen"
+ if EPSOptionen.Exists (2) then
+ printlog "TextEinstellungen.select 2"
+ EPSOptionen.OK
+ sleep 5
+ endif
+ if ( dir(OutputGrafikTBO+sExt) <> "") then
+ Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hNewDocument()
+ sleep 5
+ Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
+ endif
+
+ call hCloseDocument
endcase 'tEPS
'-------------------------------------------------------------------------
testcase tPCT
- dim x as integer
- dim i as integer
- dim iWaitIndex as integer
- dim sFilter as string
- dim sExt as string
- dim bTemp as boolean
- dim sX as string
- dim sY as string
- dim sx1 as string
- dim sX2 as string
- dim sY2 as string
- dim sDocument as string
-
- sFilter = "PCT - Mac Pict (.pct;.pict)"
- sExt = ".pct"
-
- printlog "open the document"
- sDocument = ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString)
- hFileOpen sDocument
-
- if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
- Kontext "PICTOptionen"
- if PICTOptionen.Exists (2) then
- printlog "check if all properties have the right count, and depend on each other"
- Original.Check
+ dim x as integer
+ dim i as integer
+ dim iWaitIndex as integer
+ dim sFilter as string
+ dim sExt as string
+ dim bTemp as boolean
+ dim sX as string
+ dim sY as string
+ dim sx1 as string
+ dim sX2 as string
+ dim sY2 as string
+ dim sDocument as string
+
+ sFilter = "PCT - Mac Pict (.pct;.pict)"
+ sExt = ".pct"
+
+ printlog "open the document"
+ sDocument = ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString)
+ hFileOpen sDocument
+
+ if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
+ Kontext "PICTOptionen"
+ if PICTOptionen.Exists (2) then
+ printlog "check if all properties have the right count, and depend on each other"
+ Original.Check
if Breite.IsEnabled then warnlog " :-("
- if Hoehe.IsEnabled then warnlog " :-("
- Groesse.Check
- Breite.More
- Hoehe.Less
- printlog "leave dialog with cancel -> there has to be no file created!"
- PICTOptionen.Cancel
- sleep 5
- if ( dir(OutputGrafikTBO+sExt) = "") then
- Printlog "Ok :-)"
- else
- warnlog "Dialog was canceled, but file got saved, too :-( - i35177"
- endif
- else
- Warnlog "No '" + sFilter + "' -Dialog!"
- i=5
- end if
- sleep 2
- Kontext "Active"
- if Active.Exists(2) then
- Warnlog " '" + sFilter + "' has a problem"
- Active.OK
- end if
- end if
- printlog " now save it realy and load the file afterwards"
- if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
- Kontext "PICTOptionen"
- if PICTOptionen.Exists (2) then
- Groesse.Check
- Breite.Less
- Hoehe.More
- PICTOptionen.OK
- iWaitIndex = 0
- do while PICTOptionen.Exists AND iWaitIndex < 30
- sleep (1)
- iWaitIndex = iWaitIndex + 1
- loop
- endif
- i=0
- while ((NOT fileExists(OutputGrafikTBO+sExt)) AND (i<36))
- inc(i)
- sleep(5)
- wend
- if ( dir(OutputGrafikTBO+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hNewDocument()
- sleep 5
- Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
- endif
- hCloseDocument ()
- printlog " now save a SELECTION in ORIGINAL SIZE and load the file afterwards"
- hFileOpen (sDocument)
- sleep (10)
-
- printlog "check if the document is writable"
- if fIsDocumentWritable = false then
- printlog "make the document writable and check if it's succesfull"
- if fMakeDocumentWritable = false then
- warnlog "The document can't be make writeable. Test stopped."
- goto endsub
- endif
- endif
+ if Hoehe.IsEnabled then warnlog " :-("
+ Groesse.Check
+ Breite.More
+ Hoehe.Less
+ printlog "leave dialog with cancel -> there has to be no file created!"
+ PICTOptionen.Cancel
+ sleep 5
+ if ( dir(OutputGrafikTBO+sExt) = "") then
+ Printlog "Ok :-)"
+ else
+ warnlog "Dialog was canceled, but file got saved, too :-( - i35177"
+ endif
+ else
+ Warnlog "No '" + sFilter + "' -Dialog!"
+ i=5
+ end if
+ sleep 2
+ Kontext "Active"
+ if Active.Exists(2) then
+ Warnlog " '" + sFilter + "' has a problem"
+ Active.OK
+ end if
+ end if
+ printlog " now save it realy and load the file afterwards"
+ if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
+ Kontext "PICTOptionen"
+ if PICTOptionen.Exists (2) then
+ Groesse.Check
+ Breite.Less
+ Hoehe.More
+ PICTOptionen.OK
+ iWaitIndex = 0
+ do while PICTOptionen.Exists AND iWaitIndex < 30
+ sleep (1)
+ iWaitIndex = iWaitIndex + 1
+ loop
+ endif
+ i=0
+ while ((NOT fileExists(OutputGrafikTBO+sExt)) AND (i<36))
+ inc(i)
+ sleep(5)
+ wend
+ if ( dir(OutputGrafikTBO+sExt) <> "") then
+ Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hNewDocument()
+ sleep 5
+ Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
+ endif
+ hCloseDocument ()
+ printlog " now save a SELECTION in ORIGINAL SIZE and load the file afterwards"
+ hFileOpen (sDocument)
+ sleep (10)
+
+ printlog "check if the document is writable"
+ if fIsDocumentWritable = false then
+ printlog "make the document writable and check if it's succesfull"
+ if fMakeDocumentWritable = false then
+ warnlog "The document can't be make writeable. Test stopped."
+ goto endsub
+ endif
+ endif
- hTypeKeys ("<escape><tab>")
- fGetSizeXY sx1, sY, TRUE
- if hCallExport (OutputGrafikTBO + "1" , sFilter, TRUE ) = TRUE then
- Kontext "PICTOptionen"
- if PICTOptionen.Exists (2) then
- Original.Check
- PICTOptionen.OK
- iWaitIndex = 0
- do while PICTOptionen.Exists AND iWaitIndex < 30
- sleep (1)
- iWaitIndex = iWaitIndex + 1
- loop
- endif
- i=0
- while ((NOT fileExists(OutputGrafikTBO+ "1"+sExt)) AND (i<36))
- inc(i)
- sleep(5)
- wend
- if ( dir(OutputGrafikTBO + "1"+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "1"+sExt + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hNewDocument()
- sleep 5
- Call hGrafikEinfuegen ( OutputGrafikTBO + "1"+sExt )
- bTemp = FALSE
- fGetSizeXY sx1, sY, bTemp
- if (bTemp = FALSE) then
- warnlog "Selected original size NOT OK :-("
- endif
- endif
- hCloseDocument ()
- printlog " now CREATE a rectangle, select it, save it in SIZE and load the file afterwards"
- hNewDocument()
- hRechteckErstellen ( 10, 10, 30, 40 )
- if hCallExport (OutputGrafikTBO + "2" , sFilter, TRUE ) = TRUE then
- Kontext "PICTOptionen"
- if PICTOptionen.Exists (2) then
- Groesse.Check
- Breite.SetText "9"
- Hoehe.SetText "9"
- Groesse.Check
- printlog "Check 'Size' one more time to make the change go through"
- sx1 = Breite.GetText
- sY = Hoehe.GetText
- PICTOptionen.OK
- iWaitIndex = 0
- do while PICTOptionen.Exists AND iWaitIndex < 30
- sleep (1)
- iWaitIndex = iWaitIndex + 1
- loop
- endif
- i=0
- while ((NOT fileExists(OutputGrafikTBO+ "2"+sExt)) AND (i<36))
- inc(i)
- sleep(5)
- wend
- if ( dir(OutputGrafikTBO + "2"+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "2"+sExt + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hFileOpen (OutputGrafikTBO + "2"+sExt)
- kontext "DocumentDraw"
- DocumentDraw.TypeKeys ("<escape><tab>")
- ContextOriginalSize
- bTemp = FALSE
- fGetSizeXY sx1, sY, bTemp
- if (bTemp = FALSE) then
- warnlog "Selected original size NOT OK :-("
- endif
- endif
- if hCallExport (OutputGrafikTBO + "3" , sFilter, TRUE ) = TRUE then
- Kontext "PICTOptionen"
- if PICTOptionen.Exists (2) then
- Groesse.Check
- sX2 = Breite.GetText
- if (LiberalMeasurement(sx1, sX2)) <> TRUE then
- if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
- Printlog "Width was ok. Expected: " + sx1 + "' was: '" + sX2 + "'"
- else
- warnLog "Width is different expected: '" + sx1 + "' is: '" + sX2 + "'"
- endif
+ hTypeKeys ("<escape><tab>")
+ fGetSizeXY sx1, sY, TRUE
+ if hCallExport (OutputGrafikTBO + "1" , sFilter, TRUE ) = TRUE then
+ Kontext "PICTOptionen"
+ if PICTOptionen.Exists (2) then
+ Original.Check
+ PICTOptionen.OK
+ iWaitIndex = 0
+ do while PICTOptionen.Exists AND iWaitIndex < 30
+ sleep (1)
+ iWaitIndex = iWaitIndex + 1
+ loop
+ endif
+ i=0
+ while ((NOT fileExists(OutputGrafikTBO+ "1"+sExt)) AND (i<36))
+ inc(i)
+ sleep(5)
+ wend
+ if ( dir(OutputGrafikTBO + "1"+sExt) <> "") then
+ Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "1"+sExt + "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hNewDocument()
+ sleep 5
+ Call hGrafikEinfuegen ( OutputGrafikTBO + "1"+sExt )
+ bTemp = FALSE
+ fGetSizeXY sx1, sY, bTemp
+ if (bTemp = FALSE) then
+ warnlog "Selected original size NOT OK :-("
+ endif
+ endif
+ hCloseDocument ()
+ printlog " now CREATE a rectangle, select it, save it in SIZE and load the file afterwards"
+ hNewDocument()
+ hRechteckErstellen ( 10, 10, 30, 40 )
+ if hCallExport (OutputGrafikTBO + "2" , sFilter, TRUE ) = TRUE then
+ Kontext "PICTOptionen"
+ if PICTOptionen.Exists (2) then
+ Groesse.Check
+ Breite.SetText "9"
+ Hoehe.SetText "9"
+ Groesse.Check
+ printlog "Check 'Size' one more time to make the change go through"
+ sx1 = Breite.GetText
+ sY = Hoehe.GetText
+ PICTOptionen.OK
+ iWaitIndex = 0
+ do while PICTOptionen.Exists AND iWaitIndex < 30
+ sleep (1)
+ iWaitIndex = iWaitIndex + 1
+ loop
+ endif
+ i=0
+ while ((NOT fileExists(OutputGrafikTBO+ "2"+sExt)) AND (i<36))
+ inc(i)
+ sleep(5)
+ wend
+ if ( dir(OutputGrafikTBO + "2"+sExt) <> "") then
+ Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "2"+sExt + "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hFileOpen (OutputGrafikTBO + "2"+sExt)
+ kontext "DocumentDraw"
+ DocumentDraw.TypeKeys ("<escape><tab>")
+ ContextOriginalSize
+ bTemp = FALSE
+ fGetSizeXY sx1, sY, bTemp
+ if (bTemp = FALSE) then
+ warnlog "Selected original size NOT OK :-("
+ endif
endif
- sY2 = Hoehe.GetText
- if (LiberalMeasurement(sY, sY2)) <> TRUE then
- if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
- Printlog "Height was ok. Expected: " + sY + "' was: '" + sY2 + "'"
- else
- warnLog "Height is different expected: '" + sY + "' is: '" + sY2 + "'"
- endif
+ if hCallExport (OutputGrafikTBO + "3" , sFilter, TRUE ) = TRUE then
+ Kontext "PICTOptionen"
+ if PICTOptionen.Exists (2) then
+ Groesse.Check
+ sX2 = Breite.GetText
+ if (LiberalMeasurement(sx1, sX2)) <> TRUE then
+ if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
+ Printlog "Width was ok. Expected: " + sx1 + "' was: '" + sX2 + "'"
+ else
+ warnLog "Width is different expected: '" + sx1 + "' is: '" + sX2 + "'"
+ endif
+ endif
+ sY2 = Hoehe.GetText
+ if (LiberalMeasurement(sY, sY2)) <> TRUE then
+ if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
+ Printlog "Height was ok. Expected: " + sY + "' was: '" + sY2 + "'"
+ else
+ warnLog "Height is different expected: '" + sY + "' is: '" + sY2 + "'"
+ endif
+ endif
+ PICTOptionen.Cancel
+ sleep 5
+ endif
endif
- PICTOptionen.Cancel
- sleep 5
- endif
- endif
- call hCloseDocument
+ call hCloseDocument
endcase 'tPCT
'-------------------------------------------------------------------------------
testcase tPBM
- dim x as integer
- dim i as integer
- dim sFilter as string
- dim sExt as string
+ dim x as integer
+ dim i as integer
+ dim sFilter as string
+ dim sExt as string
- sFilter = "PBM - Portable Bitmap (.pbm)"
- sExt = ".pbm"
+ sFilter = "PBM - Portable Bitmap (.pbm)"
+ sExt = ".pbm"
- printlog "Open the document"
- hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString ))
+ printlog "Open the document"
+ hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString ))
- printlog "Save it"
- if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
- Kontext "PBMOptionen"
- if PBMOptionen.Exists (2) then
+ printlog "Save it"
+ if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
+ Kontext "PBMOptionen"
+ if PBMOptionen.Exists (2) then
Ascii.Check
- PBMOptionen.OK
- sleep 5
- endif
- if ( dir(OutputGrafikTBO+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hNewDocument()
- sleep 5
- Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
- endif
-
- call hCloseDocument
+ PBMOptionen.OK
+ sleep 5
+ endif
+ if ( dir(OutputGrafikTBO+sExt) <> "") then
+ Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hNewDocument()
+ sleep 5
+ Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
+ endif
+
+ call hCloseDocument
endcase 'tPBM
'-------------------------------------------------------------------------------
testcase tPGM
- dim x as integer
- dim i as integer
- dim sFilter as string
- dim sExt as string
+ dim x as integer
+ dim i as integer
+ dim sFilter as string
+ dim sExt as string
- sFilter = "PGM - Portable Graymap (.pgm)"
- sExt = ".pgm"
+ sFilter = "PGM - Portable Graymap (.pgm)"
+ sExt = ".pgm"
- printlog "Open the document"
- hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString ))
+ printlog "Open the document"
+ hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString ))
- printlog "Save it"
- if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
- Kontext "PGMOptionen"
- if PGMOptionen.Exists (2) then
+ printlog "Save it"
+ if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
+ Kontext "PGMOptionen"
+ if PGMOptionen.Exists (2) then
Ascii.Check
- PGMOptionen.OK
- sleep 5
- endif
- if ( dir(OutputGrafikTBO+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hNewDocument()
- sleep 5
- Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
- endif
-
- call hCloseDocument
+ PGMOptionen.OK
+ sleep 5
+ endif
+ if ( dir(OutputGrafikTBO+sExt) <> "") then
+ Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hNewDocument()
+ sleep 5
+ Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
+ endif
+
+ call hCloseDocument
endcase 'tPGM
'-------------------------------------------------------------------------------
testcase tPPM
- dim x as integer
- dim i as integer
- dim sFilter as string
- dim sExt as string
+ dim x as integer
+ dim i as integer
+ dim sFilter as string
+ dim sExt as string
- sFilter = "PPM - Portable Pixelmap (.ppm)"
- sExt = ".ppm"
+ sFilter = "PPM - Portable Pixelmap (.ppm)"
+ sExt = ".ppm"
- printlog "Open the document"
- hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString ))
+ printlog "Open the document"
+ hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString ))
- printlog "Save it"
- if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
- Kontext "PPMOptionen"
- if PPMOptionen.Exists (2) then
+ printlog "Save it"
+ if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
+ Kontext "PPMOptionen"
+ if PPMOptionen.Exists (2) then
Ascii.Check
- PPMOptionen.OK
- sleep 5
- endif
- if ( dir(OutputGrafikTBO+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hNewDocument()
- sleep 5
- Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
- endif
-
- call hCloseDocument
+ PPMOptionen.OK
+ sleep 5
+ endif
+ if ( dir(OutputGrafikTBO+sExt) <> "") then
+ Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hNewDocument()
+ sleep 5
+ Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
+ endif
+
+ call hCloseDocument
endcase 'tPPM
'------------------------------------------------------------------------------
@@ -450,28 +450,28 @@ testcase tRAS
dim i as integer
dim sFilter as string
dim sExt as string
-
+
sFilter = "RAS - Sun Raster Image (.ras)"
sExt = ".ras"
-
- printlog "Open the document"
- hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString ))
-
- printlog "Save it"
- if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
- if ( dir(OutputGrafikTBO+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
- hCloseDocument ()
- sleep 5
- hNewDocument()
- sleep 5
- Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
- else
- warnlog "File didn't get saved :-("
- endif
- endif
-
- call hCloseDocument
+
+ printlog "Open the document"
+ hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString ))
+
+ printlog "Save it"
+ if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
+ if ( dir(OutputGrafikTBO+sExt) <> "") then
+ Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
+ hCloseDocument ()
+ sleep 5
+ hNewDocument()
+ sleep 5
+ Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ endif
+
+ call hCloseDocument
endcase 'tRAS
'------------------------------------------------------------------------------
@@ -481,28 +481,28 @@ testcase tTIFF
dim i as integer
dim sFilter as string
dim sExt as string
-
+
sFilter = "TIFF - Tagged Image File Format (.tif;.tiff)"
sExt = ".tif"
-
- printlog "Open the document"
- hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString ))
-
- printlog "Save it"
- if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
- if ( dir(OutputGrafikTBO+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
- hCloseDocument ()
- sleep 5
- hNewDocument()
- sleep 5
- Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
- else
- warnlog "File didn't get saved :-("
- endif
- endif
-
- call hCloseDocument
+
+ printlog "Open the document"
+ hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString ))
+
+ printlog "Save it"
+ if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
+ if ( dir(OutputGrafikTBO+sExt) <> "") then
+ Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
+ hCloseDocument ()
+ sleep 5
+ hNewDocument()
+ sleep 5
+ Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ endif
+
+ call hCloseDocument
endcase 'tTIFF
'------------------------------------------------------------------------------
@@ -512,104 +512,104 @@ testcase tXPM
dim i as integer
dim sFilter as string
dim sExt as string
-
+
sFilter = "XPM - X PixMap (.xpm)"
sExt = ".xpm"
-
- printlog "Open the document"
- hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString ))
-
- printlog "save it"
- if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
- if ( dir(OutputGrafikTBO+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
- hCloseDocument ()
- sleep 5
- hNewDocument()
- sleep 5
- Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
- else
- warnlog "File didn't get saved :-("
- endif
- endif
-
- call hCloseDocument
+
+ printlog "Open the document"
+ hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString ))
+
+ printlog "save it"
+ if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
+ if ( dir(OutputGrafikTBO+sExt) <> "") then
+ Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
+ hCloseDocument ()
+ sleep 5
+ hNewDocument()
+ sleep 5
+ Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ endif
+
+ call hCloseDocument
endcase 'tXPM
'-------------------------------------------------------------------------------
testcase tGIF
- dim x as integer
- dim i as integer
- dim sFilter as string
- dim sExt as string
+ dim x as integer
+ dim i as integer
+ dim sFilter as string
+ dim sExt as string
- sFilter = "GIF - Graphics Interchange Format (.gif)"
- sExt = ".gif"
+ sFilter = "GIF - Graphics Interchange Format (.gif)"
+ sExt = ".gif"
- printlog "open the document"
- hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString)
+ printlog "open the document"
+ hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString)
- printlog "save it"
- if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
- Kontext "GIFOptionen"
- if GIFOptionen.Exists (2) then
+ printlog "save it"
+ if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
+ Kontext "GIFOptionen"
+ if GIFOptionen.Exists (2) then
Interlace.Uncheck
TransparentSpeichern.UnCheck
- GIFOptionen.OK
- sleep 5
- endif
- if ( dir(OutputGrafikTBO+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hNewDocument()
- sleep 5
- Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
- endif
-
- call hCloseDocument
+ GIFOptionen.OK
+ sleep 5
+ endif
+ if ( dir(OutputGrafikTBO+sExt) <> "") then
+ Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hNewDocument()
+ sleep 5
+ Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
+ endif
+
+ call hCloseDocument
endcase 'tGIF
'-------------------------------------------------------------------------------
testcase tJPEG
- dim x as integer
- dim i as integer
- dim sFilter as string
- dim sExt as string
-
- sFilter = "JPEG - Joint Photographic Experts Group (.jpg;.jpeg;.jfif;.jif;.jpe)"
- sExt = ".jpg"
-
- printlog "Open the document"
- hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString)
-
- printlog " save it "
- if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
- Kontext "JpegOptionen"
- if JpegOptionen.Exists (2) then
- Echtfarben.Check
- Qualitaet.ToMin
- JpegOptionen.OK
- sleep 5
- endif
- if ( dir(OutputGrafikTBO+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hNewDocument()
- sleep 5
- Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
- endif
-
- call hCloseDocument
+ dim x as integer
+ dim i as integer
+ dim sFilter as string
+ dim sExt as string
+
+ sFilter = "JPEG - Joint Photographic Experts Group (.jpg;.jpeg;.jfif;.jif;.jpe)"
+ sExt = ".jpg"
+
+ printlog "Open the document"
+ hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString)
+
+ printlog " save it "
+ if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
+ Kontext "JpegOptionen"
+ if JpegOptionen.Exists (2) then
+ Echtfarben.Check
+ Qualitaet.ToMin
+ JpegOptionen.OK
+ sleep 5
+ endif
+ if ( dir(OutputGrafikTBO+sExt) <> "") then
+ Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hNewDocument()
+ sleep 5
+ Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
+ endif
+
+ call hCloseDocument
endcase 'tJPEG
'-------------------------------------------------------------------------
diff --git a/testautomation/graphics/optional/includes/global/export_graphic_2.inc b/testautomation/graphics/optional/includes/global/export_graphic_2.inc
index 50909fcaff62..f8fa012473cf 100755
--- a/testautomation/graphics/optional/includes/global/export_graphic_2.inc
+++ b/testautomation/graphics/optional/includes/global/export_graphic_2.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
@@ -35,138 +35,122 @@
'*
'* short description : Graphics Export B-tests. (the usual suspects)
'*
-'************************************************************************
-'Neu
-' #1 tPNG
-' #1 tSVM
-' #1 tPDF
-' #1 tPDF_Creator
-' #1 tSVG
-' #1 tBMP
-' #1 tEMF
-' #1 tMET
-' #1 tSWF
-' #1 tWMF
-'*
'\******************************************************************************
testcase tPNG
- dim x as integer
- dim i as integer
- dim iWaitIndex as integer
- dim sFilter as string
- dim sExt as string
+ dim x as integer
+ dim i as integer
+ dim iWaitIndex as integer
+ dim sFilter as string
+ dim sExt as string
- sFilter = "PNG - Portable Network Graphic (.png)"
- sExt = ".png"
+ sFilter = "PNG - Portable Network Graphic (.png)"
+ sExt = ".png"
- '/// open the document
- hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString ))
+ hFileOpen( gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString )
- '/// save it ///'
- if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
- Kontext "PNGOptionen"
- if PNGOptionen.Exists (2) then
+ if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
+ Kontext "PNGOptionen"
+ if PNGOptionen.Exists (2) then
Kompression.ToMax
Interlaced.UnCheck
- PNGOptionen.OK
- iWaitIndex = 0
- do while PNGOptionen.Exists AND iWaitIndex < 30
- sleep (1)
- iWaitIndex = iWaitIndex + 1
- loop
- endif
- if ( dir(OutputGrafikTBO+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hNewDocument()
- sleep 5
- Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
- endif
-
- call hCloseDocument
+ PNGOptionen.OK
+ iWaitIndex = 0
+ do while PNGOptionen.Exists AND iWaitIndex < 30
+ sleep (1)
+ iWaitIndex = iWaitIndex + 1
+ loop
+ endif
+ if ( dir(OutputGrafikTBO+sExt) <> "") then
+ Printlog "Ok :-) Saved as: '" & OutputGrafikTBO+sExt & "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hNewDocument()
+ sleep 5
+ Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
+ endif
+
+ call hCloseDocument
endcase
'-------------------------------------------------------------------------------
testcase tSVM
- dim x as integer
- dim i as integer
- dim sFilter as string
- dim sExt as string
- dim bTemp as boolean
- dim sX as string
- dim sY as string
- dim sx1 as string
- dim sX2 as string
- dim sY2 as string
- dim sDocument as string
-
- sFilter = "SVM - StarView Metafile (.svm)"
- sExt = ".svm"
-
- '/// open the document
- sDocument = ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport." + ExtensionString)
- hFileOpen sDocument
-
- if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
- Kontext "SVMOptionen"
- if SVMOptionen.Exists (2) then
- '/// check if all properties have the right count, and depend on each other ///'
- Original.Check
- if Breite.IsEnabled then warnlog " :-("
- if Hoehe.IsEnabled then warnlog " :-("
- Groesse.Check
+ dim x as integer
+ dim i as integer
+ dim sFilter as string
+ dim sExt as string
+ dim bTemp as boolean
+ dim sX as string
+ dim sY as string
+ dim sx1 as string
+ dim sX2 as string
+ dim sY2 as string
+ dim sDocument as string
+
+ sFilter = "SVM - StarView Metafile (.svm)"
+ sExt = ".svm"
+
+ sDocument = ConvertPath ( gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString)
+ hFileOpen sDocument
+
+ if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
+ Kontext "SVMOptionen"
+ if SVMOptionen.Exists (2) then
+ Original.Check
+ if Breite.IsEnabled then
+ warnlog " :-("
+ endif
+ if Hoehe.IsEnabled then
+ warnlog " :-("
+ endif
+ Groesse.Check
Breite.More
Hoehe.Less
- '/// leave dialog with cancel -> there has to be no file created! ///'
- SVMOptionen.Cancel
- sleep 5
- if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
- Printlog "ok :-)"
- else
- warnlog "dialog was canceled, but file got saved, too :-( - i35177"
- endif
- else
- Warnlog "No '" + sFilter + "' -Dialog!"
- i=5
- end if
- sleep 2
- Kontext "Active"
- if Active.Exists(2) then
- Warnlog " '" + sFilter + "' has a problem"
- Active.OK
- end if
- end if
- Printlog "'/// now save it realy and load the file afterwards ///'"
- if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
- Kontext "SVMOptionen"
- if SVMOptionen.Exists (2) then
- Groesse.Check
+ SVMOptionen.Cancel
+ sleep 5
+ if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
+ Printlog "ok :-)"
+ else
+ warnlog "dialog was canceled, but file got saved, too :-( - i35177"
+ endif
+ else
+ Warnlog "No '" & sFilter & "' -Dialog!"
+ i=5
+ end if
+ sleep 2
+ Kontext "Active"
+ if Active.Exists(2) then
+ Warnlog " '" & sFilter & "' has a problem"
+ Active.OK
+ end if
+ end if
+ if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
+ Kontext "SVMOptionen"
+ if SVMOptionen.Exists (2) then
+ Groesse.Check
Breite.Less
Hoehe.More
- SVMOptionen.OK
- sleep 5
- endif
- if ( dir(OutputGrafikTBO+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hNewDocument()
- sleep 5
- Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
- endif
- hCloseDocument ()
- Printlog "'/// now save a SELECTION in ORIGINAL SIZE and load the file afterwards ///'"
- hFileOpen (sDocument)
- sleep (10)
+ SVMOptionen.OK
+ sleep 5
+ endif
+ if ( dir(OutputGrafikTBO+sExt) <> "") then
+ Printlog "Ok :-) Saved as: '" & OutputGrafikTBO+sExt & "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hNewDocument()
+ sleep 5
+ Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
+ endif
+ hCloseDocument ()
+ hFileOpen (sDocument)
+ sleep (10)
' check if the document is writable
if fIsDocumentWritable = false then
@@ -177,96 +161,95 @@ testcase tSVM
endif
endif
- hTypeKeys ("<escape><tab>")
- fGetSizeXY sx1, sY, TRUE
- if hCallExport (OutputGrafikTBO + "1" , sFilter, TRUE ) = TRUE then
- Kontext "SVMOptionen"
- if SVMOptionen.Exists (2) then
- Original.Check
- SVMOptionen.OK
- sleep 5
- endif
- if ( dir(OutputGrafikTBO + "1"+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "1"+sExt + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hNewDocument()
- sleep 5
- Call hGrafikEinfuegen ( OutputGrafikTBO + "1"+sExt )
- bTemp = FALSE
- fGetSizeXY sx1, sY, bTemp
- if (bTemp = FALSE) then
- warnlog "Selected original size NOT OK :-("
- endif
- endif
- hCloseDocument ()
- Printlog "'/// now CREATE a rectangle, select it, save it in SIZE and load the file afterwards ///'"
- hNewDocument()
- hRechteckErstellen ( 10, 10, 30, 40 )
- if hCallExport (OutputGrafikTBO + "2" , sFilter, TRUE ) = TRUE then
- Kontext "SVMOptionen"
- if SVMOptionen.Exists (2) then
- Groesse.Check
+ hTypeKeys ("<escape><tab>")
+ fGetSizeXY sx1, sY, TRUE
+ if hCallExport (OutputGrafikTBO & "1" , sFilter, TRUE ) = TRUE then
+ Kontext "SVMOptionen"
+ if SVMOptionen.Exists (2) then
+ Original.Check
+ SVMOptionen.OK
+ sleep 5
+ endif
+ if ( dir(OutputGrafikTBO & "1" & sExt) <> "") then
+ Printlog "Ok :-) Saved as: '" & OutputGrafikTBO & "1" & sExt & "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hNewDocument()
+ sleep 5
+ Call hGrafikEinfuegen ( OutputGrafikTBO & "1" & sExt )
+ bTemp = FALSE
+ fGetSizeXY sx1, sY, bTemp
+ if (bTemp = FALSE) then
+ warnlog "Selected original size NOT OK :-("
+ endif
+ endif
+ hCloseDocument ()
+ hNewDocument()
+ hRechteckErstellen ( 10, 10, 30, 40 )
+ if hCallExport (OutputGrafikTBO & "2" , sFilter, TRUE ) = TRUE then
+ Kontext "SVMOptionen"
+ if SVMOptionen.Exists (2) then
+ Groesse.Check
Breite.SetText "9"
Hoehe.SetText "9"
Groesse.Check 'Check to make settings go throught
sx1 = Breite.GetText
sY = Hoehe.GetText
- SVMOptionen.OK
- sleep 5
- endif
- if ( dir(OutputGrafikTBO + "2"+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "2"+sExt + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hFileOpen (OutputGrafikTBO + "2"+sExt)
- kontext "Filterauswahl"
- if Filterauswahl.exists then
- Warnlog "Error when loading the file. The Filter-dialogue came up. Test aborted."
- Filterauswahl.Cancel
- goto endsub
- endif
- kontext "DocumentDraw"
- DocumentDraw.TypeKeys ("<escape><tab>")
- ContextOriginalSize
- bTemp = FALSE
- fGetSizeXY sx1, sY, bTemp
- if (bTemp = FALSE) then
- warnlog "Selected original size NOT OK :-("
- endif
- endif
- if hCallExport (OutputGrafikTBO + "3" , sFilter, TRUE ) = TRUE then
- Kontext "SVMOptionen"
- if SVMOptionen.Exists (2) then
- Groesse.Check
+ SVMOptionen.OK
+ sleep 5
+ endif
+ if ( dir(OutputGrafikTBO & "2" & sExt) <> "") then
+ Printlog "Ok :-) Saved as: '" & OutputGrafikTBO & "2" & sExt & "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hFileOpen (OutputGrafikTBO & "2" & sExt)
+ kontext "Filterauswahl"
+ if Filterauswahl.exists then
+ Warnlog "Error when loading the file. The Filter-dialogue came up. Test aborted."
+ Filterauswahl.Cancel
+ goto endsub
+ endif
+ kontext "DocumentDraw"
+ DocumentDraw.TypeKeys ("<escape><tab>")
+ ContextOriginalSize
+ bTemp = FALSE
+ fGetSizeXY sx1, sY, bTemp
+ if (bTemp = FALSE) then
+ warnlog "Selected original size NOT OK :-("
+ endif
+ endif
+ if hCallExport (OutputGrafikTBO & "3" , sFilter, TRUE ) = TRUE then
+ Kontext "SVMOptionen"
+ if SVMOptionen.Exists (2) then
+ Groesse.Check
sX2 = Breite.GetText
if (LiberalMeasurement(sx1, sX2)) <> TRUE then
- if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
- Printlog "Width was ok. Expected: " + sx1 + "' was: '" + sX2 + "'"
- else
- warnLog "Width is different expected: '" + sx1 + "' is: '" + sX2 + "'"
- endif
+ if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
+ Printlog "Width was ok. Expected: " & sx1 & "' was: '" & sX2 & "'"
+ else
+ warnLog "Width is different expected: '" & sx1 & "' is: '" & sX2 & "'"
+ endif
endif
sY2 = Hoehe.GetText
if (LiberalMeasurement(sY, sY2)) <> TRUE then
- if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
- Printlog "Height was ok. Expected: " + sY + "' was: '" + sY2 + "'"
- else
- warnLog "Height is different expected: '" + sY + "' is: '" + sY2 + "'"
- endif
+ if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
+ Printlog "Height was ok. Expected: " & sY & "' was: '" & sY2 & "'"
+ else
+ warnLog "Height is different expected: '" & sY & "' is: '" & sY2 & "'"
+ endif
endif
- SVMOptionen.Cancel
- sleep 5
- endif
- endif
+ SVMOptionen.Cancel
+ sleep 5
+ endif
+ endif
- call hCloseDocument
+ call hCloseDocument
endcase
'-------------------------------------------------------------------------------
@@ -277,18 +260,13 @@ testcase tPDF
dim iFileSize(12) as long
dim i as integer
- '/// Export the file 12 times: ///'
- '///+ every compression level (3) and every range (3), check if button in toolbar uses last settings (6) (-> 12) ///'
- hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport_pdf."+ExtensionString ))
+ hFileOpen ( gTesttoolPath & "graphics\required\input\graphicexport_pdf." & ExtensionString )
sleep (10)
'---------------------------------------------------------------------------------------------------------------------------------------------------------
'###### all / Screen optimized ######
- '/// File->Export as PDF document
printlog "File->Export as PDF document"
- '///+ range = All
printlog " range = All"
- '///+ compression = Screen optimized
printlog " compression = Screen optimized"
kontext "Standardbar"
@@ -297,9 +275,7 @@ testcase tPDF
'--------------------------------------------------------- Output the first file ---------------------------------------------------------------
hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 1, TRUE, FALSE, 1, 1)
- '/// Export using Button in toolbar
printlog "Export using Button in toolbar"
- '///+ use the settings from the export before
printlog " use the settings from the export before"
kontext "Standardbar"
@@ -310,11 +286,8 @@ testcase tPDF
hExportAsPDFmulti (1, TRUE, OutputGrafikTBO + 2, TRUE, FALSE, 1, 1) ' button in toolbar -> last settings have to be used
'###### range / Screen optimized ######
- '/// File->Export as PDF document
printlog "File->Export as PDF document"
- '///+ range = Range
printlog " range = Range"
- '///+ compression = Screen optimized
printlog " compression = Screen optimized"
kontext "Standardbar"
@@ -324,9 +297,7 @@ testcase tPDF
hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 3, TRUE, FALSE, 2, 1, "2")
- '/// Export using Button in toolbar
printlog "Export using Button in toolbar"
- '///+ use the settings from the export before
printlog " use the settings from the export before"
kontext "Standardbar"
@@ -337,11 +308,8 @@ testcase tPDF
hExportAsPDFmulti (1, TRUE, OutputGrafikTBO + 4, TRUE, FALSE, 2, 1) ' button in toolbar -> last settings have to be used
'###### all / Print optimized ######
- '/// File->Export as PDF document
printlog "File->Export as PDF document"
- '///+ range = all
printlog " range = all"
- '///+ compression = Print optimized
printlog " compression = Print optimized"
kontext "Standardbar"
@@ -351,9 +319,7 @@ testcase tPDF
hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 5, TRUE, FALSE, 1, 2)
- '/// Export using Button in toolbar
printlog "Export using Button in toolbar"
- '///+ use the settings from the export before
printlog " use the settings from the export before"
kontext "Standardbar"
@@ -364,11 +330,8 @@ testcase tPDF
hExportAsPDFmulti (1, TRUE, OutputGrafikTBO + 6, TRUE, FALSE, 1, 2) ' button in toolbar -> last settings have to be used
'###### range / Print optimized ######
- '/// File->Export as PDF document
printlog "File->Export as PDF document"
- '///+ range = Range
printlog " range = Range"
- '///+ compression = Screen optimized
printlog " compression = Screen optimized"
kontext "Standardbar"
@@ -378,9 +341,7 @@ testcase tPDF
hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 7, TRUE, FALSE, 2, 2, "2")
- '/// Export using Button in toolbar
printlog "Export using Button in toolbar"
-' '///+ use the settings from the export before
printlog " use the settings from the export before"
kontext "Standardbar"
@@ -391,11 +352,8 @@ testcase tPDF
hExportAsPDFmulti (1, TRUE, OutputGrafikTBO + 8, TRUE, FALSE, 2, 2) ' button in toolbar -> last settings have to be used
'###### all / Press optimized ######
- '/// File->Export as PDF document ///'
printlog "File->Export as PDF document ///'"
- '///+ range = all
printlog " range = all"
- '///+ compression = Press optimized
printlog " compression = Press optimized"
kontext "Standardbar"
@@ -404,8 +362,6 @@ testcase tPDF
'------------------------------------------------------------ Output the ninth file ----------------------------------------------------------------
hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 9, TRUE, FALSE, 1, 3)
- '/// Export using Button in toolbar
- '///+ use the settings from the export before
kontext "Standardbar"
checkexppdfwaitmax10sec
@@ -415,11 +371,8 @@ testcase tPDF
hExportAsPDFmulti (1, TRUE, OutputGrafikTBO + 10, TRUE, FALSE, 1, 3) ' button in toolbar -> last settings have to be used
'###### range / Press optimized ######
- '/// File->Export as PDF document ///'
printlog "File->Export as PDF document ///'"
- '///+ range = all
printlog " range = all"
- '///+ compression = Press optimized
printlog " compression = Press optimized"
kontext "Standardbar"
@@ -428,8 +381,6 @@ testcase tPDF
'----------------------------------------------------------- Output the eleventh file -------------------------------------------------------------
hExportAsPDFmulti (3, TRUE, OutputGrafikTBO + 11, TRUE, FALSE, 2, 3, "2")
- '/// Export using Button in toolbar
- '///+ use the settings from the export before
kontext "Standardbar"
checkexppdfwaitmax10sec
@@ -445,23 +396,21 @@ testcase tPDF
for i=1 to 12
sPath = OutputGrafikTBO
- sPath = sPath + i + ".pdf"
+ sPath = sPath + i & ".pdf"
iFileSize(i) = app.FileLen(sPath)
- Printlog (" - " + i + ": " + " " + iFileSize(i) + " " + sPath
+ Printlog (" - " & i & ": " & " " & iFileSize(i) & " " & sPath
if (dir(sPath) <> "") then
sleep(1)
- '/// the first line has to be '%PDF-1.4' ///'
sTemp = fGetFileText(sPath, 8)
if (sTemp <> "%PDF-1.4") then
- Warnlog "File doesn't start with '%PDF-1.4' it is: '" + sTemp + "'"
+ Warnlog "File doesn't start with '%PDF-1.4' it is: '" & sTemp & "'"
endif
- '/// the last line has to be '%%EOF' ///'
sTemp = left(fGetFileText(sPath, -6),5)
if (sTemp <> "%%EOF") then
- Warnlog "File doesn't end with '%%EOF' it is: '" + sTemp + "'"
+ Warnlog "File doesn't end with '%%EOF' it is: '" & sTemp & "'"
endif
else
- Warnlog "File was not exported to PDF :-( '" + sPath + "'"
+ Warnlog "File was not exported to PDF :-( '" & sPath & "'"
endif
next i
@@ -482,10 +431,10 @@ testcase tPDF
'Warnlog ("Difference in filesize for file 9 and 10")
endif
-
+
if (iFileSize(1) > iFileSize(5)) then
- qaerrorlog "i100919: pdf export: different file size when exporting with file/export or button"
+ qaerrorlog "i100919: pdf export: different file size when exporting with file/export or button"
'Warnlog ("Filesize for file 1 is greater then for file 5. The compression level doesn't work.")
endif
if (iFileSize(5) > iFileSize(9)) then
@@ -510,24 +459,22 @@ testcase tPDF_Creator
dim sTextFiltername as String
dim sExtension() as String
- sTemp = ConvertPath ( gTesttoolPath + "graphics\required\input\export_graphic3." + ExtensionString )
+ sTemp = gTesttoolPath & "graphics\required\input\export_graphic3." & ExtensionString
hFileOpen (sTemp)
sleep (30)
sPath = OutputGrafikTBO
sTemp = sPath
- sPath = sPath + "L.pdf"
+ sPath = sPath & "L.pdf"
sleep(1)
hExportAsPDFmulti (1, TRUE, sPath, TRUE, FALSE, 1, 1)
- name sPath as sTemp+"L.txt"
+ name sPath as sTemp&"L.txt"
sleep (30)
- iFileSize(3) = app.FileLen(sTemp+"L.txt")
+ iFileSize(3) = app.FileLen(sTemp&"L.txt")
iCreatorOffset = 0
sleep 5
- '/// load file in writer as text ///'
- hFileOpen(sTemp+"L.txt")
+ hFileOpen(sTemp&"L.txt")
- '/// if dialog 'AsciiFilterOptionen' comes up, say OK ///'
Kontext "AsciiFilterOptionen"
If AsciiFilterOptionen.Exists(3) then
AsciiFilterOptionen.OK
@@ -555,11 +502,11 @@ testcase tPDF_Creator
sTemp = left(sTemp, inStr(sTemp, ">")-1)
sTemp2 = ""
for i = 0 to (len(sTemp)/4)-1
- sTemp2 = sTemp2 + chr("&H"+mid(sTemp,(i*4)+1, 4))
+ sTemp2 = sTemp2 + chr(" & H" & mid(sTemp,(i*4)+1, 4))
next i
- printlog sTemp + " -- " + len(sTemp) + " ::: '" + sTemp2 + "'"
+ printlog sTemp & " -- " & len(sTemp) & " ::: '" & sTemp2 & "'"
if (lCase(sapp) <> lCase(right(sTemp2, len(stemp2)-1))) then
- warnlog "Application is different from Creator; is: '" + lCase(sTemp2) + "' should: '" + lCase(sapp) + "'"
+ warnlog "Application is different from Creator; is: '" & lCase(sTemp2) & "' should: '" & lCase(sapp) & "'"
endif
iCreatorOffset = iCreatorOffset + len(sTemp)
' /Producer
@@ -575,21 +522,21 @@ testcase tPDF_Creator
sTemp = left(sTemp, inStr(sTemp, ">")-1)
sTemp2 = ""
for i = 0 to (len(sTemp)/4)-1
- sTemp2 = sTemp2 + chr("&H"+mid(sTemp,(i*4)+1, 4))
+ sTemp2 = sTemp2 + chr(" & H" & mid(sTemp,(i*4)+1, 4))
next i
- printlog sTemp + " -- " + len(sTemp) + " ::: '" + sTemp2 + "'"
+ printlog sTemp & " -- " & len(sTemp) & " ::: '" & sTemp2 & "'"
if gOOO then
iCreatorOffset = iCreatorOffset + len(sTemp)
else
if bAsianLan then
iCreatorOffset = iCreatorOffset + 48
if (len(sTemp) <> 48) then
- warnlog "Producer is different from 'StarSuite 8'; is: '" + sTemp2 + "'"
+ warnlog "Producer is different from 'StarSuite 8'; is: '" & sTemp2 & "'"
endif
else
iCreatorOffset = iCreatorOffset + 52
if (len(sTemp) <> 52) then
- warnlog "Producer is different from 'StarOffice 8'; is: '" + sTemp2 + "'"
+ warnlog "Producer is different from 'StarOffice 8'; is: '" & sTemp2 & "'"
endif
endif
endif
@@ -604,10 +551,10 @@ testcase tPDF_Creator
editcopy
sTemp = getClipboardText()
sTemp = left(sTemp, inStr(sTemp, ")")-1)
- printlog sTemp + " -- " + len(sTemp)
+ printlog sTemp & " -- " & len(sTemp)
iCreatorOffset = iCreatorOffset + (len(sTemp) - 23)
if (len(sTemp) <> 23) then
- warnlog "Date is longer than expected; is: '" + sTemp2 + "'"
+ warnlog "Date is longer than expected; is: '" & sTemp2 & "'"
endif
gApplication = sApp
call hCloseDocument
@@ -617,35 +564,32 @@ endcase
'-------------------------------------------------------------------------------
testcase tSVG
- dim x as integer
- dim i as integer
- dim sFilter as string
- dim sExt as string
- dim bTemp as boolean
- dim sTemp as string
- dim sTextFilter as string
- dim sExtension() as string
- dim sTextFiltername as string
+ dim x as integer
+ dim i as integer
+ dim sFilter as string
+ dim sExt as string
+ dim bTemp as boolean
+ dim sTemp as string
+ dim sTextFilter as string
+ dim sExtension() as string
+ dim sTextFiltername as string
- sFilter = "SVG - Scalable Vector Graphics (.svg)"
- sExt = ".svg"
+ sFilter = "SVG - Scalable Vector Graphics (.svg)"
+ sExt = ".svg"
- '/// open the document
- hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString ))
+ hFileOpen ( gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString )
- '/// save it ///'
'------------------------\
if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
'------------------------\
if ( dir(OutputGrafikTBO+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
+ Printlog "Ok :-) Saved as: '" & OutputGrafikTBO+sExt & "'"
'------------------------\
if (iSprache <> 82) then
hCloseDocument ()
sleep 5
- '/// load file in writer as text ///'
sTextFilter = "Text"
-
+
hFileOpenWithFilter (OutputGrafikTBO+sExt, sTextFiltername, FALSE)
printlog "if dialog 'AsciiFilterOptionen' comes up, say OK"
Kontext "AsciiFilterOptionen"
@@ -659,7 +603,7 @@ testcase tSVG
sTemp = gApplication
gApplication = "WRITER"
sleep 5 ' wait for document to be loaded
- bTemp = hFindeImDokument ("<!DOCTYPE svg PUBLIC "+chr(34)+ "-//W3C//DTD SVG 1.1//EN"+chr(34)+" "+chr(34)+"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd"+chr(34)+">",true)
+ bTemp = hFindeImDokument ("<!DOCTYPE svg PUBLIC " & chr(34)& "-//W3C//DTD SVG 1.1//EN" & chr(34)&" " & chr(34)&"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd" & chr(34)&">",true)
'-------------------------------\
if (bTemp = TRUE) then
Printlog "OK"
@@ -672,7 +616,7 @@ testcase tSVG
qaerrorlog "disabled for 82: #111017#"
endif
'--------------------------/
- else
+ else
warnlog "File didn't get saved :-("
endif
'------------------------/
@@ -684,299 +628,258 @@ testcase tSVG
endcase
'-------------------------------------------------------------------------------
testcase tBMP
-qaerrorlog
- dim x as integer
- dim i as integer
- dim bTemp as boolean
- dim sX as string
- dim sY as string
- dim sx1 as string
- dim sX2 as string
- dim sY2 as string
- dim sDocument as string
-
- '/// open the document
- sDocument = ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString)
+ qaerrorlog
+ dim x as integer
+ dim i as integer
+ dim bTemp as boolean
+ dim sX as string
+ dim sY as string
+ dim sx1 as string
+ dim sX2 as string
+ dim sY2 as string
+ dim sDocument as string
+
+ sDocument = gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString
hFileOpen sDocument
- if hCallExport (OutputGrafikTBO , "BMP - Windows Bitmap (.bmp)" ) = TRUE then
- Kontext "BMPOptionen"
- if BMPOptionen.Exists (2) then
- '/// check if all properties have the right count, and depend on each other ///'
- '/// 'Color Resolution' listbox contains eight items ///'
- x = Farbaufloesung.GetItemCount
- if x <> 8 then warnlog "Color Resolution Count is wrong; should be:8, is:" + x
- for i = 1 to x
- Farbaufloesung.Select i
- sleep 1
- Printlog " - " + i + ": '" +Farbaufloesung.GetSelText + "'"
- '/// checkbox RLE coding has to be enabled only for '4 and 8 bit' color palettes ///'
- if ((i > 3) AND (i < 8)) then
- if RLEKodierung.IsEnabled <> TRUE then warnlog "'RLE coding' is not checkable :-("
- else
- if RLEKodierung.IsEnabled <> FALSE then warnlog "'RLE coding' is checkable :-("
+ if hCallExport (OutputGrafikTBO , "BMP - Windows Bitmap (.bmp)" ) = TRUE then
+ Kontext "BMPOptionen"
+ if BMPOptionen.Exists (2) then
+ x = Farbaufloesung.GetItemCount
+ if x <> 8 then
+ warnlog "Color Resolution Count is wrong; should be:8, is:" & x
+ endif
+ for i = 1 to x
+ Farbaufloesung.Select i
+ sleep 1
+ Printlog " - " & i & ": '" &Farbaufloesung.GetSelText & "'"
+ if ((i > 3) AND (i < 8)) then
+ if ( RLEKodierung.IsEnabled() ) then
+ warnlog "'RLE coding' is not checkable :-("
+ else
+ warnlog "'RLE coding' is checkable :-("
+ endif
+ endif
+
+ next i
+ Original.Check
+ if DPI.IsEnabled then
+ warnlog " :-("
endif
- next i
- '/// if Mode 'original' is selected, DPI///'
- Original.Check
- if DPI.IsEnabled then warnlog " :-("
- if Breite.IsEnabled then warnlog " :-("
- if Hoehe.IsEnabled then warnlog " :-("
- Aufloesung.Check
+ if Breite.IsEnabled then
+ warnlog " :-("
+ endif
+ if Hoehe.IsEnabled then
+ warnlog " :-("
+ endif
+ Aufloesung.Check
x = DPI.GetItemCount
- '/// 'DPI' listbox contains eight items ///'
- if x <> 4 then warnlog "'DPI' Count is wrong; should be:4, is:" + x
+ if x <> 4 then
+ warnlog "'DPI' Count is wrong; should be:4, is:" & x
+ endif
for i = 1 to x
- DPI.Select i
- Printlog " - " + i + ": '" +DPI.GetSelText + "'"
+ DPI.Select i
+ Printlog " - " & i & ": '" &DPI.GetSelText & "'"
next i
- if Breite.IsEnabled then warnlog " :-("
- if Hoehe.IsEnabled then warnlog " :-("
- Groesse.Check
- if DPI.IsEnabled then warnlog " :-("
+ if Breite.IsEnabled then
+ warnlog " :-("
+ endif
+ if Hoehe.IsEnabled then
+ warnlog " :-("
+ endif
+ Groesse.Check
+ if DPI.IsEnabled then
+ warnlog " :-("
+ endif
Breite.More
Hoehe.Less
- Sleep 1
- '/// leave dialog with cancel -> there has to be no file created! ///'
- BMPOptionen.Cancel
- sleep 5
- if ( dir(OutputGrafikTBO+".bmp") = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
- Printlog "ok :-)"
- else
- warnlog "Dialog was canceled, but file got saved, too :-( - i35177"
- endif
- else
- Warnlog "No BMP-Option-Dialog!"
- i=5
- end if
- sleep 2
- Kontext "Active"
- if Active.Exists(2) then
- Warnlog "BMP-Exportfilter has a problem"
- Active.OK
- end if
- end if
- Printlog "'/// now save it realy and load the file afterwards ///'"
- if hCallExport (OutputGrafikTBO , "BMP - Windows Bitmap (.bmp)" ) = TRUE then
- Kontext "BMPOptionen"
- if BMPOptionen.Exists (2) then
- Farbaufloesung.Select 7
- RLEKodierung.Check
- Aufloesung.Check
- DPI.Select 3
- BMPOptionen.OK
- sleep 5
- endif
- if ( dir(OutputGrafikTBO+".bmp") <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+".bmp" + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hNewDocument()
- sleep 5
- Call hGrafikEinfuegen ( OutputGrafikTBO+".bmp" )
- endif
- hCloseDocument ()
- Printlog "'/// now save a SELECTION in ORIGINAL SIZE and load the file afterwards ///'"
- qaerrorlog "#i93258#"
- 'hFileOpen (sDocument)
- 'kontext "Filterauswahl"
- 'if Filterauswahl.exists(10) then
- ' Warnlog "Error when loading the file. The Filter-dialogue came up. Test aborted."
- ' Filterauswahl.Cancel
- ' goto endsub
- 'endif
-
- '' check if the document is writable
- 'if fIsDocumentWritable = false then
- ' ' make the document writable and check if it's succesfull
- ' if fMakeDocumentWritable = false then
- ' warnlog "The document can't be make writeable. Test stopped."
- ' goto endsub
- ' endif
- 'endif
-
- 'hTypeKeys ("<escape><tab>")
- 'fGetSizeXY sx1, sy, TRUE
- 'if hCallExport (OutputGrafikTBO + "1" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then
- ' Kontext "BMPOptionen"
- ' if BMPOptionen.Exists (2) then
- ' Original.Check
- ' BMPOptionen.OK
- ' sleep 5
- ' endif
- ' if ( dir(OutputGrafikTBO + "1"+".bmp") <> "") then
- ' Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "1"+".bmp" + "'"
- ' else
- ' warnlog "File didn't get saved :-("
- ' endif
-
- ' qaerrorlog "#i92902: Export to bmp: bmp options not respected"
- 'sleep 5
- 'hNewDocument()
- 'sleep 5
- 'Call hGrafikEinfuegen ( OutputGrafikTBO + "1"+".bmp" )
- 'bTemp = FALSE
- 'fGetSizeXY sx1, sY, bTemp
- 'if (bTemp = FALSE) then
- ' warnlog "Selected original size NOT OK :-("
- 'endif
- 'endif
- 'hCloseDocument ()
- Printlog "'/// now CREATE a rectangle, select it, save it in SIZE and load the file afterwards ///'"
- hNewDocument()
- hTypeKeys "<TAB>"
- gMouseClick 50, 50
- hRechteckErstellen ( 10, 10, 30, 40 )
- if hCallExport (OutputGrafikTBO + "2" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then
- Kontext "BMPOptionen"
- if BMPOptionen.Exists (2) then
- Groesse.Check
+ Sleep 1
+ BMPOptionen.Cancel
+ sleep 5
+ if ( dir(OutputGrafikTBO&".bmp") = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
+ Printlog "ok :-)"
+ else
+ warnlog "Dialog was canceled, but file got saved, too :-( - i35177"
+ endif
+ else
+ Warnlog "No BMP-Option-Dialog!"
+ i=5
+ end if
+ sleep 2
+ Kontext "Active"
+ if Active.Exists(2) then
+ Warnlog "BMP-Exportfilter has a problem"
+ Active.OK
+ end if
+ end if
+ if hCallExport (OutputGrafikTBO , "BMP - Windows Bitmap (.bmp)" ) = TRUE then
+ Kontext "BMPOptionen"
+ if BMPOptionen.Exists (2) then
+ Farbaufloesung.Select 7
+ RLEKodierung.Check
+ Aufloesung.Check
+ DPI.Select 3
+ BMPOptionen.OK
+ sleep 5
+ endif
+ if ( dir(OutputGrafikTBO&".bmp") <> "") then
+ Printlog "Ok :-) Saved as: '" & OutputGrafikTBO&".bmp" & "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hNewDocument()
+ sleep 5
+ Call hGrafikEinfuegen ( OutputGrafikTBO&".bmp" )
+ endif
+ hCloseDocument ()
+ qaerrorlog "#i93258#"
+
+ hNewDocument()
+ hTypeKeys "<TAB>"
+ gMouseClick 50, 50
+ hRechteckErstellen ( 10, 10, 30, 40 )
+ if hCallExport (OutputGrafikTBO & "2" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then
+ Kontext "BMPOptionen"
+ if BMPOptionen.Exists (2) then
+ Groesse.Check
Breite.SetText "9"
Hoehe.SetText "9"
Groesse.Check 'Press "Size" one more time in order to make the change go through"
sx1 = Breite.GetText
sY = Hoehe.GetText
- BMPOptionen.OK
- sleep 5
- endif
- if ( dir(OutputGrafikTBO + "2"+".bmp") <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "2"+".bmp" + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hFileOpen (OutputGrafikTBO + "2"+".bmp")
- kontext "Filterauswahl"
- if Filterauswahl.exists then
- Warnlog "Error when loading the file. The Filter-dialogue came up. Test aborted."
- Filterauswahl.Cancel
- goto endsub
- endif
- kontext "DocumentDraw"
- DocumentDraw.TypeKeys ("<escape><tab>")
-
- qaerrorlog "#i92902: Export to bmp: bmp options not respected"
- 'ContextOriginalSize
- 'bTemp = FALSE
- 'fGetSizeXY sx1, sY, bTemp
- 'if (bTemp = FALSE) then
- ' warnlog "Selected original size NOT OK :-("
- 'endif
-
- endif
- if hCallExport (OutputGrafikTBO + "3" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then
- Kontext "BMPOptionen"
- if BMPOptionen.Exists (2) then
- Groesse.Check
+ BMPOptionen.OK
+ sleep 5
+ endif
+ if ( dir(OutputGrafikTBO & "2" & ".bmp") <> "") then
+ Printlog "Ok :-) Saved as: '" & OutputGrafikTBO & "2" & ".bmp" & "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hFileOpen (OutputGrafikTBO & "2" & ".bmp")
+ kontext "Filterauswahl"
+ if Filterauswahl.exists then
+ Warnlog "Error when loading the file. The Filter-dialogue came up. Test aborted."
+ Filterauswahl.Cancel
+ goto endsub
+ endif
+ kontext "DocumentDraw"
+ DocumentDraw.TypeKeys ("<escape><tab>")
+
+ qaerrorlog "#i92902: Export to bmp: bmp options not respected"
+
+ endif
+ if hCallExport (OutputGrafikTBO & "3" , "BMP - Windows Bitmap (.bmp)", TRUE ) = TRUE then
+ Kontext "BMPOptionen"
+ if BMPOptionen.Exists (2) then
+ Groesse.Check
sX2 = Breite.GetText
if (LiberalMeasurement(sx1, sX2)) <> TRUE then
- if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
- Printlog "Width was ok. Expected: " + sx1 + "' was: '" + sX2 + "'"
- else
- warnLog "Width is different expected: '" + sx1 + "' is: '" + sX2 + "'"
- endif
+ if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
+ Printlog "Width was ok. Expected: " & sx1 & "' was: '" & sX2 & "'"
+ else
+ warnLog "Width is different expected: '" & sx1 & "' is: '" & sX2 & "'"
+ endif
endif
sY2 = Hoehe.GetText
if (LiberalMeasurement(sY, sY2)) <> TRUE then
- if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
- Printlog "Height was ok. Expected: " + sY + "' was: '" + sY2 + "'"
- else
- warnLog "Height is different expected: '" + sY + "' is: '" + sY2 + "'"
- endif
+ if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
+ Printlog "Height was ok. Expected: " & sY & "' was: '" & sY2 & "'"
+ else
+ warnLog "Height is different expected: '" & sY & "' is: '" & sY2 & "'"
+ endif
endif
- BMPOptionen.Cancel
- sleep 5
- endif
- endif
+ BMPOptionen.Cancel
+ sleep 5
+ endif
+ endif
- call hCloseDocument
+ call hCloseDocument
endcase
'-------------------------------------------------------------------------------
testcase tEMF
- dim x as integer
- dim i as integer
- dim sFilter as string
- dim sExt as string
- dim bTemp as boolean
- dim sX as string
- dim sY as string
- dim sx1 as string
- dim sX2 as string
- dim sY2 as string
- dim sDocument as string
-
- sFilter = "EMF - Enhanced Metafile (.emf)"
- sExt = ".emf"
-
- '/// open the document
- sDocument = ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString)
- hFileOpen sDocument
-
- if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
- Kontext "SVMOptionen"
- if SVMOptionen.Exists (2) then
- '/// check if all properties have the right count, and depend on each other ///'
- Original.Check
- if Breite.IsEnabled then warnlog " :-("
- if Hoehe.IsEnabled then warnlog " :-("
- Groesse.Check
+ dim x as integer
+ dim i as integer
+ dim sFilter as string
+ dim sExt as string
+ dim bTemp as boolean
+ dim sX as string
+ dim sY as string
+ dim sx1 as string
+ dim sX2 as string
+ dim sY2 as string
+ dim sDocument as string
+
+ sFilter = "EMF - Enhanced Metafile (.emf)"
+ sExt = ".emf"
+
+ sDocument = gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString
+ hFileOpen sDocument
+
+ if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
+ Kontext "SVMOptionen"
+ if SVMOptionen.Exists (2) then
+ Original.Check
+ if Breite.IsEnabled then
+ warnlog " :-("
+ endif
+ if Hoehe.IsEnabled then
+ warnlog " :-("
+ endif
+ Groesse.Check
Breite.More
Hoehe.Less
- '/// leave dialog with cancel -> there has to be no file created! ///'
- SVMOptionen.Cancel
- sleep 5
- if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
- Printlog "ok :-)"
- else
- warnlog "Dialog was canceled, but file got saved, too :-( - i35177"
- endif
- else
- Warnlog "No '" + sFilter + "' -Dialog!"
- i=5
- end if
- sleep 2
- Kontext "Active"
- if Active.Exists(2) then
- Warnlog " '" + sFilter + "' has a problem"
- Active.OK
- end if
- end if
- Printlog "'/// now save it realy and load the file afterwards ///'"
- if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
- Kontext "SVMOptionen"
- if SVMOptionen.Exists (2) then
- Groesse.Check
+ SVMOptionen.Cancel
+ sleep 5
+ if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
+ Printlog "ok :-)"
+ else
+ warnlog "Dialog was canceled, but file got saved, too :-( - i35177"
+ endif
+ else
+ Warnlog "No '" & sFilter & "' -Dialog!"
+ i=5
+ end if
+ sleep 2
+ Kontext "Active"
+ if Active.Exists(2) then
+ Warnlog " '" & sFilter & "' has a problem"
+ Active.OK
+ end if
+ end if
+ if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
+ Kontext "SVMOptionen"
+ if SVMOptionen.Exists (2) then
+ Groesse.Check
Breite.Less
Hoehe.More
- SVMOptionen.OK
- sleep 5
- endif
- if ( dir(OutputGrafikTBO+sExt) <> "") then
- Printlog "Ok :-) saved as: '" + OutputGrafikTBO+sExt + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hNewDocument()
- sleep 5
- Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
- endif
- hCloseDocument ()
- Printlog "'/// now save a SELECTION in ORIGINAL SIZE and load the file afterwards ///'"
- hFileOpen (sDocument)
- kontext "Filterauswahl"
- if Filterauswahl.Exists(10) then
- Warnlog "Error when loading the file. The Filter-dialogue came up. Test aborted."
- Filterauswahl.Cancel
- goto endsub
- endif
+ SVMOptionen.OK
+ sleep 5
+ endif
+ if ( dir(OutputGrafikTBO+sExt) <> "") then
+ Printlog "Ok :-) saved as: '" & OutputGrafikTBO+sExt & "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hNewDocument()
+ sleep 5
+ Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
+ endif
+ hCloseDocument ()
+ hFileOpen (sDocument)
+ kontext "Filterauswahl"
+ if Filterauswahl.Exists(10) then
+ Warnlog "Error when loading the file. The Filter-dialogue came up. Test aborted."
+ Filterauswahl.Cancel
+ goto endsub
+ endif
' check if the document is writable
if fIsDocumentWritable = false then
' make the document writable and check if it's succesfull
@@ -986,124 +889,125 @@ testcase tEMF
endif
endif
- hTypeKeys ("<escape><tab>")
- fGetSizeXY sx1, sY, TRUE
- if hCallExport (OutputGrafikTBO + "1" , sFilter, TRUE ) = TRUE then
- Kontext "SVMOptionen"
- if SVMOptionen.Exists (2) then
- Original.Check
- SVMOptionen.OK
- sleep 5
- endif
- if ( dir(OutputGrafikTBO + "1"+sExt) <> "") then
- Printlog "Ok :-) saved as: '" + OutputGrafikTBO + "1"+sExt + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hNewDocument()
- sleep 5
- Call hGrafikEinfuegen ( OutputGrafikTBO + "1"+sExt )
- bTemp = FALSE
- fGetSizeXY sx1, sY, bTemp
- if (bTemp = FALSE) then
- warnlog "Selected original size NOT OK :-("
- endif
- endif
- hCloseDocument ()
- Printlog "'/// now CREATE a rectangle, select it, save it in SIZE and load the file afterwards ///'"
- hNewDocument()
- hRechteckErstellen ( 10, 10, 30, 40 )
- if hCallExport (OutputGrafikTBO + "2" , sFilter, TRUE ) = TRUE then
- Kontext "SVMOptionen"
- if SVMOptionen.Exists (2) then
- Groesse.Check
+ hTypeKeys ("<escape><tab>")
+ fGetSizeXY sx1, sY, TRUE
+ if hCallExport (OutputGrafikTBO & "1" , sFilter, TRUE ) = TRUE then
+ Kontext "SVMOptionen"
+ if SVMOptionen.Exists (2) then
+ Original.Check
+ SVMOptionen.OK
+ sleep 5
+ endif
+ if ( dir(OutputGrafikTBO & "1" & sExt) <> "") then
+ Printlog "Ok :-) saved as: '" & OutputGrafikTBO & "1" & sExt & "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hNewDocument()
+ sleep 5
+ Call hGrafikEinfuegen ( OutputGrafikTBO & "1" & sExt )
+ bTemp = FALSE
+ fGetSizeXY sx1, sY, bTemp
+ if (bTemp = FALSE) then
+ warnlog "Selected original size NOT OK :-("
+ endif
+ endif
+ hCloseDocument ()
+ hNewDocument()
+ hRechteckErstellen ( 10, 10, 30, 40 )
+ if hCallExport (OutputGrafikTBO & "2" , sFilter, TRUE ) = TRUE then
+ Kontext "SVMOptionen"
+ if SVMOptionen.Exists (2) then
+ Groesse.Check
Breite.SetText "9"
Hoehe.SetText "9"
Groesse.Check 'Press "Size" one more time to make the change go through"
sx1 = Breite.GetText
sY = Hoehe.GetText
- SVMOptionen.OK
- sleep 5
- endif
- if ( dir(OutputGrafikTBO + "2"+sExt) <> "") then
- Printlog "Ok :-) saved as: '" + OutputGrafikTBO + "2"+sExt + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hFileOpen (OutputGrafikTBO + "2"+sExt)
- kontext "DocumentDraw"
- DocumentDraw.TypeKeys ("<escape><tab>")
- ContextOriginalSize
- bTemp = FALSE
- fGetSizeXY sx1, sY, bTemp
- if (bTemp = FALSE) then
+ SVMOptionen.OK
+ sleep 5
+ endif
+ if ( dir(OutputGrafikTBO & "2" & sExt) <> "") then
+ Printlog "Ok :-) saved as: '" & OutputGrafikTBO & "2" & sExt & "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hFileOpen (OutputGrafikTBO & "2" & sExt)
+ kontext "DocumentDraw"
+ DocumentDraw.TypeKeys ("<escape><tab>")
+ ContextOriginalSize
+ bTemp = FALSE
+ fGetSizeXY sx1, sY, bTemp
+ if (bTemp = FALSE) then
warnlog "Selected original size NOT OK :-("
- endif
+ endif
- if hCallExport (OutputGrafikTBO + "3" , sFilter, TRUE ) = TRUE then
+ if hCallExport (OutputGrafikTBO & "3" , sFilter, TRUE ) = TRUE then
Kontext "SVMOptionen"
if SVMOptionen.Exists (2) then
- Groesse.Check
- sX2 = Breite.GetText
- if (LiberalMeasurement(sx1, sX2)) <> TRUE then
- if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
- Printlog "Width was ok. Expected: " + sx1 + "' was: '" + sX2 + "'"
- else
- warnLog "Width is different expected: '" + sx1 + "' is: '" + sX2 + "'"
- endif
- endif
- sY2 = Hoehe.GetText
- if (LiberalMeasurement(sY, sY2)) <> TRUE then
- if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
- Printlog "Height was ok. Expected: " + sY + "' was: '" + sY2 + "'"
- else
- warnLog "Height is different expected: '" + sY + "' is: '" + sY2 + "'"
- endif
- endif
- SVMOptionen.Cancel
- sleep 5
+ Groesse.Check
+ sX2 = Breite.GetText
+ if (LiberalMeasurement(sx1, sX2)) <> TRUE then
+ if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
+ Printlog "Width was ok. Expected: " & sx1 & "' was: '" & sX2 & "'"
+ else
+ warnLog "Width is different expected: '" & sx1 & "' is: '" & sX2 & "'"
+ endif
+ endif
+ sY2 = Hoehe.GetText
+ if (LiberalMeasurement(sY, sY2)) <> TRUE then
+ if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
+ Printlog "Height was ok. Expected: " & sY & "' was: '" & sY2 & "'"
+ else
+ warnLog "Height is different expected: '" & sY & "' is: '" & sY2 & "'"
+ endif
+ endif
+ SVMOptionen.Cancel
+ sleep 5
endif
- endif
- endif
+ endif
+ endif
- call hCloseDocument
+ call hCloseDocument
endcase
'-------------------------------------------------------------------------------
testcase tMET
- dim x as integer
- dim i as integer
- dim iWaitIndex as integer
- dim sFilter, sExt as string
- dim bTemp as boolean
- dim sX as string
- dim sY as string
- dim sx1 as string
- dim sX2 as string
- dim sY2 as string
- dim sTemp as string
- dim sDocument as string
-
- sFilter = "MET - OS/2 Metafile (.met)"
- sExt = ".met"
-
- '/// open the document
- sDocument = ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString)
- hFileOpen sDocument
-
- if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
- Kontext "METOptionen"
- if METOptionen.Exists (2) then
- '/// check if all properties have the right count, and depend on each other ///'
- Original.Check
- if Breite.IsEnabled then warnlog " :-("
- if Hoehe.IsEnabled then warnlog " :-("
- Groesse.Check
+ dim x as integer
+ dim i as integer
+ dim iWaitIndex as integer
+ dim sFilter, sExt as string
+ dim bTemp as boolean
+ dim sX as string
+ dim sY as string
+ dim sx1 as string
+ dim sX2 as string
+ dim sY2 as string
+ dim sTemp as string
+ dim sDocument as string
+
+ sFilter = "MET - OS/2 Metafile (.met)"
+ sExt = ".met"
+
+ sDocument = gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString
+ hFileOpen sDocument
+
+ if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
+ Kontext "METOptionen"
+ if METOptionen.Exists (2) then
+ Original.Check
+ if Breite.IsEnabled then
+ warnlog " :-("
+ endif
+ if Hoehe.IsEnabled then
+ warnlog " :-("
+ endif
+ Groesse.Check
sTemp = Breite.getText
Breite.More
if (sTemp = Breite.getText) then
@@ -1116,30 +1020,28 @@ testcase tMET
if (sTemp = Hoehe.getText) then
warnlog "Height didn't change on pressing button 'Less'"
endif
- '/// leave dialog with cancel -> there has to be no file created! ///'
- METOptionen.Cancel
- sleep 5
- if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
- Printlog "ok :-)"
- else
- warnlog "Dialog was canceled, but file got saved, too :-( - i35177"
- endif
- else
- Warnlog "No '" + sFilter + "' -Dialog!"
- i=5
- end if
- sleep 2
- Kontext "Active"
- if Active.Exists(2) then
- Warnlog " '" + sFilter + "' has a problem"
- Active.OK
- end if
- end if
- Printlog "'/// now save it realy and load the file afterwards ///'"
- if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
- Kontext "METOptionen"
- if METOptionen.Exists (2) then
- Groesse.Check
+ METOptionen.Cancel
+ sleep 5
+ if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
+ Printlog "ok :-)"
+ else
+ warnlog "Dialog was canceled, but file got saved, too :-( - i35177"
+ endif
+ else
+ Warnlog "No '" & sFilter & "' -Dialog!"
+ i=5
+ end if
+ sleep 2
+ Kontext "Active"
+ if Active.Exists(2) then
+ Warnlog " '" & sFilter & "' has a problem"
+ Active.OK
+ end if
+ end if
+ if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
+ Kontext "METOptionen"
+ if METOptionen.Exists (2) then
+ Groesse.Check
sTemp = Breite.getText
Breite.Less
if (sTemp = Breite.getText) then
@@ -1152,28 +1054,27 @@ testcase tMET
Breite.setText "10"
Hoehe.setText "10"
endif
- METOptionen.OK
- iWaitIndex = 0
- do while METOptionen.Exists AND iWaitIndex < 30
- sleep (1)
- iWaitIndex = iWaitIndex + 1
- loop
- endif
- if ( dir(OutputGrafikTBO+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hNewDocument()
- sleep 5
- Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
- endif
- hCloseDocument ()
- Printlog "'/// now save a SELECTION in ORIGINAL SIZE and load the file afterwards ///'"
- hFileOpen (sDocument)
- sleep (10)
+ METOptionen.OK
+ iWaitIndex = 0
+ do while METOptionen.Exists AND iWaitIndex < 30
+ sleep (1)
+ iWaitIndex = iWaitIndex + 1
+ loop
+ endif
+ if ( dir(OutputGrafikTBO+sExt) <> "") then
+ Printlog "Ok :-) Saved as: '" & OutputGrafikTBO+sExt & "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hNewDocument()
+ sleep 5
+ Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
+ endif
+ hCloseDocument ()
+ hFileOpen (sDocument)
+ sleep (10)
' check if the document is writable
if fIsDocumentWritable = false then
@@ -1184,208 +1085,204 @@ testcase tMET
endif
endif
- hTypeKeys ("<escape><tab>")
- fGetSizeXY sx1, sY, TRUE
- if hCallExport (OutputGrafikTBO + "1" , sFilter, TRUE ) = TRUE then
- Kontext "METOptionen"
- if METOptionen.Exists (2) then
- Original.Check
- METOptionen.OK
- iWaitIndex = 0
- do while METOptionen.Exists AND iWaitIndex < 30
- sleep (1)
- iWaitIndex = iWaitIndex + 1
- loop
- endif
- if ( dir(OutputGrafikTBO + "1"+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "1"+sExt + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hNewDocument()
- sleep 5
- Call hGrafikEinfuegen ( OutputGrafikTBO + "1"+sExt )
- bTemp = FALSE
- fGetSizeXY sx1, sY, bTemp
- if (bTemp = FALSE) then
- warnlog "Selected original size NOT OK :-("
- endif
- endif
- hCloseDocument ()
- Printlog "'/// now CREATE a rectangle, select it, save it in SIZE and load the file afterwards ///'"
- hNewDocument()
- hRechteckErstellen ( 10, 10, 30, 40 )
- if hCallExport (OutputGrafikTBO + "2" , sFilter, TRUE ) = TRUE then
- Kontext "METOptionen"
- if METOptionen.Exists (2) then
- Groesse.Check
+ hTypeKeys ("<escape><tab>")
+ fGetSizeXY sx1, sY, TRUE
+ if hCallExport (OutputGrafikTBO & "1" , sFilter, TRUE ) = TRUE then
+ Kontext "METOptionen"
+ if METOptionen.Exists (2) then
+ Original.Check
+ METOptionen.OK
+ iWaitIndex = 0
+ do while METOptionen.Exists AND iWaitIndex < 30
+ sleep (1)
+ iWaitIndex = iWaitIndex + 1
+ loop
+ endif
+ if ( dir(OutputGrafikTBO & "1" & sExt) <> "") then
+ Printlog "Ok :-) Saved as: '" & OutputGrafikTBO & "1" & sExt & "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hNewDocument()
+ sleep 5
+ Call hGrafikEinfuegen ( OutputGrafikTBO & "1" & sExt )
+ bTemp = FALSE
+ fGetSizeXY sx1, sY, bTemp
+ if (bTemp = FALSE) then
+ warnlog "Selected original size NOT OK :-("
+ endif
+ endif
+ hCloseDocument ()
+ hNewDocument()
+ hRechteckErstellen ( 10, 10, 30, 40 )
+ if hCallExport (OutputGrafikTBO & "2" , sFilter, TRUE ) = TRUE then
+ Kontext "METOptionen"
+ if METOptionen.Exists (2) then
+ Groesse.Check
Breite.SetText "9"
Hoehe.SetText "9"
Groesse.Check ' Click "Size" one more time to make the changes go through.
sx1 = Breite.GetText
sY = Hoehe.GetText
- METOptionen.OK
- iWaitIndex = 0
- do while METOptionen.Exists AND iWaitIndex < 30
- sleep (1)
- iWaitIndex = iWaitIndex + 1
- loop
- endif
- if ( dir(OutputGrafikTBO + "2"+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "2"+sExt + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hFileOpen (OutputGrafikTBO + "2"+sExt)
- kontext "DocumentDraw"
- DocumentDraw.TypeKeys ("<escape><tab>")
- ContextOriginalSize
- bTemp = FALSE
- fGetSizeXY sx1, sY, bTemp
- if (bTemp = FALSE) then
- warnlog "Selected original size NOT OK :-("
- endif
- endif
- if hCallExport (OutputGrafikTBO + "3" , sFilter, TRUE ) = TRUE then
- Kontext "METOptionen"
- if METOptionen.Exists (2) then
- Groesse.Check
+ METOptionen.OK
+ iWaitIndex = 0
+ do while METOptionen.Exists AND iWaitIndex < 30
+ sleep (1)
+ iWaitIndex = iWaitIndex + 1
+ loop
+ endif
+ if ( dir(OutputGrafikTBO & "2" & sExt) <> "") then
+ Printlog "Ok :-) Saved as: '" & OutputGrafikTBO & "2" & sExt & "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hFileOpen (OutputGrafikTBO & "2" & sExt)
+ kontext "DocumentDraw"
+ DocumentDraw.TypeKeys ("<escape><tab>")
+ ContextOriginalSize
+ bTemp = FALSE
+ fGetSizeXY sx1, sY, bTemp
+ if (bTemp = FALSE) then
+ warnlog "Selected original size NOT OK :-("
+ endif
+ endif
+ if hCallExport (OutputGrafikTBO & "3" , sFilter, TRUE ) = TRUE then
+ Kontext "METOptionen"
+ if METOptionen.Exists (2) then
+ Groesse.Check
sX2 = Breite.GetText
if (LiberalMeasurement(sx1, sX2)) <> TRUE then
- if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
- Printlog "Width was ok. Expected: " + sx1 + "' was: '" + sX2 + "'"
- else
- warnLog "Width is different expected: '" + sx1 + "' is: '" + sX2 + "'"
- endif
+ if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
+ Printlog "Width was ok. Expected: " & sx1 & "' was: '" & sX2 & "'"
+ else
+ warnLog "Width is different expected: '" & sx1 & "' is: '" & sX2 & "'"
+ endif
endif
sY2 = Hoehe.GetText
if (LiberalMeasurement(sY, sY2)) <> TRUE then
- if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
- Printlog "Height was ok. Expected: " + sY + "' was: '" + sY2 + "'"
- else
- warnLog "Height is different expected: '" + sY + "' is: '" + sY2 + "'"
- endif
+ if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
+ Printlog "Height was ok. Expected: " & sY & "' was: '" & sY2 & "'"
+ else
+ warnLog "Height is different expected: '" & sY & "' is: '" & sY2 & "'"
+ endif
endif
- METOptionen.Cancel
- sleep 5
- endif
- endif
+ METOptionen.Cancel
+ sleep 5
+ endif
+ endif
- call hCloseDocument
+ call hCloseDocument
endcase
'-------------------------------------------------------------------------------
testcase tSWF
- dim sFilter as string
- dim sExt as string
- dim x as integer
- dim i as integer
+ dim sFilter as string
+ dim sExt as string
+ dim x as integer
+ dim i as integer
- sFilter = "Macromedia Flash (SWF) (.swf)"
- sExt = ".swf"
+ sFilter = "Macromedia Flash (SWF) (.swf)"
+ sExt = ".swf"
- '/// open the document
- hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString ))
+ hFileOpen( gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString )
- '/// save it ///'
- if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
- if ( dir(OutputGrafikTBO+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
- sleep 5
- else
- warnlog "File didn't get saved :-("
- endif
- endif
+ if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
+ if ( dir(OutputGrafikTBO+sExt) <> "") then
+ Printlog "Ok :-) Saved as: '" & OutputGrafikTBO+sExt & "'"
+ sleep 5
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ endif
- call hCloseDocument
+ call hCloseDocument
endcase
'------------------------------------------------------------------------------
testcase tWMF
- dim x as integer
- dim i as integer
- dim iWaitIndex as integer
- dim sFilter as string
- dim sExt as string
- dim bTemp as boolean
- dim sX as string
- dim sY as string
- dim sx1 as string
- dim sX2 as string
- dim sY2 as string
- dim sDocument as string
-
- sFilter = "WMF - Windows Metafile (.wmf)"
- sExt = ".wmf"
-
- '/// open the document
- sDocument = ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString)
- hFileOpen sDocument
-
- if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
- Kontext "SVMOptionen"
- if SVMOptionen.Exists (2) then
- '/// check if all properties have the right count, and depend on each other ///'
- Original.Check
- if Breite.IsEnabled then warnlog " :-("
- if Hoehe.IsEnabled then warnlog " :-("
- Groesse.Check
+ dim x as integer
+ dim i as integer
+ dim iWaitIndex as integer
+ dim sFilter as string
+ dim sExt as string
+ dim bTemp as boolean
+ dim sX as string
+ dim sY as string
+ dim sx1 as string
+ dim sX2 as string
+ dim sY2 as string
+ dim sDocument as string
+
+ sFilter = "WMF - Windows Metafile (.wmf)"
+ sExt = ".wmf"
+
+ sDocument = gTesttoolPath & "graphics\required\input\graphicexport." & ExtensionString
+ hFileOpen sDocument
+
+ if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
+ Kontext "SVMOptionen"
+ if SVMOptionen.Exists (2) then
+ Original.Check
+ if Breite.IsEnabled then
+ warnlog " :-("
+ endif
+ if Hoehe.IsEnabled then
+ warnlog " :-("
+ endif
+ Groesse.Check
Breite.More
Hoehe.Less
- '/// leave dialog with cancel -> there has to be no file created! ///'
- SVMOptionen.Cancel
- sleep 5
- if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
- Printlog "ok :-)"
- else
- warnlog "Dialog was canceled, but file got saved, too :-( - i35177"
- endif
- else
- Warnlog "No '" + sFilter + "' -Dialog!"
- i=5
- end if
- sleep 2
- Kontext "Active"
- if Active.Exists(2) then
- Warnlog " '" + sFilter + "' has a problem"
- Active.OK
- end if
- end if
- Printlog "'/// now save it realy and load the file afterwards ///'"
- if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
- Kontext "SVMOptionen"
- if SVMOptionen.Exists (2) then
- Groesse.Check
+ SVMOptionen.Cancel
+ sleep 5
+ if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
+ Printlog "ok :-)"
+ else
+ warnlog "Dialog was canceled, but file got saved, too :-( - i35177"
+ endif
+ else
+ Warnlog "No '" & sFilter & "' -Dialog!"
+ i=5
+ end if
+ sleep 2
+ Kontext "Active"
+ if Active.Exists(2) then
+ Warnlog " '" & sFilter & "' has a problem"
+ Active.OK
+ end if
+ end if
+ if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
+ Kontext "SVMOptionen"
+ if SVMOptionen.Exists (2) then
+ Groesse.Check
Breite.Less
Hoehe.More
- SVMOptionen.OK
- iWaitIndex = 0
- do while SVMOptionen.Exists AND iWaitIndex < 30
- sleep (1)
- iWaitIndex = iWaitIndex + 1
- loop
- endif
- if ( dir(OutputGrafikTBO+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hNewDocument()
- sleep 5
- Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
- endif
- hCloseDocument ()
- Printlog "'/// now save a SELECTION in ORIGINAL SIZE and load the file afterwards ///'"
- hFileOpen (sDocument)
- sleep (10)
+ SVMOptionen.OK
+ iWaitIndex = 0
+ do while SVMOptionen.Exists AND iWaitIndex < 30
+ sleep (1)
+ iWaitIndex = iWaitIndex + 1
+ loop
+ endif
+ if ( dir(OutputGrafikTBO+sExt) <> "") then
+ Printlog "Ok :-) Saved as: '" & OutputGrafikTBO+sExt & "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hNewDocument()
+ sleep 5
+ Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
+ endif
+ hCloseDocument ()
+ hFileOpen (sDocument)
+ sleep (10)
' check if the document is writable
if fIsDocumentWritable = false then
@@ -1396,98 +1293,97 @@ testcase tWMF
endif
endif
- hTypeKeys ("<escape><tab>")
- fGetSizeXY sx1, sY, TRUE
- if hCallExport (OutputGrafikTBO + "1" , sFilter, TRUE ) = TRUE then
- Kontext "SVMOptionen"
- if SVMOptionen.Exists (2) then
- Original.Check
- SVMOptionen.OK
- iWaitIndex = 0
- do while SVMOptionen.Exists AND iWaitIndex < 30
- sleep (1)
- iWaitIndex = iWaitIndex + 1
- loop
- endif
- if ( dir(OutputGrafikTBO + "1"+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "1"+sExt + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hNewDocument()
- sleep 5
- Call hGrafikEinfuegen ( OutputGrafikTBO + "1"+sExt )
- bTemp = FALSE
- fGetSizeXY sx1, sY, bTemp
- if (bTemp = FALSE) then
- warnlog "Selected original size NOT OK :-("
- endif
- endif
- hCloseDocument ()
- Printlog "'/// now CREATE a rectangle, select it, save it in SIZE and load the file afterwards ///'"
- hNewDocument()
- hRechteckErstellen ( 10, 10, 30, 40 )
- if hCallExport (OutputGrafikTBO + "2" , sFilter, TRUE ) = TRUE then
- Kontext "SVMOptionen"
- if SVMOptionen.Exists (2) then
- Groesse.Check
+ hTypeKeys ("<escape><tab>")
+ fGetSizeXY sx1, sY, TRUE
+ if hCallExport (OutputGrafikTBO & "1" , sFilter, TRUE ) = TRUE then
+ Kontext "SVMOptionen"
+ if SVMOptionen.Exists (2) then
+ Original.Check
+ SVMOptionen.OK
+ iWaitIndex = 0
+ do while SVMOptionen.Exists AND iWaitIndex < 30
+ sleep (1)
+ iWaitIndex = iWaitIndex + 1
+ loop
+ endif
+ if ( dir(OutputGrafikTBO & "1" & sExt) <> "") then
+ Printlog "Ok :-) Saved as: '" & OutputGrafikTBO & "1" & sExt & "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hNewDocument()
+ sleep 5
+ Call hGrafikEinfuegen ( OutputGrafikTBO & "1" & sExt )
+ bTemp = FALSE
+ fGetSizeXY sx1, sY, bTemp
+ if (bTemp = FALSE) then
+ warnlog "Selected original size NOT OK :-("
+ endif
+ endif
+ hCloseDocument ()
+ hNewDocument()
+ hRechteckErstellen ( 10, 10, 30, 40 )
+ if hCallExport (OutputGrafikTBO & "2" , sFilter, TRUE ) = TRUE then
+ Kontext "SVMOptionen"
+ if SVMOptionen.Exists (2) then
+ Groesse.Check
Breite.SetText "9"
Hoehe.SetText "9"
Groesse.Check 'Check "Size" to make changes really go through.
sx1 = Breite.GetText
sY = Hoehe.GetText
- SVMOptionen.OK
- iWaitIndex = 0
- do while SVMOptionen.Exists AND iWaitIndex < 30
- sleep (1)
- iWaitIndex = iWaitIndex + 1
- loop
- endif
- if ( dir(OutputGrafikTBO + "2"+sExt) <> "") then
- Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "2"+sExt + "'"
- else
- warnlog "File didn't get saved :-("
- endif
- hCloseDocument ()
- sleep 5
- hFileOpen (OutputGrafikTBO + "2"+sExt)
- kontext "DocumentDraw"
- DocumentDraw.TypeKeys ("<escape><tab>")
- ContextOriginalSize
- bTemp = FALSE
- fGetSizeXY sx1, sY, bTemp
- if (bTemp = FALSE) then
- warnlog "Selected original size NOT OK :-("
- endif
- endif
- if hCallExport (OutputGrafikTBO + "3" , sFilter, TRUE ) = TRUE then
- Kontext "SVMOptionen"
- if SVMOptionen.Exists (2) then
- Groesse.Check
+ SVMOptionen.OK
+ iWaitIndex = 0
+ do while SVMOptionen.Exists AND iWaitIndex < 30
+ sleep (1)
+ iWaitIndex = iWaitIndex + 1
+ loop
+ endif
+ if ( dir(OutputGrafikTBO & "2" & sExt) <> "") then
+ Printlog "Ok :-) Saved as: '" & OutputGrafikTBO & "2" & sExt & "'"
+ else
+ warnlog "File didn't get saved :-("
+ endif
+ hCloseDocument ()
+ sleep 5
+ hFileOpen (OutputGrafikTBO & "2" & sExt)
+ kontext "DocumentDraw"
+ DocumentDraw.TypeKeys ("<escape><tab>")
+ ContextOriginalSize
+ bTemp = FALSE
+ fGetSizeXY sx1, sY, bTemp
+ if (bTemp = FALSE) then
+ warnlog "Selected original size NOT OK :-("
+ endif
+ endif
+ if hCallExport (OutputGrafikTBO & "3" , sFilter, TRUE ) = TRUE then
+ Kontext "SVMOptionen"
+ if SVMOptionen.Exists (2) then
+ Groesse.Check
sX2 = Breite.GetText
if (LiberalMeasurement(sx1, sX2)) <> TRUE then
- if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
- Printlog "Width was ok. Expected: " + sx1 + "' was: '" + sX2 + "'"
- else
- warnLog "Width is different expected: '" + sx1 + "' is: '" + sX2 + "'"
- endif
+ if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
+ Printlog "Width was ok. Expected: " & sx1 & "' was: '" & sX2 & "'"
+ else
+ warnLog "Width is different expected: '" & sx1 & "' is: '" & sX2 & "'"
+ endif
endif
sY2 = Hoehe.GetText
if (LiberalMeasurement(sY, sY2)) <> TRUE then
- if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
- Printlog "Height was ok. Expected: " + sY + "' was: '" + sY2 + "'"
- else
- warnLog "Height is different expected: '" + sY + "' is: '" + sY2 + "'"
- endif
+ if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
+ Printlog "Height was ok. Expected: " & sY & "' was: '" & sY2 & "'"
+ else
+ warnLog "Height is different expected: '" & sY & "' is: '" & sY2 & "'"
+ endif
endif
- SVMOptionen.Cancel
- sleep 5
- endif
- endif
+ SVMOptionen.Cancel
+ sleep 5
+ endif
+ endif
- call hCloseDocument
+ call hCloseDocument
endcase
'-------------------------------------------------------------------------
diff --git a/testautomation/graphics/optional/includes/global/g_accessability.inc b/testautomation/graphics/optional/includes/global/g_accessability.inc
index b4622711a5c5..3b0bdde41147 100755
--- a/testautomation/graphics/optional/includes/global/g_accessability.inc
+++ b/testautomation/graphics/optional/includes/global/g_accessability.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
@@ -42,288 +42,249 @@
'\*************************************************************************************
testcase tEis1549
-'/// 1549: Activating Text Input directly, 1548: Start Text Edit mode with RETURN, ///'
-'///+ get into edit mode, with typing a 'printable' character, [F2] or [Return] ///'
-'/// open application ///'
- call hNewDocument
- '/// create a textbox, write text ///'
- call hTextrahmenErstellen ("Sun",20,20,70,20)
+ call hNewDocument
+ call hTextrahmenErstellen ("Sun",20,20,70,20)
- '/// get out of edit mode, by typing [esc][esc] ///'
- hTypeKeys ("<escape><escape>")
- hTypeKeys ("<end><shift home>")
- try
- EditCopy
- if GetClipboardText <> "" then
- warnlog "Leaving edit mode didn't work :-( '" + GetClipboardText + "'"
- endif
- catch
- Printlog "Left text edit mode :-)"
- endcatch
- '/// put focus onto textobject/frame with [strg]+[a] ///'
- EditSelectAll
- '/// type a text -> the chars have to appear in the object ///'
- hTypeKeys (" ")
- sleep 1
- hTypeKeys ("is")
-' hTypeKeys ("<end><shift home>") '/// has to insert the text as default at the end ! eis:1550 !!!!!!!!!! Cursor position at Text Edit Mode activation ///'
- hTypeKeys ("<shift home>")
- try
- EditCopy
- if GetClipboardText = "Sun is" then
- Printlog "Activating a textobject with 'printable' characters works :-)"
- else
- warnlog "Activating edit mode didn't work :-( '" + GetClipboardText + "' #99393#"
- endif
- catch
- warnlog "Entering edit mode didn't work :-( '" + GetClipboardText + "'"
- endcatch
+ hTypeKeys ("<escape><escape>")
+ hTypeKeys ("<end><shift home>")
+ try
+ EditCopy
+ if GetClipboardText <> "" then
+ warnlog "Leaving edit mode didn't work :-( '" + GetClipboardText + "'"
+ endif
+ catch
+ Printlog "Left text edit mode :-)"
+ endcatch
+ EditSelectAll
+ hTypeKeys (" ")
+ sleep 1
+ hTypeKeys ("is")
+ hTypeKeys ("<shift home>")
+ try
+ EditCopy
+ if GetClipboardText = "Sun is" then
+ Printlog "Activating a textobject with 'printable' characters works :-)"
+ else
+ warnlog "Activating edit mode didn't work :-( '" + GetClipboardText + "' #99393#"
+ endif
+ catch
+ warnlog "Entering edit mode didn't work :-( '" + GetClipboardText + "'"
+ endcatch
- '/// get out of edit mode, by typing [esc][esc] ///'
- hTypeKeys ("<escape><escape>")
- hTypeKeys ("<end><shift home>")
- try
- EditCopy
- if GetClipboardText <> "" then
- warnlog "Leaving edit mode didn't work :-( '" + GetClipboardText + "'"
- endif
- catch
- Printlog "Left text edit mode :-)"
- endcatch
- '/// put focus onto textobject/frame with [Tab] ///'
- hTypeKeys ("<Tab>")
- '/// go into edit mode with [F2] ///'
- hTypeKeys ("<F2>")
-' hTypeKeys ("<end><shift home>")
- hTypeKeys ("<shift home>")
- try
- EditCopy
- if GetClipboardText = "Sun is" then
- Printlog "Activating a textobject with <F2> works :-)"
- else
- warnlog "Activating edit mode didn't work :-( '" + GetClipboardText + "' #99393#"
- endif
- catch
- warnlog "Entering edit mode didn't work :-( '" + GetClipboardText + "'"
- endcatch
+ hTypeKeys ("<escape><escape>")
+ hTypeKeys ("<end><shift home>")
+ try
+ EditCopy
+ if GetClipboardText <> "" then
+ warnlog "Leaving edit mode didn't work :-( '" + GetClipboardText + "'"
+ endif
+ catch
+ Printlog "Left text edit mode :-)"
+ endcatch
+ hTypeKeys ("<Tab>")
+ hTypeKeys ("<F2>")
+ ' hTypeKeys ("<end><shift home>")
+ hTypeKeys ("<shift home>")
+ try
+ EditCopy
+ if GetClipboardText = "Sun is" then
+ Printlog "Activating a textobject with <F2> works :-)"
+ else
+ warnlog "Activating edit mode didn't work :-( '" + GetClipboardText + "' #99393#"
+ endif
+ catch
+ warnlog "Entering edit mode didn't work :-( '" + GetClipboardText + "'"
+ endcatch
- '/// get out of edit mode, by typing [esc][esc] ///'
- hTypeKeys ("<escape><escape>")
- hTypeKeys ("<end><shift home>")
- try
- EditCopy
- if GetClipboardText <> "" then
- warnlog "Leaving edit mode didn't work :-( '" + GetClipboardText + "'"
- endif
- catch
- Printlog "Left text edit mode :-)"
- endcatch
- '/// put focus onto textobject/frame with [Tab] ///'
- hTypeKeys ("<Tab>")
- '/// go into edit mode with [Return] ///'
- hTypeKeys ("<Return>")
-' hTypeKeys ("<end><shift home>")
- hTypeKeys ("<shift home>")
- try
- EditCopy
- if GetClipboardText = "Sun is" then
- Printlog "Activating a textobject with <Return> works :-)"
- else
- warnlog "Activating edit mode didn't work :-( '" + GetClipboardText + "' #99393#"
- endif
- catch
- warnlog "Entering edit mode didn't work :-( '" + GetClipboardText + "'"
- endcatch
+ hTypeKeys ("<escape><escape>")
+ hTypeKeys ("<end><shift home>")
+ try
+ EditCopy
+ if GetClipboardText <> "" then
+ warnlog "Leaving edit mode didn't work :-( '" + GetClipboardText + "'"
+ endif
+ catch
+ Printlog "Left text edit mode :-)"
+ endcatch
+ hTypeKeys ("<Tab>")
+ hTypeKeys ("<Return>")
+ ' hTypeKeys ("<end><shift home>")
+ hTypeKeys ("<shift home>")
+ try
+ EditCopy
+ if GetClipboardText = "Sun is" then
+ Printlog "Activating a textobject with <Return> works :-)"
+ else
+ warnlog "Activating edit mode didn't work :-( '" + GetClipboardText + "' #99393#"
+ endif
+ catch
+ warnlog "Entering edit mode didn't work :-( '" + GetClipboardText + "'"
+ endcatch
-'/// close application ///'
- call hCloseDocument
+ call hCloseDocument
endcase
testcase tEis1523
-'/// 1523: CTRL-RETURN text object travelling ///'
-'///+ get into edit mode, with typing a 'printable' character, [F2], [Return] ///'
-'/// open application ///'
- call hNewDocument
- '/// create 3 textboxes, write text ///'
- call hTextrahmenErstellen ("A",20,20,30,30)
- hTypeKeys ("<escape><escape>")
- call hTextrahmenErstellen ("B",10,10,15,15)
- hTypeKeys ("<escape><escape>")
- call hTextrahmenErstellen ("C",40,40,50,50)
- hTypeKeys ("<escape><escape>")
+ call hNewDocument
+ call hTextrahmenErstellen ("A",20,20,30,30)
+ hTypeKeys ("<escape><escape>")
+ call hTextrahmenErstellen ("B",10,10,15,15)
+ hTypeKeys ("<escape><escape>")
+ call hTextrahmenErstellen ("C",40,40,50,50)
+ hTypeKeys ("<escape><escape>")
- '/// activate first text with [ctrl]+[Return]] ///'
- hTypeKeys ("<mod1 Return>")
-' hTypeKeys ("<end><shift home>")
- hTypeKeys ("<shift home>")
- try
- EditCopy
- if GetClipboardText <> "A" then
- warnlog "First textbox not activated :-( instead '" + GetClipboardText + "'"
- endif
- catch
- warnlog "Unexpected error :-("
- endcatch
- '///+ activate second text with [ctrl]+[Return]] ///'
- hTypeKeys ("<mod1 Return>")
-' hTypeKeys ("<end><shift home>")
- hTypeKeys ("<shift home>")
- try
- EditCopy
- if GetClipboardText <> "B" then
- warnlog "First textbox not activated :-( instead '" + GetClipboardText + "'"
- endif
- catch
- warnlog "Unexpected error :-("
- endcatch
- '///+ activate third text with [ctrl]+[Return]] ///'
- hTypeKeys ("<mod1 Return>")
- hTypeKeys ("<end><shift home>")
- try
- EditCopy
- if GetClipboardText <> "C" then
- warnlog "First textbox not activated :-( Instead '" + GetClipboardText + "'"
- endif
- catch
- warnlog "Unexpected error :-("
- endcatch
+ hTypeKeys ("<mod1 Return>")
+ ' hTypeKeys ("<end><shift home>")
+ hTypeKeys ("<shift home>")
+ try
+ EditCopy
+ if GetClipboardText <> "A" then
+ warnlog "First textbox not activated :-( instead '" + GetClipboardText + "'"
+ endif
+ catch
+ warnlog "Unexpected error :-("
+ endcatch
+ hTypeKeys ("<mod1 Return>")
+ ' hTypeKeys ("<end><shift home>")
+ hTypeKeys ("<shift home>")
+ try
+ EditCopy
+ if GetClipboardText <> "B" then
+ warnlog "First textbox not activated :-( instead '" + GetClipboardText + "'"
+ endif
+ catch
+ warnlog "Unexpected error :-("
+ endcatch
+ hTypeKeys ("<mod1 Return>")
+ hTypeKeys ("<end><shift home>")
+ try
+ EditCopy
+ if GetClipboardText <> "C" then
+ warnlog "First textbox not activated :-( Instead '" + GetClipboardText + "'"
+ endif
+ catch
+ warnlog "Unexpected error :-("
+ endcatch
- '/// now, since there is no following textobject, insert new page with [ctrl]+[Return]] ///'
- hTypeKeys ("<mod1 Return>")
- hTypeKeys ("<PageDown>")
- '/// create textbox, write text ///'
- call hTextrahmenErstellen ("D",20,20,30,30)
- hTypeKeys ("<escape><escape>")
- hTypeKeys ("<mod1 Return>")
- hTypeKeys ("<end><shift home>")
- try
- EditCopy
- if GetClipboardText <> "D" then
- warnlog "First textbox not activated :-( instead '" + GetClipboardText + "'"
- endif
- catch
- warnlog "Unexpected error :-("
- endcatch
+ hTypeKeys ("<mod1 Return>")
+ hTypeKeys ("<PageDown>")
+ call hTextrahmenErstellen ("D",20,20,30,30)
+ hTypeKeys ("<escape><escape>")
+ hTypeKeys ("<mod1 Return>")
+ hTypeKeys ("<end><shift home>")
+ try
+ EditCopy
+ if GetClipboardText <> "D" then
+ warnlog "First textbox not activated :-( instead '" + GetClipboardText + "'"
+ endif
+ catch
+ warnlog "Unexpected error :-("
+ endcatch
- if (gApplication = "IMPRESS") then
- '/// IMPRESS only ///'
- '///+ check if Layout placeholders are inherited ///'
- '///+ create new page with [ctrl]+[Return]] ///'
- hTypeKeys ("<mod1 Return>")
- FormatModifyPage ' ..Layout
- sleep 2
- Kontext "Slides"
- hTypeKeys ("<PageDown>")
- hTypeKeys ("<PageDown>")
- kontext "Tasks"
- LayoutsPreview.TypeKeys "<home>"
- LayoutsPreview.TypeKeys "<down>"
- LayoutsPreview.TypeKeys "<Return>"
- '///+ go into the placeholder with [ctrl]+[Return]] ///'
- hTypeKeys ("<mod1 Return>")
- hTypeKeys ("<end><shift home>")
- try
- EditCopy
- if GetClipboardText <> "" then
- warnlog "No new layout :-( '" + GetClipboardText + "'"
- endif
- catch
- Printlog "Layout accepted :-)"
- endcatch
- hTypeKeys "Great"
- hTypeKeys ("<end><shift home>")
- try
- EditCopy
- if GetClipboardText <> "Great" then
- warnlog "No new layout 2:-( '" + GetClipboardText + "'"
- endif
- catch
- Printlog "Layout accepted :-)"
- endcatch
- endif
+ if (gApplication = "IMPRESS") then
+ hTypeKeys ("<mod1 Return>")
+ FormatModifyPage ' ..Layout
+ sleep 2
+ Kontext "Slides"
+ hTypeKeys ("<PageDown>")
+ hTypeKeys ("<PageDown>")
+ kontext "Tasks"
+ LayoutsPreview.TypeKeys "<home>"
+ LayoutsPreview.TypeKeys "<down>"
+ LayoutsPreview.TypeKeys "<Return>"
+ hTypeKeys ("<mod1 Return>")
+ hTypeKeys ("<end><shift home>")
+ try
+ EditCopy
+ if GetClipboardText <> "" then
+ warnlog "No new layout :-( '" + GetClipboardText + "'"
+ endif
+ catch
+ Printlog "Layout accepted :-)"
+ endcatch
+ hTypeKeys "Great"
+ hTypeKeys ("<end><shift home>")
+ try
+ EditCopy
+ if GetClipboardText <> "Great" then
+ warnlog "No new layout 2:-( '" + GetClipboardText + "'"
+ endif
+ catch
+ Printlog "Layout accepted :-)"
+ endcatch
+ endif
-'/// close application ///'
- call hCloseDocument
+ call hCloseDocument
endcase
testcase tEis1581
- dim i as integer
- '/// ############### IMPRESS only ################## ///'
- '/// 1581: Activation of empty presentation object in Impress via Keyboard ///'
- '///+ get into edit mode, with typing [Return] for ole's and graphics ///'
- '/// open application ///'
- call hNewDocument
+ dim i as integer
+ call hNewDocument
- if (gApplication = "IMPRESS") then
- '/// Format -> Layout ///'
- FormatModifyPage
- '/// choose layout with graphic ///'
- sleep 1
- kontext "Tasks"
- LayoutsPreview.TypeKeys "<home>"
- kontext "Pagelayout_UndoDeleteWarning"
- if Pagelayout_UndoDeleteWarning.exists then
- Pagelayout_UndoDeleteWarning.ok
- endif
- for i = 1 to 9
- kontext "Tasks"
+ if (gApplication = "IMPRESS") then
+ FormatModifyPage
+ sleep 1
+ kontext "Tasks"
+ LayoutsPreview.TypeKeys "<home>"
+ kontext "Pagelayout_UndoDeleteWarning"
+ if Pagelayout_UndoDeleteWarning.exists then
+ Pagelayout_UndoDeleteWarning.ok
+ endif
+ for i = 1 to 9
+ kontext "Tasks"
LayoutsPreview.TypeKeys "<RIGHT>"
- kontext "Pagelayout_UndoDeleteWarning"
- if Pagelayout_UndoDeleteWarning.exists then
+ kontext "Pagelayout_UndoDeleteWarning"
+ if Pagelayout_UndoDeleteWarning.exists then
+ warnlog " Undo/Delete-Warning showed up. But it shouldn't have."
+ Pagelayout_UndoDeleteWarning.ok
+ endif
+ next i
+ kontext "Tasks"
+ LayoutsPreview.TypeKeys "<Return>"
+ sleep (1)
+ hTypeKeys ("<tab><tab>")
+ sleep (1)
+ hTypeKeys ("<Return>")
+ sleep (2)
+ kontext "GeneralFileDialog"
+ if GeneralFileDialog.exists then
+ sleep 1
+ GeneralFileDialog.cancel
+ else
+ warnlog "Graphic wasn't selected :-("
+ endif
+ kontext "Tasks"
+ LayoutsPreview.TypeKeys "<home>"
+ kontext "Pagelayout_UndoDeleteWarning"
+ if Pagelayout_UndoDeleteWarning.exists then
warnlog " Undo/Delete-Warning showed up. But it shouldn't have."
- Pagelayout_UndoDeleteWarning.ok
- endif
- next i
- kontext "Tasks"
- LayoutsPreview.TypeKeys "<Return>"
- sleep (1)
- '/// select the graphics placeholder and activate it with [Return] ///'
- hTypeKeys ("<tab><tab>")
- sleep (1)
- hTypeKeys ("<Return>")
- sleep (2)
- kontext "GeneralFileDialog"
- if GeneralFileDialog.exists then
- sleep 1
- GeneralFileDialog.cancel
- else
- warnlog "Graphic wasn't selected :-("
- endif
-'/// choose layout with ole ///'
- kontext "Tasks"
- LayoutsPreview.TypeKeys "<home>"
- kontext "Pagelayout_UndoDeleteWarning"
- if Pagelayout_UndoDeleteWarning.exists then
- warnlog " Undo/Delete-Warning showed up. But it shouldn't have."
- Pagelayout_UndoDeleteWarning.ok
- endif
- sleep (1)
- for i = 1 to 17
- kontext "Tasks"
- LayoutsPreview.TypeKeys "<RIGHT>"
- kontext "Pagelayout_UndoDeleteWarning"
- if Pagelayout_UndoDeleteWarning.exists then
- warnlog " Undo/Delete-Warning showed up. But it shouldn't have."
- Pagelayout_UndoDeleteWarning.ok
- endif
- next i
- kontext "Tasks"
- LayoutsPreview.TypeKeys "<Return>"
- sleep (1)
- '/// select the ole placeholder and activate it with [Return] ///'
- hTypeKeys ("<tab><tab><tab>")
- sleep (1)
- hTypeKeys ("<Return>")
- try
- sleep 2
-' InsertTitle *OLEObjektEinfuegen/OLEObjektInsert SID_INSERT_OBJECT
- kontext "OLEObjektInsert"
- sleep 1
- OLEObjektInsert.cancel
- catch
- warnlog "Ole wasn't selected :-("
- endcatch
- endif
- '/// close application ///'
- call hCloseDocument
+ Pagelayout_UndoDeleteWarning.ok
+ endif
+ sleep (1)
+ for i = 1 to 17
+ kontext "Tasks"
+ LayoutsPreview.TypeKeys "<RIGHT>"
+ kontext "Pagelayout_UndoDeleteWarning"
+ if Pagelayout_UndoDeleteWarning.exists then
+ warnlog " Undo/Delete-Warning showed up. But it shouldn't have."
+ Pagelayout_UndoDeleteWarning.ok
+ endif
+ next i
+ kontext "Tasks"
+ LayoutsPreview.TypeKeys "<Return>"
+ sleep (1)
+ hTypeKeys ("<tab><tab><tab>")
+ sleep (1)
+ hTypeKeys ("<Return>")
+ try
+ sleep 2
+ ' InsertTitle *OLEObjektEinfuegen/OLEObjektInsert SID_INSERT_OBJECT
+ kontext "OLEObjektInsert"
+ sleep 1
+ OLEObjektInsert.cancel
+ catch
+ warnlog "Ole wasn't selected :-("
+ endcatch
+ endif
+ call hCloseDocument
endcase
diff --git a/testautomation/graphics/optional/includes/global/g_area.inc b/testautomation/graphics/optional/includes/global/g_area.inc
index 8a4f5980c3b8..db56e3252af1 100755
--- a/testautomation/graphics/optional/includes/global/g_area.inc
+++ b/testautomation/graphics/optional/includes/global/g_area.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
@@ -41,372 +41,333 @@
'\*************************************************************************************
testcase tiFormatArea
- Dim i
- Dim Zaehler
- dim Entf$
+ Dim i
+ Dim Zaehler
+ dim Entf$
- hNewDocument '/// New impress document ///'
- hRechteckErstellen (20,20,60,60) '/// create rectangle ///'
- Printlog " - Change Format" '/// change format for the rectangle ///'
- FormatArea
- Kontext
- active.SetPage TabArea
- Kontext "TabArea"
- FillOptions.Select 5 '/// apply bitmap as texture ///'
- BitmapList.Select 3 '/// Select "Water" ///'
- Tile.Check '/// tile bitmap ///'
- Kontext
- active.SetPage TabSchatten
- kontext "TabSchatten"
- Anzeigen.Check '/// apply shadow ///'
- Entfernung.SetText "30" '/// set angle to 30���///'
- Entf$=Entfernung.GetText '/// change distance ///'
- Farbe.Select 15 '/// select color 15///'
- TabSchatten.OK '/// close dialog ///'
- Sleep 3
+ FormatArea
+ Kontext
+ active.SetPage TabArea
+ Kontext "TabArea"
+ Kontext
+ active.SetPage TabSchatten
+ kontext "TabSchatten"
+ Sleep 3
- Printlog " - Test various formats"
- FormatArea '/// Format area, check if changes are saved for this object ///'
- Kontext
- active.SetPage TabArea
- Kontext "TabArea"
- if NOT FillOptions.GetSelIndex = 5 then
- Warnlog "Bitmap is not checked"
- else
- if BitmapList.GetSelIndex <> 3 then Warnlog "Wrong bitmap used. "+ BitmapAuswahl.GetSelIndex
- if NOT Tile.IsChecked then Warnlog "Tile is not checked"
-' if Original.IsChecked then Warnlog "Original is not checked"
-' if NOT Relativ.IsChecked then Warnlog "Relative is not checked"
-' if Breite.GetText <> "90 %" then Warnlog "Width is not 90%, it is: "+Breite.GetText
-' if XOffset.GetText <> "30 %" then Warnlog "XOffset is not 30%, it is: "+XOffset.GetText
-' if NOT Zeile.IsChecked then Warnlog "Line is not checked"
-' if Verschiebung.GetText <> "20 %" then Warnlog "Displace is not 20%, it is: " + Verschiebung.GetText
- Kontext
- active.SetPage TabSchatten
- kontext "TabSchatten"
- if NOT Anzeigen.IsChecked then
- Warnlog "Show shadows is not checked"
- else
- if Entfernung.GetText <> Entf$ then Warnlog "Distance is not " + Entf$ + " it is: "+ Entfernung.GetText
- if Farbe.GetSelIndex <> 15 then Warnlog "Wrong color for shadow. It is: "+ Farbe.GetSelIndex
- end if
- end if
- TabSchatten.Cancel
+ Printlog " - Test various formats"
+ Kontext
+ active.SetPage TabArea
+ Kontext "TabArea"
+ if NOT FillOptions.GetSelIndex = 5 then
+ Warnlog "Bitmap is not checked"
+ else
+ if BitmapList.GetSelIndex <> 3 then Warnlog "Wrong bitmap used. "+ BitmapAuswahl.GetSelIndex
+ if NOT Tile.IsChecked then Warnlog "Tile is not checked"
+ ' if Original.IsChecked then Warnlog "Original is not checked"
+ ' if NOT Relativ.IsChecked then Warnlog "Relative is not checked"
+ ' if Breite.GetText <> "90 %" then Warnlog "Width is not 90%, it is: "+Breite.GetText
+ ' if XOffset.GetText <> "30 %" then Warnlog "XOffset is not 30%, it is: "+XOffset.GetText
+ ' if NOT Zeile.IsChecked then Warnlog "Line is not checked"
+ ' if Verschiebung.GetText <> "20 %" then Warnlog "Displace is not 20%, it is: " + Verschiebung.GetText
+ Kontext
+ active.SetPage TabSchatten
+ kontext "TabSchatten"
+ if NOT Anzeigen.IsChecked then
+ Warnlog "Show shadows is not checked"
+ else
+ if Entfernung.GetText <> Entf$ then Warnlog "Distance is not " + Entf$ + " it is: "+ Entfernung.GetText
+ if Farbe.GetSelIndex <> 15 then Warnlog "Wrong color for shadow. It is: "+ Farbe.GetSelIndex
+ end if
+ end if
+ TabSchatten.Cancel
- hCloseDocument '/// close document ///'
endcase
testcase tdFormatArea1
-Dim i
-Dim j
-Dim k
-Dim m
-Dim n
-Dim Winkel_1 as string
-Dim ZaehlerFarbe
-Dim ZaehlerVerlauf
-Dim ZaehlerSchraffur
-Dim ZaehlerBitmap
-Dim ColorName$
+ Dim i
+ Dim j
+ Dim k
+ Dim m
+ Dim n
+ Dim Winkel_1 as string
+ Dim ZaehlerFarbe
+ Dim ZaehlerVerlauf
+ Dim ZaehlerSchraffur
+ Dim ZaehlerBitmap
+ Dim ColorName$
ColorName$ = "Bullshit"
- dim Zaehler as integer
+ dim Zaehler as integer
- Call hNewDocument '/// new document ///'
- sleep 3
- Call hRechteckErstellen (30,30,70,70) '/// create rectangle ///'
- sleep 2
- FormatArea '/// format area ///'
- Kontext
- Active.SetPage TabArea
- Kontext "TabArea"
- FillOptions.Select 1 '/// Select no fill ///'
- sleep 2
- TabArea.OK
- sleep 1
- FormatArea
- Kontext
- Active.SetPage TabArea
- Kontext "TabArea"
- sleep 1 '/// control if changes are still there after closing and reopening dialog ///'
- FillOptions.Select 3'/// check gradient and select 1 ///'
- ZaehlerVerlauf = GradientList.GetItemCount
- for j = 1 To 2
- GradientList.Select j
- TabArea.OK
- FormatArea
- Kontext
- Active.SetPage TabArea
- Kontext "TabArea"
- PrintLog GradientList.GetSelText
- next j
- FillOptions.Select 4 '/// select hatching, control after closing and reopening dialog if changes are recognized ///'
- HatchingList.GetItemCount
- ZaehlerSchraffur = HatchingList.GetItemCount
- for k=1 to 2'ZaehlerSchraffur
- HatchingList.Select k
- TabArea.OK
- FormatArea
- Kontext
- Active.SetPage TabArea
- Kontext "TabArea"
- PrintLog HatchingList.GetSelText
- next k
-
- FillOptions.Select 5 '/// check bitmap, control if changes are permanent after closing and reopening dialog ///'
- BitmapList.GetItemCount
- ZaehlerBitmap = BitmapList.GetItemCount
- for n=1 to ZaehlerBitmap
- BitmapList.Select n
- TabArea.OK
- FormatArea
- sleep 1
- Kontext
- Active.SetPage TabArea
- Kontext "TabArea"
- PrintLog BitmapList.GetSelText
- next n
-
- if Tile.IsChecked = False Then Tile.Check '/// check tile ///'
-' if Anpassen.IsEnabled = False Then PrintLog " Option Tile activated"
-' if Anpassen.IsEnabled = True Then WarnLog " Option Tile not activated"
-' if Relativ.IsChecked = False Then
-' SetClipboard Breite.GetText
-' Relativ.Check
-' If Breite.GetText = GetClipboardText Then
-' WarnLog " Relative isnt working"
-' else
-' PrintLog " Relative works"
-' end if
-' end if
-'
-' if Kacheln.IsChecked = True Then Kacheln.UnCheck
-' Anpassen.Check
-' if Relativ.IsEnabled = True Then WarnLog " Option Anpassen konnte nicht aktiviert werden"
-' if not Relativ.IsEnabled Then PrintLog " Option Anpassen funktioniert"
-' Anpassen.Uncheck
-' Original.Check
-' if Breite.IsEnabled And Hoehe.IsEnabled = True Then WarnLog " Button Original funktioniert nicht"
-' if Breite.IsEnabled And Hoehe.IsEnabled = False Then PrintLog " Button Original funktioniert"
-' Kacheln.Check
-' setClipboard XOffset.GetText
-' XOffset.More 3
-' if XOffset.GetText <> GetClipboardText Then PrintLog " Position XOffset funktioniert"
-' if XOffset.GetText = GetClipboardText Then WarnLog " Position XOffset funktioniert nicht"
-' SetClipboard YOffset.GetText
-' YOffset.More 5
-' if YOffset.GetText <> GetClipboardText Then PrintLog " Position YOffset funktioniert"
-' if YOffset.GetText = GetClipboardText Then WarnLog " Position YOffset funktioniert nicht"
-' PrintLog " TabArea fertig"
- Kontext
- Active.SetPage TabSchatten
- Kontext "TabSchatten"
- sleep 1
- if Anzeigen.IsChecked = True Then Anzeigen.UnCheck '/// uncheck shadow ///'
- sleep 1
- if Entfernung.IsEnabled = False Then '/// check if shadow related controls are disabled with no shadow ///'
- PrintLog " Show shadow works"
- else
- WarnLog " Show shadow does not work"
- end if
-
- Anzeigen.Check '/// check shadow ///'
- SetClipboard Entfernung.GetText '/// change distance ///'
- Entfernung.More 4
- if GetClipboardText = Entfernung.GetText Then
- WarnLog " Distance does not work"
- else
- PrintLog " Distance does work"
- end if
- Farbe.Select 5 '/// change shadow color ///'
+ sleep 3
+ sleep 2
+ Kontext
+ Active.SetPage TabArea
+ Kontext "TabArea"
+ sleep 2
+ TabArea.OK
+ sleep 1
+ FormatArea
+ Kontext
+ Active.SetPage TabArea
+ Kontext "TabArea"
+ ZaehlerVerlauf = GradientList.GetItemCount
+ for j = 1 To 2
+ GradientList.Select j
+ TabArea.OK
+ FormatArea
+ Kontext
+ Active.SetPage TabArea
+ Kontext "TabArea"
+ PrintLog GradientList.GetSelText
+ next j
+ HatchingList.GetItemCount
+ ZaehlerSchraffur = HatchingList.GetItemCount
+ for k=1 to 2'ZaehlerSchraffur
+ HatchingList.Select k
+ TabArea.OK
+ FormatArea
+ Kontext
+ Active.SetPage TabArea
+ Kontext "TabArea"
+ PrintLog HatchingList.GetSelText
+ next k
- Kontext
- Active.SetPage TabFarben
- Kontext "TabFarben"
- Farbe.Select 24
- sleep 1
- Farbe.Select 18
- sleep 1
- Farbe.Select 7
- Farbname.SetText "Bullshit" '/// change color ///'
- Aendern.Click
- sleep 1
- TabFarben.OK
- FormatArea
- Kontext
- Active.SetPage TabArea
- Kontext "TabArea"
- FillOptions.Select 2
- if ColourList.GetSelText = "Bullshit" Then
- PrintLog " Color selection changed "
- else
- WarnLog " Color selection not changed"
- end if
- Kontext
- Active.SetPage TabFarben
- Kontext "TabFarben"
- Farbmodell.Select 1
+ BitmapList.GetItemCount
+ ZaehlerBitmap = BitmapList.GetItemCount
+ for n=1 to ZaehlerBitmap
+ BitmapList.Select n
+ TabArea.OK
+ FormatArea
+ sleep 1
+ Kontext
+ Active.SetPage TabArea
+ Kontext "TabArea"
+ PrintLog BitmapList.GetSelText
+ next n
- Kontext
- Active.SetPage TabFarben '/// test RGB color model ///'
- Kontext "TabFarben"
- Farbmodell.Select 1 '/// switch to RGB values ///' ' 33:RVB,CMJN
- printlog " Selected colourmodel RGB?: "+Farbmodell.GetSelText
- if left(Farbmodell.GetSelText,1) <> "R" then warnlog "not RGB selected ? :-("
- try
- R.SetText "50"
- G.SetText "10"
- B.SetText "90"
- catch
- warnlog "RGB text fields are not enabled :-("
- endcatch
- Aendern.Click
- TabFarben.OK
- Kontext "DocumentDraw"
- FormatArea
- Kontext
- Active.SetPage TabFarben
- Kontext "TabFarben"
- if (R.GetText = "50" And G.GetText = "10" And B.GetText = "90") Then
- PrintLog "Changes in RGB done"
- else
- WarnLog " Chancges in RGB values not recognized, instead of R=50 , G=10 und B=90 it is " +R.GetText + " " + G.GetText + " " + B.GetText
- end if
- Farbe.Select 10
- FarbName.SetText "Brighter" '/// add a color ///'
- Hinzufuegen.Click
- Farbe.Select "Brighter"
- Loeschen.Click '/// delete color ///'
- Kontext "Active"
- Active.Yes
- Kontext
- Active.SetPage TabFarben
- Kontext "TabFarben"
- Bearbeiten.Click '/// edit color ///'
- Kontext "FarbeDlg"
- FarbeDlg.OK
- sleep 2
- Kontext
- Active.SetPage TabFarben
- Kontext "TabFarben"
- TabFarben.OK
- FormatArea
- Kontext
- Active.SetPage TabFarben
- Kontext "TabFarben"
- TabFarben.OK
+ ' if Anpassen.IsEnabled = False Then PrintLog " Option Tile activated"
+ ' if Anpassen.IsEnabled = True Then WarnLog " Option Tile not activated"
+ ' if Relativ.IsChecked = False Then
+ ' SetClipboard Breite.GetText
+ ' Relativ.Check
+ ' If Breite.GetText = GetClipboardText Then
+ ' WarnLog " Relative isnt working"
+ ' else
+ ' PrintLog " Relative works"
+ ' end if
+ ' end if
+ '
+ ' if Kacheln.IsChecked = True Then Kacheln.UnCheck
+ ' Anpassen.Check
+ ' if Relativ.IsEnabled = True Then WarnLog " Option Anpassen konnte nicht aktiviert werden"
+ ' if not Relativ.IsEnabled Then PrintLog " Option Anpassen funktioniert"
+ ' Anpassen.Uncheck
+ ' Original.Check
+ ' if Breite.IsEnabled And Hoehe.IsEnabled = True Then WarnLog " Button Original funktioniert nicht"
+ ' if Breite.IsEnabled And Hoehe.IsEnabled = False Then PrintLog " Button Original funktioniert"
+ ' Kacheln.Check
+ ' setClipboard XOffset.GetText
+ ' XOffset.More 3
+ ' if XOffset.GetText <> GetClipboardText Then PrintLog " Position XOffset funktioniert"
+ ' if XOffset.GetText = GetClipboardText Then WarnLog " Position XOffset funktioniert nicht"
+ ' SetClipboard YOffset.GetText
+ ' YOffset.More 5
+ ' if YOffset.GetText <> GetClipboardText Then PrintLog " Position YOffset funktioniert"
+ ' if YOffset.GetText = GetClipboardText Then WarnLog " Position YOffset funktioniert nicht"
+ ' PrintLog " TabArea fertig"
+ Kontext
+ Active.SetPage TabSchatten
+ Kontext "TabSchatten"
+ sleep 1
+ sleep 1
+ PrintLog " Show shadow works"
+else
+ WarnLog " Show shadow does not work"
+end if
- FormatArea
- Kontext
- Active.SetPage TabFarbverlaeufe
- Kontext "TabFarbverlaeufe"
- TabFarbverlaeufe.OK
- sleep 2
+Entfernung.More 4
+if GetClipboardText = Entfernung.GetText Then
+ WarnLog " Distance does not work"
+else
+ PrintLog " Distance does work"
+end if
+Kontext
+Active.SetPage TabFarben
+Kontext "TabFarben"
+Farbe.Select 24
+sleep 1
+Farbe.Select 18
+sleep 1
+Farbe.Select 7
+Aendern.Click
+sleep 1
+TabFarben.OK
FormatArea
- sleep 2
- Kontext
- Active.SetPage TabTransparenz
- Kontext "TabTransparenz"
- KeineTransparenz.Check '/// check if controls are disabled if transparence is disabled ///'
- Printlog "- No transparency is checked, all controls should be disabled."
- if MFLinTransparenz.IsEnabled Then Warnlog "- Transparency enabled"
- if TransparenzverlaufTyp.IsEnabled Then Warnlog "- Graidient enabled"
- if MFZentrumX.IsEnabled Then Warnlog "- Center X enabled"
- if MFZentrumY.IsEnabled Then Warnlog "- Center Y enabled"
- if MFWinkel.IsEnabled Then Warnlog "- Angle enabled"
- if MFRand.IsEnabled Then Warnlog "- Border enabled"
- if MFStartwert.IsEnabled Then Warnlog "- Start value enabled"
- if MFEndwert.IsEnabled Then Warnlog "- End value enabled"
-
- LineareTransparenz.Check '/// check linear tranparency ///'
- Printlog "- Set transparency to linear, all controls should be enabled now" '/// control if related controls are now enabled ///'
- sleep 1
- MFLinTransparenz.ToMax '/// change values of controls ///'
- if MFLinTransparenz.GetText <>"100%" Then Warnlog "- Maximum value not correct"
- MFLinTransparenz.ToMin
- if MFLinTransparenz.GetText <>"0%" Then Warnlog "- Minimum value not correct"
- if TransparenzverlaufTyp.IsEnabled Then Warnlog "- Gradient enabled"
- if MFZentrumX.IsEnabled Then Warnlog "- Centrum X enabled"
- if MFZentrumY.IsEnabled Then Warnlog "- Centrum Y enabled"
- if MFWinkel.IsEnabled Then Warnlog "- Angle enabled"
- if MFRand.IsEnabled Then Warnlog "- Border enabled"
- if MFStartwert.IsEnabled Then Warnlog "- Start value enabled"
- if MFEndwert.IsEnabled Then Warnlog "- End value enabled"
+Kontext
+Active.SetPage TabArea
+Kontext "TabArea"
+FillOptions.Select 2
+if ColourList.GetSelText = "Bullshit" Then
+ PrintLog " Color selection changed "
+else
+ WarnLog " Color selection not changed"
+end if
+Kontext
+Active.SetPage TabFarben
+Kontext "TabFarben"
+Farbmodell.Select 1
- Transparenzverlauf.Check
- Printlog "- Gradient for transprency enabled"
- if MFLinTransparenz.IsEnabled = "false" Then Warnlog "- Transparency disabled"
- if TransparenzverlaufTyp.IsEnabled = "false" Then Warnlog "- Gradient disabled"
- if MFZentrumX.IsEnabled = "false" Then Warnlog "- Center X disabled"
- if MFZentrumY.IsEnabled = "false" Then Warnlog "- Center Y disabled"
- if MFWinkel.IsEnabled = "false" Then Warnlog "- Anlge disabled"
- if MFRand.IsEnabled = "false" Then Warnlog "- Border disabled"
- if MFStartwert.IsEnabled = "false" Then Warnlog "- Start value disabled"
- if MFEndwert.IsEnabled = "false" Then Warnlog "- End value disabled"
-
- Printlog "- Check if changed values are saved"
-
- Zaehler=TransparenzverlaufTyp.GetItemCount
- for i=1 to Zaehler
- TransparenzverlaufTyp.Select i
- SetClipboard Transparenzverlauftyp.GetSelText
- TabTransparenz.OK
- sleep 2
+Kontext
+Kontext "TabFarben"
+printlog " Selected colourmodel RGB?: "+Farbmodell.GetSelText
+if left(Farbmodell.GetSelText,1) <> "R" then warnlog "not RGB selected ? :-("
+ try
+ R.SetText "50"
+ G.SetText "10"
+ B.SetText "90"
+ catch
+ warnlog "RGB text fields are not enabled :-("
+ endcatch
+ Aendern.Click
+ TabFarben.OK
+ Kontext "DocumentDraw"
FormatArea
- sleep 1
- Kontext
- Active.SetPage TabTransparenz '/// check if values are saved after closing and reopening dialog ///'
- Kontext "TabTransparenz"
- if not Transparenzverlauftyp.GetSelIndex = i Then Warnlog "- Values are not correct for gradient transparency"
- next i
- TransparenzverlaufTyp.Select 2
- if MFZentrumX.IsEnabled Then Warnlog "- Center X should not be enabled"
- if MFZentrumY.IsEnabled Then Warnlog "- Center Y should not be enabled"
- MFWinkel.SetText "45"
- Winkel_1 = MFWinkel.GetText
- TabTransparenz.OK
- sleep 2
- FormatArea
- sleep 2
- Kontext
- Active.SetPage TabTransparenz
- Kontext "TabTransparenz"
- if TransparenzverlaufTyp.GetSelIndex <>2 Then
- Warnlog "- Second menu-item is not choosen"
+ Kontext
+ Active.SetPage TabFarben
+ Kontext "TabFarben"
+ if (R.GetText = "50" And G.GetText = "10" And B.GetText = "90") Then
+ PrintLog "Changes in RGB done"
+ else
+ WarnLog " Chancges in RGB values not recognized, instead of R=50 , G=10 und B=90 it is " +R.GetText + " " + G.GetText + " " + B.GetText
end if
- TransparenzverlaufTyp.Select 3
- if MFWinkel.GetText <> Winkel_1 then Warnlog "- The inserted value is not accepted"
- if MFWinkel.GetText <> Winkel_1 Then TransparenzverlaufTyp.Select 3
- if MFWinkel.IsEnabled Then Warnlog " - Angle should not be active when Radial is choosen"
- sleep 1
- MFZentrumX.SetText "30"
- MFZentrumY.SetText "30"
- TabTransparenz.OK
+ Farbe.Select 10
+ Hinzufuegen.Click
+ Farbe.Select "Brighter"
+ Kontext "Active"
+ Active.Yes
+ Kontext
+ Active.SetPage TabFarben
+ Kontext "TabFarben"
+ Kontext "FarbeDlg"
+ FarbeDlg.OK
sleep 2
+ Kontext
+ Active.SetPage TabFarben
+ Kontext "TabFarben"
+ TabFarben.OK
FormatArea
- sleep 2
Kontext
- Active.SetPage TabTransparenz
- Kontext "TabTransparenz"
- if MFZentrumX.GetText <> "30%" Then Warnlog "- Setted value for Center X is not applied."
- if MFZentrumY.GetText <> "30%" Then Warnlog "- Setted value for Center Y is not applied."
- MFRand.SetText "10"
- MFStartwert.SetText "20"
- MFEndwert.SetText "30"
- TabTransparenz.OK
+ Active.SetPage TabFarben
+ Kontext "TabFarben"
+ TabFarben.OK
+
+ FormatArea
+ Kontext
+ Active.SetPage TabFarbverlaeufe
+ Kontext "TabFarbverlaeufe"
+ TabFarbverlaeufe.OK
sleep 2
+
FormatArea
sleep 2
Kontext
Active.SetPage TabTransparenz
Kontext "TabTransparenz"
- if MFRand.GetText <> "10%" Then Warnlog "- Border-value was not set."
- if MFEndwert.GetText <> "30%" Then Warnlog "- End-value was not set."
- if MFStartwert.GetText <> "20%" Then Warnlog "- Start-value was not set."
- TabTransparenz.OK
+ Printlog "- No transparency is checked, all controls should be disabled."
+ if MFLinTransparenz.IsEnabled Then Warnlog "- Transparency enabled"
+ if TransparenzverlaufTyp.IsEnabled Then Warnlog "- Graidient enabled"
+ if MFZentrumX.IsEnabled Then Warnlog "- Center X enabled"
+ if MFZentrumY.IsEnabled Then Warnlog "- Center Y enabled"
+ if MFWinkel.IsEnabled Then Warnlog "- Angle enabled"
+ if MFRand.IsEnabled Then Warnlog "- Border enabled"
+ if MFStartwert.IsEnabled Then Warnlog "- Start value enabled"
+ if MFEndwert.IsEnabled Then Warnlog "- End value enabled"
+
+ sleep 1
+ if MFLinTransparenz.GetText <>"100%" Then Warnlog "- Maximum value not correct"
+ MFLinTransparenz.ToMin
+ if MFLinTransparenz.GetText <>"0%" Then Warnlog "- Minimum value not correct"
+ if TransparenzverlaufTyp.IsEnabled Then Warnlog "- Gradient enabled"
+ if MFZentrumX.IsEnabled Then Warnlog "- Centrum X enabled"
+ if MFZentrumY.IsEnabled Then Warnlog "- Centrum Y enabled"
+ if MFWinkel.IsEnabled Then Warnlog "- Angle enabled"
+ if MFRand.IsEnabled Then Warnlog "- Border enabled"
+ if MFStartwert.IsEnabled Then Warnlog "- Start value enabled"
+ if MFEndwert.IsEnabled Then Warnlog "- End value enabled"
+
+ Transparenzverlauf.Check
+ Printlog "- Gradient for transprency enabled"
+ if MFLinTransparenz.IsEnabled = "false" Then Warnlog "- Transparency disabled"
+ if TransparenzverlaufTyp.IsEnabled = "false" Then Warnlog "- Gradient disabled"
+ if MFZentrumX.IsEnabled = "false" Then Warnlog "- Center X disabled"
+ if MFZentrumY.IsEnabled = "false" Then Warnlog "- Center Y disabled"
+ if MFWinkel.IsEnabled = "false" Then Warnlog "- Anlge disabled"
+ if MFRand.IsEnabled = "false" Then Warnlog "- Border disabled"
+ if MFStartwert.IsEnabled = "false" Then Warnlog "- Start value disabled"
+ if MFEndwert.IsEnabled = "false" Then Warnlog "- End value disabled"
+
+ Printlog "- Check if changed values are saved"
+
+ Zaehler=TransparenzverlaufTyp.GetItemCount
+ for i=1 to Zaehler
+ TransparenzverlaufTyp.Select i
+ SetClipboard Transparenzverlauftyp.GetSelText
+ TabTransparenz.OK
+ sleep 2
+ FormatArea
+ sleep 1
+ Kontext
+ Kontext "TabTransparenz"
+ if not Transparenzverlauftyp.GetSelIndex = i Then Warnlog "- Values are not correct for gradient transparency"
+ next i
+ TransparenzverlaufTyp.Select 2
+ if MFZentrumX.IsEnabled Then Warnlog "- Center X should not be enabled"
+ if MFZentrumY.IsEnabled Then Warnlog "- Center Y should not be enabled"
+ MFWinkel.SetText "45"
+ Winkel_1 = MFWinkel.GetText
+ TabTransparenz.OK
+ sleep 2
+ FormatArea
+ sleep 2
+ Kontext
+ Active.SetPage TabTransparenz
+ Kontext "TabTransparenz"
+ if TransparenzverlaufTyp.GetSelIndex <>2 Then
+ Warnlog "- Second menu-item is not choosen"
+ end if
+ TransparenzverlaufTyp.Select 3
+ if MFWinkel.GetText <> Winkel_1 then Warnlog "- The inserted value is not accepted"
+ if MFWinkel.GetText <> Winkel_1 Then TransparenzverlaufTyp.Select 3
+ if MFWinkel.IsEnabled Then Warnlog " - Angle should not be active when Radial is choosen"
+ sleep 1
+ MFZentrumX.SetText "30"
+ MFZentrumY.SetText "30"
+ TabTransparenz.OK
+ sleep 2
+ FormatArea
+ sleep 2
+ Kontext
+ Active.SetPage TabTransparenz
+ Kontext "TabTransparenz"
+ if MFZentrumX.GetText <> "30%" Then Warnlog "- Setted value for Center X is not applied."
+ if MFZentrumY.GetText <> "30%" Then Warnlog "- Setted value for Center Y is not applied."
+ MFRand.SetText "10"
+ MFStartwert.SetText "20"
+ MFEndwert.SetText "30"
+ TabTransparenz.OK
+ sleep 2
+ FormatArea
+ sleep 2
+ Kontext
+ Active.SetPage TabTransparenz
+ Kontext "TabTransparenz"
+ if MFRand.GetText <> "10%" Then Warnlog "- Border-value was not set."
+ if MFEndwert.GetText <> "30%" Then Warnlog "- End-value was not set."
+ if MFStartwert.GetText <> "20%" Then Warnlog "- Start-value was not set."
+ TabTransparenz.OK
- Call hCloseDocument '/// close document ///'
endcase
diff --git a/testautomation/graphics/optional/includes/global/g_arrangealign.inc b/testautomation/graphics/optional/includes/global/g_arrangealign.inc
index 9230d69f59a6..667b0e77f427 100755
--- a/testautomation/graphics/optional/includes/global/g_arrangealign.inc
+++ b/testautomation/graphics/optional/includes/global/g_arrangealign.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
@@ -47,276 +47,217 @@
'\*************************************************************************************
testcase tiDatei_Fuer_Anordnen_Erstellen
- dim sTemp as string
- dim i as integer
- dim zaehler as integer
- '/// This function creates the document, that will be used as reference and working object inthe following cases :-) ///'
- '///'Dim Datei ' somewhere global :-) defined in calling sub! :sub im_107c_ ///
- call hNewDocument '/// new document ///'
- if Dir(Datei)<>"" then app.Kill(Datei) ' kill old file
- for Zaehler = 1 to 3 '/// create 3 overlapping objects ///'
- Kontext
- Select Case Zaehler
+ dim sTemp as string
+ dim i as integer
+ dim zaehler as integer
+ if Dir(Datei)<>"" then app.Kill(Datei) ' kill old file
+ Kontext
+ Select Case Zaehler
Case 1: WL_SD_Wuerfel
- gMouseMove (20,5, 80,60) '/// cubicel 20,5, 80,60 ///
Printlog " Object start ---------------------- "+ Zaehler +" cubicel "
Case 2: WL_SD_RechteckVoll
- gMouseMove (40,35, 90,90) '/// rectangel 40,35, 90,90 ///
Printlog " Object start ---------------------- "+ Zaehler +" rectangel "
Case 3: WL_SD_Torus
- gMouseMove (1,35, 60,95) '/// donut ;-) 1,35, 60,95 ///
Printlog " Object start ---------------------- "+ Zaehler +" donut "
- End Select
- sleep (1)
- FormatArea '/// assign different area properties for created objects (use rnd function)///'
- sleep (1)
- kontext
- Select Case Zaehler
+ End Select
+ sleep (1)
+ sleep (1)
+ kontext
+ Select Case Zaehler
Case 1: active.SetPage TabFarbverlaeufe
- kontext "TabFarbverlaeufe"
- Tabelle.Select Int((Tabelle.GetItemCount * Rnd) + 1)
- printlog "test tbo-------------------------------------------------color of object : "+Tabelle.GetSelText
- TabFarbverlaeufe.OK
+ kontext "TabFarbverlaeufe"
+ Tabelle.Select Int((Tabelle.GetItemCount * Rnd) + 1)
+ printlog "test tbo-------------------------------------------------color of object : "+Tabelle.GetSelText
+ TabFarbverlaeufe.OK
Case 2: active.SetPage TabSchraffuren
- kontext "TabSchraffuren"
- Tabelle.Select Int((Tabelle.GetItemCount * Rnd) + 1)
- printlog "test tbo-------------------------------------------------color of object : "+Tabelle.GetSelText
- TabSchraffuren.OK
+ kontext "TabSchraffuren"
+ Tabelle.Select Int((Tabelle.GetItemCount * Rnd) + 1)
+ printlog "test tbo-------------------------------------------------color of object : "+Tabelle.GetSelText
+ TabSchraffuren.OK
Case 3: active.SetPage TabFarben
- kontext "TabFarben"
- Farbe.Select Int((Farbe.GetItemCount * Rnd) + 1)
- printlog "test tbo-------------------------------------------------color of object : "+Farbe.GetSelText
- TabFarben.OK
- End Select
- sleep 1
- ContextPositionAndSize '/// save position and size values into varialbes ///'
- sleep (1)
- kontext
- active.SetPage TabPositionAndSize
- kontext "TabPositionAndSize"
- '/// the variables : Ueber_Text_[1-3] get set here ! with x position of object///
+ kontext "TabFarben"
+ Farbe.Select Int((Farbe.GetItemCount * Rnd) + 1)
+ printlog "test tbo-------------------------------------------------color of object : "+Farbe.GetSelText
+ TabFarben.OK
+ End Select
+ sleep 1
+ sleep (1)
+ kontext
+ active.SetPage TabPositionAndSize
+ kontext "TabPositionAndSize"
Select Case Zaehler
- Case 1: Ueber_Text_1 = PositionX.GetText : printlog "xpos: "+zaehler+": "+PositionX.GetText
- Case 2: Ueber_Text_2 = PositionX.GetText : printlog "xpos: "+zaehler+": "+PositionX.GetText
- Case 3: Ueber_Text_3 = PositionX.GetText : printlog "xpos: "+zaehler+": "+PositionX.GetText
+ Case 1: Ueber_Text_1 = PositionX.GetText : printlog "xpos: "+zaehler+": "+PositionX.GetText
+ Case 2: Ueber_Text_2 = PositionX.GetText : printlog "xpos: "+zaehler+": "+PositionX.GetText
+ Case 3: Ueber_Text_3 = PositionX.GetText : printlog "xpos: "+zaehler+": "+PositionX.GetText
End Select
- TabPositionAndSize.OK
- gMouseClick 96,5
- next Zaehler
- sleep 1
- call hFileSaveAsKill (Datei) '/// save document ///'
- printlog "OK saved at ", Datei
- sleep 1
- '/// select in default order and take Position X in mind ;-) ///'
- '///+ has to be from bottom to top: cubicel, rectangel, donut ///'
+ TabPositionAndSize.OK
+ gMouseClick 96,5
+ next Zaehler
+ sleep 1
+ printlog "OK saved at ", Datei
+ sleep 1
sPrintCheckOrder (TRUE)
- call hCloseDocument '/// close document ///'
endcase
'-------------------------------------------------------------------------------
testcase tdContextSendBackward
- dim sTemp as string
- '/// open created document 'with 3 figures' ///'
- if (hFileOpen (Datei)) then
- sleep 10
- sPrintCheckOrder (TRUE)
- '/// select the middle object: rectangle, with keys: [TAB],[TAB] ///'
- hTypeKeys ("<TAB><TAB>")
- '/// Send Backward / [Strg]+[-] -> one level more to the back ///'
- WL_TB_ANORDNUNG_WeiterNachHinten
- '///+ has to be from bottom to top: rectangel cubicel donut ///'
- sleep 2
- sPrintCheckOrder
- '/// deselect all ///'
- hTypeKeys ("<escape><escape>")
- sleep 2
- '/// select the middle object: cubical, with keys: [TAB],[TAB] ///'
- hTypeKeys ("<TAB><TAB>")
- sleep 2
- sTemp = fGetPositionX
- if sTemp <> Ueber_Text_1 then
- warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_1+";"
- end if
- '/// close document ///'
- Call hCloseDocument
- endif
- sleep 2
+ dim sTemp as string
+ if (hFileOpen (Datei)) then
+ sleep 10
+ sPrintCheckOrder (TRUE)
+ hTypeKeys ("<TAB><TAB>")
+ WL_TB_ANORDNUNG_WeiterNachHinten
+ sleep 2
+ sPrintCheckOrder
+ hTypeKeys ("<escape><escape>")
+ sleep 2
+ hTypeKeys ("<TAB><TAB>")
+ sleep 2
+ sTemp = fGetPositionX
+ if sTemp <> Ueber_Text_1 then
+ warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_1+";"
+ end if
+ Call hCloseDocument
+ endif
+ sleep 2
endcase
'-------------------------------------------------------------------------------
testcase tdContextBringForward
- dim sTemp as string
- '/// open created document 'with 3 figures' ///'
- if (hFileOpen (Datei)) then
- sleep 10
- sPrintCheckOrder (TRUE)
- '/// select the middle object: rectangle, with keys: [TAB],[TAB] ///'
- hTypeKeys ("<TAB><TAB>")
- '/// Bring Forward / [Strg]+[+] -> one level more to the front ///'
- WL_TB_ANORDNUNG_WeiterNachVorn
- '/// has to be from bottom to top: cubicel donut rectangel ///'
- sleep 1
- sPrintCheckOrder
- '/// select the middle object: donut, with keys: [TAB],[TAB] ///'
- hTypeKeys ("<TAB><TAB>")
- sleep 2
- sTemp = fGetPositionX
- if sTemp <> Ueber_Text_3 then
- warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";"
- end if
- sleep 1
- '/// close document ///'
- Call hCloseDocument
- endif
+ dim sTemp as string
+ if (hFileOpen (Datei)) then
+ sleep 10
+ sPrintCheckOrder (TRUE)
+ hTypeKeys ("<TAB><TAB>")
+ WL_TB_ANORDNUNG_WeiterNachVorn
+ sleep 1
+ sPrintCheckOrder
+ hTypeKeys ("<TAB><TAB>")
+ sleep 2
+ sTemp = fGetPositionX
+ if sTemp <> Ueber_Text_3 then
+ warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";"
+ end if
+ sleep 1
+ Call hCloseDocument
+ endif
endcase
'-------------------------------------------------------------------------------
testcase tdContextSendToBack
- dim sTemp as string
- '/// open created document 'with 3 figures' ///'
- if (hFileOpen (Datei)) then
- sleep 10
- sPrintCheckOrder (TRUE)
- '/// select the top object: donut, with keys: [TAB],[TAB],[TAB] ///'
- hTypeKeys ("<TAB><TAB><TAB>")
- '/// Send to Back / [Strg]+[Shift]+[-] -> backmost object ///'
- OL_DRAW_GanzNachHinten
- '/// has to be from bottom to top: rectangel cubicel donut ///'
- sleep 3
- sPrintCheckOrder
- '/// select the middle object: cubical, with keys: [TAB],[TAB] ///'
- hTypeKeys ("<TAB><TAB>")
- sleep 1
- sTemp = fGetPositionX
- if sTemp <> Ueber_Text_1 then
- warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_1+";"
- end if
- sleep 3
- '/// close document ///'
- Call hCloseDocument
- endif
+ dim sTemp as string
+ if (hFileOpen (Datei)) then
+ sleep 10
+ sPrintCheckOrder (TRUE)
+ hTypeKeys ("<TAB><TAB><TAB>")
+ OL_DRAW_GanzNachHinten
+ sleep 3
+ sPrintCheckOrder
+ hTypeKeys ("<TAB><TAB>")
+ sleep 1
+ sTemp = fGetPositionX
+ if sTemp <> Ueber_Text_1 then
+ warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_1+";"
+ end if
+ sleep 3
+ Call hCloseDocument
+ endif
endcase
'-------------------------------------------------------------------------------
testcase tdContextBringToFront
- dim sTemp as string
- '/// open created document 'with 3 figures' ///'
- if (hFileOpen (Datei)) then
- sleep 10
- sPrintCheckOrder (TRUE)
- '/// select the bottom object: cubical, with keys: [TAB] ///'
- hTypeKeys ("<TAB>")
- '/// Bring to Front / [Strg]+[Shift]+[+] -> frontmost object ///'
- OL_DRAW_GanzNachVorn
- '/// has to be from bottom to top: rectangel, donut, cubicel ///'
- sPrintCheckOrder
- '/// select the middle object: donut, with keys: [TAB],[TAB] ///'
- hTypeKeys ("<TAB><TAB>")
- sleep 1
- sTemp = fGetPositionX
- if sTemp <> Ueber_Text_3 then
- warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";"
- end if
- sleep 3
- '/// close document ///'
- Call hCloseDocument
- endif
+ dim sTemp as string
+ if (hFileOpen (Datei)) then
+ sleep 10
+ sPrintCheckOrder (TRUE)
+ hTypeKeys ("<TAB>")
+ OL_DRAW_GanzNachVorn
+ sPrintCheckOrder
+ hTypeKeys ("<TAB><TAB>")
+ sleep 1
+ sTemp = fGetPositionX
+ if sTemp <> Ueber_Text_3 then
+ warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";"
+ end if
+ sleep 3
+ Call hCloseDocument
+ endif
endcase
'-------------------------------------------------------------------------------
testcase tdContextInFrontOfObject
- dim sTemp as string
- '/// open created document 'with 3 figures' ///'
- if (hFileOpen (Datei)) then
- sleep 10
- sPrintCheckOrder (TRUE)
- '/// select the top object: donut, with keys: [TAB],[TAB],[TAB] ///'
- hTypeKeys ("<TAB><TAB><TAB>")
- '/// In Front of object ///'
- OL_DRAW_VorDasObjekt
- '/// left click the cubicel with the mouse ///'
- gMouseClick 50,5
- '/// has to be from bottom to top: cubicel, donut, rectangel ///'
- sPrintCheckOrder
- sleep 1
- '/// select the middle object: donut, with keys: [TAB],[TAB] ///'
- hTypeKeys ("<TAB><TAB>")
- sTemp = fGetPositionX
- if sTemp <> Ueber_Text_3 then
- printlog "DISABLED the WARNLOG, because mouseaction is not always the same :-( : Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";"
- end if
- '/// close document ///'
- Call hCloseDocument
- endif
+ dim sTemp as string
+ if (hFileOpen (Datei)) then
+ sleep 10
+ sPrintCheckOrder (TRUE)
+ hTypeKeys ("<TAB><TAB><TAB>")
+ OL_DRAW_VorDasObjekt
+ gMouseClick 50,5
+ sPrintCheckOrder
+ sleep 1
+ hTypeKeys ("<TAB><TAB>")
+ sTemp = fGetPositionX
+ if sTemp <> Ueber_Text_3 then
+ printlog "DISABLED the WARNLOG, because mouseaction is not always the same :-( : Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";"
+ end if
+ Call hCloseDocument
+ endif
endcase
'-------------------------------------------------------------------------------
testcase tdContextBehindObject
- dim sTemp as string
- '/// open created document 'with 3 figures' ///'
- if (hFileOpen (Datei)) then
- sleep 10
- sPrintCheckOrder (TRUE)
- '/// select the top object: donut, with keys: [TAB],[TAB],[TAB] ///'
- hTypeKeys ("<TAB><TAB><TAB>")
- '/// Behind object ///'
- OL_DRAW_HinterDasObjekt
- sleep 1
- '/// left click the cubicel with the mouse ///'
- gMouseClick 50,5
- '/// has to be from bottom to top: donut, cubicel, rectangel ///'
- sPrintCheckOrder
- sleep 1
- '/// select the bottom object: donut, with keys: [TAB] ///'
- hTypeKeys ("<TAB>")
- sTemp = fGetPositionX
- if sTemp <> Ueber_Text_3 then
- printlog "DISABLED the WARNLOG, because mouseaction is not always tthe same Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";"
- end if
- '/// close document ///'
- Call hCloseDocument
- endif
+ dim sTemp as string
+ if (hFileOpen (Datei)) then
+ sleep 10
+ sPrintCheckOrder (TRUE)
+ hTypeKeys ("<TAB><TAB><TAB>")
+ OL_DRAW_HinterDasObjekt
+ sleep 1
+ gMouseClick 50,5
+ sPrintCheckOrder
+ sleep 1
+ hTypeKeys ("<TAB>")
+ sTemp = fGetPositionX
+ if sTemp <> Ueber_Text_3 then
+ printlog "DISABLED the WARNLOG, because mouseaction is not always tthe same Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";"
+ end if
+ Call hCloseDocument
+ endif
endcase
'-------------------------------------------------------------------------------
testcase tdContextReverse
- dim sTemp as string
- dim sTemp2 as string
- dim i as integer
- '/// open created document 'with 3 figures' ///'
- if (hFileOpen (Datei)) then
- sleep 10
- sPrintCheckOrder (TRUE)
- '/// Edit->Select All ///'
- EditSelectAll
- sleep 3
- '/// Reverse ///'
- WL_TB_ANORDNUNG_Vertauschen
- sPrintCheckOrder
- '/// select in default order and take Position X in mind ;-) ///'
- hTypeKeys ("<escape><escape>")
- for i = 1 to 3
- hTypeKeys ("<TAB>")
- sTemp = fGetPositionX
+ dim sTemp as string
+ dim sTemp2 as string
+ dim i as integer
+ if (hFileOpen (Datei)) then
+ sleep 10
+ sPrintCheckOrder (TRUE)
+ EditSelectAll
+ sleep 3
+ WL_TB_ANORDNUNG_Vertauschen
+ sPrintCheckOrder
+ hTypeKeys ("<escape><escape>")
+ for i = 1 to 3
+ hTypeKeys ("<TAB>")
+ sTemp = fGetPositionX
Select Case i
- Case 1: sTemp2 = Ueber_Text_3
- Case 2: sTemp2 = Ueber_Text_2
- Case 3: sTemp2 = Ueber_Text_1
+ Case 1: sTemp2 = Ueber_Text_3
+ Case 2: sTemp2 = Ueber_Text_2
+ Case 3: sTemp2 = Ueber_Text_1
End Select
- if sTemp <> sTemp2 then
- warnlog " - " + i + " Arrangement is wrong; is: "+sTemp+"; should: "+sTemp2+";"
- end if
- next i
- '/// close document ///'
- Call hCloseDocument '/// close document ///'
- endif
+ if sTemp <> sTemp2 then
+ warnlog " - " + i + " Arrangement is wrong; is: "+sTemp+"; should: "+sTemp2+";"
+ end if
+ next i
+ endif
endcase
'-------------------------------------------------------------------------------
diff --git a/testautomation/graphics/optional/includes/global/g_autocorrection.inc b/testautomation/graphics/optional/includes/global/g_autocorrection.inc
index 0ae5980e3f06..21cda12dc6f4 100755
--- a/testautomation/graphics/optional/includes/global/g_autocorrection.inc
+++ b/testautomation/graphics/optional/includes/global/g_autocorrection.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
@@ -57,34 +57,30 @@ testcase tToolsAutocorrectReplace
dim x as integer
dim iTemp as integer
- '/// open new application ///'
Call hNewDocument
- '/// Tools->Autocorrect... ///'
ToolsAutocorrect
- Kontext
- '/// select tabpage 'Replace' ///'
- active.SetPage TabErsetzung
- Kontext "TabErsetzung"
- iTemp = WelcheSprache.GetItemCount
- for i = 1 to iTemp
- WelcheSprache.select i
- sleep 1
- x = Liste.getItemCount
-' results from an english version:
-' - 28: English (UK): 807
-' - 29: English (USA): 807
-' - 38: French (France): 304
-' - 43: German (Germany): 100
-' - 102: Spanish (Spain): 353
- if (x <> 0) then
- printlog " - " + i + ": " + WelcheSprache.getSelText + ": " + x
- ' printlog " " + Liste.getItemText (5,1) + " - " + Liste.getItemText (5,2)
- endif
- next i
+ Kontext
+ active.SetPage TabErsetzung
+ Kontext "TabErsetzung"
+ iTemp = WelcheSprache.GetItemCount
+ for i = 1 to iTemp
+ WelcheSprache.select i
+ sleep 1
+ x = Liste.getItemCount
+ ' results from an english version:
+ ' - 28: English (UK): 807
+ ' - 29: English (USA): 807
+ ' - 38: French (France): 304
+ ' - 43: German (Germany): 100
+ ' - 102: Spanish (Spain): 353
+ if (x <> 0) then
+ printlog " - " + i + ": " + WelcheSprache.getSelText + ": " + x
+ ' printlog " " + Liste.getItemText (5,1) + " - " + Liste.getItemText (5,2)
+ endif
+ next i
TabErsetzung.OK
- '/// close application ///'
hCloseDocument
endcase
@@ -94,44 +90,40 @@ testcase tToolsAutocorrectExceptions
dim y as integer
dim iTemp as integer
- '/// open new application ///'
Call hNewDocument
- '/// Tools->Autocorrect... ///'
ToolsAutocorrect
- Kontext
- '/// select tabpage 'Replace' ///'
- active.SetPage TabAusnahmen
- Kontext "TabAusnahmen"
- iTemp = WelcheSprache.GetItemCount
- for i = 1 to iTemp
- WelcheSprache.select i
- sleep 1
- x = AbkuerzungenListe.getItemCount
-' results from an english version:
-' - 28: English (UK): 120
-' - 28: English (UK): 7
-' - 29: English (USA): 120
-' - 29: English (USA): 7
-' - 38: French (France): 50
-' - 38: French (France): 1
-' - 43: German (Germany): 123
-' - 43: German (Germany): 20
-' - 102: Spanish (Spain): 115
-' - 102: Spanish (Spain): 1
- if (x <> 0) then
- printlog " - " + i + ": " + WelcheSprache.getSelText + ": " + x
-' printlog " " + AbkuerzungenListe.getItemText (5)
- endif
- y = WoerterListe.getItemCount
- if (y <> 0) then
- printlog " - " + i + ": " + WelcheSprache.getSelText + ": " + y
-' printlog " " + WoerterListe.getItemText (5)
- endif
- next i
+ Kontext
+ active.SetPage TabAusnahmen
+ Kontext "TabAusnahmen"
+ iTemp = WelcheSprache.GetItemCount
+ for i = 1 to iTemp
+ WelcheSprache.select i
+ sleep 1
+ x = AbkuerzungenListe.getItemCount
+ ' results from an english version:
+ ' - 28: English (UK): 120
+ ' - 28: English (UK): 7
+ ' - 29: English (USA): 120
+ ' - 29: English (USA): 7
+ ' - 38: French (France): 50
+ ' - 38: French (France): 1
+ ' - 43: German (Germany): 123
+ ' - 43: German (Germany): 20
+ ' - 102: Spanish (Spain): 115
+ ' - 102: Spanish (Spain): 1
+ if (x <> 0) then
+ printlog " - " + i + ": " + WelcheSprache.getSelText + ": " + x
+ ' printlog " " + AbkuerzungenListe.getItemText (5)
+ endif
+ y = WoerterListe.getItemCount
+ if (y <> 0) then
+ printlog " - " + i + ": " + WelcheSprache.getSelText + ": " + y
+ ' printlog " " + WoerterListe.getItemText (5)
+ endif
+ next i
TabAusnahmen.OK
- '/// close application ///'
hCloseDocument
endcase
@@ -145,316 +137,253 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean)
dim sTemp as string
dim sFileName as string
- if (gApplication = "IMPRESS") then
+ if (gApplication = "IMPRESS") then
ExtensionString = "odp"
else
ExtensionString = "odg"
end if
- '/// No matter the application and platform: open a file which has the same font selected. ///'
- if iSprache = "1" OR iSprache = "33" OR iSprache = "34" OR iSprache = "36" OR iSprache = "39" OR iSprache = "46" OR iSprache = "48" OR iSprache = "49" OR iSprache = "55" then
- sFileName = (ConvertPath ( gTesttoolPath + "graphics\required\input\rightfont" & iSprache & "." + ExtensionString ))
- elseif bAsianLan = true then
- Printlog "Language-file for Asian language " & iSprache & " is missing. Using standard instead."
- sFileName = (ConvertPath ( gTesttoolPath + "graphics\required\input\rightfont." + ExtensionString))
- else
- warnlog "Language-file for language " & iSprache & " is missing. Using standard instead."
- sFileName = (ConvertPath ( gTesttoolPath + "graphics\required\input\rightfont." + ExtensionString))
- endif
+ if iSprache = "1" OR iSprache = "33" OR iSprache = "34" OR iSprache = "36" OR iSprache = "39" OR iSprache = "46" OR iSprache = "48" OR iSprache = "49" OR iSprache = "55" then
+ sFileName = (ConvertPath ( gTesttoolPath + "graphics\required\input\rightfont" & iSprache & "." + ExtensionString ))
+ elseif bAsianLan = true then
+ Printlog "Language-file for Asian language " & iSprache & " is missing. Using standard instead."
+ sFileName = (ConvertPath ( gTesttoolPath + "graphics\required\input\rightfont." + ExtensionString))
+ else
+ warnlog "Language-file for language " & iSprache & " is missing. Using standard instead."
+ sFileName = (ConvertPath ( gTesttoolPath + "graphics\required\input\rightfont." + ExtensionString))
+ endif
if hFileExists ( sFileName ) = FALSE then
- warnlog "The language-file was not found or accessible! The test ends."
- goto endsub
+ warnlog "The language-file was not found or accessible! The test ends."
+ goto endsub
endif
'HDE has same problems in w_106a.inc ;-) !!! migrate ?!?! ///'
- '/// open new application ///'
Call hNewDocument
- '/// open file where the right font already is defined. ///'
hFileOpen sFileName
printlog "File opened: " + sFileName
Sleep 3
Call sMakeReadOnlyDocumentEditable
-
- '/// TBO TODO: put quotes in locale list !!!! (i love UTF8 :-)))///'
+
if bSimple then
Printlog "- Tools/Autocorrect -single quotes"
Normal$ = Chr(39)
select case iSprache
- case 01 : Vorn$ = Chr(8216) : Hinten$ = Chr(8217)
- case 03 : Vorn$ = Chr(8216) : Hinten$ = Chr(8217)
- case 07 : qaerrorlog "Test impossible. No quotes in russian!"
- hCloseDocument
- goto endsub
- case 31 : Vorn$ = Chr(8218) : Hinten$ = Chr(8216)
- case 33 : Vorn$ = Chr(8216) : Hinten$ = Chr(8217)
- case 34 : Vorn$ = Chr(8216) : Hinten$ = Chr(8217)
- case 36 : Vorn$ = Chr(187) : Hinten$ = Chr(171)
- case 39 : Vorn$ = Chr(8216) : Hinten$ = Chr(8217)
- case 45 : Vorn$ = Chr(8217) : Hinten$ = Chr(8217)
- case 46 : Vorn$ = Chr(8217) : Hinten$ = Chr(8217)
- case 48 : Vorn$ = Chr(8216) : Hinten$ = Chr(8217)
- case 49 : Vorn$ = Chr(8218) : Hinten$ = Chr(8216)
- case 55 : Vorn$ = Chr(8216) : Hinten$ = Chr(8217)
- case 81, 82, 86, 88 : Vorn$ = Chr(8216) : Hinten$ = Chr(8217) ' Asian
+ case 01 : Vorn$ = Chr(8216) : Hinten$ = Chr(8217)
+ case 03 : Vorn$ = Chr(8216) : Hinten$ = Chr(8217)
+ case 07 : qaerrorlog "Test impossible. No quotes in russian!"
+ hCloseDocument
+ goto endsub
+ case 31 : Vorn$ = Chr(8218) : Hinten$ = Chr(8216)
+ case 33 : Vorn$ = Chr(8216) : Hinten$ = Chr(8217)
+ case 34 : Vorn$ = Chr(8216) : Hinten$ = Chr(8217)
+ case 36 : Vorn$ = Chr(187) : Hinten$ = Chr(171)
+ case 39 : Vorn$ = Chr(8216) : Hinten$ = Chr(8217)
+ case 45 : Vorn$ = Chr(8217) : Hinten$ = Chr(8217)
+ case 46 : Vorn$ = Chr(8217) : Hinten$ = Chr(8217)
+ case 48 : Vorn$ = Chr(8216) : Hinten$ = Chr(8217)
+ case 49 : Vorn$ = Chr(8218) : Hinten$ = Chr(8216)
+ case 55 : Vorn$ = Chr(8216) : Hinten$ = Chr(8217)
+ case 81, 82, 86, 88 : Vorn$ = Chr(8216) : Hinten$ = Chr(8217) ' Asian
case else : Warnlog "- Nothing prepared for this language, but I run: take the warnlogs an insert the numbers here.: "+iSprache
- Vorn$ = Chr(8216) : Hinten$ = Chr(8217)
+ Vorn$ = Chr(8216) : Hinten$ = Chr(8217)
end select
else
Printlog "- Tools/Autocorrect -double quotes"
Normal$ = Chr(34)
select case iSprache
- case 01 : Vorn$ = Chr(8220) : Hinten$ = Chr(8221)
- case 03 : Vorn$ = Chr(8220) : Hinten$ = Chr(8221)
- case 07 : qaerrorlog "Test not possible. No quotes in russian !"
- Call hCloseDocument
- goto endsub
- case 31 : Vorn$ = Chr(8222) : Hinten$ = Chr(8220)
- case 33 : Vorn$ = Chr(171) : Hinten$ = Chr(187)
- case 34 : Vorn$ = Chr(8220) : Hinten$ = Chr(8221)
- case 36 : Vorn$ = Chr(8222) : Hinten$ = Chr(8221)
- case 39 : Vorn$ = Chr(8220) : Hinten$ = Chr(8221)
- case 45 : Vorn$ = Chr(8221) : Hinten$ = Chr(8221)
- case 46 : Vorn$ = Chr(8221) : Hinten$ = Chr(8221)
- case 48 : Vorn$ = Chr(8222) : Hinten$ = Chr(8221)
- case 49 : Vorn$ = Chr(8222) : Hinten$ = Chr(8220)
- case 55 : Vorn$ = Chr(8220) : Hinten$ = Chr(8221)
- case 81, 82, 86, 88 : Vorn$ = Chr(8220) : Hinten$ = Chr(8221) ' Asian
+ case 01 : Vorn$ = Chr(8220) : Hinten$ = Chr(8221)
+ case 03 : Vorn$ = Chr(8220) : Hinten$ = Chr(8221)
+ case 07 : qaerrorlog "Test not possible. No quotes in russian !"
+ Call hCloseDocument
+ goto endsub
+ case 31 : Vorn$ = Chr(8222) : Hinten$ = Chr(8220)
+ case 33 : Vorn$ = Chr(171) : Hinten$ = Chr(187)
+ case 34 : Vorn$ = Chr(8220) : Hinten$ = Chr(8221)
+ case 36 : Vorn$ = Chr(8222) : Hinten$ = Chr(8221)
+ case 39 : Vorn$ = Chr(8220) : Hinten$ = Chr(8221)
+ case 45 : Vorn$ = Chr(8221) : Hinten$ = Chr(8221)
+ case 46 : Vorn$ = Chr(8221) : Hinten$ = Chr(8221)
+ case 48 : Vorn$ = Chr(8222) : Hinten$ = Chr(8221)
+ case 49 : Vorn$ = Chr(8222) : Hinten$ = Chr(8220)
+ case 55 : Vorn$ = Chr(8220) : Hinten$ = Chr(8221)
+ case 81, 82, 86, 88 : Vorn$ = Chr(8220) : Hinten$ = Chr(8221) ' Asian
case else : Warnlog "- Nothing prepared for this language: "+iSprache
- goto endsub
+ goto endsub
end select
endif
Printlog " - replace quotes" '------------------------------------------------------------------------------------------
- '/// check default item for beginn and end. type them as normal and look how it get's replaced ///'
- '/// Tools->Autocorrect... ///'
ToolsAutocorrect
- Kontext
- '/// select tabpage 'Custom Quotes' ///'
- active.SetPage TabTypografisch
- Kontext "TabTypografisch"
- '/// check checkbox 'Replace'; Simple: ; Double: click button 'Default'; ///'
- if bSimple then
- EinfacheErsetzen.Check
- else
- DoppelteErsetzen.Check
- DoppeltStandard.Click
- endif
- '/// close dialog 'AutoCorrect' with OK ///'
+ Kontext
+ active.SetPage TabTypografisch
+ Kontext "TabTypografisch"
+ if bSimple then
+ EinfacheErsetzen.Check
+ else
+ DoppelteErsetzen.Check
+ DoppeltStandard.Click
+ endif
TabTypografisch.OK
sleep 5
gMouseClick 50,50
sleep 5
- '/// create textframe with quotes; Simple: 39; Double: 34; ///'
hTextrahmenErstellen ( Normal$ + "Hallo" + Normal$ + " ",20,20,60,30)
sleep 5
- '/// press keys [Home][Shift + Right] to select the start quote ///'
hTypeKeys ("<Home><Shift Right>")
sleep 5
- '/// Edit->Copy ///'
EditCopy
sTemp = GetClipboardText
- '/// compare quote to reference start quote ///'
if (sTemp <> Vorn$) then
Warnlog "The beginning quote seems wrong. Should be :'" + Vorn$ +"':"+ASC(vorn$)+ ": but it is = :'" + sTemp +"':"+ASC(sTemp)+":"
endif
sleep 1
- '/// press keys [End][Left][Shift + Left] to select the end quote ///'
hTypeKeys "<End><Left><Shift Left>"
Sleep 1
EditCopy
sTemp = GetClipboardText
- '/// compare quote to reference end quote ///'
if (sTemp <> Hinten$) then
Warnlog "The end quote seems wrong. Should be :" + Hinten$ +":"+ASC(Hinten$) +": but it is :" + sTemp + ":"+ASC(sTemp)+":"
endif
- '/// type keys [Home][Shift + End][Delete] to remove text
hTypeKeys "<Home><Shift End><Delete>"
Printlog " - dont replace quotes" '------------------------------------------------------------------------------------------
- '/// Tools->Autocorrect... ///'
ToolsAutocorrect
Kontext
- '/// select tabpage 'Custom Quotes' ///'
- Active.SetPage TabTypografisch
- Kontext "TabTypografisch"
- '/// UNcheck checkbox 'Replace' ///'
- if bSimple then
- EinfacheErsetzen.Uncheck
- else
- DoppelteErsetzen.Uncheck
- endif
- '/// close dialog 'AutoCorrect' with OK ///'
+ Active.SetPage TabTypografisch
+ Kontext "TabTypografisch"
+ if bSimple then
+ EinfacheErsetzen.Uncheck
+ else
+ DoppelteErsetzen.Uncheck
+ endif
TabTypografisch.OK
sleep 1
gMouseClick 50,50
sleep 1
- '/// create textframe with quotes; Simple: 39; Double: 34; ///'
hTextrahmenErstellen ( Normal$ + "Hello" + Normal$ + " ",20,20,60,30)
sleep 1
- '/// press keys [Home][Shift + Right] to select the start quote ///'
hTypeKeys "<Home><Shift Right>"
Sleep 1
- '/// Edit->Copy ///'
EditCopy
sTemp = GetClipboardText
- '/// check if quote got modified; it hasn't got. ///'
if (sTemp <> Normal$) then
Warnlog "The beginning quote seems wrong. Should be :'" + Vorn$ +"':"+ASC(vorn$)+ ": but it is = :'" + sTemp +"':"+ASC(sTemp)+":"
endif
- '/// press keys [End][Left][Shift + Left] to select the end quote ///'
hTypeKeys "<End><Left><Shift Left>"
Sleep 1
- '/// Edit->Copy ///'
EditCopy
sTemp = GetClipboardText
- '/// check if quote got modified; it hasn't got. ///'
if (sTemp <> Normal$) then
Warnlog "The end quote seems wrong. Should be :" + Hinten$ +":"+ASC(Hinten$) +": but it is :" + sTemp + ":"+ASC(sTemp)+":"
endif
- '/// type keys [Home][Shift + End][Delete] to remove text
hTypeKeys "<Home><Shift End><Delete>"
Printlog " - replace quotes" '------------------------------------------------------------------------------------------
- '/// set to a value, and check if that value is used///'
- '/// Tools->Autocorrect... ///'
ToolsAutocorrect
Kontext
- '/// select tabpage 'Custom Quotes' ///'
- active.SetPage TabTypografisch
- Kontext "TabTypografisch"
- '/// check checkbox 'Replace'; click button Start quote: '"/'' ///'
- if bSimple then
- EinfacheErsetzen.Check
- EinfachWortAnfang.Click
- else
- DoppelteErsetzen.Check
- DoppeltWortAnfang.Click
- endif
- Kontext "Sonderzeichen"
- sleep 1
- '/// on dialog 'Start Quote' in character list press [Home] 91*[Right] ///'
- Schriftliste.TypeKeys "<Home>"
- Schriftliste.TypeKeys "<Right>", 91 '123
- sleep 1
- '/// close dialog 'Start Quote' with OK ///'
- Sonderzeichen.OK
-
- Kontext "TabTypografisch"
- '/// click button End Quote: '"/'' ///'
- if bSimple then
- EinfachWortEnde.Click
- else
- DoppeltWortEnde.Click
- endif
- Kontext "Sonderzeichen"
- sleep 1
- '/// on dialog 'End Quote' in character list press [Home] 93*[Right] ///'
- Schriftliste.TypeKeys "<Home>"
- Schriftliste.TypeKeys "<Right>", 93 '125
- sleep 1
- '/// close dialog 'End Quote' with OK ///'
- Sonderzeichen.OK
-
- Kontext "TabTypografisch"
- '/// close dialog 'AutoCorrect' with OK ///'
+ active.SetPage TabTypografisch
+ Kontext "TabTypografisch"
+ if bSimple then
+ EinfacheErsetzen.Check
+ EinfachWortAnfang.Click
+ else
+ DoppelteErsetzen.Check
+ DoppeltWortAnfang.Click
+ endif
+ Kontext "Sonderzeichen"
+ sleep 1
+ Schriftliste.TypeKeys "<Home>"
+ Schriftliste.TypeKeys "<Right>", 91 '123
+ sleep 1
+ Sonderzeichen.OK
+
+ Kontext "TabTypografisch"
+ if bSimple then
+ EinfachWortEnde.Click
+ else
+ DoppeltWortEnde.Click
+ endif
+ Kontext "Sonderzeichen"
+ sleep 1
+ Schriftliste.TypeKeys "<Home>"
+ Schriftliste.TypeKeys "<Right>", 93 '125
+ sleep 1
+ Sonderzeichen.OK
+
+ Kontext "TabTypografisch"
TabTypografisch.OK
sleep 5
gMouseClick 50,50
sleep 5
- '/// create textframe with quotes; Simple: 39; Double: 34; ///'
hTextrahmenErstellen ( Normal$ + "Hello" + Normal$ + " ",20,20,60,30)
sleep 2
- '/// press keys [Home][Shift + Right] to select the start quote ///'
hTypeKeys "<Home><Shift Right>"
Sleep 5
- '/// Edit->Copy ///'
EditCopy
sTemp = GetClipboardText
- '/// compare quote to selected start quote ///'
if (sTemp <> Chr(123)) then
Warnlog "Beginning quote is wrong. It should be :" + Chr (123) + ":123: but it is = " + sTemp +":"+ASC(sTemp)+":"
endif
- '/// press keys [End][Left][Shift + Left] to select the end quote ///'
hTypeKeys "<End><Left><Shift Left>"
Sleep 1
- '/// Edit->Copy ///'
EditCopy
sTemp = GetClipboardText
- '/// compare quote to selected end quote ///'
if (sTemp <> Chr(125)) then
Warnlog "The end quote is wrong, it should be :" + Chr (125) + ":125: but it is = " + sTemp +":"+ASC(sTemp)+":"
endif
- '/// type keys [Home][Shift + End][Delete] to remove text
hTypeKeys "<Home><Shift End><Delete>"
Printlog " - back to standard" '------------------------------------------------------------------------------------------
- '/// Tools->Autocorrect... ///'
ToolsAutocorrect
Kontext
- '/// select tabpage 'Custom Quotes' ///'
- active.SetPage TabTypografisch
- Kontext "TabTypografisch"
- '/// check checkbox 'Replace'; click button 'Default'; ///'
- if bSimple then
- EinfacheErsetzen.Check
- EinfachStandard.Click
- else
- DoppelteErsetzen.Check
- DoppeltStandard.Click
- endif
+ active.SetPage TabTypografisch
+ Kontext "TabTypografisch"
+ if bSimple then
+ EinfacheErsetzen.Check
+ EinfachStandard.Click
+ else
+ DoppelteErsetzen.Check
+ DoppeltStandard.Click
+ endif
- '/// close dialog 'AutoCorrect' with OK ///'
TabTypografisch.OK
sleep 1
- '/// create textframe with quotes; Simple: 39; Double: 34; ///'
hTextrahmenErstellen ( Normal$ + "Hello" + Normal$ + " ",20,20,60,30)
sleep 2
- '/// press keys [Home][Shift + Right] to select the start quote ///'
hTypeKeys "<Home><Shift Right>"
Sleep 1
- '/// Edit->Copy ///'
EditCopy
sTemp = GetClipboardText
- '/// compare quote to reference start quote ///'
if (sTemp <> Vorn$) then
Warnlog "The beginning quote seems wrong. Should be :" + Vorn$ +":"+ASC(vorn$)+ ": but it is = :" + sTemp +":"+ASC(sTemp)+":"
endif
- '/// press keys [End][Left][Shift + Left] to select the end quote ///'
hTypeKeys "<End><Left><Shift Left>"
Sleep 1
- '/// Edit->Copy ///'
EditCopy
sTemp = GetClipboardText
- '/// compare quote to reference end quote ///'
if (sTemp <> Hinten$) then
Warnlog "The end quote seems wrong. Should be :" + Hinten$ +":"+ASC(Hinten$) +": but it is :" + sTemp + ":"+ASC(sTemp)+":"
endif
- '/// type keys [Home][Shift + End][Delete] to remove text
hTypeKeys "<Home><Shift End><Delete>"
- '/// Tools->Autocorrect... ///'
ToolsAutocorrect
Kontext
- '/// select tabpage 'Custom Quotes' ///'
- active.SetPage TabTypografisch
- Kontext "TabTypografisch"
- '/// UNcheck checkbox 'Replace' ///'
- if bSimple then
- EinfacheErsetzen.UnCheck
- else
- DoppelteErsetzen.UnCheck
- endif
- '/// close dialog 'AutoCorrect' with OK ///'
+ active.SetPage TabTypografisch
+ Kontext "TabTypografisch"
+ if bSimple then
+ EinfacheErsetzen.UnCheck
+ else
+ DoppelteErsetzen.UnCheck
+ endif
TabTypografisch.OK
sleep 1
- '/// close application ///'
hCloseDocument
endcase
diff --git a/testautomation/graphics/optional/includes/global/g_character.inc b/testautomation/graphics/optional/includes/global/g_character.inc
index 52af1ca97b62..cfb92ba59502 100755
--- a/testautomation/graphics/optional/includes/global/g_character.inc
+++ b/testautomation/graphics/optional/includes/global/g_character.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
@@ -45,44 +45,35 @@
'\*******************************************************************
testcase tFormatCharacter
- dim sTemp as string
- dim iTemp as integer
-
- '/// open application ///'
- Call hNewDocument
- sleep 1
-
- '/// create a textframe with content ///'
- hTextrahmenErstellen ("This is a check, a check, a check.",10,10,60,30)
- '/// type with keys [strg]+[home] [shift]+[end] to select the inserted text ///'
- hTypeKeys "<MOD1 HOME><shift end>"
- sleep 1
-
- '/// Format->Character ///'
- FormatCharacter
- sleep 1
- '/// switch to tabpage 'Font' ///'
- Kontext
- Messagebox.SetPage TabFont
- Kontext "TabFont"
- sleep 1
-
- '/// switch to tabpage 'Font Effects' ///'
- Kontext
- Messagebox.SetPage TabFontEffects
- kontext "TabFontEffects"
- sleep 1
-
- '/// switch to tabpage 'Position' ///'
- Kontext
- Messagebox.SetPage TabFontPosition
- Kontext "TabFontPosition"
- sleep 1
-
- '/// close dialog 'Character' with 'OK' ///'
- TabFontPosition.OK
- '/// close application ///'
- Call hCloseDocument
+ dim sTemp as string
+ dim iTemp as integer
+
+ Call hNewDocument
+ sleep 1
+
+ hTextrahmenErstellen ("This is a check, a check, a check.",10,10,60,30)
+ hTypeKeys "<MOD1 HOME><shift end>"
+ sleep 1
+
+ FormatCharacter
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabFont
+ Kontext "TabFont"
+ sleep 1
+
+ Kontext
+ Messagebox.SetPage TabFontEffects
+ kontext "TabFontEffects"
+ sleep 1
+
+ Kontext
+ Messagebox.SetPage TabFontPosition
+ Kontext "TabFontPosition"
+ sleep 1
+
+ TabFontPosition.OK
+ Call hCloseDocument
endcase
testcase tDialogCharacter
@@ -105,264 +96,253 @@ testcase tDialogCharacter
ToolsOptions
hToolsOptions ( "LanguageSettings", "Languages" )
- if Aktivieren.IsChecked then '/// Check in what state Asian support is ///'
- Asiansupportsetting = TRUE
- else
- Asiansupportsetting = FALSE
- Aktivieren.Check '/// Activate if not already activated ///'
- end if
+ Asiansupportsetting = TRUE
+else
+ Asiansupportsetting = FALSE
+end if
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
- Sleep (3)
+Kontext "ExtrasOptionenDlg"
+ExtrasOptionenDlg.OK
+Sleep (3)
- Kontext
+Kontext
- Call hTextrahmenErstellen ( "Some text in a box.", 20, 20, 50, 50 )
+Call hTextrahmenErstellen ( "Some text in a box.", 20, 20, 50, 50 )
- FormatCharacter
- sleep 1
- Kontext '"Active" ' insert this, perhaps another
- Active.SetPage TabFont ' tabpage is active at open
- Kontext "TabFont"
- CountOfThem = FontWest.GetItemCount
- for y = 1 to CountOfThem
+FormatCharacter
+sleep 1
+Kontext '"Active" ' insert this, perhaps another
+Active.SetPage TabFont ' tabpage is active at open
+Kontext "TabFont"
+CountOfThem = FontWest.GetItemCount
+for y = 1 to CountOfThem
FontWest.Select y
Xtext = FontWest.GetSelText
-' printlog "This FontWest is: " & Xtext
- next y
-
- CountOfThem = StyleWest.GetItemCount
- for y = 1 to CountOfThem
- StyleWest.Select y
- Xtext = StyleWest.GetSelText
-' printlog "This StyleWest is: " & Xtext
- next y
-
- CountOfThem = SizeWest.GetItemCount
- for y = 1 to CountOfThem
- SizeWest.Select y
- Xtext = SizeWest.GetSelText
-' printlog "This SizeWest is: " & Xtext
- next y
-
- CountOfThem = LanguageWest.GetItemCount
- for y = 1 to CountOfThem
- LanguageWest.Select y
- Xtext = LanguageWest.GetSelText
-' printlog "This LanguageWest is: " & Xtext
- next y
-
- CountOfThem = FontEast.GetItemCount
- for y = 1 to CountOfThem
- FontEast.Select y
- Xtext = FontEast.GetSelText
-' printlog "This FontEast is: " & Xtext
- next y
-
- CountOfThem = StyleEast.GetItemCount
- for y = 1 to CountOfThem
- StyleEast.Select y
- Xtext = StyleEast.GetSelText
-' printlog "This StyleEast is: " & Xtext
- next y
-
- CountOfThem = SizeEast.GetItemCount
- for y = 1 to CountOfThem
- SizeEast.Select y
- Xtext = SizeEast.GetSelText
-' printlog "This SizeEast is: " & Xtext
- next y
-
- CountOfThem = LanguageEast.GetItemCount
- for y = 1 to CountOfThem
- LanguageEast.Select y
- Xtext = LanguageEast.GetSelText
-' printlog "This LanguageEast is: " & Xtext
- next y
-
- Kontext
- Active.SetPage TabFontEffects
- Kontext "TabFontEffects"
- if NOT Outline.IsChecked then
- Outline.Check
- end if
-
- if NOT Shadow.IsChecked then
- Shadow.Check
- end if
-
- CountOfThem = Underline.GetItemCount
- CountOfColors = Color.GetItemCount
+ ' printlog "This FontWest is: " & Xtext
+next y
+
+CountOfThem = StyleWest.GetItemCount
+for y = 1 to CountOfThem
+ StyleWest.Select y
+ Xtext = StyleWest.GetSelText
+ ' printlog "This StyleWest is: " & Xtext
+next y
+
+CountOfThem = SizeWest.GetItemCount
+for y = 1 to CountOfThem
+ SizeWest.Select y
+ Xtext = SizeWest.GetSelText
+ ' printlog "This SizeWest is: " & Xtext
+next y
+
+CountOfThem = LanguageWest.GetItemCount
+for y = 1 to CountOfThem
+ LanguageWest.Select y
+ Xtext = LanguageWest.GetSelText
+ ' printlog "This LanguageWest is: " & Xtext
+next y
+
+CountOfThem = FontEast.GetItemCount
+for y = 1 to CountOfThem
+ FontEast.Select y
+ Xtext = FontEast.GetSelText
+ ' printlog "This FontEast is: " & Xtext
+next y
+
+CountOfThem = StyleEast.GetItemCount
+for y = 1 to CountOfThem
+ StyleEast.Select y
+ Xtext = StyleEast.GetSelText
+ ' printlog "This StyleEast is: " & Xtext
+next y
+
+CountOfThem = SizeEast.GetItemCount
+for y = 1 to CountOfThem
+ SizeEast.Select y
+ Xtext = SizeEast.GetSelText
+ ' printlog "This SizeEast is: " & Xtext
+next y
+
+CountOfThem = LanguageEast.GetItemCount
+for y = 1 to CountOfThem
+ LanguageEast.Select y
+ Xtext = LanguageEast.GetSelText
+ ' printlog "This LanguageEast is: " & Xtext
+next y
+
+Kontext
+Active.SetPage TabFontEffects
+Kontext "TabFontEffects"
+if NOT Outline.IsChecked then
+ Outline.Check
+end if
+
+if NOT Shadow.IsChecked then
+ Shadow.Check
+end if
+
+CountOfThem = Underline.GetItemCount
+CountOfColors = Color.GetItemCount
+
+for y = 2 to CountOfThem
+ Underline.Select y
+ Xtext = Underline.GetSelText
+ ' printlog "This Underline is: " & Xtext
+
+ for i = 1 to CountOfColors
+ Color.Select i
+ TestColorString = Color.GetSelText
+ ' printlog "This Color is: " & TestColorString
+ next i
+next y
- for y = 2 to CountOfThem
- Underline.Select y
- Xtext = Underline.GetSelText
-' printlog "This Underline is: " & Xtext
+CountOfThem = StrikeThrough.GetItemCount
+for y = 2 to CountOfThem
+ StrikeThrough.Select y
+ IndividualWords.UnCheck
+ Xtext = StrikeThrough.GetSelText
+ ' printlog "The StrikeThrough is: " & Xtext
- for i = 1 to CountOfColors
- Color.Select i
- TestColorString = Color.GetSelText
-' printlog "This Color is: " & TestColorString
- next i
- next y
-
- CountOfThem = StrikeThrough.GetItemCount
- for y = 2 to CountOfThem
- StrikeThrough.Select y
- IndividualWords.UnCheck
- Xtext = StrikeThrough.GetSelText
-' printlog "The StrikeThrough is: " & Xtext
-
- for i = 1 to CountOfColors
- Color.Select i
- TestColorString = Color.GetSelText
-' printlog "And the Color is: " & TestColorString
- next i
- next y
+ for i = 1 to CountOfColors
+ Color.Select i
+ TestColorString = Color.GetSelText
+ ' printlog "And the Color is: " & TestColorString
+ next i
+next y
- IndividualWords.Check
- printlog "Individual Words = On"
+IndividualWords.Check
+printlog "Individual Words = On"
- CountOfThem = StrikeThrough.GetItemCount
- for y = 2 to CountOfThem
- StrikeThrough.Select y
- Xtext = StrikeThrough.GetSelText
-' printlog "The StrikeThrough is: " & Xtext
+CountOfThem = StrikeThrough.GetItemCount
+for y = 2 to CountOfThem
+ StrikeThrough.Select y
+ Xtext = StrikeThrough.GetSelText
+ ' printlog "The StrikeThrough is: " & Xtext
- for i = 1 to CountOfColors
- Color.Select i
- TestColorString = Color.GetSelText
-' printlog "And the Color is: " & TestColorString
- next i
- next y
-
- CountOfThem = Emphasis.GetItemCount
- for y = 2 to CountOfThem
- Emphasis.Select y
- Xtext = Emphasis.GetSelText
-' printlog "The Emphasis is: " & Xtext
-
- for i = 1 to CountOfColors
- Color.Select i
- TestColorString = Color.GetSelText
-' printlog "And the Color is: " & TestColorString
- next i
- next y
-
- CountOfThem = Position.GetItemCount
- for y = 1 to CountOfThem
- Position.Select y
- Xtext = Position.GetSelText
-' printlog "The Position is: " & Xtext
- for i = 1 to CountOfColors
- Color.Select i
- TestColorString = Color.GetSelText
-' printlog "And the Color is: " & TestColorString
- next i
- next y
+ for i = 1 to CountOfColors
+ Color.Select i
+ TestColorString = Color.GetSelText
+ ' printlog "And the Color is: " & TestColorString
+ next i
+next y
- CountOfThem = FontColor.GetItemCount
- for z = 1 to CountOfThem
- FontColor.Select z
- TestColorString = FontColor.GetSelText
-' printlog "The FontColor is: " & TestColorString
- next z
+CountOfThem = Emphasis.GetItemCount
+for y = 2 to CountOfThem
+ Emphasis.Select y
+ Xtext = Emphasis.GetSelText
+ ' printlog "The Emphasis is: " & Xtext
- CountOfThem = Relief.GetItemCount
- TestColorString = Color.GetSelText
- for y = 1 to CountOfThem
- Relief.Select y
- Xtext = Relief.GetSelText
+ for i = 1 to CountOfColors
+ Color.Select i
TestColorString = Color.GetSelText
-' printlog "The Relief is: " & Xtext
- next y
-
- Kontext
- Active.SetPage TabFontPosition '/// Changes the active tab to "Position"
- Kontext "TabFontPosition"
- printlog "TabFontPosition"
- SuperScript.Check
- Super.Check
- RelativeFontSize.ToMin '/// Testing the "Relative Font Size"-Listbox
- ThisIsMyTextFromControl = RelativeFontSize.GetText
+ ' printlog "And the Color is: " & TestColorString
+ next i
+next y
+
+CountOfThem = Position.GetItemCount
+for y = 1 to CountOfThem
+ Position.Select y
+ Xtext = Position.GetSelText
+ ' printlog "The Position is: " & Xtext
+ for i = 1 to CountOfColors
+ Color.Select i
+ TestColorString = Color.GetSelText
+ ' printlog "And the Color is: " & TestColorString
+ next i
+next y
+
+CountOfThem = FontColor.GetItemCount
+for z = 1 to CountOfThem
+ FontColor.Select z
+ TestColorString = FontColor.GetSelText
+ ' printlog "The FontColor is: " & TestColorString
+next z
+
+CountOfThem = Relief.GetItemCount
+TestColorString = Color.GetSelText
+for y = 1 to CountOfThem
+ Relief.Select y
+ Xtext = Relief.GetSelText
+ TestColorString = Color.GetSelText
+ ' printlog "The Relief is: " & Xtext
+next y
+
+Kontext
+Kontext "TabFontPosition"
+printlog "TabFontPosition"
+SuperScript.Check
+Super.Check
+ThisIsMyTextFromControl = RelativeFontSize.GetText
' printlog "The Relative Font Size minimum is: " & ThisIsMyTextFromControl
- for y = 1 to 99
- RelativeFontSize.TypeKeys "<UP>"
- ThisIsMyTextFromControl = RelativeFontSize.GetText
-' printlog "The Relative Font Size is: " & ThisIsMyTextFromControl
- next y
-
- Automatic.Check
- ScaleWith.ToMin '/// Testing the "Scale With"-Listbox
- ThisIsMyTextFromControl = ScaleWith.GetText
- printlog "ScaleWith minimum is:" & ThisIsMyTextFromControl
- ' ScaleWith.TypeKeys "<TAB>"
- for y = 1 to 100
- ScaleWith.TypeKeys "<UP>"
- ThisIsMyTextFromControl = ScaleWith.GetText
-' printlog "ScaleWith is:" & ThisIsMyTextFromControl
- next y
-
- Normal.Check
- Subscript.Check
-
- RelativeFontSize.ToMin '/// Testing the "Reliative Font Size"-Listbox again but this time
- ThisIsMyTextFromControl = RelativeFontSize.GetText '/// with "Subscript" and "Normal" Checked
- printlog "The Relative Font Size minimum is: " & ThisIsMyTextFromControl
- for y = 1 to 99
- RelativeFontSize.TypeKeys "<UP>"
- ThisIsMyTextFromControl = RelativeFontSize.GetText
-' printlog "The Relative Font Size is: " & ThisIsMyTextFromControl
- next y
-
- Automatic.Check
-
- ScaleWith.ToMin '/// Testing the "ScaleWith"-Listbox
+for y = 1 to 99
+ RelativeFontSize.TypeKeys "<UP>"
+ ThisIsMyTextFromControl = RelativeFontSize.GetText
+ ' printlog "The Relative Font Size is: " & ThisIsMyTextFromControl
+next y
+
+Automatic.Check
+ThisIsMyTextFromControl = ScaleWith.GetText
+printlog "ScaleWith minimum is:" & ThisIsMyTextFromControl
+' ScaleWith.TypeKeys "<TAB>"
+for y = 1 to 100
+ ScaleWith.TypeKeys "<UP>"
ThisIsMyTextFromControl = ScaleWith.GetText
- printlog "The ScaleWith Size is: " & ThisIsMyTextFromControl
- for y = 1 to 100
- ScaleWith.TypeKeys "<UP>"
- ThisIsMyTextFromControl = ScaleWith.GetText
-' printlog "The ScaleWith Size is: " & ThisIsMyTextFromControl
- next y
-
- ThisIsMyTextFromControl = Spacing.GetSelText '/// Testing the "Spacing"-ListBox
- printlog "The Spacing is first: " & ThisIsMyTextFromControl
- for y = 2 to 3
- Spacing.Select y
- ThisIsMyTextFromControl = Spacing.GetSelText
- printlog "The Spacing is: " & ThisIsMyTextFromControl
- ThisIsMyTextFromControl = SpacingBy.GetText '/// Testing the "Spacing By"-Scrollbox
-' printlog "The SpacingBy Size minimum is: " & ThisIsMyTextFromControl
- SpacingBy.ToMin
- for z = 1 to 4
- SpacingBy.More
- ThisIsMyTextFromControl = SpacingBy.GetText
-' printlog "The SpacingBy Size is: " & ThisIsMyTextFromControl
- next z
- PairKerning.Check
- next y
+ ' printlog "ScaleWith is:" & ThisIsMyTextFromControl
+next y
- Kontext "TabFontPosition"
- TabFontPosition.Ok
+Normal.Check
+Subscript.Check
- if Asiansupportsetting = FALSE then
- kontext
- ToolsOptions
- hToolsOptions ( "LanguageSettings", "Languages" )
- Aktivieren.UnCheck '/// Deactivate if not already deactivated ///'
- Printlog "Reseted the Asiansupport-value to it's original state"
+printlog "The Relative Font Size minimum is: " & ThisIsMyTextFromControl
+for y = 1 to 99
+ RelativeFontSize.TypeKeys "<UP>"
+ ThisIsMyTextFromControl = RelativeFontSize.GetText
+ ' printlog "The Relative Font Size is: " & ThisIsMyTextFromControl
+next y
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
- Sleep (3)
+Automatic.Check
-' ActiveDeactivateAsianSupport = FALSE
- end if
+ThisIsMyTextFromControl = ScaleWith.GetText
+printlog "The ScaleWith Size is: " & ThisIsMyTextFromControl
+for y = 1 to 100
+ ScaleWith.TypeKeys "<UP>"
+ ThisIsMyTextFromControl = ScaleWith.GetText
+ ' printlog "The ScaleWith Size is: " & ThisIsMyTextFromControl
+next y
+
+printlog "The Spacing is first: " & ThisIsMyTextFromControl
+for y = 2 to 3
+ Spacing.Select y
+ ThisIsMyTextFromControl = Spacing.GetSelText
+ printlog "The Spacing is: " & ThisIsMyTextFromControl
+ ' printlog "The SpacingBy Size minimum is: " & ThisIsMyTextFromControl
+ SpacingBy.ToMin
+ for z = 1 to 4
+ SpacingBy.More
+ ThisIsMyTextFromControl = SpacingBy.GetText
+ ' printlog "The SpacingBy Size is: " & ThisIsMyTextFromControl
+ next z
+ PairKerning.Check
+next y
+
+Kontext "TabFontPosition"
+TabFontPosition.Ok
+
+if Asiansupportsetting = FALSE then
+ kontext
+ ToolsOptions
+ hToolsOptions ( "LanguageSettings", "Languages" )
+ Printlog "Reseted the Asiansupport-value to it's original state"
- Printlog "DialogCharacter Ends"
- Call hCloseDocument
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
+ Sleep (3)
+
+ ' ActiveDeactivateAsianSupport = FALSE
+end if
+
+Printlog "DialogCharacter Ends"
+Call hCloseDocument
endcase
testcase tSetFormatCharacter
@@ -380,117 +360,93 @@ testcase tSetFormatCharacter
dim sFile as string
dim sTemp as string
- if (gApplication = "IMPRESS") then
- ExtensionString = "odp"
- else
- ExtensionString = "odg"
- end if
+ if (gApplication = "IMPRESS") then
+ ExtensionString = "odp"
+ else
+ ExtensionString = "odg"
+ end if
sFile = convertPath(gTesttoolpath + "graphics\required\input\spellb_" + iSprache + "."+ExtensionString)
- '/// create document, if it doesn't exist, else skip this case :-) ///'
if (dir(sFile)="") then
- '/// open application ///'
Call hNewDocument
- '/// activate all languages in options ///'
- '///+ Tools->Options ///'
ToolsOptions
- '///+ select tabpage 'Languages' from set 'Language Settings' ///'
hToolsOptions("LANGUAGESETTINGS","Languages")
kontext "TabSprachen"
- '///+ save state and check checkbox 'Asian languages support' ///'
- '/// if the language is Asian, skip this part ///'
printlog "iSprache = " + iSprache
if bAsianLan = FALSE then
- bAsian = Aktivieren.isEnabled
- Aktivieren.check
+ bAsian = Aktivieren.isEnabled
+ Aktivieren.check
endif
- '///+ save state and check checkbox 'Complex text layout (CTL) support' ///'
bComplex = ComplexScriptEnabled.isEnabled
ComplexScriptEnabled.check
- '///+ close dialog 'Options' with OK ///'
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
- '/// get count of languages ///'
- '///+ Format->Character ///'
FormatCharacter
sleep 1
Kontext
- '///+ switch to tabpage 'Font' ///'
Messagebox.SetPage TabFont
kontext "TabFont"
sleep 1
- '///+ get count of languages for Western/Asian/CTL fonts ///'
iWest = LanguageWest.getItemCount
iAsian = LanguageEast.getItemCount
iComplex = LanguageCTL.getItemCount
if bAsianLan = True then
- if (iWest <> 144) then
- Warnlog "Western text font languages count wrong; expected: '113' is: '" + iWest + "'"
- else
- Printlog "Western text font languages count: " + iWest
- endif
- if (iAsian <> 8) then
- Warnlog "Asian text font languages count wrong; expected: '9' is: '" + iAsian + "'"
- else
- Printlog "Asian text font languages count : " + iAsian
- endif
- if (iComplex <> 50) then
- Warnlog "CTL font languages count wrong; expected: '30' is: '" + iComplex + "'"
- else
- Printlog "CTL font languages count : " + iComplex
- endif
+ if (iWest <> 144) then
+ Warnlog "Western text font languages count wrong; expected: '113' is: '" + iWest + "'"
+ else
+ Printlog "Western text font languages count: " + iWest
+ endif
+ if (iAsian <> 8) then
+ Warnlog "Asian text font languages count wrong; expected: '9' is: '" + iAsian + "'"
+ else
+ Printlog "Asian text font languages count : " + iAsian
+ endif
+ if (iComplex <> 50) then
+ Warnlog "CTL font languages count wrong; expected: '30' is: '" + iComplex + "'"
+ else
+ Printlog "CTL font languages count : " + iComplex
+ endif
else
- if (iWest <> 113) then
- Warnlog "Western text font languages count wrong; expected: '113' is: '" + iWest + "'"
- else
- Printlog "Western text font languages count: " + iWest
- endif
- if (iAsian <> 9) then
- Warnlog "Asian text font languages count wrong; expected: '9' is: '" + iAsian + "'"
- else
- Printlog "Asian text font languages count : " + iAsian
- endif
- if (iComplex <> 30) then
- Warnlog "CTL font languages count wrong; expected: '30' is: '" + iComplex + "'"
- else
- Printlog "CTL font languages count : " + iComplex
- endif
+ if (iWest <> 113) then
+ Warnlog "Western text font languages count wrong; expected: '113' is: '" + iWest + "'"
+ else
+ Printlog "Western text font languages count: " + iWest
+ endif
+ if (iAsian <> 9) then
+ Warnlog "Asian text font languages count wrong; expected: '9' is: '" + iAsian + "'"
+ else
+ Printlog "Asian text font languages count : " + iAsian
+ endif
+ if (iComplex <> 30) then
+ Warnlog "CTL font languages count wrong; expected: '30' is: '" + iComplex + "'"
+ else
+ Printlog "CTL font languages count : " + iComplex
+ endif
endif
- '///+ close dialog 'Character' with OK ///'
TabFont.Ok
WL_SD_TextEinfuegenDraw
gMouseMove ( 1, 1, 100, 100 )
- '///+ print the language counts into the first line of the document ///'
hTypeKeys(" "+iWest+" "+iAsian+" "+iComplex+"<return>")
- '/// set all languages to '[None]' ///'
- '///+ Format->Character ///'
FormatCharacter
kontext "TabFont"
- '///+ select '[None]' (should be the first entry in every listbox) ///'
LanguageWest.select 1
LanguageEast.select 1
LanguageCTL.select 1
- '///+ close dialog 'Character' with OK ///'
TabFont.Ok
- '/// print one line with language formated text for every language ///'
for i = 1 to iWest
- '///+ Format->Character ///'
FormatCharacter
- kontext "TabFont"
- '///+ select the next language ///'
- LanguageWest.select i
- sTemp = LanguageWest.getItemText (i)
- ListAppend(sLanguage(), sTemp)
- '///+ close dialog 'Character' with OK ///'
+ kontext "TabFont"
+ LanguageWest.select i
+ sTemp = LanguageWest.getItemText (i)
+ ListAppend(sLanguage(), sTemp)
TabFont.Ok
- '///+ type [return][number of language in list][Tab][Language name][Tab] ///'
hTypeKeys(""+i+"<tab>"+sTemp+"<tab><return>")
next i
@@ -503,11 +459,11 @@ testcase tSetFormatCharacter
for i = 1 to iAsian
FormatCharacter
- Kontext
- kontext "TabFont"
- LanguageEast.select i
- sTemp = LanguageEast.getItemText (i)
- ListAppend(sLanguage(), sTemp)
+ Kontext
+ kontext "TabFont"
+ LanguageEast.select i
+ sTemp = LanguageEast.getItemText (i)
+ ListAppend(sLanguage(), sTemp)
TabFont.Ok
hTypeKeys(""+i+"<tab>"+sTemp+"<tab><return>")
next i
@@ -521,16 +477,15 @@ testcase tSetFormatCharacter
for i = 1 to iComplex
FormatCharacter
- Kontext
- kontext "TabFont"
- LanguageCTL.select i
- sTemp = LanguageCTL.getItemText (i)
- ListAppend(sLanguage(), sTemp)
+ Kontext
+ kontext "TabFont"
+ LanguageCTL.select i
+ sTemp = LanguageCTL.getItemText (i)
+ ListAppend(sLanguage(), sTemp)
TabFont.Ok
hTypeKeys(""+i+"<tab>"+sTemp+"<tab><return>")
next i
- '/// save the created document & the languages list if they don't exists ///'
hFileSaveAs (sFile)
qaErrorLog "Created file. Please check it and then commit it! " + sTemp
sTemp = convertPath(gTesttoolpath + "graphics\required\input\spellb_" + iSprache + ".txt")
@@ -538,29 +493,21 @@ testcase tSetFormatCharacter
ListWrite(sLanguage(), sTemp,"utf8")
endif
- '/// restore the options ///'
- '///+ Tools->Options ///'
ToolsOptions
- '///+ select tabpage 'Languages' from set 'Language Settings' ///'
hToolsOptions("LANGUAGESETTINGS","Languages")
kontext "TabSprachen"
- '///+ restore state of checkbox 'Asian languages support' ///'
- '/// if the language is Asian, skip this part ///'
if bAsianLan = FALSE then
- if (bAsian <> TRUE) then
- Aktivieren.UNcheck
- endif
+ if (bAsian <> TRUE) then
+ Aktivieren.UNcheck
+ endif
endif
- '///+ restore state of checkbox 'Complex text layout (CTL) support' ///'
if (bComplex <> TRUE) then
ComplexScriptEnabled.UNcheck
endif
- '///+ close dialog 'Options' with OK ///'
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
- '/// close application ///'
Call hCloseDocument
endif
endcase
@@ -580,35 +527,26 @@ testcase tGetFormatCharacter
dim iTemp as integer
dim sSpellBooks(30) as string
- if (gApplication = "IMPRESS") then
- ExtensionString = "odp"
+ if (gApplication = "IMPRESS") then
+ ExtensionString = "odp"
else
- ExtensionString = "odg"
+ ExtensionString = "odg"
end if
-
- '/// open the english document with all languages ///'
+
hDateiOeffnen (convertPath(gTesttoolpath + "graphics\required\input\spellb_" + iSprache + "."+ExtensionString)
ListRead(sLanguageR(), convertPath(gTesttoolpath + "graphics\required\input\spellb_1.txt"),"utf8")
- '/// activate all languages in options ///'
- '///+ Tools->Options ///'
ToolsOptions
- '///+ select tabpage 'Languages' from set 'Language Settings' ///'
hToolsOptions("LANGUAGESETTINGS","Languages")
kontext "TabSprachen"
- '///+ save state and check checkbox 'Asian languages support' ///'
bAsian = Aktivieren.isEnabled
Aktivieren.check
- '///+ save state and check checkbox 'Complex text layout (CTL) support' ///'
bComplex = ComplexScriptEnabled.isEnabled
ComplexScriptEnabled.check
- '///+ close dialog 'Options' with OK ///'
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
sleep (1)
- '/// get count of languages ///'
hTypeKeys("<tab><f2>")
- '///+ first how many are in the reference document (printed in the first line)///'
hTypeKeys("<mod1 home><shift end>")
sleep (1)
editcopy
@@ -619,15 +557,12 @@ testcase tGetFormatCharacter
iAsian(1) = mid(sTemp, iTemp+1, iTemp-i)
iComplex(1) = right(sTemp, Len(sTemp) - i)
sleep (1)
- '///+ Format->Character ///'
FormatCharacter
sleep 1
Kontext
- '///+ switch to tabpage 'Font' ///'
Messagebox.SetPage TabFont
kontext "TabFont"
sleep 1
- '///+ get count of languages for Western/Asian/CTL fonts ///'
iWest(2) = LanguageWest.getItemCount
iAsian(2) = LanguageEast.getItemCount
iComplex(2) = LanguageCTL.getItemCount
@@ -646,46 +581,42 @@ testcase tGetFormatCharacter
else
Printlog "CTL font languages count : " + iComplex(2)
endif
- '///+ close dialog 'Character' with OK ///'
TabFont.Ok
- '/// write the language for every line in the current language ///'
hTypeKeys("<mod1 home><down><home>")
for i = 1 to iWest(2)
FormatCharacter
- Kontext
- kontext "TabFont"
- iTemp = LanguageWest.getSelIndex
- sTemp = LanguageWest.getSelText
- ListAppend(sLanguage(), sTemp)
+ Kontext
+ kontext "TabFont"
+ iTemp = LanguageWest.getSelIndex
+ sTemp = LanguageWest.getSelText
+ ListAppend(sLanguage(), sTemp)
TabFont.Ok
- '///+ type [end][number of language in list][Tab][Language name][down][home] ///'
hTypeKeys("<end>"+iTemp+"<tab>"+sTemp+"<down><home>")
next i
for i = 1 to iAsian(2)
FormatCharacter
- Kontext
- kontext "TabFont"
- iTemp = LanguageEast.getSelIndex
- sTemp = LanguageEast.getSelText
- ListAppend(sLanguage(), sTemp)
+ Kontext
+ kontext "TabFont"
+ iTemp = LanguageEast.getSelIndex
+ sTemp = LanguageEast.getSelText
+ ListAppend(sLanguage(), sTemp)
TabFont.Ok
hTypeKeys("<end>"+iTemp+"<tab>"+sTemp+"<down><home>")
next i
for i = 1 to iComplex(2)
FormatCharacter
- Kontext
- kontext "TabFont"
- iTemp = LanguageCTL.getSelIndex
- sTemp = LanguageCTL.getSelText
- ListAppend(sLanguage(), sTemp)
+ Kontext
+ kontext "TabFont"
+ iTemp = LanguageCTL.getSelIndex
+ sTemp = LanguageCTL.getSelText
+ ListAppend(sLanguage(), sTemp)
TabFont.Ok
hTypeKeys("<end>"+iTemp+"<tab>"+sTemp+"<down><home>")
next i
- '/// save the created document & the languages list ///'
sTemp = convertPath(gOfficePath + "user\work\spellb_" + iSprache)
hFileSaveAsKill (sTemp)
sTemp = convertPath(gOfficePath + "user\work\spellb_" + iSprache + ".txt")
@@ -696,9 +627,9 @@ testcase tGetFormatCharacter
for i = 1 to ListCount(sLanguageR())
select case i
- case 1:printlog " * Western text font languages"
- case iWest(2)+1:printlog " * Asian text font languages"
- case iWest(2)+iAsian(2)+1:printlog " * CTL font languages"
+ case 1:printlog " * Western text font languages"
+ case iWest(2)+1:printlog " * Asian text font languages"
+ case iWest(2)+iAsian(2)+1:printlog " * CTL font languages"
end select
if (sLanguageR(i) <> sLanguage(i)) then
if (instr(sLanguage(i), "[") > 0) then ' [None] - Entry ?
@@ -709,7 +640,6 @@ testcase tGetFormatCharacter
endif
next i
- '/// close application ///'
Call hCloseDocument
endcase
diff --git a/testautomation/graphics/optional/includes/global/g_clipboard.inc b/testautomation/graphics/optional/includes/global/g_clipboard.inc
index 10a4523f0a23..3a81d41d492a 100755
--- a/testautomation/graphics/optional/includes/global/g_clipboard.inc
+++ b/testautomation/graphics/optional/includes/global/g_clipboard.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
@@ -50,15 +50,15 @@ testcase tiEditUndo
Dim sDatei as string
Dim Ueber_Text_1 as string
-
- if (gApplication = "IMPRESS") then
+
+ if (gApplication = "IMPRESS") then
ExtensionString = "odp"
else
ExtensionString = "odg"
end if
-
+
sDatei = gTesttoolPath + "graphics\required\input\leer."+ExtensionString
-
+
hFileOpen ConvertPath (sDatei)
sleep 5
printlog "Checking for readonly state. If so, make it editable."
@@ -69,18 +69,16 @@ testcase tiEditUndo
ContextPositionAndSize
Kontext
if Messagebox.exists (5) then
- Messagebox.SetPage TabPositionAndSize
+ Messagebox.SetPage TabPositionAndSize
else
- print "what"
+ print "what"
endif
Kontext "TabPositionAndSize"
- Ueber_Text_1=PositionX.GetText '/// defining variable for original position of object ///'
TabPositionAndSize.Cancel
sleep 2
Kontext "Toolbar"
Auswahl.Click
sleep 1
- ContextArrangeBringBackward '/// Bring Object backward ///'
sleep 1
gMouseClick 60,60
sleep 1
@@ -91,56 +89,51 @@ testcase tiEditUndo
Kontext "Toolbar"
Auswahl.Click
sleep 1
- ContextPositionAndSize '/// Open Position and Size dialog, checking position ///'
Kontext
Messagebox.SetPage TabPositionAndSize
Kontext "TabPositionAndSize"
if PositionX=0 Then Warnlog " Command was not completely executed, and it could not be undone."
- TabPositionAndSize.Cancel
- sleep 2
- gMouseClick 60,60
- sleep 1
-
- EditUndo '/// Edit Undo for BringBackward ///'
- Sleep 2
- gMouseClick 60,60
- sleep 1
- Kontext "Toolbar"
- Auswahl.Click
- hTypeKeys "<TAB><TAB>"
- sleep 1
- Kontext "Toolbar"
- Auswahl.Click
- ContextPositionAndSize '/// Again checking position using Position and Size dialog ///'
- kontext
- Messagebox.SetPage TabPositionAndSize
- kontext "TabPositionAndSize"
- if PositionX.GetText = Ueber_Text_1 then
- printlog "OK, last order could be redone"
- else
- warnlog "Last order could not be redone"
- end if
- TabPositionAndSize.Cancel
-
- Call hCloseDocument '/// Close document ///'
+ TabPositionAndSize.Cancel
+ sleep 2
+ gMouseClick 60,60
+ sleep 1
+
+ Sleep 2
+ gMouseClick 60,60
+ sleep 1
+ Kontext "Toolbar"
+ Auswahl.Click
+ hTypeKeys "<TAB><TAB>"
+ sleep 1
+ Kontext "Toolbar"
+ Auswahl.Click
+ kontext
+ Messagebox.SetPage TabPositionAndSize
+ kontext "TabPositionAndSize"
+ if PositionX.GetText = Ueber_Text_1 then
+ printlog "OK, last order could be redone"
+ else
+ warnlog "Last order could not be redone"
+ end if
+ TabPositionAndSize.Cancel
+
endcase
'-------------------------------------------------------------------------------
testcase tiEditRedo
-
+
Dim Datei$
Dim Ueber_Text_1
-
- if (gApplication = "IMPRESS") then
+
+ if (gApplication = "IMPRESS") then
ExtensionString = "odp"
else
ExtensionString = "odg"
end if
-
+
Datei$ = gTesttoolPath + "graphics\required\input\leer."+ExtensionString
-
- hFileOpen ConvertPath (Datei$) '/// Open test document (leer.od?) ///'
+
sleep 3
' check if the document is writable
if fIsDocumentWritable = false then
@@ -165,7 +158,6 @@ testcase tiEditRedo
sleep 1
hTypeKeys "<TAB>"
sleep 1
- ContextArrangeBringBackward '/// move object behind other object ///'
sleep 1
gMouseClick 60,60
sleep 1
@@ -174,44 +166,38 @@ testcase tiEditRedo
ContextPositionAndSize
sleep 1
Kontext
- Messagebox.SetPage TabPositionAndSize '/// checking new position values ///'
Kontext "TabPositionAndSize"
- if PositionX.GetText = Ueber_Text_1 Then Warnlog " Nothing changed, so nothing can be undone"
- TabPositionAndSize.Cancel
- sleep 1
- gMouseClick 60,60
- EditUndo '/// Edit Undo///'
- sleep 1
- hTypeKeys "<TAB>"
- sleep 1
- ContextPositionAndSize
- sleep 1
- kontext
- Messagebox.SetPage TabPositionAndSize '/// checking again position ///'
- kontext "TabPositionAndSize"
- if PositionX.GetText <> Ueber_Text_1 Then Warnlog " Undo didn't worked, so repeat last action wont work either"
- TabPositionAndSize.Cancel
- sleep 2
- EditRedo '/// Edit Redo ///'
- sleep 2
- gMouseClick 60,60
- sleep 2
- hTypeKeys "<TAB>"
- sleep 2
- ContextPositionAndSize
- sleep 1
- kontext
- Messagebox.SetPage TabPositionAndSize
- kontext "TabPositionAndSize"
- if PositionX.GetText <> Ueber_Text_1 then '/// checking position ///'
- printlog "Action Undo repeated"
- else
- warnlog "Action Undo not repeated"
- end if
- TabPositionAndSize.OK
- sleep 1
- call hCloseDocument '/// close document ///'
- sleep 1
+ if PositionX.GetText = Ueber_Text_1 Then Warnlog " Nothing changed, so nothing can be undone"
+ TabPositionAndSize.Cancel
+ sleep 1
+ gMouseClick 60,60
+ sleep 1
+ hTypeKeys "<TAB>"
+ sleep 1
+ ContextPositionAndSize
+ sleep 1
+ kontext
+ kontext "TabPositionAndSize"
+ if PositionX.GetText <> Ueber_Text_1 Then Warnlog " Undo didn't worked, so repeat last action wont work either"
+ TabPositionAndSize.Cancel
+ sleep 2
+ sleep 2
+ gMouseClick 60,60
+ sleep 2
+ hTypeKeys "<TAB>"
+ sleep 2
+ ContextPositionAndSize
+ sleep 1
+ kontext
+ Messagebox.SetPage TabPositionAndSize
+ kontext "TabPositionAndSize"
+ printlog "Action Undo repeated"
+ else
+ warnlog "Action Undo not repeated"
+ end if
+ TabPositionAndSize.OK
+ sleep 1
+ sleep 1
endcase
'-------------------------------------------------------------------------------
@@ -219,81 +205,64 @@ testcase tiEditClipboard
Dim Ueber_Text_4 as string
dim sTemp as string
-
- '/// open application ///'
+
Call hNewDocument
sleep 1
SetClipboard ""
- '/// Create rectangle ///'
Call hRechteckErstellen ( 65, 65, 80, 80 )
sleep 1
- '///+ RightClick onto rectangle///'
gMouseClick 70,70
sleep 1
- Ueber_Text_4 = fGetPositionX() '/// Get values for position variables ///'
Sleep 1
- '/// <b> Edit->Copy </b> ///'
EditCopy
- '///+ Type Key [Deletee] ///'
hTypeKeys "<DELETE>"
- '///+ <i> Edit->Paste </i> ///'
EditPaste
sleep 1
- '///+ Edit->Select All ///'
- EditSelectAll
- sTemp = fGetPositionX()
- if LiberalMeasurement(sTemp, Ueber_Text_4) then '/// TabPositionAndSize: comparing position with original position ///'
- printlog "OK EditCopy and EditPaste"
- else
- warnlog "- Edit paste did not work; is: '" + sTemp + "' ; should: '" + Ueber_Text_4 + "'"
- end if
- sleep 1
- '/// Type Keys [escape], + EditSelectAll (to deselect object and to select again) ///'
- hTypeKeys "<escape>"
EditSelectAll
- sleep 2
- '/// <b> Edit->Cut </b>///'
- EditCut
- sleep 1
- hTypeKeys "<TAB>"
- try
- '///+ - Format->Position And Size -> HAS TO FAIL / IS NOT AVAILABLE !!! '///'
- ContextPositionAndSize
- kontext
- '///+ - select TabPage 'Position And Size' ///'
- Messagebox.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- if TabPositionAndSize.NOTexists then
- warnlog "TabPositionAndSize isn't up ?!!"
- endif
- '///+ - Ok dialog 'Position And Size' ///'
- TabPositionAndSize.Ok
- warnlog "TabPositionAndSize IS up :-( Doesn't have to be, because object should be deleted !!!"
- catch
- Printlog " - There is no object in the document anymore :-)"
- endcatch
- sleep 1
- '///+ <i> Edit->Paste </i> ///'
- EditPaste
- sleep 2
sTemp = fGetPositionX()
- if LiberalMeasurement(sTemp, Ueber_Text_4) then
- printlog "OK Edit paste"
- else
- warnlog "- Edit paste did not work; is: '" + sTemp + "' ; should: '" + Ueber_Text_4 + "'"
- end if
- sleep 3
- '/// close application ///'
- Call hCloseDocument
+ printlog "OK EditCopy and EditPaste"
+else
+ warnlog "- Edit paste did not work; is: '" + sTemp + "' ; should: '" + Ueber_Text_4 + "'"
+end if
+sleep 1
+hTypeKeys "<escape>"
+EditSelectAll
+sleep 2
+EditCut
+sleep 1
+hTypeKeys "<TAB>"
+try
+ ContextPositionAndSize
+ kontext
+ Messagebox.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ if TabPositionAndSize.NOTexists then
+ warnlog "TabPositionAndSize isn't up ?!!"
+ endif
+ TabPositionAndSize.Ok
+ warnlog "TabPositionAndSize IS up :-( Doesn't have to be, because object should be deleted !!!"
+catch
+ Printlog " - There is no object in the document anymore :-)"
+endcatch
+sleep 1
+EditPaste
+sleep 2
+sTemp = fGetPositionX()
+if LiberalMeasurement(sTemp, Ueber_Text_4) then
+ printlog "OK Edit paste"
+else
+ warnlog "- Edit paste did not work; is: '" + sTemp + "' ; should: '" + Ueber_Text_4 + "'"
+end if
+sleep 3
+Call hCloseDocument
endcase
'-------------------------------------------------------------------------------
testcase tiEditPasteSpecial_HTML
-
+
dim Zaehler as integer
Kontext "Standardbar"
sleep 1
- Call hFileOpen ConvertPath (gTesttoolPath + "graphics\required\input\frame1.htm") '/// Load html document ///'
sleep 5
autoexecute=false
Kontext "DocumentWriter"
@@ -302,173 +271,137 @@ testcase tiEditPasteSpecial_HTML
autoexecute=true
EditSelectAll
sleep 3
- EditCopy '/// Copy selection ///'
Sleep 2
- FileClose '/// Close document ///'
sleep 3
- Call hNewDocument '/// Create new Impress document ///'
sleep 1
- EditPasteSpecial '/// Edit paste special ///'
sleep 1
Kontext "InhaltEinfuegen"
For Zaehler = 1 to Auswahl.GetItemCount
- Auswahl.select Zaehler
- printlog Zaehler, ". Selection = ", Auswahl.GetSelText
+ Auswahl.select Zaehler
+ printlog Zaehler, ". Selection = ", Auswahl.GetSelText
next Zaehler
-
- if Auswahl.GetItemCount <> 4 then '/// Controlling number of possible formats ///'
- warnlog "formats for inserting Html <> 4"
- else
- printlog "OK 4 formats for HTML-Document"
- end if
-
- sleep 3
- InhaltEinfuegen.OK '/// Paste clipboard content ///'
- sleep 3
- try
- EditCopy '/// Copy object back into clipboard ///'
- catch
- Warnlog "- Nothing inserted into document"
- endcatch
- sleep 3
- Call hCloseDocument '/// Close document ///'
- sleep 3
+
+ warnlog "formats for inserting Html <> 4"
+else
+ printlog "OK 4 formats for HTML-Document"
+end if
+
+sleep 3
+sleep 3
+try
+catch
+ Warnlog "- Nothing inserted into document"
+endcatch
+sleep 3
+sleep 3
endcase
'-------------------------------------------------------------------------------
testcase tdEditPasteSpecial_Text
-
+
printlog "Insert Text"
- call hNewDocument '/// new document ///'
- SetClipboard "I am a cool test-text in the Clipboard" '/// put text into clipboard ///'
- EditPasteSpecial '/// edit paste special ///'
sleep 1
Kontext "InhaltEinfuegen"
- Auswahl.Select 1 '/// select list entree 1 ///'
printlog "Selection = ", Auswahl.GetSelText
sleep 1
if Auswahl.GetItemCount <> 1 then
- warnlog "Selectionformat <> 1"
+ warnlog "Selectionformat <> 1"
else
- printlog "Format Text OK"
+ printlog "Format Text OK"
end if
- InhaltEinfuegen.OK '/// close dialog ///'
sleep 1
-
- Call hCloseDocument '/// close document ///'
+
endcase
'-------------------------------------------------------------------------------
testcase tdEditPasteSpecial_Graphic
-
+
dim Zaehler as integer
-
- call hNewDocument '/// ^new document ///'
+
printlog "Insert graphic file"
- InsertGraphicsFromFile '/// insert graphic (sample.bmp)///'
-
+
Kontext "GrafikEinfuegenDlg"
- Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
- Oeffnen.Click
+ Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
+ Oeffnen.Click
sleep 1
- EditSelectAll '/// select graphic ///'
- EditCut '/// cut graphic ///'
- EditPasteSpecial '/// edit paste special ///'
sleep 1
Kontext "InhaltEinfuegen"
- For Zaehler = 1 to Auswahl.GetItemCount '/// get item count for Auswahl ///'
Auswahl.select Zaehler
printlog Zaehler, ". Selection = ", Auswahl.GetSelText
- next Zaehler
-
- if Auswahl.GetItemCount <> 4 then '/// check if item count = 4 ///'
- warnlog "Format for insert graphic files should be 4, but is: " + Auswahl.GetItemCount
- else
- printlog "There are " + Auswahl.GetItemCount + " formats for graphic files"
- end if
- InhaltEinfuegen.OK '/// insert graphic from clipboard ///'
- gMouseClick 90,90
- sleep 1
- Call hCloseDocument '/// close document ///'
+next Zaehler
+
+warnlog "Format for insert graphic files should be 4, but is: " + Auswahl.GetItemCount
+else
+printlog "There are " + Auswahl.GetItemCount + " formats for graphic files"
+end if
+gMouseClick 90,90
+sleep 1
endcase
'-------------------------------------------------------------------------------
testcase tdEditPasteSpecial_Circle
- dim Zaehler as integer
- call hNewDocument '/// new document ///'
- sleep 5
- printlog "Insert circle" '/// create circle ///'
- Kontext "Toolbar"
- Ellipsen.Click
- sleep 3
- gMouseMove (20,20,80,80)
- sleep 1
- hTypeKeys "<escape>"
- sleep 2
- EditSelectAll '/// select circle ///'
- sleep 5
- EditCut '/// cut circle ///'
- sleep 1
- EditPasteSpecial '/// edit paste special ///'
- sleep 1
- Kontext "InhaltEinfuegen"
- if EinfuegenAls.IsVisible Then EinfuegenAls.Check '/// check "EinfuegenAls" ///'
- For Zaehler = 1 to Auswahl.GetItemCount '/// get item count for Auswahl ///'
- Auswahl.select Zaehler
- printlog Zaehler, ". Selection = ", Auswahl.GetSelText
- next Zaehler
- if Auswahl.GetItemCount <> 4 then '/// check if item count = 4 ///'
- warnlog "Number of possible formats <> 4"
- else
- printlog "There are 4 formats for circle"
- end if
- sleep 1
- InhaltEinfuegen.OK '/// paste circle ///'
- sleep 1
- Call hCloseDocument '/// close document ///'
+ dim Zaehler as integer
+ sleep 5
+ Kontext "Toolbar"
+ Ellipsen.Click
+ sleep 3
+ gMouseMove (20,20,80,80)
+ sleep 1
+ hTypeKeys "<escape>"
+ sleep 2
+ sleep 5
+ sleep 1
+ sleep 1
+ Kontext "InhaltEinfuegen"
+ Auswahl.select Zaehler
+ printlog Zaehler, ". Selection = ", Auswahl.GetSelText
+next Zaehler
+warnlog "Number of possible formats <> 4"
+else
+printlog "There are 4 formats for circle"
+end if
+sleep 1
+sleep 1
endcase
'-------------------------------------------------------------------------------
testcase tiEditPasteSpecial
- dim i as integer
- dim x as integer
-' warnlog "TODOTBO: from draw, impress, math..."
- '/// go into writer, type a text, select all, Edit->Cut, close writer ///'
- '/// go into application to test, insert every format you can get from Edit->Paste->Special :-) ///'
- gApplication = "WRITER"
- call hNewDocument
- kontext "DocumentWriter"
- DocumentWriter.TypeKeys "abc<shift home>"
- editcut
- call hCloseDocument
- gApplication = "IMPRESS"
- call hNewDocument
- sleep 1
-
- Printlog " get count of possibilities: "
- EditPasteSpecial
- sleep 1
- Kontext "InhaltEinfuegen"
- x = Auswahl.GetItemCount
- for i = 1 to x
- printlog " - " + i + " - " + Auswahl.GetItemText (i)
- next i
- InhaltEinfuegen.Cancel
-
- Printlog " insert every possibility"
- for i = 1 to x
- Printlog " - processing number: "+i
- EditPasteSpecial
- sleep 1
- Kontext "InhaltEinfuegen"
- Auswahl.Select i
- sleep 1
- InhaltEinfuegen.OK
- sleep 1
- next i
- Call hCloseDocument '/// close document ///'
+ dim i as integer
+ dim x as integer
+ ' warnlog "TODOTBO: from draw, impress, math..."
+ gApplication = "WRITER"
+ call hNewDocument
+ kontext "DocumentWriter"
+ DocumentWriter.TypeKeys "abc<shift home>"
+ editcut
+ call hCloseDocument
+ gApplication = "IMPRESS"
+ call hNewDocument
+ sleep 1
+
+ Printlog " get count of possibilities: "
+ EditPasteSpecial
+ sleep 1
+ Kontext "InhaltEinfuegen"
+ x = Auswahl.GetItemCount
+ for i = 1 to x
+ printlog " - " + i + " - " + Auswahl.GetItemText (i)
+ next i
+ InhaltEinfuegen.Cancel
+
+ Printlog " insert every possibility"
+ for i = 1 to x
+ Printlog " - processing number: "+i
+ EditPasteSpecial
+ sleep 1
+ Kontext "InhaltEinfuegen"
+ Auswahl.Select i
+ sleep 1
+ InhaltEinfuegen.OK
+ sleep 1
+ next i
endcase
'-------------------------------------------------------------------------------
diff --git a/testautomation/graphics/optional/includes/global/g_clipexport.inc b/testautomation/graphics/optional/includes/global/g_clipexport.inc
index 776cd69e9af1..87cc868a6a82 100755
--- a/testautomation/graphics/optional/includes/global/g_clipexport.inc
+++ b/testautomation/graphics/optional/includes/global/g_clipexport.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
@@ -67,218 +67,206 @@
'*
'\*******************************************************************
- global i as integer
- global sApplication as string
- global ReferenceOld as string
- global ReferenceNew as string
- global ToApp as string
- global ToAppCounter as integer
- global FromApp as string
- global FromApp2 as string
- global CheckValue1 as integer
- global Marker as integer
- global WindowsSting (4) as string
- global PositionPositionX as string
- global PositionPositionY as string
- global PositionWidth as string
- global PositionHeight as string
-
-'/// Position ///'
- global PositionKeepRatio as string
- global PositionProtectPosition as string
- global PositionProtectSize as string
- global PositionFitWidthText as string
- global PositionFitHeightText as string
- global PositionAnchorPosition as string
- global PositionAnchor as string
- global PositionPositionPosition as string
- global PositionSizePosition as string
-
-'/// Area ///'
- global AreaNoFillValue as string
- global AreaColorValue as string
- global AreaColourListValue as string
- global AreaGradientValue as string
- global AreaGradientListValue as string
- global AreaAutomaticValue as string
- global AreaHatchingValue as string
- global AreaHatchingListValue as string
- global AreaBackgroundColourValue as string
- global AreaBackgroundColourListValue as string
- global AreaIncrementsValue as string
- global AreaBitmapValue as string
- global AreaBitmapListValue as string
- global AreaOriginalListValue as string
- global AreaRelativeValue as string
- global AreaWidthValue as string
- global AreaHeightValue as string
- global AreaXOffsetValue as string
- global AreaYOffsetValue as string
- global AreaTileValue as string
- global AreaStretchValue as string
- global AreaRowValue as string
- global AreaColumnValue as string
- global AreaOffsetValue as string
-
-'/// Shadow ///'
- global ShadowUseShadowsValue as string
- global ShadowDistanceValue as string
- global ShadowColorValue as string
- global ShadowTransparencyValue as string
-
-'/// Transparency ///'
- global TransparencyTransparencyValue as string
- global TransparencyGradientType as string
- global TransparencyMFZentrumX as string
- global TransparencyMFZentrumY as string
- global TransparencyMFWinkel as string
- global TransparencyMFRand as string
- global TransparencyMFStartwert as string
- global TransparencyMFEndwert as string
-
-'/// Color ///'
- global ColorName as string
- global ColorColor as string
- global ColorModel as string
- global ColorR as string
- global ColorG as string
- global ColorB as string
- global ColorC as string
- global ColorM as string
- global ColorY as string
- global ColorK as string
-
-'/// Gradients ///'
- global GradientsType as string
- global GradientsCenterX as string
- global GradientsCenterZ as string
- global GradientsAngle as string
- global GradientsBorder as string
- global GradientsFromColor as string
- global GradientsFromValue as string
- global GradientsToColor as string
- global GradientsToValue as string
-
-'/// Hatching ///'
- global HatchingDistance as string
- global HatchingAngle as string
- global HatchingLineType as string
- global HatchingLineColor as string
- global HatchingLineTable as string
-
-'/// TabBitmap ///'
- global BitmapForeground as string
- global BitmapBackground as string
- global BitmapTable as string
-
-'/// Text Formatting ///'
- global Text1 as string
- global Text2 as string
- global Text3 as integer
- global Text4 as string
- global Text5 as string
- global Text6 as string
- global Text7 as string
-
+global i as integer
+global sApplication as string
+global ReferenceOld as string
+global ReferenceNew as string
+global ToApp as string
+global ToAppCounter as integer
+global FromApp as string
+global FromApp2 as string
+global CheckValue1 as integer
+global Marker as integer
+global WindowsSting (4) as string
+global PositionPositionX as string
+global PositionPositionY as string
+global PositionWidth as string
+global PositionHeight as string
+
+global PositionKeepRatio as string
+global PositionProtectPosition as string
+global PositionProtectSize as string
+global PositionFitWidthText as string
+global PositionFitHeightText as string
+global PositionAnchorPosition as string
+global PositionAnchor as string
+global PositionPositionPosition as string
+global PositionSizePosition as string
+
+global AreaNoFillValue as string
+global AreaColorValue as string
+global AreaColourListValue as string
+global AreaGradientValue as string
+global AreaGradientListValue as string
+global AreaAutomaticValue as string
+global AreaHatchingValue as string
+global AreaHatchingListValue as string
+global AreaBackgroundColourValue as string
+global AreaBackgroundColourListValue as string
+global AreaIncrementsValue as string
+global AreaBitmapValue as string
+global AreaBitmapListValue as string
+global AreaOriginalListValue as string
+global AreaRelativeValue as string
+global AreaWidthValue as string
+global AreaHeightValue as string
+global AreaXOffsetValue as string
+global AreaYOffsetValue as string
+global AreaTileValue as string
+global AreaStretchValue as string
+global AreaRowValue as string
+global AreaColumnValue as string
+global AreaOffsetValue as string
+
+global ShadowUseShadowsValue as string
+global ShadowDistanceValue as string
+global ShadowColorValue as string
+global ShadowTransparencyValue as string
+
+global TransparencyTransparencyValue as string
+global TransparencyGradientType as string
+global TransparencyMFZentrumX as string
+global TransparencyMFZentrumY as string
+global TransparencyMFWinkel as string
+global TransparencyMFRand as string
+global TransparencyMFStartwert as string
+global TransparencyMFEndwert as string
+
+global ColorName as string
+global ColorColor as string
+global ColorModel as string
+global ColorR as string
+global ColorG as string
+global ColorB as string
+global ColorC as string
+global ColorM as string
+global ColorY as string
+global ColorK as string
+
+global GradientsType as string
+global GradientsCenterX as string
+global GradientsCenterZ as string
+global GradientsAngle as string
+global GradientsBorder as string
+global GradientsFromColor as string
+global GradientsFromValue as string
+global GradientsToColor as string
+global GradientsToValue as string
+
+global HatchingDistance as string
+global HatchingAngle as string
+global HatchingLineType as string
+global HatchingLineColor as string
+global HatchingLineTable as string
+
+global BitmapForeground as string
+global BitmapBackground as string
+global BitmapTable as string
+
+global Text1 as string
+global Text2 as string
+global Text3 as integer
+global Text4 as string
+global Text5 as string
+global Text6 as string
+global Text7 as string
+
'------------------------------- "object"-dependant tests ----------------------
try
- call Make_Rectangle_From_Application
- call Full_test_Draw
- call Full_test_Impress
- call Full_test_Writer
- call Full_test_Calc
+ call Make_Rectangle_From_Application
+ call Full_test_Draw
+ call Full_test_Impress
+ call Full_test_Writer
+ call Full_test_Calc
catch
- warnlog "something wrong with testing Rectangle"
+ warnlog "something wrong with testing Rectangle"
endcatch
try
- call Make_Make3dObject_From_Application
- call Full_test_Draw
- call Small_test_Impress
- call Small_test_Calc
- call Small_test_Writer
+ call Make_Make3dObject_From_Application
+ call Full_test_Draw
+ call Small_test_Impress
+ call Small_test_Calc
+ call Small_test_Writer
catch
- warnlog "something wrong with testing 3dObject"
+ warnlog "something wrong with testing 3dObject"
endcatch
'qaerrorlog "Make_CurveObject_From_Application needs an overview - FHA"
try
- call Make_CurveObject_From_Application
- call Small_test_Draw
- call Small_test_Impress
- call Small_test_Calc
- call Small_test_Writer
+ call Make_CurveObject_From_Application
+ call Small_test_Draw
+ call Small_test_Impress
+ call Small_test_Calc
+ call Small_test_Writer
catch
- warnlog "something wrong with testing CurveObj"
+ warnlog "something wrong with testing CurveObj"
endcatch
try
- call Make_ConnectorObject_From_Application
- call Small_test_Draw
- call Small_test_Impress
- call Small_test_Calc
- call Small_test_Writer
+ call Make_ConnectorObject_From_Application
+ call Small_test_Draw
+ call Small_test_Impress
+ call Small_test_Calc
+ call Small_test_Writer
catch
- warnlog "something wrong with testing ConnectorObject"
+ warnlog "something wrong with testing ConnectorObject"
endcatch
try
- call Make_LineObject_From_Application
- call Small_test_Draw
- call Small_test_Impress
-' call Small_test_Calc
-' call Small_test_Writer
+ call Make_LineObject_From_Application
+ call Small_test_Draw
+ call Small_test_Impress
+ ' call Small_test_Calc
+ ' call Small_test_Writer
catch
- warnlog "something wrong with testing LineObject"
+ warnlog "something wrong with testing LineObject"
endcatch
try
- call Make_Objectplugin_From_Application '/// doesn't work to test ///'
catch
- warnlog "something wrong with testing ConnectorObject"
+ warnlog "something wrong with testing ConnectorObject"
endcatch
try
- call Make_Circle_From_Application
- call Small_test_Draw
- call Small_test_Impress
- call Small_test_Calc
- call Small_test_Writer
+ call Make_Circle_From_Application
+ call Small_test_Draw
+ call Small_test_Impress
+ call Small_test_Calc
+ call Small_test_Writer
catch
- warnlog "something wrong with testing Circle"
+ warnlog "something wrong with testing Circle"
endcatch
try
- call Make_TextSquare_From_Application
- call Small_test_Draw
- call Small_test_Impress
- call Small_test_Calc
- call Small_test_Writer
+ call Make_TextSquare_From_Application
+ call Small_test_Draw
+ call Small_test_Impress
+ call Small_test_Calc
+ call Small_test_Writer
catch
- warnlog "something wrong with testing TextSquare"
+ warnlog "something wrong with testing TextSquare"
endcatch
call clear_all_and_close
- Printlog "tClipboardFromDrawTest finished"
+Printlog "tClipboardFromDrawTest finished"
end sub
'------------------------------- Objects ---------------------------------------
testcase Make_Make3dObject_From_Application
- printlog "--- 3D-Object --- from --- " + gApplication
- Call hNewDocument '/// Open base application ///'
- sleep 1
- call SaveMeasurementSetFirst
- SetKontextApplication '/// Create the object which we want to test ///'
- sleep 1
- Call Make3dObject
- call Select_Copy
- Call Get_Position_Size_Attributes
- Call Get_Colour_Attributes
- Call hCloseDocument
+ printlog "--- 3D-Object --- from --- " + gApplication
+ sleep 1
+ call SaveMeasurementSetFirst
+ sleep 1
+ Call Make3dObject
+ call Select_Copy
+ Call Get_Position_Size_Attributes
+ Call Get_Colour_Attributes
+ Call hCloseDocument
endcase
'-------------------------------------------------------------------------------
@@ -286,10 +274,8 @@ testcase Make_Objectplugin_From_Application
goto endsub
printlog "--- Objectplugin --- from --- " + gApplication
- Call hNewDocument '/// Open base application ///'
sleep 1
call SaveMeasurementSetFirst
- SetKontextApplication '/// Create the object which we want to test ///'
sleep 1
Call Objectplugin
call Select_Copy
@@ -301,224 +287,210 @@ endcase
'-------------------------------------------------------------------------------
testcase Make_TextSquare_From_Application
- printlog "--------- TextSquare --- from --- " + gApplication
- Call hNewDocument '/// Open base application ///'
- sleep 1
- call SaveMeasurementSetFirst
- SetKontextApplication '/// Create the object which we want to test ///'
- sleep 1
- Call MakeTextSquare
- call Select_Copy
- call Get_Position_Size_Attributes
-' Call Get_Colour_Attributes
- Call hCloseDocument
+ printlog "--------- TextSquare --- from --- " + gApplication
+ sleep 1
+ call SaveMeasurementSetFirst
+ sleep 1
+ Call MakeTextSquare
+ call Select_Copy
+ call Get_Position_Size_Attributes
+ ' Call Get_Colour_Attributes
+ Call hCloseDocument
endcase
'-------------------------------------------------------------------------------
testcase Make_Rectangle_From_Application
- printlog "--------- Rectangle --- from --- " + gApplication
- Call hNewDocument '/// Open base application ///'
- sleep 1
- call SaveMeasurementSetFirst
- SetKontextApplication '/// Create the object which we want to test ///'
- sleep 1
- Call MakeRectangle
- call Select_Copy
- call Get_Position_Size_Attributes
- Call Get_Colour_Attributes
- Call hCloseDocument
+ printlog "--------- Rectangle --- from --- " + gApplication
+ sleep 1
+ call SaveMeasurementSetFirst
+ sleep 1
+ Call MakeRectangle
+ call Select_Copy
+ call Get_Position_Size_Attributes
+ Call Get_Colour_Attributes
+ Call hCloseDocument
endcase
'-------------------------------------------------------------------------------
testcase Make_Circle_From_Application
- printlog "--------- Ellipse Object --- from --- " + gApplication
- Call hNewDocument '/// Open base application ///'
- sleep 1
- call SaveMeasurementSetFirst
- SetKontextApplication '/// Create the object which we want to test ///'
- sleep 1
- Call MakeCircle
- call Select_Copy
- call Get_Position_Size_Attributes
- Call Get_Colour_Attributes
- Call hCloseDocument
+ printlog "--------- Ellipse Object --- from --- " + gApplication
+ sleep 1
+ call SaveMeasurementSetFirst
+ sleep 1
+ Call MakeCircle
+ call Select_Copy
+ call Get_Position_Size_Attributes
+ Call Get_Colour_Attributes
+ Call hCloseDocument
endcase
'-------------------------------------------------------------------------------
testcase Make_CurveObject_From_Application
- printlog "--------- Curve-Object --- from --- " + gApplication
- Call hNewDocument '/// Open base application ///'
- sleep 1
- call SaveMeasurementSetFirst
- SetKontextApplication '/// Create the object which we want to test ///'
- sleep 1
- Call MakeCurveObject
- call Select_Copy
- call Get_Position_Size_Attributes
-' Call Get_Colour_Attributes
- Call hCloseDocument
+ printlog "--------- Curve-Object --- from --- " + gApplication
+ sleep 1
+ call SaveMeasurementSetFirst
+ sleep 1
+ Call MakeCurveObject
+ call Select_Copy
+ call Get_Position_Size_Attributes
+ ' Call Get_Colour_Attributes
+ Call hCloseDocument
endcase
'-------------------------------------------------------------------------------
testcase Make_LineObject_From_Application
- printlog "--------- Line-Object --- from --- " + gApplication
- Call hNewDocument '/// Open base application ///'
- sleep 1
- call SaveMeasurementSetFirst
- SetKontextApplication '/// Create the object which we want to test ///'
- sleep 1
- Call MakeLineObject
- call Select_Copy
- call Get_Position_Size_Attributes
- Call hCloseDocument
+ printlog "--------- Line-Object --- from --- " + gApplication
+ sleep 1
+ call SaveMeasurementSetFirst
+ sleep 1
+ Call MakeLineObject
+ call Select_Copy
+ call Get_Position_Size_Attributes
+ Call hCloseDocument
endcase
'-------------------------------------------------------------------------------
testcase Make_ConnectorObject_From_Application
- printlog "--------- Connector-Object --- from --- " + gApplication
- Call hNewDocument '/// Open base application ///'
- sleep 1
- call SaveMeasurementSetFirst
- SetKontextApplication '/// Create the object which we want to test ///'
- sleep 1
- Call MakeConnectorObject
- call Select_Copy
- Call Get_Position_Size_Attributes
-' Call Get_Colour_Attributes
- Call hCloseDocument
+ printlog "--------- Connector-Object --- from --- " + gApplication
+ sleep 1
+ call SaveMeasurementSetFirst
+ sleep 1
+ Call MakeConnectorObject
+ call Select_Copy
+ Call Get_Position_Size_Attributes
+ ' Call Get_Colour_Attributes
+ Call hCloseDocument
endcase
'-------------------------------------------------------------------------------
testcase Make_And_Check_Formatted_Text_Line_From_Application
- printlog "--------- Formatted Text --- from --- " + gApplication
- Call hNewDocument '/// Open base application ///'
- sleep 1
- call SaveMeasurementSetFirst
- SetKontextApplication '/// Create the object which we want to test ///'
- sleep 1
- Call MakeFormattedTextLine 'inclusive get variable-info.
- call Select_Copy
- Call hCloseDocument
- 'call New_Draw
-' Call Check_Text_Formatting
-' Call hCloseDocument
- Call New_Impress
- Call Check_Text_Formatting
- Call hCloseDocument
- sleep 10
- Call New_Calc
- Call Check_Text_Formatting
- Call hCloseDocument
- Call New_Writer
- Call Check_Text_Formatting
- Call hCloseDocument
+ printlog "--------- Formatted Text --- from --- " + gApplication
+ sleep 1
+ call SaveMeasurementSetFirst
+ sleep 1
+ Call MakeFormattedTextLine 'inclusive get variable-info.
+ call Select_Copy
+ Call hCloseDocument
+ 'call New_Draw
+ ' Call Check_Text_Formatting
+ ' Call hCloseDocument
+ Call New_Impress
+ Call Check_Text_Formatting
+ Call hCloseDocument
+ sleep 10
+ Call New_Calc
+ Call Check_Text_Formatting
+ Call hCloseDocument
+ Call New_Writer
+ Call Check_Text_Formatting
+ Call hCloseDocument
endcase
'--------------------------- Part with the different kinds of tests. -----------
testcase Full_test_Draw
- call New_Draw
- call MeasurementSetFirst
- call Check_Position_Size_Attributes
- call Check_Colors_Borders_Attributes
- gApplication = FromApp2
- Call hCloseDocument
+ call New_Draw
+ call MeasurementSetFirst
+ call Check_Position_Size_Attributes
+ call Check_Colors_Borders_Attributes
+ gApplication = FromApp2
+ Call hCloseDocument
endcase
'-------------------------------------------------------------------------------
testcase Small_test_Draw
- call New_Draw
- call MeasurementSetFirst
- call Check_Position_Size_Attributes
- gApplication = FromApp2
- Call hCloseDocument
+ call New_Draw
+ call MeasurementSetFirst
+ call Check_Position_Size_Attributes
+ gApplication = FromApp2
+ Call hCloseDocument
endcase
'-------------------------------------------------------------------------------
testcase Full_test_Impress
- call New_Impress
- call MeasurementSetFirst
- call Check_Position_Size_Attributes
- call Check_Colors_Borders_Attributes
- gApplication = FromApp2
- Call hCloseDocument
+ call New_Impress
+ call MeasurementSetFirst
+ call Check_Position_Size_Attributes
+ call Check_Colors_Borders_Attributes
+ gApplication = FromApp2
+ Call hCloseDocument
endcase
'-------------------------------------------------------------------------------
testcase Small_test_Impress
- call New_Impress
- call MeasurementSetFirst
- call Check_Position_Size_Attributes
- gApplication = FromApp2
- Call hCloseDocument
+ call New_Impress
+ call MeasurementSetFirst
+ call Check_Position_Size_Attributes
+ gApplication = FromApp2
+ Call hCloseDocument
endcase
'-------------------------------------------------------------------------------
testcase Full_test_Calc
- call New_Calc
- call MeasurementSetFirst
- call Check_Position_Size_Attributes
- call Check_Colors_Borders_Attributes
- gApplication = FromApp2
- Call hCloseDocument
+ call New_Calc
+ call MeasurementSetFirst
+ call Check_Position_Size_Attributes
+ call Check_Colors_Borders_Attributes
+ gApplication = FromApp2
+ Call hCloseDocument
endcase
'-------------------------------------------------------------------------------
testcase Small_test_Calc
- call New_Calc
- call MeasurementSetFirst
- call Check_Position_Size_Attributes
- gApplication = FromApp2
- Call hCloseDocument
+ call New_Calc
+ call MeasurementSetFirst
+ call Check_Position_Size_Attributes
+ gApplication = FromApp2
+ Call hCloseDocument
endcase
'-------------------------------------------------------------------------------
testcase Full_test_Writer
- call New_Writer
- call MeasurementSetFirst
- call Check_Position_Size_Attributes
- call Check_Colors_Borders_Attributes
- gApplication = FromApp2
- Call hCloseDocument
+ call New_Writer
+ call MeasurementSetFirst
+ call Check_Position_Size_Attributes
+ call Check_Colors_Borders_Attributes
+ gApplication = FromApp2
+ Call hCloseDocument
endcase
'-------------------------------------------------------------------------------
testcase Small_test_Writer
- call New_Writer
- call MeasurementSetFirst
- call Check_Position_Size_Attributes
- gApplication = FromApp2
- Call hCloseDocument
+ call New_Writer
+ call MeasurementSetFirst
+ call Check_Position_Size_Attributes
+ gApplication = FromApp2
+ Call hCloseDocument
endcase
'-------------------------------------------------------------------------------
testcase clear_all_and_close
goto endsub
- printlog " --------------------------------------------------------------"
- printlog " All tests done... clearing up everything and finishing"
- if gApplication = "WRITER" then
- DocumentWriter.TypeKeys "<DELETE>"
- else
- printlog " gApplication is " + gApplication
- EditSelectAll
- EditDelete
- end if
- call ResetMeasurement
- Call hCloseDocument
+ printlog " --------------------------------------------------------------"
+ printlog " All tests done... clearing up everything and finishing"
+ if gApplication = "WRITER" then
+ DocumentWriter.TypeKeys "<DELETE>"
+ else
+ printlog " gApplication is " + gApplication
+ EditSelectAll
+ EditDelete
+ end if
+ call ResetMeasurement
+ Call hCloseDocument
endcase
'-------------------------------------------------------------------------------
diff --git a/testautomation/graphics/optional/includes/global/g_clipexport2.inc b/testautomation/graphics/optional/includes/global/g_clipexport2.inc
index a575c0c75101..afbda0f72fd6 100755
--- a/testautomation/graphics/optional/includes/global/g_clipexport2.inc
+++ b/testautomation/graphics/optional/includes/global/g_clipexport2.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
@@ -44,33 +44,30 @@
' #1 MakeCurveObject :Inserts Curve Object if not Writer or Calc
' #1 MakeLineObject :Inserts line object if not writer or calc
' #1 MakeConnectorObject :Inserts Connector object if not wirter or calc
-' #1 MakeFormattedTextLine :Insert a formatted text line
+' #1 MakeFormattedTextLine :Insert a formatted text line
' #1 Formfunctions :Inserts a push button
' #1 Objectplugin :Inserting a Plugin
'*
'\*******************************************************************
sub MakeTextSquare
- '/// Inserts a text frame with content
printlog "--------- Testing: TextSquare ---------"
Call hTextRahmenErstellen ("This is a text-frame",15,20,40,30)
gMouseClick 10,10
SetKontextApplication
-
+
end sub
'-------------------------------------------------------------------------------
sub MakeRectangle
- '/// Inserts a Rectangle
printlog "we run rectangle"
Call hRechteckErstellen (15,15,30,30)
-
+
end sub
'-------------------------------------------------------------------------------
sub MakeCircle
- '/// Inserts a circle if not Writer or Calc
printlog "Create Circle"
if gApplication = "WRITER" then
@@ -89,12 +86,11 @@ sub MakeCircle
gMouseMove (15,15,30,30)
gMouseUp (30,30)
sleep 1
-
+
end sub
'-------------------------------------------------------------------------------
sub Make3dObject
-'///Inserts a 3DObject if not Writer or Calc
printlog "Create 3dObject"
if (Ucase(gApplication) = "CALC") then
@@ -113,14 +109,13 @@ sub Make3dObject
Kontext "ThreeDObjectsbar"
sleep 1
Wuerfel.click
- gMouseDown (15,15)
+ gMouseDown (15,15)
gMouseMove (15,15,35,35)
gMouseUp (35,35)
Kontext "ThreeDObjectsbar"
ThreeDObjectsbar.close
else
if (gApplication = "DRAW") then
- Toolbar.OpenContextMenu '/// enable 3d-object-button in menubar
sleep 1
hMenuselectNr (1)
sleep 1
@@ -131,21 +126,19 @@ sub Make3dObject
sleep 1
Wuerfel.click
sleep 1
- gMouseDown (15,15)
+ gMouseDown (15,15)
gMouseMove (15,15,35,35)
gMouseUp (35,35)
Kontext "ThreeDObjectsbar"
ThreeDObjectsbar.close
sleep 2
kontext "Toolbar"
- Toolbar.OpenContextMenu '/// resetting the toolbar on the left ///'
sleep 1
hMenuselectNr (1)
sleep 1
hMenuItemUnCheck (11)
sleep 1
else
- Toolbar.OpenContextMenu '/// enable 3d-object-button in menubar
sleep 1
hMenuselectNr (1)
sleep 1
@@ -156,14 +149,13 @@ sub Make3dObject
sleep 1
Wuerfel.click
sleep 1
- gMouseDown (15,15)
+ gMouseDown (15,15)
gMouseMove (15,15,35,35)
gMouseUp (35,35)
Kontext "ThreeDObjectsbar"
ThreeDObjectsbar.close
sleep 2
kontext "Toolbar"
- Toolbar.OpenContextMenu '/// resetting the toolbar on the left ///'
sleep 1
hMenuselectNr (1)
sleep 1
@@ -171,12 +163,11 @@ sub Make3dObject
sleep 1
endif
end if
-
+
end sub
'-------------------------------------------------------------------------------
sub MakeCurveObject
- '///Inserts Curve Object if not Writer or Calc
if (Ucase(gApplication) = "WRITER") then
warnlog "Cant make circle in this application"
@@ -184,12 +175,11 @@ sub MakeCurveObject
end if
if (Ucase(gApplication) = "CALC") then
warnlog "Cant make circle in this application"
- goto endsub
+ goto endsub
end if
printlog "we run Curve-object"
kontext "Toolbar"
- '/// enable Curves-button in menubar
Toolbar.OpenContextMenu
sleep 1
hMenuselectNr (1)
@@ -198,26 +188,24 @@ sub MakeCurveObject
sleep 1
Kurven.Click
sleep 1
- gMouseDown (10,25)
+ gMouseDown (10,25)
gMouseMove (10,25,30,35)
gMouseUp (30,35)
gMouseClick 90,90
sleep 1
kontext "Toolbar"
- '/// reset Curves-button in menubar
Toolbar.OpenContextMenu
sleep 1
hMenuselectNr (1)
sleep 1
hMenuItemUnCheck (7)
sleep 1
-
+
end sub
'-------------------------------------------------------------------------------
sub MakeLineObject
- '///Inserts line object if not writer or calc
-
+
if gApplication = "WRITER" then
warnlog "Currently no support for line-object in this application"
goto endsub
@@ -227,7 +215,6 @@ sub MakeLineObject
goto endsub
end if
printlog "we run Line-object"
- '/// Insert Line ///
sleep 1
Kontext "Toolbar"
Linien.TearOff
@@ -242,13 +229,12 @@ sub MakeLineObject
sleep 1
Kontext "Arrowshapes"
Arrowshapes.Close
-
+
end sub
'-------------------------------------------------------------------------------
sub MakeConnectorObject
- '/// Inserts Connector object if not wirter or calc
-
+
if gApplication = "WRITER" then
warnlog "Cant make connector in this application"
goto endsub
@@ -258,7 +244,6 @@ sub MakeConnectorObject
goto endsub
end if
printlog "we run Connector-object"
- '/// Insert Connector ///
if gApplication = "DRAW" then
sleep 1
kontext "Toolbar"
@@ -288,21 +273,19 @@ sub MakeConnectorObject
gMouseMove (10,17,30,37)
gMouseUp (30,37)
end if
-
+
end sub
'-------------------------------------------------------------------------------
sub MakeFormattedTextLine
- '///Insert a formatted text line
dim Zufall, iWaitIndex as integer
- '/// Write a text, make it Bold, Italic and make it size 33. ///'
Kontext "TextObjectbar"
if TextObjectbar.Exists then
- printlog " TextObjectbar.Exists = " + TextObjectbar.Exists
+ printlog " TextObjectbar.Exists = " + TextObjectbar.Exists
else
- ViewToolbarsTextFormatting
- sleep (2)
+ ViewToolbarsTextFormatting
+ sleep (2)
end if
hTypeKeys "This is a text which we will format in some different ways."
@@ -313,54 +296,44 @@ sub MakeFormattedTextLine
Zufall=((20*Rnd)+1)
'Schriftart.GetItemcount
Text1 = Schriftart.GetSelText
- '/// Select any Font you like in the listbox 'Font' on 'Object Toolbar' ///'
Printlog " -Font: '" + Schriftart.GetSelText + "' selected."
Kontext "TextObjectbar"
sleep (2)
Printlog " - Change size of Font"
- '/// Select any Font you like in the listbox 'Size' on 'Object Toolbar' ///'
Schriftgroesse.Select (Zufall)
Printlog " - Fontsize set to '" + Schriftgroesse.GetSelText + "'."
Text2 = Schriftgroesse.GetSelText
Kontext "TextObjectbar"
- '/// Click button 'Bold' ///'
Fett.Click
sleep (2)
Printlog " - Font attribute set to bold."
Text4 = Fett.GetState(2)
-
+
Kontext "TextObjectbar"
- '/// Click button 'Italic' ///'
Kursiv.Click
sleep (2)
Printlog " - Font attribute set to cursive."
Text5 = Kursiv.GetState(2)
-
+
Kontext "TextObjectbar"
- '/// Click button 'Underline' ///'
Unterstrichen.Click
sleep (2)
Printlog " - Font attribute set to underlined."
Text6 = Unterstrichen.GetState(2)
-
+
Kontext "TextObjectbar"
- '/// Click button 'Justified' ///'
Blocksatz.Click
sleep (2)
Printlog " - Text set to Justified."
Text7 = Blocksatz.GetState(2)
-
+
SetKontextApplication
-
+
end sub 'MakeFormattedTextLine
'--------------------------------------------------------------------------------------------------------
sub Formfunctions
- '///Inserts a push button
- '/// to enable this function, i have to insert the button for forms in the left toolbar (it isn't there by default :-() ///'
- '///+ this is done via the context menue of the toolbar ///'
- '///+ Tear Off 'Form functions' ///'
gMouseMove2 (50, 20)
if (Ucase(gApplication) = "IMPRESS") then
kontext "Toolbar"
@@ -386,34 +359,26 @@ sub Formfunctions
printlog " enabled 'forms' button and clicked it"
sleep 1
kontext "FormControls"
- '///+ click button 'Design mode' to enable it ///'
if (Pushbutton.IsEnabled = FALSE) then
DesigneModus.click ' use forms menue, go into design mode
endif
- '///+ click button 'Push button' and insert the control ///'
Pushbutton.Click ' use a pushbutton
Sleep 1
gMouseDown (50,20)
gMouseMove (50, 20,70, 40)' create a pushbutton
gMouseUp (70,40)
- '///+ now i can call both slots :-) and begin to test what I want :-) ///'
- '/// Format->Control ///'
FormatControl
Kontext "ControlPropertiesDialog"
sleep 1
- '/// close dialog 'Properties Button' ///'
ControlPropertiesDialog.Close
- '/// format->form ///'
formatform
Kontext "ControlPropertiesDialog"
sleep 1
- '/// close dialog 'Form Properties' ///'
ControlPropertiesDialog.Close
sleep 5 ' needed, otherwise the context menue will get closed...
- '/// resetting the toolbar on the left ///'
if (Ucase(gApplication) = "IMPRESS") then
kontext "Toolbar"
Toolbar.OpenContextMenu ' disable forms button in menuebar
@@ -429,13 +394,10 @@ end sub
'--------------------------------------------------------------------------------------------------------
sub Objectplugin
-'///Inserting a Plugin
printlog "Insert Object-plugin"
- '/// open application ///'
'Call hNewDocument
- '/// Insert->Object->Plugin ///'
InsertObjectPlugin
Kontext "PlugInEinfuegen"
'DialogTest ( PlugInEinfuegen)
@@ -450,7 +412,6 @@ sub Objectplugin
sleep 5
Kontext "PlugInEinfuegen"
if PlugInEinfuegen.exists then
- '/// insert a '.mov' file : "graphics\required\input\sample.mov" ///'
DateiUrl.SetText (ConvertPath ( gTesttoolpath + "graphics\required\input\sample.mov" ))
printlog "Type something into the option field"
'Optionen so3:MultiLineEdit:MD_INSERT_OBJECT_PLUGIN:ED_PLUGINS_OPTIONS
diff --git a/testautomation/graphics/optional/includes/global/g_clipexport3.inc b/testautomation/graphics/optional/includes/global/g_clipexport3.inc
index 563691496242..0011c5b31d97 100755
--- a/testautomation/graphics/optional/includes/global/g_clipexport3.inc
+++ b/testautomation/graphics/optional/includes/global/g_clipexport3.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,23 +53,19 @@
'\*******************************************************************
Sub Get_Position_Size_Attributes
- '///Getting values from the position and size dialog
-
+
Printlog " Get_Position_Size_Attributes Starts"
- '/// Bring up the attributes for the object we just created ///'
FormatPositionAndSize
- '/// Get and save the attributes ///'
sleep 1
- '/// Position-values ///'
Kontext
Select Case gApplication
- Case "WRITER" : active.SetPage TabPositionAndSizeWriter
- Kontext "TabPositionAndSizeWriter"
- Case else : active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
+ Case "WRITER" : active.SetPage TabPositionAndSizeWriter
+ Kontext "TabPositionAndSizeWriter"
+ Case else : active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
End Select
sleep 1
@@ -78,717 +74,662 @@ Sub Get_Position_Size_Attributes
PositionHeight = Height.GetText
if KeepRatio.IsChecked then SetText.PositionKeepRatio = "TRUE"
- if ProtectPosition.IsChecked then SetText.PositionProtectPosition = "TRUE"
- if ProtectSize.IsChecked then SetText.PositionProtectSize = "TRUE"
- sleep 1
+ if ProtectPosition.IsChecked then SetText.PositionProtectPosition = "TRUE"
+ if ProtectSize.IsChecked then SetText.PositionProtectSize = "TRUE"
+ sleep 1
+
+ Kontext
+ Select Case gApplication
+ Case "WRITER" : active.SetPage TabPositionAndSizeWriter
+ Kontext "TabPositionAndSizeWriter"
+ TabPositionAndSizeWriter.OK
+ Case else : active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ TabPositionAndSize.OK
+ End Select
+ sleep 1
+ SetKontextApplication
+ sleep 3
+ Printlog " Get_Position_Size_Attributes Ends"
- '/// Switch back to tabpage 'Position' to avoid problems later ///'
- '/// And then close dialog TabPositionAndSize with 'OK' ///'
- Kontext
- Select Case gApplication
- Case "WRITER" : active.SetPage TabPositionAndSizeWriter
- Kontext "TabPositionAndSizeWriter"
- TabPositionAndSizeWriter.OK
- Case else : active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- TabPositionAndSize.OK
- End Select
- sleep 1
- SetKontextApplication
- sleep 3
- Printlog " Get_Position_Size_Attributes Ends"
-
end sub
'-------------------------------------------------------------------------------
sub Get_Colour_Attributes
- '/// Geting Attributes from Area Dialog
printlog " Get_Colour_Attributes Starts"
-
- '/// Open Format-Area and get the values considering colors and borders ///'
- FormatArea
- Kontext "TabArea"
- Kontext
- Active.setpage TabArea
- Kontext "TabArea"
-
-
+
+ FormatArea
+ Kontext "TabArea"
+ Kontext
+ Active.setpage TabArea
+ Kontext "TabArea"
+
+
' /// Area ///'
FillOptions.Select 2
if FillOptions.GetSelIndex <> 2 then Errorlog "Couldnt click on 'Color' in FormatArea"
- AreaColourListValue = ColourList.GetSelText
- printlog "AreaColourListValue = " + AreaColourListValue
- sleep 1
-
- '/// Gradient ///'
- FillOptions.Select 3
- if FillOptions.GetSelIndex <> 3 then Errorlog "Couldnt click on .Gradient. in FormatArea"
-
- AreaGradientListValue = GradientList.GetSelText 'AreaGradientValue = "TRUE"
- If Automatic.IsVisible then
- If Automatic.IsChecked then AreaAutomaticValue = "TRUE"
- Else
- If Increments.IsVisible then
- AreaIncrementsValue = Increments.GetText
- End if
- End if
-
- '/// Hatching ///'
- FillOptions.Select 4
- if FillOptions.GetSelIndex <> 4 then Errorlog "Couldnt click on 'Hatching' in FormatArea"
-
- AreaHatchingListValue = HatchingList.GetSelText 'Then = "TRUE" ' lista
- If BackgroundColour.IsVisible then
- If BackgroundColour.IsChecked then
- AreaBackgroundColourValue = BackgroundColour.GetText
- End if
- End if
- If BackgroundColourList.IsVisible then
- AreaBackgroundColourListValue = BackgroundColourList.GetSelText
- End if
-
- '/// Increments ///'
- FillOptions.Select 5
- if FillOptions.GetSelIndex <> 5 then Errorlog "Couldnt click on 'Hatching' in FormatArea"
-
- AreaBitmapListValue = BitmapList.GetSelText
-
- If Original.IsChecked then
- AreaOriginalListValue = "TRUE"
- Else
- If Relative.IsChecked then
- AreaRelativeValue = "TRUE"
- AreaWidthValue = Width.GetText
- AreaHeightValue = Height.GetText
- Else
- AreaWidthValue = Width.GetText
- AreaHeightValue = Height.GetText
- End if
- End if
-
- If Tile.IsChecked then AreaTileValue = "TRUE"
- If Stretch.IsChecked then AreaStretchValue = "TRUE"
- If Row.IsChecked then
- AreaRowValue = "TRUE"
- AreaOffsetValue = Offset.GetText
- End if
- If Column.IsChecked then
- AreaColumnValue = "TRUE"
- AreaOffsetValue = Offset.GetText
- End if
-
- sleep 1
-
-
- '/// Shadow ///'
- Kontext "TabArea"
- Kontext
- Active.setpage TabSchatten
- Kontext "TabSchatten"
-
- If Anzeigen.IsChecked then
- ShadowUseShadowsValue = "TRUE"
- ShadowDistanceValue = Entfernung.GetText
- ShadowColorValue = Farbe.GetText
- ShadowTransparencyValue = Transparenz.GetText
- end if
-
- sleep 1
-
-
- '/// Transparency ///'
- Kontext
- Active.SetPage TabTransparenz
- Kontext "TabTransparenz"
- if KeineTransparenz.IsEnabled = FALSE then
- warnlog " Couldnt check 'No transparency' in Area - Transparency'"
- else
- KeineTransparenz.Check
- end if
-
- If KeineTransparenz.IsChecked then LineareTransparenz.Check
- If LineareTransparenz.IsChecked then
- TransparencyTransparencyValue = MFLinTransparenz.GetText
- End if
-
-
- '/// Gradient ///'
- Transparenzverlauf.Check
- If Transparenzverlauf.IsChecked then
- TransparencyGradientType = TransparenzverlaufTyp.GetItemText
- TransparencyMFZentrumX = MFZentrumX.GetText
- TransparencyMFZentrumY = MFZentrumY.GetText
- TransparencyMFWinkel = MFWinkel.GetText
- TransparencyMFRand = MFRand.GetText
- TransparencyMFStartwert = MFStartwert.GetText
- TransparencyMFEndwert = MFEndwert.GetText
- End if
-
- sleep 1
-
-
- '/// Colors ///'
- Kontext
- Active.setpage TabFarben
- Kontext "TabFarben"
-
- ColorName = FarbName.GetText
- ColorColor = Farbe.GetItemText
- ColorModel = Farbmodell.GetSelText
- printlog " The colormodel is: " + ColorModel
-
- if ColorModel = "RGB" then
- ColorR = R.GetText
- ColorG = G.GetText
- ColorB = B.GetText
- elseif ColorModel = "RVB" then
- ColorR = R.GetText
- ColorG = G.GetText
- ColorB = B.GetText
- else
- ColorC = C.GetText
- ColorM = M.GetText
- ColorY = Y.GetText
- ColorK = K.GetText
- endif
-
- '/// TabFarbverlaeufe ///'
- Kontext
- Active.setpage TabFarbverlaeufe
- Kontext "TabFarbverlaeufe"
-
- GradientsType = Typ.GetItemText
- GradientsCenterX = ZentrumX.GetText
- GradientsCenterZ = ZentrumY.GetText
- GradientsAngle = Winkel.GetText
- GradientsBorder = Rand.GetText
- GradientsFromColor = Von.GetItemText
- GradientsFromValue = VonWert.GetText
- GradientsToColor = Bis.GetItemText
- GradientsToValue = BisWert.GetText
-
-
- '/// Hatching ///'
- Kontext
- Active.setpage TabSchraffuren
- Kontext "TabSchraffuren"
-
- HatchingDistance = Abstand.GetText
- HatchingAngle = Winkel.GetText
- 'Definition
- HatchingLineType = Linientyp.GetSelText
- HatchingLineColor = Linienfarbe.GetSelText
- HatchingLineTable = Tabelle.GetItemText
-
-
- '/// TabBitmap ///'
- Kontext
- Active.setpage TabBitmap
- Kontext "TabBitmap"
-
- BitmapForeground = Vordergrund.GetSelText
- BitmapBackground = Hintergrund.GetSelText
- BitmapTable = Tabelle.GetSelText
-
- Kontext
- Active.setpage TabArea
- Kontext "TabArea"
- TabArea.Cancel
- printlog " Get_Colour_Attributes ends"
-
+ AreaColourListValue = ColourList.GetSelText
+ printlog "AreaColourListValue = " + AreaColourListValue
+ sleep 1
+
+ FillOptions.Select 3
+ if FillOptions.GetSelIndex <> 3 then Errorlog "Couldnt click on .Gradient. in FormatArea"
+
+ AreaGradientListValue = GradientList.GetSelText 'AreaGradientValue = "TRUE"
+ If Automatic.IsVisible then
+ If Automatic.IsChecked then AreaAutomaticValue = "TRUE"
+ Else
+ If Increments.IsVisible then
+ AreaIncrementsValue = Increments.GetText
+ End if
+ End if
+
+ FillOptions.Select 4
+ if FillOptions.GetSelIndex <> 4 then Errorlog "Couldnt click on 'Hatching' in FormatArea"
+
+ AreaHatchingListValue = HatchingList.GetSelText 'Then = "TRUE" ' lista
+ If BackgroundColour.IsVisible then
+ If BackgroundColour.IsChecked then
+ AreaBackgroundColourValue = BackgroundColour.GetText
+ End if
+ End if
+ If BackgroundColourList.IsVisible then
+ AreaBackgroundColourListValue = BackgroundColourList.GetSelText
+ End if
+
+ FillOptions.Select 5
+ if FillOptions.GetSelIndex <> 5 then Errorlog "Couldnt click on 'Hatching' in FormatArea"
+
+ AreaBitmapListValue = BitmapList.GetSelText
+
+ If Original.IsChecked then
+ AreaOriginalListValue = "TRUE"
+ Else
+ If Relative.IsChecked then
+ AreaRelativeValue = "TRUE"
+ AreaWidthValue = Width.GetText
+ AreaHeightValue = Height.GetText
+ Else
+ AreaWidthValue = Width.GetText
+ AreaHeightValue = Height.GetText
+ End if
+ End if
+
+ If Tile.IsChecked then AreaTileValue = "TRUE"
+ If Stretch.IsChecked then AreaStretchValue = "TRUE"
+ If Row.IsChecked then
+ AreaRowValue = "TRUE"
+ AreaOffsetValue = Offset.GetText
+ End if
+ If Column.IsChecked then
+ AreaColumnValue = "TRUE"
+ AreaOffsetValue = Offset.GetText
+ End if
+
+ sleep 1
+
+
+ Kontext "TabArea"
+ Kontext
+ Active.setpage TabSchatten
+ Kontext "TabSchatten"
+
+ If Anzeigen.IsChecked then
+ ShadowUseShadowsValue = "TRUE"
+ ShadowDistanceValue = Entfernung.GetText
+ ShadowColorValue = Farbe.GetText
+ ShadowTransparencyValue = Transparenz.GetText
+ end if
+
+ sleep 1
+
+
+ Kontext
+ Active.SetPage TabTransparenz
+ Kontext "TabTransparenz"
+ if KeineTransparenz.IsEnabled = FALSE then
+ warnlog " Couldnt check 'No transparency' in Area - Transparency'"
+ else
+ KeineTransparenz.Check
+ end if
+
+ If KeineTransparenz.IsChecked then LineareTransparenz.Check
+ If LineareTransparenz.IsChecked then
+ TransparencyTransparencyValue = MFLinTransparenz.GetText
+ End if
+
+
+ Transparenzverlauf.Check
+ If Transparenzverlauf.IsChecked then
+ TransparencyGradientType = TransparenzverlaufTyp.GetItemText
+ TransparencyMFZentrumX = MFZentrumX.GetText
+ TransparencyMFZentrumY = MFZentrumY.GetText
+ TransparencyMFWinkel = MFWinkel.GetText
+ TransparencyMFRand = MFRand.GetText
+ TransparencyMFStartwert = MFStartwert.GetText
+ TransparencyMFEndwert = MFEndwert.GetText
+ End if
+
+ sleep 1
+
+
+ Kontext
+ Active.setpage TabFarben
+ Kontext "TabFarben"
+
+ ColorName = FarbName.GetText
+ ColorColor = Farbe.GetItemText
+ ColorModel = Farbmodell.GetSelText
+ printlog " The colormodel is: " + ColorModel
+
+ if ColorModel = "RGB" then
+ ColorR = R.GetText
+ ColorG = G.GetText
+ ColorB = B.GetText
+ elseif ColorModel = "RVB" then
+ ColorR = R.GetText
+ ColorG = G.GetText
+ ColorB = B.GetText
+ else
+ ColorC = C.GetText
+ ColorM = M.GetText
+ ColorY = Y.GetText
+ ColorK = K.GetText
+ endif
+
+ Kontext
+ Active.setpage TabFarbverlaeufe
+ Kontext "TabFarbverlaeufe"
+
+ GradientsType = Typ.GetItemText
+ GradientsCenterX = ZentrumX.GetText
+ GradientsCenterZ = ZentrumY.GetText
+ GradientsAngle = Winkel.GetText
+ GradientsBorder = Rand.GetText
+ GradientsFromColor = Von.GetItemText
+ GradientsFromValue = VonWert.GetText
+ GradientsToColor = Bis.GetItemText
+ GradientsToValue = BisWert.GetText
+
+
+ Kontext
+ Active.setpage TabSchraffuren
+ Kontext "TabSchraffuren"
+
+ HatchingDistance = Abstand.GetText
+ HatchingAngle = Winkel.GetText
+ 'Definition
+ HatchingLineType = Linientyp.GetSelText
+ HatchingLineColor = Linienfarbe.GetSelText
+ HatchingLineTable = Tabelle.GetItemText
+
+
+ Kontext
+ Active.setpage TabBitmap
+ Kontext "TabBitmap"
+
+ BitmapForeground = Vordergrund.GetSelText
+ BitmapBackground = Hintergrund.GetSelText
+ BitmapTable = Tabelle.GetSelText
+
+ Kontext
+ Active.setpage TabArea
+ Kontext "TabArea"
+ TabArea.Cancel
+ printlog " Get_Colour_Attributes ends"
+
end sub
'-------------------------------------------------------------------------------
sub Check_Position_Size_Attributes
- '/// Pasting object and comparing attributes with the stored values
printlog " Check_Position_Size_Attributes Starts"
-
- '/// Paste object with EditPaste ///'
+
sleep 1
- EditPaste
+ EditPaste
sleep (5)
-
- '/// Bring up the attributes for the object we just created ///'
+
FormatPositionAndSize
-
- '/// Get and save the attributes ///'
- sleep 1
- if gApplication = "WRITER" then
- Kontext "TabPositionAndSizeWriter"
- Kontext
- active.SetPage TabPositionAndSizeWriter
- Kontext
- active.SetPage TabPositionAndSizeWriter
- Kontext "TabPositionAndSizeWriter"
- sleep 1
-
- '/// Position-values ///'
-
- '/// Size-values ///'
- If LiberalMeasurement(PositionWidth, Width.GetText) <> TRUE then QaErrorLog "PositionWidth is: " + Width.GetText + " should be: '" + PositionWidth + "'. Possibly caused by i71631."
- If LiberalMeasurement(PositionHeight, Height.GetText) <> TRUE then QaErrorLog "PositionHeight is: " + Height.GetText + " should be: '" + PositionHeight + "'. Possibly caused by i71631."
-
- If PositionKeepRatio = "TRUE" then
- If KeepRatio.IsChecked = "FALSE" then Warnlog "KeepRatio isnt checked"
- End if
-
- If PositionProtectPosition = "TRUE" then
- If ProtectPosition.IsChecked = "FALSE" then Warnlog "ProtectPosition isnt checked"
- End if
-
- If PositionProtectSize = "TRUE" then
- If ProtectSize.IsChecked = "FALSE" then Warnlog "ProtectPosition isnt checked"
- End if
- sleep 1
-
- '/// Switch back to tabpage 'Position' to avoid problems later ///'
- Kontext "TabPositionAndSizeWriter"
- Kontext
- Active.setpage TabPositionAndSizeWriter
- Kontext "TabPositionAndSizeWriter"
-
- '/// Close dialog TabPositionAndSize with 'OK' ///'
- TabPositionAndSizeWriter.OK
-
- else
- Kontext
- active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- sleep 1
-
- '/// Position-values ///'
-
- '/// Size-values ///'
- If LiberalMeasurement(PositionWidth, Width.GetText) <> TRUE then QaErrorLog "PositionWidth is: " + Width.GetText + " should be: " + PositionWidth + "'. Possibly caused by i71631."
- If LiberalMeasurement(PositionHeight, Height.GetText) <> TRUE then QaErrorLog "PositionHeight is: " + Height.GetText + " should be: " + PositionHeight + "'. Possibly caused by i71631."
-
- If PositionKeepRatio = "TRUE" then
- If KeepRatio.IsChecked = "FALSE" then Warnlog "KeepRatio isnt checked"
- End if
-
- If PositionProtectPosition = "TRUE" then
- If ProtectPosition.IsChecked = "FALSE" then Warnlog "ProtectPosition isnt checked"
- End if
-
- If PositionProtectSize = "TRUE" then
- If ProtectSize.IsChecked = "FALSE" then Warnlog "ProtectPosition isnt checked"
- End if
- sleep 1
-
- '/// Switch back to tabpage 'Position' to avoid problems later ///'
- Kontext "TabPositionAndSize"
- Kontext
- Active.setpage TabPositionAndSize
- Kontext "TabPositionAndSize"
-
- '/// Close dialog TabPositionAndSize with 'OK' ///'
- TabPositionAndSize.OK
- endif
-
- SetKontextApplication
- sleep 3
- printlog " Check_Position_Size_Attributes Ends"
-
+
+ sleep 1
+ if gApplication = "WRITER" then
+ Kontext "TabPositionAndSizeWriter"
+ Kontext
+ active.SetPage TabPositionAndSizeWriter
+ Kontext
+ active.SetPage TabPositionAndSizeWriter
+ Kontext "TabPositionAndSizeWriter"
+ sleep 1
+
+
+ If LiberalMeasurement(PositionWidth, Width.GetText) <> TRUE then QaErrorLog "PositionWidth is: " + Width.GetText + " should be: '" + PositionWidth + "'. Possibly caused by i71631."
+ If LiberalMeasurement(PositionHeight, Height.GetText) <> TRUE then QaErrorLog "PositionHeight is: " + Height.GetText + " should be: '" + PositionHeight + "'. Possibly caused by i71631."
+
+ If PositionKeepRatio = "TRUE" then
+ If KeepRatio.IsChecked = "FALSE" then Warnlog "KeepRatio isnt checked"
+ End if
+
+ If PositionProtectPosition = "TRUE" then
+ If ProtectPosition.IsChecked = "FALSE" then Warnlog "ProtectPosition isnt checked"
+ End if
+
+ If PositionProtectSize = "TRUE" then
+ If ProtectSize.IsChecked = "FALSE" then Warnlog "ProtectPosition isnt checked"
+ End if
+ sleep 1
+
+ Kontext "TabPositionAndSizeWriter"
+ Kontext
+ Active.setpage TabPositionAndSizeWriter
+ Kontext "TabPositionAndSizeWriter"
+
+ TabPositionAndSizeWriter.OK
+
+ else
+ Kontext
+ active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ sleep 1
+
+
+ If LiberalMeasurement(PositionWidth, Width.GetText) <> TRUE then QaErrorLog "PositionWidth is: " + Width.GetText + " should be: " + PositionWidth + "'. Possibly caused by i71631."
+ If LiberalMeasurement(PositionHeight, Height.GetText) <> TRUE then QaErrorLog "PositionHeight is: " + Height.GetText + " should be: " + PositionHeight + "'. Possibly caused by i71631."
+
+ If PositionKeepRatio = "TRUE" then
+ If KeepRatio.IsChecked = "FALSE" then Warnlog "KeepRatio isnt checked"
+ End if
+
+ If PositionProtectPosition = "TRUE" then
+ If ProtectPosition.IsChecked = "FALSE" then Warnlog "ProtectPosition isnt checked"
+ End if
+
+ If PositionProtectSize = "TRUE" then
+ If ProtectSize.IsChecked = "FALSE" then Warnlog "ProtectPosition isnt checked"
+ End if
+ sleep 1
+
+ Kontext "TabPositionAndSize"
+ Kontext
+ Active.setpage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+
+ TabPositionAndSize.OK
+ endif
+
+ SetKontextApplication
+ sleep 3
+ printlog " Check_Position_Size_Attributes Ends"
+
end sub
'----------------------------------------------------------------------------------------------------
sub Check_Text_Formatting
- '/// Checking text formatting of pasted object
-
+
printlog " Check_Text_Formatting Starts"
- '/// Paste object with EditPaste ///'
sleep (1)
EditPaste
sleep (3)
- '/// Select the text and bring up the attributes for it. ///'
select case (gApplication)
- case "DRAW" : hTypeKeys "<RETURN>"
- hTypeKeys "<SHIFT HOME>" 'Mark the whole text'
- case "IMPRESS" : hTypeKeys "<RETURN>"
- hTypeKeys "<SHIFT HOME>" 'Mark the whole text'
- case "WRITER" : EditSelectAll 'Since there is currently only (should only be) one object (the text) in the document.
- case "CALC" : hTypeKeys "<MOD1 HOME>"
-' hTypeKeys "<SHIFT HOME>" 'Mark the whole text'
- case else : warnlog " the test has not been configured for this application ( '" + gApplication + "' ). Please notify testwriter."
+ case "DRAW" : hTypeKeys "<RETURN>"
+ hTypeKeys "<SHIFT HOME>" 'Mark the whole text'
+ case "IMPRESS" : hTypeKeys "<RETURN>"
+ hTypeKeys "<SHIFT HOME>" 'Mark the whole text'
+ case "WRITER" : EditSelectAll 'Since there is currently only (should only be) one object (the text) in the document.
+ case "CALC" : hTypeKeys "<MOD1 HOME>"
+ ' hTypeKeys "<SHIFT HOME>" 'Mark the whole text'
+ case else : warnlog " the test has not been configured for this application ( '" + gApplication + "' ). Please notify testwriter."
end select
sleep (2)
-
+
Kontext "TextObjectbar"
if TextObjectbar.Exists = FALSE then
- ViewToolbarsTextFormatting
- sleep (1)
+ ViewToolbarsTextFormatting
+ sleep (1)
endif
Printlog " - Check if the Fontname is still the same."
if Schriftart.GetSelText <> Text1 then warnlog " Fontname should be: " + Text1 + " but was: " + Schriftart.GetSelText
- sleep (2)
- Printlog " - Check if the Text still has the same Size."
- if Schriftgroesse.GetSelText <> Text2 then warnlog " Fontsize should be: " + Text2 + " but was: " + Schriftgroesse.GetSelText
-
- Kontext "TextObjectbar"
- Printlog " - Check if the Font-attribute is set to Bold."
- '/// check state for button 'Bold' ///'
- if Fett.GetState(2) <> Text4 then warnlog " Bold should be: " + Text4 + " but was: " + Fett.GetState(2)
-
- Kontext "TextObjectbar"
- Printlog " - Font attribute cursive"
- '/// check state for button 'Italic' ///'
- if Kursiv.GetState(2) <> Text5 then warnlog " Italic should be: " + Text5 + " but was: " + Kursiv.GetState(2)
-
- Kontext "TextObjectbar"
- Printlog " - Check if the Font-attribute is set to Underlined"
- '/// check state for button 'Underline' ///'
- sleep (2)
- if Unterstrichen.GetState(2) <> Text6 then warnlog " Underline should be: " + Text6 + " but was: " + Unterstrichen.GetState(2)
-
- Kontext "TextObjectbar"
- if (gApplication) = "CALC" then
- kontext "FormatObjectBar"
- Printlog " - Check if the Font-attribute is set to Justified"
- '/// check state for button 'Justified' ///'
- if Block.GetState(2) <> Text7 then warnlog " Justified should be: " + Text7 + " but was: " + Blocksatz.GetState(2)
- else
- if Blocksatz.GetState(2) <> Text7 then warnlog " Justified should be: " + Text7 + " but was: " + Blocksatz.GetState(2)
- endif
- '/// Set kontext to the application ///'
- SetKontextApplication
- printlog " Check_Text_Formatting Ends"
-
-end sub '/// Here ends the Sub "Check_Text_Formatting" ///'
-
-'----------------------------------------------------------------------------------------------------
+ sleep (2)
+ Printlog " - Check if the Text still has the same Size."
+ if Schriftgroesse.GetSelText <> Text2 then warnlog " Fontsize should be: " + Text2 + " but was: " + Schriftgroesse.GetSelText
+
+ Kontext "TextObjectbar"
+ Printlog " - Check if the Font-attribute is set to Bold."
+ if Fett.GetState(2) <> Text4 then warnlog " Bold should be: " + Text4 + " but was: " + Fett.GetState(2)
+
+ Kontext "TextObjectbar"
+ Printlog " - Font attribute cursive"
+ if Kursiv.GetState(2) <> Text5 then warnlog " Italic should be: " + Text5 + " but was: " + Kursiv.GetState(2)
+
+ Kontext "TextObjectbar"
+ Printlog " - Check if the Font-attribute is set to Underlined"
+ sleep (2)
+ if Unterstrichen.GetState(2) <> Text6 then warnlog " Underline should be: " + Text6 + " but was: " + Unterstrichen.GetState(2)
+
+ Kontext "TextObjectbar"
+ if (gApplication) = "CALC" then
+ kontext "FormatObjectBar"
+ Printlog " - Check if the Font-attribute is set to Justified"
+ if Block.GetState(2) <> Text7 then warnlog " Justified should be: " + Text7 + " but was: " + Blocksatz.GetState(2)
+ else
+ if Blocksatz.GetState(2) <> Text7 then warnlog " Justified should be: " + Text7 + " but was: " + Blocksatz.GetState(2)
+ endif
+ SetKontextApplication
+ printlog " Check_Text_Formatting Ends"
+
+
+ '----------------------------------------------------------------------------------------------------
sub Check_Colors_Borders_Attributes
- '///
printlog " Check_Colors_Borders_Attributes Starts"
-
- '/// Open Format-Area and get the values considering colors and borders ///'
+
FormatArea
-
- Kontext "TabArea"
- Kontext
- Active.setpage TabArea
- Kontext "TabArea"
-
+
+ Kontext "TabArea"
+ Kontext
+ Active.setpage TabArea
+ Kontext "TabArea"
+
' /// Area ///'
FillOptions.Select 2
if FillOptions.GetSelIndex <> 2 then Errorlog "Couldnt click on 'Color' in FormatArea"
-
- If AreaColourListValue <> ColourList.GetSelText then
- WarnLog " Area ColourList doesn't have the right Colour selected."
- printlog " AreaColourListValue = " + AreaColourListValue + " should be = " + ColourList.GetSelText
- end if
-
- sleep 1
-
- '/// Gradient ///'
- FillOptions.Select 3
- if FillOptions.GetSelIndex <> 3 then Errorlog "Couldnt click on 'Gradient.' in FormatArea"
-
- If AreaGradientListValue <> GradientList.GetSelText then WarnLog "Area GradientList has changed it's value."
- If Automatic.IsVisible then
- If AreaAutomaticValue = "TRUE" then
- If Automatic.IsChecked then
- Printlog " Area Automatic Value is correct"
- Else
- WarnLog " Area Automatic Value wasnt checked. It should have been."
- End if
- End if
- Else
- If Increments.IsVisible then
- If AreaIncrementsValue <> Increments.GetText then WarnLog "Area Increments has changed."
- End if
- End if
-
- '/// Hatching ///'
- FillOptions.Select 4
- if FillOptions.GetSelIndex <> 4 then Errorlog "Couldnt click on 'Hatching' in FormatArea"
-
- If AreaHatchingListValue <> HatchingList.GetSelText then Errorlog "Area HatchingList has changed it's value."
- If BackgroundColour.IsVisible then
- If BackgroundColour.IsChecked then
- If AreaBackgroundColourValue <> BackgroundColour.GetText then Errorlog "Area Background Color has changed it's value."
- end if
- end if
- If BackgroundColourList.IsVisible then
- If AreaBackgroundColourListValue <> BackgroundColourList.GetSelText then Errorlog "Area Background ColourList has changed it's value."
- End if
-
- '/// Increments ///'
- FillOptions.Select 5
- if FillOptions.GetSelIndex <> 5 then Errorlog "Couldnt click on 'Color' in FormatArea"
-
- If BitmapList.IsVisible then
- If AreaBitmapListValue <> BitmapList.GetSelText then Errorlog "Area Bitmap List has changed it's value."
- else
- warnlog " No Area-Bitmap-List visible!"
- end if
- If Original.IsChecked = "TRUE" then
- If AreaOriginalListValue <> "TRUE" then Errorlog "Original List has changed it's value."
- Else
- If Relative.IsChecked = "TRUE" then
- If AreaRelativeValue <> "TRUE" then Errorlog "Area Relative has changed it's value." = "TRUE"
- If AreaWidthValue <> Width.GetText then Errorlog "AreaWidthValue has changed."
- If AreaHeightValue <> Height.GetText then Errorlog "AreaHeightValue has changed."
- Else
- If AreaWidthValue <> Width.GetText then Errorlog "AreaWidthValue has changed."
- If AreaHeightValue <> Height.GetText then Errorlog "AreaHeightValue has changed."
- End if
- End if
-
- If Tile.IsChecked then
- If AreaTileValue <> "TRUE" then Errorlog "AreaTileValue has changed."
- End if
-
- If Stretch.IsChecked then
- If AreaStretchValue <> "TRUE" then Errorlog "AreaStretchValue has changed."
- End if
-
- If Row.IsChecked then
- If AreaRowValue <> "TRUE" then Errorlog "AreRowValue has changed."
- If AreaOffsetValue <> Offset.GetText then Errorlog "AreaOffsetValue has changed."
- End if
-
- If Column.IsChecked then
- If AreaColumnValue <> "TRUE" then Errorlog "AreaColumnValue has changed."
- If AreaOffsetValue <> Offset.GetText then Errorlog "AreaOffsetValue has changed."
- End if
-
- sleep 1
-
- '/// Tabpage: Shadow ///'
- Kontext "TabArea"
- Kontext
- Active.setpage TabSchatten
- Kontext "TabSchatten"
-
- If Anzeigen.IsChecked then
- ShadowUseShadowsValue = "TRUE"
- ShadowDistanceValue = Entfernung.GetText
- ShadowColorValue = Farbe.GetText
- ShadowTransparencyValue = Transparenz.GetText
- end if
-
- sleep 1
-
- '/// Tab-page: Transparency ///'
- Kontext
- Active.SetPage TabTransparenz
- Kontext "TabTransparenz"
-
- if KeineTransparenz.IsEnabled = FALSE then
- warnlog " Couldnt check 'No transparency' in Area - Transparency'"
- else
- KeineTransparenz.Check
- end if
-
- If KeineTransparenz.IsChecked then LineareTransparenz.Check
- If LineareTransparenz.IsChecked then
- TransparencyTransparencyValue = MFLinTransparenz.GetText
+
+ If AreaColourListValue <> ColourList.GetSelText then
+ WarnLog " Area ColourList doesn't have the right Colour selected."
+ printlog " AreaColourListValue = " + AreaColourListValue + " should be = " + ColourList.GetSelText
end if
-
- '/// Gradient ///'
- Transparenzverlauf.Check
- If Transparenzverlauf.IsChecked then
- TransparencyGradientType = TransparenzverlaufTyp.GetItemText
- TransparencyMFZentrumX = MFZentrumX.GetText
- TransparencyMFZentrumY = MFZentrumY.GetText
- TransparencyMFWinkel = MFWinkel.GetText
- TransparencyMFRand = MFRand.GetText
- TransparencyMFStartwert = MFStartwert.GetText
- TransparencyMFEndwert = MFEndwert.GetText
- end if
-
- sleep 1
-
- '/// Colors ///'
- Kontext
- Active.setpage TabFarben
- Kontext "TabFarben"
- ColorName = FarbName.GetText
- ColorColor = Farbe.GetItemText
- ColorModel = Farbmodell.GetSelText
- printlog " " + ColorModel
-
- select case iSprache ' Prepared for future language-problematics.
- case 33 : If Farbmodell.GetSelIndex = 1 then '/// French ///'
- if ColorR <> R.GetText then Warnlog "Wrong R-Color. Should be: " + ColorR + " but was: " + R.GetText
- if ColorG <> G.GetText then Warnlog "Wrong V-Color. Should be: " + ColorG + " but was: " + G.GetText
- if ColorB <> B.GetText then Warnlog "Wrong B-Color. Should be: " + ColorB + " but was: " + B.GetText
- Else
- if ColorC <> C.GetText then Warnlog "Wrong C-Color. Should be: " + ColorC + " but was: " + C.GetText
- if ColorM <> M.GetText then Warnlog "Wrong M-Color. Should be: " + ColorM + " but was: " + M.GetText
- if ColorY <> Y.GetText then Warnlog "Wrong J-Color. Should be: " + ColorY + " but was: " + Y.GetText
- if ColorK <> K.GetText then Warnlog "Wrong N-Color. Should be: " + ColorK + " but was: " + K.GetText
- End if
- case else : If Farbmodell.GetSelIndex = 1 then '/// English ///'
- if ColorR <> R.GetText then Warnlog "Wrong R-Color. Should be: " + ColorR + " but was: " + R.GetText
- if ColorG <> G.GetText then Warnlog "Wrong G-Color. Should be: " + ColorG + " but was: " + G.GetText
- if ColorB <> B.GetText then Warnlog "Wrong B-Color. Should be: " + ColorB + " but was: " + B.GetText
- Else
- if ColorC <> C.GetText then Warnlog "Wrong C-Color. Should be: " + ColorC + " but was: " + C.GetText
- if ColorM <> M.GetText then Warnlog "Wrong M-Color. Should be: " + ColorM + " but was: " + M.GetText
- if ColorY <> Y.GetText then Warnlog "Wrong Y-Color. Should be: " + ColorY + " but was: " + Y.GetText
- if ColorK <> K.GetText then Warnlog "Wrong K-Color. Should be: " + ColorK + " but was: " + K.GetText
- End if
- end select
-
- '/// Tab-Page: Colors ///'
- Kontext
- Active.setpage TabFarbverlaeufe
- Kontext "TabFarbverlaeufe"
-
- GradientsType = Typ.GetItemText
- GradientsCenterX = ZentrumX.GetText
- GradientsCenterZ = ZentrumY.GetText
- GradientsAngle = Winkel.GetText
- GradientsBorder = Rand.GetText
- GradientsFromColor = Von.GetItemText
- GradientsFromValue = VonWert.GetText
- GradientsToColor = Bis.GetItemText
- GradientsToValue = BisWert.GetText
-
- '/// Hatching ///'
- Kontext
- Active.setpage TabSchraffuren
- Kontext "TabSchraffuren"
-
- HatchingDistance = Abstand.GetText
- HatchingAngle = Winkel.GetText
- 'Definition
- HatchingLineType = Linientyp.GetSelText
- HatchingLineColor = Linienfarbe.GetSelText
- HatchingLineTable = Tabelle.GetItemText
-
- '/// TabBitmap ///'
- Kontext
- Active.setpage TabBitmap
- Kontext "TabBitmap"
-
- BitmapForeground = Vordergrund.GetSelText
- BitmapBackground = Hintergrund.GetSelText
- BitmapTable = Tabelle.GetSelText
-
- '/// Close the TabArea-window ///'
- Kontext
- Active.setpage TabArea
- Kontext "TabArea"
- TabArea.Cancel
-
- '/// Set kontext to the application ///'
- SetKontextApplication
-
- printlog "Check_Colors_Borders_Attributes Ends"
-
- Printlog "End of one application"
-
-endsub '/// Here ends the Sub "Check_Colors_Borders_Attributes" ///'
-
-'---------------------------------- Set the Kontext to the current Application ----------------------------------'
+
+ sleep 1
+
+ FillOptions.Select 3
+ if FillOptions.GetSelIndex <> 3 then Errorlog "Couldnt click on 'Gradient.' in FormatArea"
+
+ If AreaGradientListValue <> GradientList.GetSelText then WarnLog "Area GradientList has changed it's value."
+ If Automatic.IsVisible then
+ If AreaAutomaticValue = "TRUE" then
+ If Automatic.IsChecked then
+ Printlog " Area Automatic Value is correct"
+ Else
+ WarnLog " Area Automatic Value wasnt checked. It should have been."
+ End if
+ End if
+ Else
+ If Increments.IsVisible then
+ If AreaIncrementsValue <> Increments.GetText then WarnLog "Area Increments has changed."
+ End if
+ End if
+
+ FillOptions.Select 4
+ if FillOptions.GetSelIndex <> 4 then Errorlog "Couldnt click on 'Hatching' in FormatArea"
+
+ If AreaHatchingListValue <> HatchingList.GetSelText then Errorlog "Area HatchingList has changed it's value."
+ If BackgroundColour.IsVisible then
+ If BackgroundColour.IsChecked then
+ If AreaBackgroundColourValue <> BackgroundColour.GetText then Errorlog "Area Background Color has changed it's value."
+ end if
+ end if
+ If BackgroundColourList.IsVisible then
+ If AreaBackgroundColourListValue <> BackgroundColourList.GetSelText then Errorlog "Area Background ColourList has changed it's value."
+ End if
+
+ FillOptions.Select 5
+ if FillOptions.GetSelIndex <> 5 then Errorlog "Couldnt click on 'Color' in FormatArea"
+
+ If BitmapList.IsVisible then
+ If AreaBitmapListValue <> BitmapList.GetSelText then Errorlog "Area Bitmap List has changed it's value."
+ else
+ warnlog " No Area-Bitmap-List visible!"
+ end if
+ If Original.IsChecked = "TRUE" then
+ If AreaOriginalListValue <> "TRUE" then Errorlog "Original List has changed it's value."
+ Else
+ If Relative.IsChecked = "TRUE" then
+ If AreaRelativeValue <> "TRUE" then Errorlog "Area Relative has changed it's value." = "TRUE"
+ If AreaWidthValue <> Width.GetText then Errorlog "AreaWidthValue has changed."
+ If AreaHeightValue <> Height.GetText then Errorlog "AreaHeightValue has changed."
+ Else
+ If AreaWidthValue <> Width.GetText then Errorlog "AreaWidthValue has changed."
+ If AreaHeightValue <> Height.GetText then Errorlog "AreaHeightValue has changed."
+ End if
+ End if
+
+ If Tile.IsChecked then
+ If AreaTileValue <> "TRUE" then Errorlog "AreaTileValue has changed."
+ End if
+
+ If Stretch.IsChecked then
+ If AreaStretchValue <> "TRUE" then Errorlog "AreaStretchValue has changed."
+ End if
+
+ If Row.IsChecked then
+ If AreaRowValue <> "TRUE" then Errorlog "AreRowValue has changed."
+ If AreaOffsetValue <> Offset.GetText then Errorlog "AreaOffsetValue has changed."
+ End if
+
+ If Column.IsChecked then
+ If AreaColumnValue <> "TRUE" then Errorlog "AreaColumnValue has changed."
+ If AreaOffsetValue <> Offset.GetText then Errorlog "AreaOffsetValue has changed."
+ End if
+
+ sleep 1
+
+ Kontext "TabArea"
+ Kontext
+ Active.setpage TabSchatten
+ Kontext "TabSchatten"
+
+ If Anzeigen.IsChecked then
+ ShadowUseShadowsValue = "TRUE"
+ ShadowDistanceValue = Entfernung.GetText
+ ShadowColorValue = Farbe.GetText
+ ShadowTransparencyValue = Transparenz.GetText
+ end if
+
+ sleep 1
+
+ Kontext
+ Active.SetPage TabTransparenz
+ Kontext "TabTransparenz"
+
+ if KeineTransparenz.IsEnabled = FALSE then
+ warnlog " Couldnt check 'No transparency' in Area - Transparency'"
+ else
+ KeineTransparenz.Check
+ end if
+
+ If KeineTransparenz.IsChecked then LineareTransparenz.Check
+ If LineareTransparenz.IsChecked then
+ TransparencyTransparencyValue = MFLinTransparenz.GetText
+ end if
+
+ Transparenzverlauf.Check
+ If Transparenzverlauf.IsChecked then
+ TransparencyGradientType = TransparenzverlaufTyp.GetItemText
+ TransparencyMFZentrumX = MFZentrumX.GetText
+ TransparencyMFZentrumY = MFZentrumY.GetText
+ TransparencyMFWinkel = MFWinkel.GetText
+ TransparencyMFRand = MFRand.GetText
+ TransparencyMFStartwert = MFStartwert.GetText
+ TransparencyMFEndwert = MFEndwert.GetText
+ end if
+
+ sleep 1
+
+ Kontext
+ Active.setpage TabFarben
+ Kontext "TabFarben"
+ ColorName = FarbName.GetText
+ ColorColor = Farbe.GetItemText
+ ColorModel = Farbmodell.GetSelText
+ printlog " " + ColorModel
+
+ select case iSprache ' Prepared for future language-problematics.
+ if ColorR <> R.GetText then Warnlog "Wrong R-Color. Should be: " + ColorR + " but was: " + R.GetText
+ if ColorG <> G.GetText then Warnlog "Wrong V-Color. Should be: " + ColorG + " but was: " + G.GetText
+ if ColorB <> B.GetText then Warnlog "Wrong B-Color. Should be: " + ColorB + " but was: " + B.GetText
+ Else
+ if ColorC <> C.GetText then Warnlog "Wrong C-Color. Should be: " + ColorC + " but was: " + C.GetText
+ if ColorM <> M.GetText then Warnlog "Wrong M-Color. Should be: " + ColorM + " but was: " + M.GetText
+ if ColorY <> Y.GetText then Warnlog "Wrong J-Color. Should be: " + ColorY + " but was: " + Y.GetText
+ if ColorK <> K.GetText then Warnlog "Wrong N-Color. Should be: " + ColorK + " but was: " + K.GetText
+ End if
+ if ColorR <> R.GetText then Warnlog "Wrong R-Color. Should be: " + ColorR + " but was: " + R.GetText
+ if ColorG <> G.GetText then Warnlog "Wrong G-Color. Should be: " + ColorG + " but was: " + G.GetText
+ if ColorB <> B.GetText then Warnlog "Wrong B-Color. Should be: " + ColorB + " but was: " + B.GetText
+ Else
+ if ColorC <> C.GetText then Warnlog "Wrong C-Color. Should be: " + ColorC + " but was: " + C.GetText
+ if ColorM <> M.GetText then Warnlog "Wrong M-Color. Should be: " + ColorM + " but was: " + M.GetText
+ if ColorY <> Y.GetText then Warnlog "Wrong Y-Color. Should be: " + ColorY + " but was: " + Y.GetText
+ if ColorK <> K.GetText then Warnlog "Wrong K-Color. Should be: " + ColorK + " but was: " + K.GetText
+ End if
+ end select
+
+ Kontext
+ Active.setpage TabFarbverlaeufe
+ Kontext "TabFarbverlaeufe"
+
+ GradientsType = Typ.GetItemText
+ GradientsCenterX = ZentrumX.GetText
+ GradientsCenterZ = ZentrumY.GetText
+ GradientsAngle = Winkel.GetText
+ GradientsBorder = Rand.GetText
+ GradientsFromColor = Von.GetItemText
+ GradientsFromValue = VonWert.GetText
+ GradientsToColor = Bis.GetItemText
+ GradientsToValue = BisWert.GetText
+
+ Kontext
+ Active.setpage TabSchraffuren
+ Kontext "TabSchraffuren"
+
+ HatchingDistance = Abstand.GetText
+ HatchingAngle = Winkel.GetText
+ 'Definition
+ HatchingLineType = Linientyp.GetSelText
+ HatchingLineColor = Linienfarbe.GetSelText
+ HatchingLineTable = Tabelle.GetItemText
+
+ Kontext
+ Active.setpage TabBitmap
+ Kontext "TabBitmap"
+
+ BitmapForeground = Vordergrund.GetSelText
+ BitmapBackground = Hintergrund.GetSelText
+ BitmapTable = Tabelle.GetSelText
+
+ Kontext
+ Active.setpage TabArea
+ Kontext "TabArea"
+ TabArea.Cancel
+
+ SetKontextApplication
+
+ printlog "Check_Colors_Borders_Attributes Ends"
+
+ Printlog "End of one application"
+
+
+ '---------------------------------- Set the Kontext to the current Application ----------------------------------'
sub SetKontextApplication
sleep 1
- Select Case gApplication
- Case "DRAW"
- Kontext "DocumentDraw"
- ' Printlog "gApplication / Kontext is now: DocumentDraw"
- sleep 1
- Case "IMPRESS"
- Kontext "DocumentImpress"
- ' Printlog "gApplication / Kontext is now: DocumentImpress"
- sleep 1
- Case "WRITER"
- Kontext "DocumentWriter"
- ' Printlog "gApplication / Kontext is now: DocumentWriter"
- sleep 1
- Case "CALC"
- Kontext "DocumentCalc"
- ' Printlog "gApplication / Kontext is now: DocumentCalc"
- sleep 1
- end select
+ Select Case gApplication
+ Case "DRAW"
+ Kontext "DocumentDraw"
+ ' Printlog "gApplication / Kontext is now: DocumentDraw"
+ sleep 1
+ Case "IMPRESS"
+ Kontext "DocumentImpress"
+ ' Printlog "gApplication / Kontext is now: DocumentImpress"
+ sleep 1
+ Case "WRITER"
+ Kontext "DocumentWriter"
+ ' Printlog "gApplication / Kontext is now: DocumentWriter"
+ sleep 1
+ Case "CALC"
+ Kontext "DocumentCalc"
+ ' Printlog "gApplication / Kontext is now: DocumentCalc"
+ sleep 1
+ end select
sleep 1
-
+
end sub
'------------------------- Part with "create new windows" ---------------------
sub New_Draw
- printlog "Copied object from application: " + FromApp2 '/// Since the first application is Draw by default, we'll skip that one. ///'
- gApplication = "DRAW"
- ToApp = "DRAW"
- printlog "to app has changed to: " + gApplication
- Call hNewDocument
- SetKontextApplication
-
+ gApplication = "DRAW"
+ ToApp = "DRAW"
+ printlog "to app has changed to: " + gApplication
+ Call hNewDocument
+ SetKontextApplication
+
end sub
'-------------------------------------------------------------------------------
sub New_Impress
- printlog "Copied object from application: " + FromApp2
- gApplication = "IMPRESS"
- ToApp = "IMPRESS"
- printlog "to app has changed to: " + gApplication
- Call hNewDocument
- SetKontextApplication
-
+ printlog "Copied object from application: " + FromApp2
+ gApplication = "IMPRESS"
+ ToApp = "IMPRESS"
+ printlog "to app has changed to: " + gApplication
+ Call hNewDocument
+ SetKontextApplication
+
end sub
'-------------------------------------------------------------------------------
sub New_Calc
- printlog "Copied object from application: " + FromApp2
- gApplication = "CALC"
- ToApp = "CALC"
- printlog "to app has changed to: " + gApplication
- Call hNewDocument
- SetKontextApplication
-
+ printlog "Copied object from application: " + FromApp2
+ gApplication = "CALC"
+ ToApp = "CALC"
+ printlog "to app has changed to: " + gApplication
+ Call hNewDocument
+ SetKontextApplication
+
end sub
'-------------------------------------------------------------------------------
sub New_Writer
- printlog "Copied object from application: " + FromApp2
- gApplication = "WRITER"
- ToApp = "WRITER"
- printlog "to app has changed to: " + gApplication
- Call hNewDocument
- SetKontextApplication
-
+ printlog "Copied object from application: " + FromApp2
+ gApplication = "WRITER"
+ ToApp = "WRITER"
+ printlog "to app has changed to: " + gApplication
+ Call hNewDocument
+ SetKontextApplication
+
end sub
'-------------------------------------------------------------------------------
sub Choose_Toapplication
- '/// Close the application / switch to the next
-
- For ToAppCounter = 1 to 4
-
- Select case ToAppCounter
- case "1" : Call hCloseDocument
- printlog "to app: " + gApplication ' Since the first application is Draw by default, we'll skip that one.
- ToApp = "DRAW"
- case "2" : Call hCloseDocument
- gApplication = "IMPRESS"
- printlog "to app: " + gApplication
- ToApp = "IMPRESS"
- case "3" : Call hCloseDocument
- gApplication = "CALC"
- printlog "to app: " + gApplication
- ToApp = "CALC"
- case "4" : Call hCloseDocument
- gApplication = "WRITER"
- printlog "to app: " + gApplication
- ToApp = "WRITER"
- case else : goto endsub
- End select
+
+ For ToAppCounter = 1 to 4
+
+ Select case ToAppCounter
+ case "1" : Call hCloseDocument
+ printlog "to app: " + gApplication ' Since the first application is Draw by default, we'll skip that one.
+ ToApp = "DRAW"
+ case "2" : Call hCloseDocument
+ gApplication = "IMPRESS"
+ printlog "to app: " + gApplication
+ ToApp = "IMPRESS"
+ case "3" : Call hCloseDocument
+ gApplication = "CALC"
+ printlog "to app: " + gApplication
+ ToApp = "CALC"
+ case "4" : Call hCloseDocument
+ gApplication = "WRITER"
+ printlog "to app: " + gApplication
+ ToApp = "WRITER"
+ case else : goto endsub
+ End select
next ToAppCounter
- '/// Open second application ///'
- Call hNewDocument
+ Call hNewDocument
SetKontextApplication
-
+
end sub
'--------------------------------------------------------------------------------------------------------
diff --git a/testautomation/graphics/optional/includes/global/g_convertto.inc b/testautomation/graphics/optional/includes/global/g_convertto.inc
index 50b4a418c504..dd373d1db08a 100755
--- a/testautomation/graphics/optional/includes/global/g_convertto.inc
+++ b/testautomation/graphics/optional/includes/global/g_convertto.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
@@ -58,302 +58,257 @@
' Call tdContextConvertIntoMetaFile
testcase tiModifyConvertToPolygon
- Dim PosX as string
- Dim PosY as string
- Dim Maxanzahl as string
- Dim Minanzahl as string
+ Dim PosX as string
+ Dim PosY as string
+ Dim Maxanzahl as string
+ Dim Minanzahl as string
- Call hNewDocument
- sleep 3
- hTextrahmenErstellen ("This is a text that will be transformed into a Polygon-object", 10,10,60,30)
- sleep 1
- hTypeKeys "<Escape>"
- sleep 1
- EditSelectAll
- sleep 1
- ContextConvertIntoPolygon
- sleep 1
- ContextPositionAndSize
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- PosX = Width.GetText
- PosY = Height.GetText
- TabPositionAndSize.OK
- sleep 1
- FormatCharacter
- Kontext
- Active.SetPage TabFont
- Kontext "TabFont"
- sleep 1
- try
- Size.SetText "96"
- catch
- if (gAsianSup OR gCTLSup) then
+ Call hNewDocument
+ sleep 3
+ hTextrahmenErstellen ("This is a text that will be transformed into a Polygon-object", 10,10,60,30)
+ sleep 1
+ hTypeKeys "<Escape>"
+ sleep 1
+ EditSelectAll
+ sleep 1
+ ContextConvertIntoPolygon
+ sleep 1
+ ContextPositionAndSize
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ PosX = Width.GetText
+ PosY = Height.GetText
+ TabPositionAndSize.OK
+ sleep 1
+ FormatCharacter
+ Kontext
+ Active.SetPage TabFont
+ Kontext "TabFont"
+ sleep 1
+ try
+ Size.SetText "96"
+ catch
+ if (gAsianSup OR gCTLSup) then
try
- SizeWest.SetText "96"
+ SizeWest.SetText "96"
catch
- Warnlog "Asian or ctl support is enabled, but Size of font is not accessable :-("
+ Warnlog "Asian or ctl support is enabled, but Size of font is not accessable :-("
endcatch
- else
+ else
Warnlog "Asian or ctl support is NOT enabled, but Size of font is not accessable :-("
try
- SizeWest.SetText "96"
- qaErrorLog "SizeWest. works"
+ SizeWest.SetText "96"
+ qaErrorLog "SizeWest. works"
catch
endcatch
try
- SizeEast.SetText "96"
- qaErrorLog "SizeEast. works"
+ SizeEast.SetText "96"
+ qaErrorLog "SizeEast. works"
catch
endcatch
try
- Size.SetText "96"
- qaErrorLog "Size. works"
+ Size.SetText "96"
+ qaErrorLog "Size. works"
catch
endcatch
try
- SizeCTL.SetText "96"
- qaErrorLog "SizeCTL. works"
+ SizeCTL.SetText "96"
+ qaErrorLog "SizeCTL. works"
catch
endcatch
- endif
- endcatch
- TabFont.OK
- sleep 1
- ContextPositionAndSize
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- '/// compare width and heigth to control is it is still text ///'
- if ( Width.GetText = PosX or Height.GetText = PosY ) Then
- Printlog "- Text converted into polygon"
- else
- Warnlog "- Convert into polygon does not work."
- end if
- TabPositionAndSize.OK
- sleep 1
+ endif
+ endcatch
+ TabFont.OK
+ sleep 1
+ ContextPositionAndSize
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ if ( Width.GetText = PosX or Height.GetText = PosY ) Then
+ Printlog "- Text converted into polygon"
+ else
+ Warnlog "- Convert into polygon does not work."
+ end if
+ TabPositionAndSize.OK
+ sleep 1
Call hCloseDocument
- Printlog "-------------------------------------------------end"
+ Printlog "-------------------------------------------------end"
- Call hNewDocument
- sleep 3
- '/// insert graphic (input\\impress\\grafik\\sample.bmp)///'
- Call hGrafikEinfuegen ConvertPath ( gTesttoolPath + "global\input\graf_inp\enter.bmp" )
- sleep 3
- ContextConvertIntoPolygon
- Kontext "UmwandelnInPolygon"
- Farbanzahl.ToMax
- MaxAnzahl = Farbanzahl.GetText
- Farbanzahl.More 1
- If Maxanzahl < Farbanzahl.GetText Then Warnlog "- Maximum value could be raised."
- Farbanzahl.ToMin '/// set color to min ///'
- MinAnzahl = Farbanzahl.GetText
- Farbanzahl.Less 1 '/// try to set a value lower than minimum ///'
- If Farbanzahl.GetText < Minanzahl then Warnlog "- Minimum value could be lowered."
- Farbanzahl.SetText "2"
- Vorschau.Click
- sleep 5
- UmwandelnInPolygon.OK
- sleep 5
- Printlog "- object vectorized."
- 'TBO: verify nasty bug about asian/ctl support
- ToolsOptions
- call hToolsOptions ("Languagesettings", "Languages")
- printlog "Asian: '" + Aktivieren.IsChecked + "'"
- printlog "CTL : '" + ComplexScriptEnabled.IsChecked + "'"
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
- '-----------------------------------------------
- Call hCloseDocument
+ Call hNewDocument
+ sleep 3
+ Call hGrafikEinfuegen ConvertPath ( gTesttoolPath + "global\input\graf_inp\enter.bmp" )
+ sleep 3
+ ContextConvertIntoPolygon
+ Kontext "UmwandelnInPolygon"
+ Farbanzahl.ToMax
+ MaxAnzahl = Farbanzahl.GetText
+ Farbanzahl.More 1
+ If Maxanzahl < Farbanzahl.GetText Then Warnlog "- Maximum value could be raised."
+ MinAnzahl = Farbanzahl.GetText
+ If Farbanzahl.GetText < Minanzahl then Warnlog "- Minimum value could be lowered."
+ Farbanzahl.SetText "2"
+ Vorschau.Click
+ sleep 5
+ UmwandelnInPolygon.OK
+ sleep 5
+ Printlog "- object vectorized."
+ 'TBO: verify nasty bug about asian/ctl support
+ ToolsOptions
+ call hToolsOptions ("Languagesettings", "Languages")
+ printlog "Asian: '" + Aktivieren.IsChecked + "'"
+ printlog "CTL : '" + ComplexScriptEnabled.IsChecked + "'"
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
+ '-----------------------------------------------
+ Call hCloseDocument
endcase
testcase tdContextConvertIntoBitmap
- Call hNewDocument '/// new document ///'
- sleep 3
- InsertGraphicsFromFile '/// insert graphic ///'
- sleep 3
- kontext "Active"
+ sleep 3
+ sleep 3
+ kontext "Active"
+ if Active.Exists Then
+ Active.OK
+ end if
+ sleep 5
+ Kontext "GrafikEinfuegenDlg"
+ sleep 2
+ Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\columbia.dxf")
+ sleep 2
+ Oeffnen.Click
+ sleep 2
+ Kontext "Active"
if Active.Exists Then
- Active.OK
+ Warnlog Active.GetText + ", Test will end here because of problems putting graphics into the document"
+ Active.OK
+ sleep 2
+ Call hCloseDocument
+ goto endsub
end if
- sleep 5
- Kontext "GrafikEinfuegenDlg"
- sleep 2
-'/// uses input\\impress\\grafik\\columbia.dxf ///
- Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\columbia.dxf")
- sleep 2
- Oeffnen.Click
- sleep 2
- Kontext "Active"
- if Active.Exists Then
- Warnlog Active.GetText + ", Test will end here because of problems putting graphics into the document"
- Active.OK
- sleep 2
- Call hCloseDocument
- goto endsub
- end if
- Kontext "DocumentImpress"
- try
- ContextConvertIntoBitmap '/// convert dxf file to bitmap ///'
+ Kontext "DocumentImpress"
+ try
sleep 1
Printlog "- Convert into bitmap works"
- catch
+ catch
Warnlog "- Convert into bitmap does not work"
- endcatch
- sleep 2
- Call hCloseDocument '/// close document ///'
+ endcatch
+ sleep 2
endcase
testcase tiAendernUmwandelnInKurve
Printlog " ----- ContextConvertIntoCurve testen"
- Call hNewDocument '/// New impress document///'
- Call hTextrahmenErstellen ("I test,test,test,test only, if it works for you",20,20,60,30) '/// create textbox///'
- sleep 2
- Kontext "DocumentImpress"
- gMouseDoubleClick 70,70 '/// deselect textbox ///'
- sleep 2
- EditSelectAll '/// select textbox ///'
- sleep 2
- ContextConvertIntoCurve '/// convert into curve ///'
- sleep 3
- gMouseClick 30,15
+ sleep 2
+ Kontext "DocumentImpress"
+ sleep 2
+ sleep 2
+ sleep 3
+ gMouseClick 30,15
- hTypeKeys "<SHIFT RIGHT>",3 '/// try to select 3 letters ///'
- try
- EditCopy '/// try edit copy to check if its still text ///'
+ try
Warnlog " - Convert into curve, seperate letters should not be selectable anymore"
- catch
+ catch
Printlog " - Text converted into a curve"
- endcatch
+ endcatch
- Call hCloseDocument '/// close document ///'
endcase
testcase tiAendernUmwandelnInPolygonGrafik
Printlog "- Context/ConvertIntoPolygon"
- Call hNewDocument '/// new document ///'
- InsertGraphicsFromFile '/// insert graphic (desp.bmp) ///'
- Kontext "GrafikEinfuegenDlg"
- '///use graphic : input\\impress\\grafik\\desp.bmp ///
- Dateiname.SetText ConvertPath ( gTesttoolPath + "global\input\graf_inp\desp.bmp" )
- Oeffnen.Click
- sleep 3
- Kontext "DocumentImpress"
- EditSelectAll
- sleep 1
+ Kontext "GrafikEinfuegenDlg"
+ Dateiname.SetText ConvertPath ( gTesttoolPath + "global\input\graf_inp\desp.bmp" )
+ Oeffnen.Click
+ sleep 3
+ Kontext "DocumentImpress"
+ EditSelectAll
+ sleep 1
- ContextConvertIntoPolygon '/// convert into polygon ///'
- Kontext "UmwandelnInPolygon"
- Printlog "- Testing vectorize dialog"
- Farbanzahl.ToMax '/// set number of colors to max ///'
- if Farbanzahl.GetText <> "32" Then Warnlog "- Maximum value for color depth should be 32, but it is: " + Farbanzahl.GetText
- Farbanzahl.ToMin '/// set number of colors to min ///'
- sleep 1
- if Farbanzahl.GetText <> "8" Then Warnlog "- Minimum value for color depth should be 8 but it is: " + Farbanzahl.GetText
- sleep 2
- Punktreduktion.SetText "50" '/// set point reduction to 50 ///'
- sleep 2
- if Punktreduktion.GetText <> "32 Pixel" Then Warnlog "- Maximum value should be 32, but it is: " + Punktreduktion.GetText
- sleep 1
- Punktreduktion.SetText "-50" '/// set an out of range value ///'
- sleep 1
- if Punktreduktion.GetText <> "0 Pixel" Then Warnlog "- Minimum value should be 0, but it is: " + Punktreduktion.GetText
- Loecherfuellen.Uncheck '/// uncheck fill holes ///'
- if Not Kachelgroesse.IsEnabled Then
- Printlog "- Control disabled."
- else
- Warnlog "- Control should be disabled if Fill is not checked."
- end if
- Vorschau.Click '/// open preview ///'
- sleep 2
- UmwandelnInPolygon.OK '/// close dialog ///'
- sleep 5
- Call hCloseDocument '/// close document ///'
+ Kontext "UmwandelnInPolygon"
+ Printlog "- Testing vectorize dialog"
+ if Farbanzahl.GetText <> "32" Then Warnlog "- Maximum value for color depth should be 32, but it is: " + Farbanzahl.GetText
+ sleep 1
+ if Farbanzahl.GetText <> "8" Then Warnlog "- Minimum value for color depth should be 8 but it is: " + Farbanzahl.GetText
+ sleep 2
+ sleep 2
+ if Punktreduktion.GetText <> "32 Pixel" Then Warnlog "- Maximum value should be 32, but it is: " + Punktreduktion.GetText
+ sleep 1
+ sleep 1
+ if Punktreduktion.GetText <> "0 Pixel" Then Warnlog "- Minimum value should be 0, but it is: " + Punktreduktion.GetText
+ if Not Kachelgroesse.IsEnabled Then
+ Printlog "- Control disabled."
+ else
+ Warnlog "- Control should be disabled if Fill is not checked."
+ end if
+ sleep 2
+ sleep 5
endcase
testcase tiAendernUmwandelnIn3D
Printlog "- Convert into 3D"
- Call hNewDocument
- sleep 1 '/// new impress document ///'
- hRechteckErstellen (10,10,40,40) '/// create rectangle ///'
- '/// convert into 3D ///'
- sleep 2
- gMouseclick 35,35
- sleep 1
- try
- ContextConvertInto3D '/// try to access convert ito 3d a 2nd time, should be impossible using a 3d object as source ///'
- Printlog "- Convert into 3D works"
- catch
- Warnlog "- Convert into 3D does not work"
- endcatch
- Call hCloseDocument '/// close document '///
+ Call hNewDocument
+ sleep 2
+ gMouseclick 35,35
+ sleep 1
+ try
+ Printlog "- Convert into 3D works"
+ catch
+ Warnlog "- Convert into 3D does not work"
+ endcatch
endcase
testcase tiAendernUmwandelnIn3DRotationskoerper
Printlog "- ConvertInto3DRotationobject"
- Dim PosX
- Dim PosY
+ Dim PosX
+ Dim PosY
- Call hNewDocument '/// new document '///
- Kontext "DocumentImpress"
- hRechteckErstellen (20,20,50,50) '/// create rectangle ///'
- sleep 1
- ContextPositionAndSize '/// get position values for the rectangle ///'
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- PosX = PositionX.GetText
- PosY = PositionY.GetText
- TabPositionAndSize.OK
- sleep 1
- Kontext "DocumentImpress"
- ContextConvertInto3DRotationObject '/// convert into 3d lathe object ///'
- sleep 2
- ContextPositionAndSize
- Kontext
- Active.SetPage TabPositionAndSize '/// control changes in position values to confirm convert action ///'
- Kontext "TabPositionAndSize"
- if PositionX.GetText = PosX and PositionY.GetText = PosY Then Warnlog "- No change in position or dimension, converting seemd not to work"
- TabPositionAndSize.OK
- sleep 1
- Call hCloseDocument '/// close document ///'
+ Kontext "DocumentImpress"
+ sleep 1
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ PosX = PositionX.GetText
+ PosY = PositionY.GetText
+ TabPositionAndSize.OK
+ sleep 1
+ Kontext "DocumentImpress"
+ sleep 2
+ ContextPositionAndSize
+ Kontext
+ Kontext "TabPositionAndSize"
+ if PositionX.GetText = PosX and PositionY.GetText = PosY Then Warnlog "- No change in position or dimension, converting seemd not to work"
+ TabPositionAndSize.OK
+ sleep 1
endcase
testcase tiAendernUmwandelnInMetaFile
Printlog "- ConvertIntoMetaFile"
- Call hNewDocument '/// new document ///'
- sleep 3
- InsertGraphicsFromFile '/// insert graphic ///'
- sleep 1
- kontext "Active"
- sleep 1
+ sleep 3
+ sleep 1
+ kontext "Active"
+ sleep 1
if Active.Exists Then
- Active.OK
+ Active.OK
end if
sleep 1
- Kontext "GrafikEinfuegenDlg"
- sleep 2
-'/// uses input\\impress\\grafik\\desp.gif") ///
- Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\purzel.gif")
- sleep 2
- Oeffnen.Click
- sleep 5
- Kontext "DocumentImpress"
- try
- ContextConvertIntoMetafile '/// convert bitmap into metafile ///'
+ Kontext "GrafikEinfuegenDlg"
+ sleep 2
+ Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\purzel.gif")
+ sleep 2
+ Oeffnen.Click
+ sleep 5
+ Kontext "DocumentImpress"
+ try
sleep 2
Printlog "- Convert into Metafile does work"
- catch
+ catch
Warnlog "- Convert into Metafile does not work"
- endcatch
- sleep 2
- Call hCloseDocument '/// close document ///'
+ endcatch
+ sleep 2
endcase
diff --git a/testautomation/graphics/optional/includes/global/g_crossfading.inc b/testautomation/graphics/optional/includes/global/g_crossfading.inc
index ad65c0ad2ca6..4872c3671d35 100755
--- a/testautomation/graphics/optional/includes/global/g_crossfading.inc
+++ b/testautomation/graphics/optional/includes/global/g_crossfading.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
@@ -40,233 +40,153 @@
'\*************************************************************************************
testcase tCrossfading
- dim X as integer
- dim Z as integer
- dim Y as integer
- dim I as integer
- dim CheckX as integer
- dim FirstX as integer
- dim CounterForX as integer
- dim anothercounter as integer
+ dim X as integer
+ dim Z as integer
+ dim Y as integer
+ dim I as integer
+ dim CheckX as integer
+ dim FirstX as integer
+ dim CounterForX as integer
+ dim anothercounter as integer
- Call hNewDocument '/// New Impress document ///'
gMouseClick 50,50
- sleep 1
- Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
- gMouseClick 90,90
- Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// create rectangle ///'
- sleep 1
- EditSelectAll '/// Select all ///'
- sleep 1
- EditCrossFading '/// Choose Edit / CrossFading ///'
- kontext "Ueberblenden"
-X = Schritte.GetText ' /// Get counter-value and save it in X ///'
-printlog "Steps before we start the test: " + X
-printlog "Schritte.GetText= " + Schritte.GetText
-
-Schritte.ToMin
-if Schritte.GetText <> "1" then qaerrorlog "Could not change the step-number to 1."
-
- for I = 2 to 10 ' /// How many steps do you want? ///'
- Schritte.More 1
- if Schritte.GetText <> I then qaerrorlog "Could not change the step-number to" + I
- Ueberblenden.OK
- sleep 1
- try
-FormatUngroupDraw '/// open context menu and ungroup objects ///'
- catch
- qaerrorlog "Could not ungroup objects"
- endcatch
- sleep 1
- hTypeKeys "<TAB>" '/// Should make the first object active ///'
-
-'/// Get position and dimensions of elements ///'
- try
- ContextPositionAndSize
- catch
- qaerrorlog "Couldnt call 'ContextPositionAndSize' - No object selected?"
- endcatch
- kontext
- active.SetPage TabPositionAndSize
- sleep 1
- kontext "TabPositionAndSize"
- if TabPositionAndSize.exists (5) then
- CounterForX=0
- CheckX=0
- FirstX=PositionX.GetText '/// Tet Dimensions of first object ///'
- TabPositionAndSize.OK
- else
- qaerrorlog "Couldn't switch tab page :-( "
- endif
-
-
-anothercounter = I+2 '/// How many objects we have on the screen ///'
-
- for Y = 1 to anothercounter '/// How many times we should step to (hopefully) get back to the first one ///'
- if Y > anothercounter then warnlog "Too many steps, something is wrong."
- try
- hTypeKeys "<TAB>" '/// Step to the next object ///'
- catch
- errolog "Could not step to the next object"
- endcatch
-' Printlog "- Get position and dimensions of elements"
- ContextPositionAndSize '/// Open Position and Size for this object ///'
- sleep 1
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- CheckX=PositionX.GetText '/// Get Position X for this object ///'
- sleep 1
- TabPositionAndSize.OK
- Kontext "DocumentDraw"
- CounterForX=CounterForX+1 '/// Up one on the object-counter ///'
- if CheckX=FirstX then '/// Check if Position is the same as the first one ///'
- if anothercounter = CounterForX then printlog "The first box is at: " + CheckX + " And we're now at " + FirstX + " = Correct steps between the objects, everything's fine."
- printlog "We should have " + Y + " objects to go through." '/// Just here for debugging. - FHA
-' printlog "anothercounter= " + anothercounter '/// Just here for debugging. - FHA
- printlog "Number of objects: " + anothercounter
- printlog ""
- endif
- next Y '/// End or go on with the checking-loop ///'
-
- EditSelectAll '/// Select all ///'
- EditDelete '/// Delete all ///'
- sleep 1
- Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ sleep 1
gMouseClick 90,90
- Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// Create rectangle ///'
sleep 1
- EditSelectAll '/// Select all ///'
sleep 1
- EditCrossFading '/// Choose Edit / CrossFading ///'
- sleep 2
- kontext "Ueberblenden"
- next I
-
-'/// And now we're gonna check if we can separate the object into it's parts ///'
-'/// And check if the numbers of steps / objects is correct ///'
-
-Schritte.ToMin '/// Select minimum value for number of steps ///'
-for Z = 1 to X -1
-Schritte.More '/// Raise the value for number of steps with one ///'
-next Z
-printlog "Value has been restored to: " + Schritte.GetText
-printlog "X is now: " + X
- Attributierung.UnCheck
- Ueberblenden.OK
- sleep 1
- Kontext "DocumentDraw"
- EditSelectAll '/// Select all ///'
- EditDelete '/// Delete all ///'
- sleep 1
- Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
- gMouseClick 90,90
- Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// Create second rectangle ///'
- EditSelectAll '/// Select all ///'
- sleep 1
- EditCrossFading '/// Choose Edit / CrossFading ///'
- Kontext "Ueberblenden"
- if Attributierung.IsChecked = TRUE then qaerrorlog "Attributierung / was NOT unchecked."
- GleicheOrientierung.UnCheck '/// Uncheck "same orienation" ///' -????
- Ueberblenden.OK '/// Close CrossFading-window with "OK" ///'
- sleep 1
- Kontext "DocumentDraw"
- EditSelectAll '/// Select all ///'
- EditDelete '/// Delete all ///'
- sleep 1
- Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
- gMouseClick 90,90
- Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// create rectangle ///'
- EditSelectAll '/// Select all ///'
- sleep 1
- EditCrossFading '/// Choose Edit / CrossFading ///'
- Kontext "Ueberblenden"
- if GleicheOrientierung.IsChecked = TRUE then qaerrorlog "GleicheOrientierung / was NOT unchecked."
- Attributierung.Check '/// Check "Attributing" ///' - ???
- Ueberblenden.OK '/// Close CrossFading-window with "OK" ///'
- sleep 1
- Kontext "DocumentDraw"
- EditSelectAll '/// Select all ///'
- sleep 1
- EditDelete '/// Delete all ///'
- sleep 1
- Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
- gMouseClick 90,90
- Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// Create second rectangle ///'
- EditSelectAll '/// Select all ///'
- sleep 1
- EditCrossFading '/// Choose Edit / CrossFading ///'
- Kontext "Ueberblenden"
- if Attributierung.IsChecked = FALSE then qaerrorlog "Attributierung / was NOT checked again."
- GleicheOrientierung.UnCheck '/// Check "same orientation" ///' -????
- Ueberblenden.OK
- sleep 1
- Kontext "DocumentDraw"
- EditSelectAll '/// Select all ///'
- EditDelete '/// Delete all ///'
- sleep 1
- Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
- gMouseClick 90,90
- Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// create rectangle ///'
- EditSelectAll '/// Select all ///'
- sleep 1
- EditCrossFading '/// Choose Edit / CrossFading ///'
- Kontext "Ueberblenden"
- if GleicheOrientierung.IsChecked = TRUE then qaerrorlog "GleicheOrientierung / was NOT checked again."
- GleicheOrientierung.Check '/// Check "same orientation" ///' -????
- Ueberblenden.OK '/// Close CrossFading-window with "OK" ///'
- sleep 1
- Kontext "DocumentDraw"
- EditSelectAll '/// Select all ///'
- EditDelete '/// Delete all ///'
- Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
- gMouseClick 90,90
- Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// create rectangle ///'
- EditSelectAll '/// Select all ///'
- sleep 1
- EditCrossFading '/// Choose Edit / CrossFading ///'
- Kontext "Ueberblenden"
- if GleicheOrientierung.IsChecked = FALSE then qaerrorlog "GleicheOrientierung / was NOT checked again."
- GleicheOrientierung.Check '/// Check "same orientation" ///' -????
- Ueberblenden.OK '/// Close CrossFading-window with "OK" ///'
- sleep 1
-
- Kontext "DocumentDraw" '/// EditCrossFading should not be enabled if more than two objects is selected. ///'
- EditSelectAll '/// Select all ///'
- EditDelete '/// Delete all ///'
-
- sleep 1
- Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
- gMouseClick 90,90
- Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// Create second rectangle ///'
- gMouseClick 90,90
- Call hRechteckErstellen ( 20, 20, 50, 50 ) '/// Create third rectangle ///'
- sleep 1
- EditSelectAll '/// Select all ///'
- sleep 1
-try
- EditCrossFading '/// Choose Edit / CrossFading ///'
- sleep 2
- If active = "Ueberblenden" then
- qaerrorlog "CrossFading should NOT be selectable since more than two objects is selected."
- kontext "Ueberblenden"
- Ueberblenden.CANCEL '/// Close CrossFading-window with "CANCEL" ///'
- endif
- sleep 2
- Kontext "DocumentDraw"
-catch
- printlog "CrossFading could not be selected when more than two objects selected: Correct."
-endcatch
-
-try
- EditSelectAll '/// Select all ///'
- EditDelete '/// Delete all ///'
-catch
- warnlog "Could not select and delete all objects."
-endcatch
-
-printlog "End of test"
+ kontext "Ueberblenden"
+ X = Schritte.GetText ' /// Get counter-value and save it in X ///'
+ printlog "Steps before we start the test: " + X
+ printlog "Schritte.GetText= " + Schritte.GetText
+
+ Schritte.ToMin
+ if Schritte.GetText <> "1" then qaerrorlog "Could not change the step-number to 1."
+
+ for I = 2 to 10 ' /// How many steps do you want? ///'
+ Schritte.More 1
+ if Schritte.GetText <> I then qaerrorlog "Could not change the step-number to" + I
+ Ueberblenden.OK
+ sleep 1
+ try
+ catch
+ qaerrorlog "Could not ungroup objects"
+ endcatch
+ sleep 1
+
+ try
+ ContextPositionAndSize
+ catch
+ qaerrorlog "Couldnt call 'ContextPositionAndSize' - No object selected?"
+ endcatch
+ kontext
+ active.SetPage TabPositionAndSize
+ sleep 1
+ kontext "TabPositionAndSize"
+ if TabPositionAndSize.exists (5) then
+ CounterForX=0
+ CheckX=0
+ TabPositionAndSize.OK
+ else
+ qaerrorlog "Couldn't switch tab page :-( "
+ endif
+
+
+
+ if Y > anothercounter then warnlog "Too many steps, something is wrong."
+ try
+ catch
+ errolog "Could not step to the next object"
+ endcatch
+ ' Printlog "- Get position and dimensions of elements"
+ sleep 1
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ sleep 1
+ TabPositionAndSize.OK
+ Kontext "DocumentDraw"
+ if anothercounter = CounterForX then printlog "The first box is at: " + CheckX + " And we're now at " + FirstX + " = Correct steps between the objects, everything's fine."
+ printlog "Number of objects: " + anothercounter
+ printlog ""
+ endif
+
+ sleep 1
+ gMouseClick 90,90
+ sleep 1
+ sleep 1
+ sleep 2
+ kontext "Ueberblenden"
+ next I
+
+
+ for Z = 1 to X -1
+ next Z
+ printlog "Value has been restored to: " + Schritte.GetText
+ printlog "X is now: " + X
+ Attributierung.UnCheck
+ Ueberblenden.OK
+ sleep 1
+ Kontext "DocumentDraw"
+ sleep 1
+ gMouseClick 90,90
+ sleep 1
+ Kontext "Ueberblenden"
+ if Attributierung.IsChecked = TRUE then qaerrorlog "Attributierung / was NOT unchecked."
+ sleep 1
+ Kontext "DocumentDraw"
+ sleep 1
+ gMouseClick 90,90
+ sleep 1
+ Kontext "Ueberblenden"
+ if GleicheOrientierung.IsChecked = TRUE then qaerrorlog "GleicheOrientierung / was NOT unchecked."
+ sleep 1
+ Kontext "DocumentDraw"
+ sleep 1
+ sleep 1
+ gMouseClick 90,90
+ sleep 1
+ Kontext "Ueberblenden"
+ if Attributierung.IsChecked = FALSE then qaerrorlog "Attributierung / was NOT checked again."
+ Ueberblenden.OK
+ sleep 1
+ Kontext "DocumentDraw"
+ sleep 1
+ gMouseClick 90,90
+ sleep 1
+ Kontext "Ueberblenden"
+ if GleicheOrientierung.IsChecked = TRUE then qaerrorlog "GleicheOrientierung / was NOT checked again."
+ sleep 1
+ Kontext "DocumentDraw"
+ gMouseClick 90,90
+ sleep 1
+ Kontext "Ueberblenden"
+ if GleicheOrientierung.IsChecked = FALSE then qaerrorlog "GleicheOrientierung / was NOT checked again."
+ sleep 1
+
+
+ sleep 1
+ gMouseClick 90,90
+ gMouseClick 90,90
+ sleep 1
+ sleep 1
+ try
+ sleep 2
+ If active = "Ueberblenden" then
+ qaerrorlog "CrossFading should NOT be selectable since more than two objects is selected."
+ kontext "Ueberblenden"
+ endif
+ sleep 2
+ Kontext "DocumentDraw"
+ catch
+ printlog "CrossFading could not be selected when more than two objects selected: Correct."
+ endcatch
+
+ try
+ catch
+ warnlog "Could not select and delete all objects."
+ endcatch
+
+ printlog "End of test"
- Call hCloseDocument '/// Close document ///'
endcase
diff --git a/testautomation/graphics/optional/includes/global/g_customshapes.inc b/testautomation/graphics/optional/includes/global/g_customshapes.inc
index 11383ea62fb2..575b131e61d7 100755
--- a/testautomation/graphics/optional/includes/global/g_customshapes.inc
+++ b/testautomation/graphics/optional/includes/global/g_customshapes.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
@@ -41,812 +41,759 @@
'\********************************************************************
testcase tCustomshapes
- dim counter as Integer
- dim MakeInto3Dcounter as Integer
+ dim counter as Integer
+ dim MakeInto3Dcounter as Integer
- '/// Create new document ///'
- Call hNewDocument
- if gApplication = "DRAW" then
+ Call hNewDocument
+ if gApplication = "DRAW" then
Kontext "Documentdraw"
- else '(Impress)
+ else '(Impress)
Kontext "DocumentImpress"
- endif
- kontext "Toolbar"
- sleep 1
- printlog "insert a Smiley."
- '/// From the toolbar: Insert three objects: ///'
- '/// insert a Smiley. ///'
- kontext "Toolbar"
- if Toolbar.Exists then
+ endif
+ kontext "Toolbar"
+ sleep 1
+ printlog "insert a Smiley."
+ kontext "Toolbar"
+ if Toolbar.Exists then
if Toolbar.IsVisible then
- sleep 1
- try
- SymbolShapes.TearOff
- catch
- warnlog "bug for GH from FHA; .tearoff doesnt tell success"
- endcatch
- sleep 1
- kontext "SymbolShapes"
- SymbolShapesSmiley.Click
- sleep 1
-
- gMouseDown (40,40)
- gMouseMove (40,40,60,60)
- gMouseUp (60,60)
-
- sleep 1
- kontext "SymbolShapes"
- SymbolShapes.Close
-
- '/// Unmark all objects ///'
- hTypeKeys "<ESCAPE>"
-
- '/// Mark the Smiley ///'
- hTypeKeys "<TAB>"
-
- printlog "Rename the object to 'First'."
- '/// Rename the object to 'First' ///"
- hOpenContextMenu
- sleep 2
- 'Choose rename.
- if hMenuFindSelect(27027, true, 15) = false then
- Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- endif
- kontext "NameDlgObject"
- NameField.SetText "First"
- NameDlgObject.OK
-
- printlog "Set the object -Title/Description to 'SecondTitle' and 'SecondText'"
- '/// Open the Context-menu and set the description of the object to 'First' ///"
- hOpenContextMenu
- sleep (2)
- 'Choose "Description"
- if hMenuFindSelect(27033, true, 14) = false then
- Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- endif
- kontext "DescriptionObject"
- DescriptionTitle.SetText "FirstTitle"
- DescriptionText.SetText "FirstText"
- DescriptionObject.Ok
+ sleep 1
+ try
+ SymbolShapes.TearOff
+ catch
+ warnlog "bug for GH from FHA; .tearoff doesnt tell success"
+ endcatch
+ sleep 1
+ kontext "SymbolShapes"
+ SymbolShapesSmiley.Click
+ sleep 1
+
+ gMouseDown (40,40)
+ gMouseMove (40,40,60,60)
+ gMouseUp (60,60)
+
+ sleep 1
+ kontext "SymbolShapes"
+ SymbolShapes.Close
+
+ hTypeKeys "<ESCAPE>"
+
+ hTypeKeys "<TAB>"
+
+ printlog "Rename the object to 'First'."
+ hOpenContextMenu
+ sleep 2
+ 'Choose rename.
+ if hMenuFindSelect(27027, true, 15) = false then
+ Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ endif
+ kontext "NameDlgObject"
+ NameField.SetText "First"
+ NameDlgObject.OK
+
+ printlog "Set the object -Title/Description to 'SecondTitle' and 'SecondText'"
+ hOpenContextMenu
+ sleep (2)
+ 'Choose "Description"
+ if hMenuFindSelect(27033, true, 14) = false then
+ Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ endif
+ kontext "DescriptionObject"
+ DescriptionTitle.SetText "FirstTitle"
+ DescriptionText.SetText "FirstText"
+ DescriptionObject.Ok
else
- warnlog "the Toolbar wasnt visible."
+ warnlog "the Toolbar wasnt visible."
endif
- else
+ else
warnlog "the Toolbar didnt exist."
- endif
- gMouseClick 90, 90
+ endif
+ gMouseClick 90, 90
- printlog "Insert a Triangle."
- '/// Insert a Triangle ///'
- kontext "Toolbar"
- if Toolbar.Exists then
+ printlog "Insert a Triangle."
+ kontext "Toolbar"
+ if Toolbar.Exists then
if Toolbar.IsVisible then
- try
- BasicShapes.TearOff
- catch
- warnlog "bug for GH from FHA; .tearoff doesnt tell success"
- endcatch
- kontext "BasicShapes"
- sleep 1
- IsoscelesTriangle.click
- sleep 1
-
- gMouseDown (45,33)
- gMouseMove (45,33,55,42)
- gMouseUp (55,42)
- sleep 1
- kontext "BasicShapes"
- BasicShapes.Close
- sleep 1
-
- '/// Unmark all objects ///'
- hTypeKeys "<ESCAPE>"
- '/// Mark the Triangle ///'
- hTypeKeys "<TAB>", 2
-
- printlog "Rename the object into 'Second'."
- '/// Rename the object into 'Second'. ///'
- hOpenContextMenu
- sleep 2
- 'Choose rename.
- if hMenuFindSelect(27027, true, 15) = false then
- Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- endif
-
- sleep 1
- kontext "NameDlgObject"
- NameField.SetText "Second"
- NameDlgObject.OK
-
- printlog "Set the object -Title/Description to 'SecondTitle' and 'SecondText'."
- '/// Open the Context-menu and set the description of the object to 'SecondTitle' and 'SecondText' ///"
- hOpenContextMenu
- sleep (2)
- 'Choose "Description"
- if hMenuFindSelect(27033, true, 14) = false then
- Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- endif
- kontext "DescriptionObject"
- DescriptionTitle.SetText "SecondTitle"
- DescriptionText.SetText "SecondText"
- DescriptionObject.Ok
- else
- warnlog "the Toolbar wasnt visible."
+ try
+ BasicShapes.TearOff
+ catch
+ warnlog "bug for GH from FHA; .tearoff doesnt tell success"
+ endcatch
+ kontext "BasicShapes"
+ sleep 1
+ IsoscelesTriangle.click
+ sleep 1
+
+ gMouseDown (45,33)
+ gMouseMove (45,33,55,42)
+ gMouseUp (55,42)
+ sleep 1
+ kontext "BasicShapes"
+ BasicShapes.Close
+ sleep 1
+
+ hTypeKeys "<ESCAPE>"
+ hTypeKeys "<TAB>", 2
+
+ printlog "Rename the object into 'Second'."
+ hOpenContextMenu
+ sleep 2
+ 'Choose rename.
+ if hMenuFindSelect(27027, true, 15) = false then
+ Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ endif
+
+ sleep 1
+ kontext "NameDlgObject"
+ NameField.SetText "Second"
+ NameDlgObject.OK
+
+ printlog "Set the object -Title/Description to 'SecondTitle' and 'SecondText'."
+ hOpenContextMenu
+ sleep (2)
+ 'Choose "Description"
+ if hMenuFindSelect(27033, true, 14) = false then
+ Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ endif
+ kontext "DescriptionObject"
+ DescriptionTitle.SetText "SecondTitle"
+ DescriptionText.SetText "SecondText"
+ DescriptionObject.Ok
+ else
+ warnlog "the Toolbar wasnt visible."
endif
- else
+ else
warnlog "the Toolbar didnt exist."
- endif
- gMouseClick 90, 90
+ endif
+ gMouseClick 90, 90
- printlog "Insert Thinking-cloud."
- '/// Insert Thinking-cloud. ///'
- kontext "Toolbar"
- if Toolbar.Exists then
+ printlog "Insert Thinking-cloud."
+ kontext "Toolbar"
+ if Toolbar.Exists then
if Toolbar.IsVisible then
- sleep 1
- try
- CalloutShapes.TearOff ' insert Thinking-cloud
- catch
- warnlog "bug for GH from FHA; .tearoff doesnt tell success"
- endcatch
- kontext "Callouts"
- sleep 1
- Cloud.click
- sleep 1
-
- gMouseDown (1,1)
- gMouseMove (1,1,35,30)
- gMouseUp (35,30)
- sleep 1
-
- kontext "Callouts"
- Callouts.Close
- sleep 1
-
- '/// Unmark all objects ///'
- hTypeKeys "<ESCAPE>"
- '/// Mark the cloud ///'
- hTypeKeys "<TAB>", 3
-
- printlog "Rename the object to 'Third'."
- '/// Rename the object to 'Third'. ///'
- hOpenContextMenu
- sleep 2
- 'Choose rename.
- if hMenuFindSelect(27027, true, 15) = false then
- Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- endif
- Kontext "NameDlgObject"
- NameField.SetText "Third"
- NameDlgObject.OK
-
- printlog "Set the object -Title/Description to 'ThirdTitle' and 'ThirdText'."
- '/// Open the Context-menu and set the description of the object to 'First' ///"
- hOpenContextMenu
- sleep (2)
- 'Choose "Description"
- if hMenuFindSelect(27033, true, 14) = false then
- Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- endif
- kontext "DescriptionObject"
- DescriptionTitle.SetText "ThirdTitle"
- DescriptionText.SetText "ThirdText"
- DescriptionObject.Ok
- else
- warnlog "the Toolbar wasnt visible."
+ sleep 1
+ try
+ CalloutShapes.TearOff ' insert Thinking-cloud
+ catch
+ warnlog "bug for GH from FHA; .tearoff doesnt tell success"
+ endcatch
+ kontext "Callouts"
+ sleep 1
+ Cloud.click
+ sleep 1
+
+ gMouseDown (1,1)
+ gMouseMove (1,1,35,30)
+ gMouseUp (35,30)
+ sleep 1
+
+ kontext "Callouts"
+ Callouts.Close
+ sleep 1
+
+ hTypeKeys "<ESCAPE>"
+ hTypeKeys "<TAB>", 3
+
+ printlog "Rename the object to 'Third'."
+ hOpenContextMenu
+ sleep 2
+ 'Choose rename.
+ if hMenuFindSelect(27027, true, 15) = false then
+ Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ endif
+ Kontext "NameDlgObject"
+ NameField.SetText "Third"
+ NameDlgObject.OK
+
+ printlog "Set the object -Title/Description to 'ThirdTitle' and 'ThirdText'."
+ hOpenContextMenu
+ sleep (2)
+ 'Choose "Description"
+ if hMenuFindSelect(27033, true, 14) = false then
+ Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ endif
+ kontext "DescriptionObject"
+ DescriptionTitle.SetText "ThirdTitle"
+ DescriptionText.SetText "ThirdText"
+ DescriptionObject.Ok
+ else
+ warnlog "the Toolbar wasnt visible."
endif
- else
+ else
warnlog "the Toolbar didnt exist."
- endif
- gMouseClick 90, 90
+ endif
+ gMouseClick 90, 90
- printlog "Change all objects into 3D."
- '/// Change all objects into 3D. ///'
- if gApplication = "DRAW" then
+ printlog "Change all objects into 3D."
+ if gApplication = "DRAW" then
Kontext "Documentdraw"
- else '(Impress)
+ else '(Impress)
Kontext "DocumentImpress"
- endif
- For MakeInto3Dcounter = 1 to 3
- hTypeKeys "<TAB>", MakeInto3Dcounter
- kontext "Toolbar"
- if Toolbar.Exists then
- if Toolbar.IsVisible then
- if ExtrusionOnOff.Exists then
- ExtrusionOnOff.Click
- sleep (3)
- else
- sleep (1)
- Toolbar.OpenContextMenu ' enable forms button in menuebar
- sleep (1)
- hMenuselectNr (1)
- sleep (1)
- if hMenuFindSelect(1024, true, 25) = false then
- Warnlog "Context-Menu-entry `Extrusion On/Off` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- endif
- sleep (1)
- kontext "Toolbar"
- ExtrusionOnOff.Click
- sleep (3)
- endif
- Kontext "ExtrusionObjectBar"
- if ExtrusionObjectBar.Exists then
- if ExtrusionObjectBar.IsVisible then
- printlog " Objects got converted into Extrusion-objects, correct."
- else
- warnlog " No Extrusion-toolbar visible. Eventually a problem making objects into Extrusion-Objects."
- endif
- endif
- endif
- else
- warnlog " the 'Toolbar' -Toolbar didnt exist."
- endif
- sleep (1)
- hTypeKeys "<ESCAPE>"
- Next MakeInto3Dcounter
-
- printlog "See if the objects still are Custom Shapes."
- '/// See if the objects still are Custom Shapes ///'
- '/// We do so by moving the lower part of the the thinking-cloud. ///'
- gMouseClick 90, 1
- hTypeKeys "<TAB><TAB><TAB>"
-
- hTypeKeys "<MOD1 TAB>" ,9
- if gApplication = "IMPRESS" then
+ endif
+ For MakeInto3Dcounter = 1 to 3
+ hTypeKeys "<TAB>", MakeInto3Dcounter
+ kontext "Toolbar"
+ if Toolbar.Exists then
+ if Toolbar.IsVisible then
+ if ExtrusionOnOff.Exists then
+ ExtrusionOnOff.Click
+ sleep (3)
+ else
+ sleep (1)
+ Toolbar.OpenContextMenu ' enable forms button in menuebar
+ sleep (1)
+ hMenuselectNr (1)
+ sleep (1)
+ if hMenuFindSelect(1024, true, 25) = false then
+ Warnlog "Context-Menu-entry `Extrusion On/Off` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ endif
+ sleep (1)
+ kontext "Toolbar"
+ ExtrusionOnOff.Click
+ sleep (3)
+ endif
+ Kontext "ExtrusionObjectBar"
+ if ExtrusionObjectBar.Exists then
+ if ExtrusionObjectBar.IsVisible then
+ printlog " Objects got converted into Extrusion-objects, correct."
+ else
+ warnlog " No Extrusion-toolbar visible. Eventually a problem making objects into Extrusion-Objects."
+ endif
+ endif
+ endif
+ else
+ warnlog " the 'Toolbar' -Toolbar didnt exist."
+ endif
+ sleep (1)
+ hTypeKeys "<ESCAPE>"
+ Next MakeInto3Dcounter
+
+ printlog "See if the objects still are Custom Shapes."
+ gMouseClick 90, 1
+ hTypeKeys "<TAB><TAB><TAB>"
+
+ hTypeKeys "<MOD1 TAB>" ,9
+ if gApplication = "IMPRESS" then
hTypeKeys "<RIGHT>" ,86
hTypeKeys "<UP>", 48
- else
+ else
hTypeKeys "<RIGHT>" ,131
hTypeKeys "<UP>" ,53
- endif
- sleep 1
-
- gMouseClick 90, 1
- hTypeKeys "<TAB>"
-
- printlog "Check the name of the selected object (should be 'First')"
- '/// Check the name of the selected object (should be 'First') ///'
- hOpenContextMenu
- sleep 2
- 'Choose rename.
- if hMenuFindSelect(27027, true, 15) = false then
+ endif
+ sleep 1
+
+ gMouseClick 90, 1
+ hTypeKeys "<TAB>"
+
+ printlog "Check the name of the selected object (should be 'First')"
+ hOpenContextMenu
+ sleep 2
+ 'Choose rename.
+ if hMenuFindSelect(27027, true, 15) = false then
Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
Call hCloseDocument
Goto Endsub
- endif
+ endif
- sleep 1
- kontext "NameDlgObject"
- if NameField.GetText <> "First" then
+ sleep 1
+ kontext "NameDlgObject"
+ if NameField.GetText <> "First" then
warnlog " Wrong object. Should have been the first, but was the " + NameField.GetText
- else
+ else
Printlog " The first object still had the correct name, good."
- endif
- NameDlgObject.OK
-
- printlog "Open the Context-menu and check if the description of the object is right"
- '/// Open the Context-menu and check if the description of the object is right ///"
- hOpenContextMenu
- sleep (2)
- 'Choose "Description"
- if hMenuFindSelect(27033, true, 14) = false then
+ endif
+ NameDlgObject.OK
+
+ printlog "Open the Context-menu and check if the description of the object is right"
+ hOpenContextMenu
+ sleep (2)
+ 'Choose "Description"
+ if hMenuFindSelect(27033, true, 14) = false then
Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
Call hCloseDocument
Goto Endsub
- endif
- kontext "DescriptionObject"
- if DescriptionTitle.GetText <> "FirstTitle" then
- Warnlog " The description-title for the first object were not 'FirstTitle', but: " + DescriptionTitle.GetText
- endif
- if DescriptionText.GetText <> "FirstText" then
- Warnlog " The description-text for the first object were not 'FirstText', but: " + DescriptionText.GetText
- endif
- DescriptionObject.Ok
-
- Kontext "ExtrusionObjectBar"
- if ExtrusionObjectBar.Exists then
+ endif
+ kontext "DescriptionObject"
+ if DescriptionTitle.GetText <> "FirstTitle" then
+ Warnlog " The description-title for the first object were not 'FirstTitle', but: " + DescriptionTitle.GetText
+ endif
+ if DescriptionText.GetText <> "FirstText" then
+ Warnlog " The description-text for the first object were not 'FirstText', but: " + DescriptionText.GetText
+ endif
+ DescriptionObject.Ok
+
+ Kontext "ExtrusionObjectBar"
+ if ExtrusionObjectBar.Exists then
if ExtrusionObjectBar.IsVisible then
- printlog " The first object got converted into a 3D-object (Extrusion-Object), correct."
+ printlog " The first object got converted into a 3D-object (Extrusion-Object), correct."
else
- warnlog " No Extrusion-Object-toolbar visible. Eventually a problem making the object into 3D."
+ warnlog " No Extrusion-Object-toolbar visible. Eventually a problem making the object into 3D."
endif
- endif
-
- gMouseClick 90, 1
- hTypeKeys "<TAB><TAB>"
- '/// Check the name of the selected object (should be 'Second') ///'
- hOpenContextMenu
- sleep 2
- 'Choose rename.
- if hMenuFindSelect(27027, true, 15) = false then
+ endif
+
+ gMouseClick 90, 1
+ hTypeKeys "<TAB><TAB>"
+ hOpenContextMenu
+ sleep 2
+ 'Choose rename.
+ if hMenuFindSelect(27027, true, 15) = false then
Warnlog " Context-Menu-entry `Rename` was not found. Therefore the test ends."
Call hCloseDocument
Goto Endsub
- endif
+ endif
- sleep 1
- kontext "NameDlgObject"
- if NameField.GetText <> "Second" then
+ sleep 1
+ kontext "NameDlgObject"
+ if NameField.GetText <> "Second" then
warnlog " Wrong object. Should have been the second, but was the " + NameField.GetText
- else
+ else
Printlog " The second object still had the correct name, good."
- endif
- NameDlgObject.OK
-
- printlog "Open the Context-menu and check if the description of the object is right"
- '/// Open the Context-menu and check if the description of the object is right ///"
- hOpenContextMenu
- sleep (2)
- 'Choose "Description"
- if hMenuFindSelect(27033, true, 14) = false then
+ endif
+ NameDlgObject.OK
+
+ printlog "Open the Context-menu and check if the description of the object is right"
+ hOpenContextMenu
+ sleep (2)
+ 'Choose "Description"
+ if hMenuFindSelect(27033, true, 14) = false then
Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
Call hCloseDocument
Goto Endsub
- endif
- kontext "DescriptionObject"
- if DescriptionTitle.GetText <> "SecondTitle" then
+ endif
+ kontext "DescriptionObject"
+ if DescriptionTitle.GetText <> "SecondTitle" then
Warnlog " The description-title for the second object were not 'SecondTitle', but: " + DescriptionTitle.GetText
- else
+ else
printlog " The description-title for the second object were correct"
- endif
- if DescriptionText.GetText <> "SecondText" then
+ endif
+ if DescriptionText.GetText <> "SecondText" then
Warnlog " The description-text for the second object were not 'SecondText', but: " + DescriptionText.GetText
- else
+ else
printlog " The description-text for the second object were correct"
- endif
- DescriptionObject.Ok
+ endif
+ DescriptionObject.Ok
- Kontext "ExtrusionObjectBar"
- if ExtrusionObjectBar.Exists then
+ Kontext "ExtrusionObjectBar"
+ if ExtrusionObjectBar.Exists then
if ExtrusionObjectBar.IsVisible then
- printlog " The first second got converted into 3D-object (Extrusion-Object), correct."
+ printlog " The first second got converted into 3D-object (Extrusion-Object), correct."
else
- warnlog " No Extrusion-Object-toolbar visible. Eventually a problem making the object into 3D."
+ warnlog " No Extrusion-Object-toolbar visible. Eventually a problem making the object into 3D."
endif
- endif
-
- gMouseClick 90, 1
- hTypeKeys "<TAB><TAB><TAB>"
- '/// Check the name of the selected object (should be "Third") ///'
- hOpenContextMenu
- sleep 2
- 'Choose rename.
- if hMenuFindSelect(27027, true, 15) = false then
+ endif
+
+ gMouseClick 90, 1
+ hTypeKeys "<TAB><TAB><TAB>"
+ hOpenContextMenu
+ sleep 2
+ 'Choose rename.
+ if hMenuFindSelect(27027, true, 15) = false then
Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
Call hCloseDocument
Goto Endsub
- endif
+ endif
- sleep 1
- kontext "NameDlgObject"
- if NameField.GetText <> "Third" then
+ sleep 1
+ kontext "NameDlgObject"
+ if NameField.GetText <> "Third" then
warnlog " Wrong object. Should have been the third, but was the " + NameField.GetText
- else
+ else
Printlog " The third object still had the correct name, good."
- endif
- NameDlgObject.OK
-
- printlog "Open the Context-menu and check if the description of the object is right"
- '/// Open the Context-menu and check if the description of the object is right ///"
- hOpenContextMenu
- sleep (2)
- 'Choose "Description"
- if hMenuFindSelect(27033, true, 14) = false then
+ endif
+ NameDlgObject.OK
+
+ printlog "Open the Context-menu and check if the description of the object is right"
+ hOpenContextMenu
+ sleep (2)
+ 'Choose "Description"
+ if hMenuFindSelect(27033, true, 14) = false then
Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends."
Call hCloseDocument
Goto Endsub
- endif
- kontext "DescriptionObject"
- if DescriptionTitle.GetText <> "ThirdTitle" then
+ endif
+ kontext "DescriptionObject"
+ if DescriptionTitle.GetText <> "ThirdTitle" then
Warnlog " The description-title for object three were not 'ThirdTitle', but: " + DescriptionTitle.GetText
- else
+ else
printlog " The description-title for the second object were correct."
- endif
- if DescriptionText.GetText <> "ThirdText" then
+ endif
+ if DescriptionText.GetText <> "ThirdText" then
Warnlog " The description-text for object three were not 'ThirdText', but: " + DescriptionText.GetText
- else
+ else
printlog " The description-text for object three were correct."
- endif
- DescriptionObject.Ok
+ endif
+ DescriptionObject.Ok
- Kontext "ExtrusionObjectBar"
- if ExtrusionObjectBar.Exists then
+ Kontext "ExtrusionObjectBar"
+ if ExtrusionObjectBar.Exists then
if ExtrusionObjectBar.IsVisible then
- printlog " The third object got converted into 3D-object (Extrusion-Object), correct."
+ printlog " The third object got converted into 3D-object (Extrusion-Object), correct."
else
- warnlog " No Extrusion-Object-toolbar visible. Eventually a problem making the object into 3D."
+ warnlog " No Extrusion-Object-toolbar visible. Eventually a problem making the object into 3D."
endif
- endif
+ endif
- printlog "End of test. Close the document."
- Call hCloseDocument '/// Close Document ///'
+ printlog "End of test. Close the document."
endcase
'************************************************************************
testcase tFormatPaintbrush
- dim counter, ZaehlerVerlauf, j as Integer
- '/// Hatching ///'
- dim HatchingDistance as string
- dim HatchingAngle as string
- dim HatchingLineType as string
- dim HatchingLineColor as string
-
- dim position_value as string
- dim show_value as boolean
- dim distance_value as string
- dim color_value as string
- dim transparency_value as string
-
- dim NoTransparency_value as boolean
- dim linearTransparency_value as boolean
- dim MFLintransparency_value as string
- dim Transparencyverlauf_value as boolean
- dim TransparencyType_value as string
- dim MFCenterX_value as string
- dim MFCenterY_value as string
- dim MFAngle_value as string
- dim MFRand_value as string
- dim MFStart_value as string
- dim MFEnd_value as string
-
- dim colorname_value as string
- dim color2_value as string
- dim colormodel_value as integer
- dim R_value as string
- dim G_value as string
- dim B_value as string
- dim C_value as string
- dim M_value as string
- dim Y_value as string
- dim K_value as string
-
- dim type_value as string
- dim centerx_value as string
- dim centery_value as string
- dim angle_value as string
- dim rand_value as string
- dim from_value as string
- dim fromvalue_value as string
- dim to_value as string
- dim tovalue_value as string
- dim to_wert_value as string
-
- dim front_value as string
- dim background_value as string
-
- '/// Create new document ///'
- Call hNewDocument
- '/// Create a new rectangle ///'
- hRechteckErstellen ( 10, 10, 30, 30 )
- FormatArea
- '/// Switch to Tabpage "Area" ///'
- Kontext
- Active.SetPage TabArea
- Kontext "TabArea"
- sleep 1
- FillOptions.Select 4 '/// Select hatching, control after closing and reopening dialog if changes are recognized ///'
- '/// Switch to Tabpage "Hatching" ///'
- Kontext
- Active.setpage TabSchraffuren
- Kontext "TabSchraffuren"
-
- '/// Get the values for the Rectangle ///'
- HatchingDistance = Abstand.GetText
- HatchingAngle = Winkel.GetText
- 'Definition
- HatchingLineType = Linientyp.GetSelText
- HatchingLineColor = Linienfarbe.GetSelText
-
- 'TabSchraffuren.OK
- sleep 1
-
-' FormatArea
- '/// Switch to Tabpage "Shaddow" ///'
- Kontext
- Active.setpage TabSchatten
- Kontext "TabSchatten"
-
- show_value = Anzeigen.isChecked 'Boolean
- if Anzeigen.isChecked then
- position_value = Position.GetSelText
- distance_value = Entfernung.GetSelText
- color_value = Farbe.GetSelText
- transparency_value = Transparenz.GetSelText
- endif
- sleep 1
-
- '/// Switch to Tabpage "Transparency" ///'
- Kontext
- Active.SetPage TabTransparenz
- Kontext "TabTransparenz"
-
- NoTransparency_value = KeineTransparenz.isChecked
- linearTransparency_value = LineareTransparenz.isChecked
- MFLinTransparency_value = MFLinTransparenz.GetText
- Transparencyverlauf_value = Transparenzverlauf.isChecked
- TransparencyType_value = TransparenzverlaufTyp.GetSelText
- MFCenterX_value = MFZentrumX.GetText
- MFCenterY_value = MFZentrumY.GetText
- MFAngle_value = MFWinkel.GetText
- MFRand_value = MFRand.GetText
- MFStart_value = MFStartwert.GetText
- MFEnd_value = MFEndwert.GetText
-
- sleep 1
- '/// Switch to Tabpage "Color" ///'
- Kontext
- Active.setpage TabFarben
- Kontext "TabFarben"
-
- colorname_value = FarbName.GetText
- color_value = Farbe.GetSelText
- colormodel_value = Farbmodell.GetSelIndex
- if colormodel_value = 1 then
- R_value = R.GetText
- G_value = G.GetText
- B_value = B.GetText
- else 'farbmodell_value = 2
- C_value = C.GetText
- M_value = M.GetText
- Y_value = Y.GetText
- K_value = K.GetText
- endif
- sleep 1
-
- '/// Switch to Tabpage "Gradient" ///'
- Kontext
- Active.setpage TabFarbverlaeufe
- Kontext "TabFarbverlaeufe"
-
- type_value = Typ.GetSelText
- Centerx_value = ZentrumX.GetText
- Centery_value = ZentrumY.GetText
- angle_value = Winkel.GetText
- rand_value = Rand.GetText
- from_value = Von.GetSelText
- fromvalue_value = VonWert.GetText
- to_value = Bis.GetSelText
- tovalue_value = BisWert.GetText
- sleep 1
-
- '/// Switch to Tabpage "Bitmap" ///'
- Kontext
- Active.setpage TabBitmap
- Kontext "TabBitmap"
-
- front_value = Vordergrund.GetSelText
- background_value = Hintergrund.GetSelText
- sleep 1
- '/// Close the FormatArea-dialogue with "OK" ///'
- TabBitmap.OK
- sleep 2
-
- '/// Create a second rectangle, and use the "Paintbrush-icon" to copy the settings for the first rectangle onto the new one ///'
- hRechteckErstellen ( 70, 70, 90, 90 )
- if gApplication = "DRAW" then
- kontext "Documentdraw"
- Documentdraw.Mousedown 20, 20
- Documentdraw.Mouseup 20, 20
- sleep 1
- kontext "Standardbar"
- FormatPaintbrush.Click
- kontext "Documentdraw"
- sleep 1
- Documentdraw.Mousedown 80, 80
- Documentdraw.Mouseup 80, 80
- sleep 1
- else '(Impress)
- Kontext "DocumentImpress"
- DocumentImpress.Mousedown 20, 20
- DocumentImpress.Mouseup 20, 20
- sleep 1
- kontext "Standardbar"
- FormatPaintbrush.Click
- kontext "DocumentImpress"
- sleep 1
- DocumentImpress.Mousedown 80, 80
- DocumentImpress.Mouseup 80, 80
- sleep 1
- endif
-
- '/// Check if the Formatting is like the first one. ///'
- FormatArea
- '/// Switch to Tabpage "Area" ///'
- Kontext
- Active.SetPage TabArea
- Kontext "TabArea"
-' if FillOptions.GetSelIndex <> 4 then '/// The selected value should be 'no fill' ///'
-' warnlog "The FillOptions-value was not transferred correctly."
-' else
-' printlog "The FillOptions-value was transferred correctly."
-' endif
-
- sleep 1 '/// control if changes are still there after closing and reopening dialog ///'
- FillOptions.Select 4 '/// Select hatching, control after closing and reopening dialog if changes are recognized ///'
- '/// Switch to Tabpage "Hatching" ///'
- kontext
- Active.setpage TabSchraffuren
- kontext "TabSchraffuren"
-
- if HatchingDistance <> Abstand.GetText then
- warnlog "Hatching:Distance changed. Should be: " + HatchingDistance + ". Was: " + Abstand.GetText
- endif
- if HatchingAngle <> Winkel.GetText then
- warnlog "Hatching:Angle changed. Should be: " + HatchingAngle + ". Was: " + Winkel.GetText
- endif
- 'Definition
- if HatchingLineType <> Linientyp.GetSelText then
- warnlog "Hatching:LineType changed. Should be: " + HatchingLineType + ". Was: " + Linientyp.GetSelText
- endif
- if HatchingLineColor <> Linienfarbe.GetSelText then
- warnlog "Hatching:LineColor changed. Should be: " + HatchingLineColor + ". Was: " + Linienfarbe.GetSelText
- endif
- sleep 1
-
- '/// Switch to Tabpage "Shaddow" ///'
- Kontext
- Active.setpage TabSchatten
- Kontext "TabSchatten"
-
- if Show_value = true then
- if Anzeigen.isChecked <> true then
- warnlog "Shaddow:Show had changed! Should have been true, but was " + Anzeigen.isChecked
- else
- if position_value <> Position.GetSelText then
- warnlog "Shaddow:position:value changed. Should be: " + position_value + ". Was: " + Position.GetSelText
- endif
- if distance_value <> Entfernung.GetSelText then
- warnlog "Shaddow:distance:value changed. Should be: " + distance_value + ". Was: " + Entfernung.GetSelText
- endif
- if color_value <> Farbe.GetSelText then
- warnlog "Shaddow:Color:value changed. Should be: " + color_value + ". Was: " + Farbe.GetSelText
- endif
- if transparency_value <> Transparenz.GetSelText then
- warnlog "Shaddow:transparency:value changed. Should be: " + transparency_value + ". Was: " + Transparenz.GetSelText
- endif
- endif
- endif
- sleep 1
-
- '/// Switch to Tabpage "Transparency" ///'
- Kontext
- Active.SetPage TabTransparenz
- Kontext "TabTransparenz"
- if NoTransparency_value <> KeineTransparenz.isChecked then
- warnlog "Transparency:NoTransparency -value changed. Should be: " + NoTransparency_value + ". Was: " + KeineTransparenz.isChecked
- endif
- if linearTransparency_value <> LineareTransparenz.isChecked then
- warnlog "Transparency:lineareTransparency -value changed. Should be: " + linearTransparency_value + ". Was: " + LineareTransparenz.isChecked
- endif
- if MFLinTransparency_value <> MFLinTransparenz.GetText then
- warnlog "Transparency:MFLinTransparency -value changed. Should be: " + MFLinTransparency_value + ". Was: " + MFLinTransparenz.GetText
- endif
- if Transparencyverlauf_value <> Transparenzverlauf.isChecked then
- warnlog "Transparency:Transparencyverlauf -value changed. Should be: " + Transparencyverlauf_value + ". Was: " + Transparenzverlauf.isChecked
- endif
- if TransparencyType_value <> TransparenzverlaufTyp.GetSelText then
- warnlog "Transparency:TransparencyType -value changed. Should be: " + TransparencyType_value + ". Was: " + TransparenzverlaufTyp.GetSelText
- endif
- if MFCenterX_value <> MFZentrumX.GetText then
- warnlog "Transparency:MFCenterX -value changed. Should be: " + MFCenterX_value + ". Was: " + MFZentrumX.GetText
- endif
- if MFCenterY_value <> MFZentrumY.GetText then
- warnlog "Transparency:MFCenterY -value changed. Should be: " + MFCenterY_value + ". Was: " + MFZentrumY.GetText
- endif
- if MFAngle_value <> MFWinkel.GetText then
- warnlog "Transparency:MFAngle -value changed. Should be: " + MFAngle_value + ". Was: " + MFWinkel.GetText
- endif
- if MFRand_value <> MFRand.GetText then
- warnlog "Transparency:MFRand -value changed. Should be: " + MFRand_value + ". Was: " + MFRand.GetText
- endif
- if MFStart_value <> MFStartwert.GetText then
- warnlog "Transparency:MFStart -value changed. Should be: " + MFStart_value + ". Was: " + MFStartwert.GetText
- endif
- if MFEnd_value <> MFEndwert.GetText then
- warnlog "Transparency:MFEnd -value changed. Should be: " + MFEnd_value + ". Was: " + MFEndwert.GetText
+ dim counter, ZaehlerVerlauf, j as Integer
+ dim HatchingDistance as string
+ dim HatchingAngle as string
+ dim HatchingLineType as string
+ dim HatchingLineColor as string
+
+ dim position_value as string
+ dim show_value as boolean
+ dim distance_value as string
+ dim color_value as string
+ dim transparency_value as string
+
+ dim NoTransparency_value as boolean
+ dim linearTransparency_value as boolean
+ dim MFLintransparency_value as string
+ dim Transparencyverlauf_value as boolean
+ dim TransparencyType_value as string
+ dim MFCenterX_value as string
+ dim MFCenterY_value as string
+ dim MFAngle_value as string
+ dim MFRand_value as string
+ dim MFStart_value as string
+ dim MFEnd_value as string
+
+ dim colorname_value as string
+ dim color2_value as string
+ dim colormodel_value as integer
+ dim R_value as string
+ dim G_value as string
+ dim B_value as string
+ dim C_value as string
+ dim M_value as string
+ dim Y_value as string
+ dim K_value as string
+
+ dim type_value as string
+ dim centerx_value as string
+ dim centery_value as string
+ dim angle_value as string
+ dim rand_value as string
+ dim from_value as string
+ dim fromvalue_value as string
+ dim to_value as string
+ dim tovalue_value as string
+ dim to_wert_value as string
+
+ dim front_value as string
+ dim background_value as string
+
+ Call hNewDocument
+ hRechteckErstellen ( 10, 10, 30, 30 )
+ FormatArea
+ Kontext
+ Active.SetPage TabArea
+ Kontext "TabArea"
+ sleep 1
+ Kontext
+ Active.setpage TabSchraffuren
+ Kontext "TabSchraffuren"
+
+ HatchingDistance = Abstand.GetText
+ HatchingAngle = Winkel.GetText
+ 'Definition
+ HatchingLineType = Linientyp.GetSelText
+ HatchingLineColor = Linienfarbe.GetSelText
+
+ 'TabSchraffuren.OK
+ sleep 1
+
+ ' FormatArea
+ Kontext
+ Active.setpage TabSchatten
+ Kontext "TabSchatten"
+
+ show_value = Anzeigen.isChecked 'Boolean
+ if Anzeigen.isChecked then
+ position_value = Position.GetSelText
+ distance_value = Entfernung.GetSelText
+ color_value = Farbe.GetSelText
+ transparency_value = Transparenz.GetSelText
+ endif
+ sleep 1
+
+ Kontext
+ Active.SetPage TabTransparenz
+ Kontext "TabTransparenz"
+
+ NoTransparency_value = KeineTransparenz.isChecked
+ linearTransparency_value = LineareTransparenz.isChecked
+ MFLinTransparency_value = MFLinTransparenz.GetText
+ Transparencyverlauf_value = Transparenzverlauf.isChecked
+ TransparencyType_value = TransparenzverlaufTyp.GetSelText
+ MFCenterX_value = MFZentrumX.GetText
+ MFCenterY_value = MFZentrumY.GetText
+ MFAngle_value = MFWinkel.GetText
+ MFRand_value = MFRand.GetText
+ MFStart_value = MFStartwert.GetText
+ MFEnd_value = MFEndwert.GetText
+
+ sleep 1
+ Kontext
+ Active.setpage TabFarben
+ Kontext "TabFarben"
+
+ colorname_value = FarbName.GetText
+ color_value = Farbe.GetSelText
+ colormodel_value = Farbmodell.GetSelIndex
+ if colormodel_value = 1 then
+ R_value = R.GetText
+ G_value = G.GetText
+ B_value = B.GetText
+ else 'farbmodell_value = 2
+ C_value = C.GetText
+ M_value = M.GetText
+ Y_value = Y.GetText
+ K_value = K.GetText
+ endif
+ sleep 1
+
+ Kontext
+ Active.setpage TabFarbverlaeufe
+ Kontext "TabFarbverlaeufe"
+
+ type_value = Typ.GetSelText
+ Centerx_value = ZentrumX.GetText
+ Centery_value = ZentrumY.GetText
+ angle_value = Winkel.GetText
+ rand_value = Rand.GetText
+ from_value = Von.GetSelText
+ fromvalue_value = VonWert.GetText
+ to_value = Bis.GetSelText
+ tovalue_value = BisWert.GetText
+ sleep 1
+
+ Kontext
+ Active.setpage TabBitmap
+ Kontext "TabBitmap"
+
+ front_value = Vordergrund.GetSelText
+ background_value = Hintergrund.GetSelText
+ sleep 1
+ TabBitmap.OK
+ sleep 2
+
+ hRechteckErstellen ( 70, 70, 90, 90 )
+ if gApplication = "DRAW" then
+ kontext "Documentdraw"
+ Documentdraw.Mousedown 20, 20
+ Documentdraw.Mouseup 20, 20
+ sleep 1
+ kontext "Standardbar"
+ FormatPaintbrush.Click
+ kontext "Documentdraw"
+ sleep 1
+ Documentdraw.Mousedown 80, 80
+ Documentdraw.Mouseup 80, 80
+ sleep 1
+ else '(Impress)
+ Kontext "DocumentImpress"
+ DocumentImpress.Mousedown 20, 20
+ DocumentImpress.Mouseup 20, 20
+ sleep 1
+ kontext "Standardbar"
+ FormatPaintbrush.Click
+ kontext "DocumentImpress"
+ sleep 1
+ DocumentImpress.Mousedown 80, 80
+ DocumentImpress.Mouseup 80, 80
+ sleep 1
+ endif
+
+ FormatArea
+ Kontext
+ Active.SetPage TabArea
+ Kontext "TabArea"
+ ' warnlog "The FillOptions-value was not transferred correctly."
+ ' else
+ ' printlog "The FillOptions-value was transferred correctly."
+ ' endif
+
+ kontext
+ Active.setpage TabSchraffuren
+ kontext "TabSchraffuren"
+
+ if HatchingDistance <> Abstand.GetText then
+ warnlog "Hatching:Distance changed. Should be: " + HatchingDistance + ". Was: " + Abstand.GetText
+ endif
+ if HatchingAngle <> Winkel.GetText then
+ warnlog "Hatching:Angle changed. Should be: " + HatchingAngle + ". Was: " + Winkel.GetText
+ endif
+ 'Definition
+ if HatchingLineType <> Linientyp.GetSelText then
+ warnlog "Hatching:LineType changed. Should be: " + HatchingLineType + ". Was: " + Linientyp.GetSelText
+ endif
+ if HatchingLineColor <> Linienfarbe.GetSelText then
+ warnlog "Hatching:LineColor changed. Should be: " + HatchingLineColor + ". Was: " + Linienfarbe.GetSelText
+ endif
+ sleep 1
+
+ Kontext
+ Active.setpage TabSchatten
+ Kontext "TabSchatten"
+
+ if Show_value = true then
+ if Anzeigen.isChecked <> true then
+ warnlog "Shaddow:Show had changed! Should have been true, but was " + Anzeigen.isChecked
+ else
+ if position_value <> Position.GetSelText then
+ warnlog "Shaddow:position:value changed. Should be: " + position_value + ". Was: " + Position.GetSelText
endif
- sleep 1
-
- '/// Switch to Tabpage "Color" ///'
- Kontext
- Active.setpage TabFarben
- Kontext "TabFarben"
-
- if colorname_value <> FarbName.GetText then
- warnlog "colorname_value changed. Should be: " + colorname_value + ". Was: " + FarbName.GetText
+ if distance_value <> Entfernung.GetSelText then
+ warnlog "Shaddow:distance:value changed. Should be: " + distance_value + ". Was: " + Entfernung.GetSelText
endif
if color_value <> Farbe.GetSelText then
- warnlog "color_value changed. Should be: " + color_value + ". Was: " + Farbe.GetSelText
- endif
- if colormodel_value <> Farbmodell.GetSelIndex then
- warnlog "colormodel_value changed. Should be: " + colormodel_value + ". Was: " + Farbmodell.GetSelIndex
- endif
- if colormodel_value = 1 then
- if R_value <> R.GetText then
- warnlog "R_value changed. Should be: " + R_value + ". Was: " + R.GetText
- endif
- if G_value <> G.GetText then
- warnlog "G_value changed. Should be: " + G_value + ". Was: " + G.GetText
- endif
- if B_value <> B.GetText then
- warnlog "B_value changed. Should be: " + B_value + ". Was: " + B.GetText
- endif
- endif
- if colormodel_value = 2 then
- if C_value <> C.GetText then
- warnlog "C_value changed.Should be: " + C_value + ". Was: " + C.GetText
- endif
- if M_value <> M.GetText then
- warnlog "M_value changed. Should be: " + M_value + ". Was: " + M.GetText
- endif
- if Y_value <> Y.GetText then
- warnlog "Y_value changed. Should be: " + Y_value + ". Was: " + Y.GetText
- endif
- if K_value <> K.GetText then
- warnlog "K_value changed. Should be: " + K_value + ". Was: " + K.GetText
- endif
- endif
- sleep 1
-
- '/// Switch to Tabpage "Gradient" ///'
- Kontext
- Active.setpage TabFarbverlaeufe
- Kontext "TabFarbverlaeufe"
- if type_value <> Typ.GetSelText then
- warnlog "type_value changed. Should be: " + type_value + ". Was: " + Typ.GetSelText
- endif
- if centerx_value <> ZentrumX.GetText then
- warnlog "centerx_value changed. Should be: " + centerx_value + ". Was: " + ZentrumX.GetText
- endif
- if centery_value <> ZentrumY.GetText then
- warnlog "centery_value changed. Should be: " + centery_value + ". Was: " + ZentrumY.GetText
- endif
- if angle_value <> Winkel.GetText then
- warnlog "angle_value changed. Should be: " + angle_value + ". Was: " + Winkel.GetText
- endif
- if rand_value <> Rand.GetText then
- warnlog "rand_value changed. Should be: " + rand_value + ". Was: " + Rand.GetText
- endif
- if from_value <> Von.GetSelText then
- warnlog "from_value changed. Should be: " + from_value + ". Was: " + Von.GetSelText
+ warnlog "Shaddow:Color:value changed. Should be: " + color_value + ". Was: " + Farbe.GetSelText
endif
- if fromvalue_value <> VonWert.GetText then
- warnlog "fromvalue_value changed. Should be: " + fromvalue_value + ". Was: " + VonWert.GetText
- endif
- if to_value <> Bis.GetSelText then
- warnlog "to_value changed. Should be: " + to_value + ". Was: " + Bis.GetSelText
- endif
- if tovalue_value <> BisWert.GetText then
- warnlog "tovalue_value changed. Should be: " + tovalue_value + ". Was: " + BisWert.GetText
- endif
- sleep 1
-
- '/// Switch to Tabpage "Bitmap" ///'
- Kontext
- Active.setpage TabBitmap
- Kontext "TabBitmap"
- if front_value <> Vordergrund.GetSelText then
- warnlog "vordergrund_value changed. Should be: " + front_value + ". Was: " + Vordergrund.GetSelText
+ if transparency_value <> Transparenz.GetSelText then
+ warnlog "Shaddow:transparency:value changed. Should be: " + transparency_value + ". Was: " + Transparenz.GetSelText
endif
- if background_value <> Hintergrund.GetSelText then
- warnlog "background_value changed. Should be: " + background_value + ". Was: " + Hintergrund.GetSelText
- endif
- sleep 1
- TabBitmap.OK
- Call hCloseDocument '/// Close Document ///'
+ endif
+ endif
+ sleep 1
+
+ Kontext
+ Active.SetPage TabTransparenz
+ Kontext "TabTransparenz"
+ if NoTransparency_value <> KeineTransparenz.isChecked then
+ warnlog "Transparency:NoTransparency -value changed. Should be: " + NoTransparency_value + ". Was: " + KeineTransparenz.isChecked
+ endif
+ if linearTransparency_value <> LineareTransparenz.isChecked then
+ warnlog "Transparency:lineareTransparency -value changed. Should be: " + linearTransparency_value + ". Was: " + LineareTransparenz.isChecked
+ endif
+ if MFLinTransparency_value <> MFLinTransparenz.GetText then
+ warnlog "Transparency:MFLinTransparency -value changed. Should be: " + MFLinTransparency_value + ". Was: " + MFLinTransparenz.GetText
+ endif
+ if Transparencyverlauf_value <> Transparenzverlauf.isChecked then
+ warnlog "Transparency:Transparencyverlauf -value changed. Should be: " + Transparencyverlauf_value + ". Was: " + Transparenzverlauf.isChecked
+ endif
+ if TransparencyType_value <> TransparenzverlaufTyp.GetSelText then
+ warnlog "Transparency:TransparencyType -value changed. Should be: " + TransparencyType_value + ". Was: " + TransparenzverlaufTyp.GetSelText
+ endif
+ if MFCenterX_value <> MFZentrumX.GetText then
+ warnlog "Transparency:MFCenterX -value changed. Should be: " + MFCenterX_value + ". Was: " + MFZentrumX.GetText
+ endif
+ if MFCenterY_value <> MFZentrumY.GetText then
+ warnlog "Transparency:MFCenterY -value changed. Should be: " + MFCenterY_value + ". Was: " + MFZentrumY.GetText
+ endif
+ if MFAngle_value <> MFWinkel.GetText then
+ warnlog "Transparency:MFAngle -value changed. Should be: " + MFAngle_value + ". Was: " + MFWinkel.GetText
+ endif
+ if MFRand_value <> MFRand.GetText then
+ warnlog "Transparency:MFRand -value changed. Should be: " + MFRand_value + ". Was: " + MFRand.GetText
+ endif
+ if MFStart_value <> MFStartwert.GetText then
+ warnlog "Transparency:MFStart -value changed. Should be: " + MFStart_value + ". Was: " + MFStartwert.GetText
+ endif
+ if MFEnd_value <> MFEndwert.GetText then
+ warnlog "Transparency:MFEnd -value changed. Should be: " + MFEnd_value + ". Was: " + MFEndwert.GetText
+ endif
+ sleep 1
+
+ Kontext
+ Active.setpage TabFarben
+ Kontext "TabFarben"
+
+ if colorname_value <> FarbName.GetText then
+ warnlog "colorname_value changed. Should be: " + colorname_value + ". Was: " + FarbName.GetText
+ endif
+ if color_value <> Farbe.GetSelText then
+ warnlog "color_value changed. Should be: " + color_value + ". Was: " + Farbe.GetSelText
+ endif
+ if colormodel_value <> Farbmodell.GetSelIndex then
+ warnlog "colormodel_value changed. Should be: " + colormodel_value + ". Was: " + Farbmodell.GetSelIndex
+ endif
+ if colormodel_value = 1 then
+ if R_value <> R.GetText then
+ warnlog "R_value changed. Should be: " + R_value + ". Was: " + R.GetText
+ endif
+ if G_value <> G.GetText then
+ warnlog "G_value changed. Should be: " + G_value + ". Was: " + G.GetText
+ endif
+ if B_value <> B.GetText then
+ warnlog "B_value changed. Should be: " + B_value + ". Was: " + B.GetText
+ endif
+ endif
+ if colormodel_value = 2 then
+ if C_value <> C.GetText then
+ warnlog "C_value changed.Should be: " + C_value + ". Was: " + C.GetText
+ endif
+ if M_value <> M.GetText then
+ warnlog "M_value changed. Should be: " + M_value + ". Was: " + M.GetText
+ endif
+ if Y_value <> Y.GetText then
+ warnlog "Y_value changed. Should be: " + Y_value + ". Was: " + Y.GetText
+ endif
+ if K_value <> K.GetText then
+ warnlog "K_value changed. Should be: " + K_value + ". Was: " + K.GetText
+ endif
+ endif
+ sleep 1
+
+ Kontext
+ Active.setpage TabFarbverlaeufe
+ Kontext "TabFarbverlaeufe"
+ if type_value <> Typ.GetSelText then
+ warnlog "type_value changed. Should be: " + type_value + ". Was: " + Typ.GetSelText
+ endif
+ if centerx_value <> ZentrumX.GetText then
+ warnlog "centerx_value changed. Should be: " + centerx_value + ". Was: " + ZentrumX.GetText
+ endif
+ if centery_value <> ZentrumY.GetText then
+ warnlog "centery_value changed. Should be: " + centery_value + ". Was: " + ZentrumY.GetText
+ endif
+ if angle_value <> Winkel.GetText then
+ warnlog "angle_value changed. Should be: " + angle_value + ". Was: " + Winkel.GetText
+ endif
+ if rand_value <> Rand.GetText then
+ warnlog "rand_value changed. Should be: " + rand_value + ". Was: " + Rand.GetText
+ endif
+ if from_value <> Von.GetSelText then
+ warnlog "from_value changed. Should be: " + from_value + ". Was: " + Von.GetSelText
+ endif
+ if fromvalue_value <> VonWert.GetText then
+ warnlog "fromvalue_value changed. Should be: " + fromvalue_value + ". Was: " + VonWert.GetText
+ endif
+ if to_value <> Bis.GetSelText then
+ warnlog "to_value changed. Should be: " + to_value + ". Was: " + Bis.GetSelText
+ endif
+ if tovalue_value <> BisWert.GetText then
+ warnlog "tovalue_value changed. Should be: " + tovalue_value + ". Was: " + BisWert.GetText
+ endif
+ sleep 1
+
+ Kontext
+ Active.setpage TabBitmap
+ Kontext "TabBitmap"
+ if front_value <> Vordergrund.GetSelText then
+ warnlog "vordergrund_value changed. Should be: " + front_value + ". Was: " + Vordergrund.GetSelText
+ endif
+ if background_value <> Hintergrund.GetSelText then
+ warnlog "background_value changed. Should be: " + background_value + ". Was: " + Hintergrund.GetSelText
+ endif
+ sleep 1
+ TabBitmap.OK
endcase
diff --git a/testautomation/graphics/optional/includes/global/g_demoguide.inc b/testautomation/graphics/optional/includes/global/g_demoguide.inc
index a02c61ebc4ea..bac23cacfead 100755
--- a/testautomation/graphics/optional/includes/global/g_demoguide.inc
+++ b/testautomation/graphics/optional/includes/global/g_demoguide.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
@@ -40,18 +40,16 @@
' #1 t_Introduction ' Description
' #1 t_Interoperability ' Description
' #1 t_DrawingEngine ' Description
-'
+'
'*
'\***********************************************************************
testcase t_Introduction
gApplication = "IMPRESS"
-
- '///Open new presentation
+
printlog "Open new presentation"
Call hNewDocument
-
- '///Open the Gallery
+
printlog "Open the Gallery"
ToolsGallery
Sleep (1)
@@ -59,8 +57,7 @@ testcase t_Introduction
if Gallery.NotExists(2) then
ToolsGallery
end if
-
- '///Choose computer theme and insert the third image
+
printlog "Choose an item from the gallery"
Gallerys.Select(2)
View.TypeKeys "<HOME><RIGHT><RIGHT>"
@@ -70,7 +67,6 @@ testcase t_Introduction
sleep 2
MenuSelect(MenuGetItemID(1)) 'Copy
sleep 2
- '///+ - Check that we really got a copy of the object ///'
kontext "DocumentImpress"
DocumentImpress.OpenContextMenu(true)
sleep 2
@@ -78,10 +74,10 @@ testcase t_Introduction
sleep 2
Kontext "ExportierenDlg"
if ExportierenDlg.IsVisible(5) then
- printlog " Gallery-object correctly copied into Slide."
- ExportierenDlg.Close
- else
- warnlog " Doesn't seem like we copied anything from the Gallery... ?"
+ printlog " Gallery-object correctly copied into Slide."
+ ExportierenDlg.Close
+ else
+ warnlog " Doesn't seem like we copied anything from the Gallery... ?"
endif
printlog "Delete the item"
kontext "DocumentImpress"
@@ -98,15 +94,13 @@ testcase t_Introduction
catch
Warnlog "Insert graphic doesn't work"
endcatch
-
- '///Resize object
+
printlog "Resize object"
Kontext "DocumentImpress"
gMouseClick (10, 10)
sleep 1
EditSelectAll
sleep 1
- ContextPositionAndSize '/// Format-position and size
Kontext
Active.SetPage TabPositionAndSize
Kontext "TabPositionAndSize"
@@ -115,8 +109,7 @@ testcase t_Introduction
SizePosition.TypeKeys "<DOWN> <RIGHT>"
Width.SetText CStr((CInt(Width.GetText)) * 2)
TabPositionAndSize.OK
-
- '///Break object
+
printlog "Break object"
Kontext "DocumentImpress"
gMouseClick (10, 10)
@@ -124,8 +117,7 @@ testcase t_Introduction
EditSelectAll
sleep 1
hOpenContextMenu '(when the object is marked)
- hMenuSelectNr(13)
- '/// Select part of object and make it black
+ hMenuSelectNr(13)
printlog "Select part of object and make it black"
DocumentImpress.TypeKeys "<SHIFT TAB>"
FormatArea
@@ -135,15 +127,13 @@ testcase t_Introduction
FillOptions.Select 2
ColourList.Select 1
TabArea.OK
-
- '///Group the objects
+
printlog "Group the object"
kontext "DocumentImpress"
DocumentImpress.TypeKeys "<MOD1 A>"
hOpenContextMenu '(when the object is marked)
hMenuSelectNr(12)
-
- '///Add Layout "Title Only"
+
Printlog "Add Layout"
kontext "Tasks"
if (NOT Tasks.exists) then
@@ -153,23 +143,21 @@ testcase t_Introduction
Kontext "LayoutsPreview"
LayoutsPreview.TypeKeys "<HOME> <DOWN> <DOWN> <RETURN>"
sleep (5)
- '///Add a background
Printlog "Add background"
-
+
Kontext "Tasks"
printlog "Deselect all tabs from view menu in task pane except the needed."
View.OpenMenu
- MenuSelect(MenuGetItemID(5))
+ MenuSelect(MenuGetItemID(5))
View.OpenMenu
- MenuSelect(MenuGetItemID(4))
+ MenuSelect(MenuGetItemID(4))
View.OpenMenu
MenuSelect(MenuGetItemID(3))
View.OpenMenu
MenuSelect(MenuGetItemID(2))
Kontext "AvailableForUsePreview"
AvailableForUsePreview.TypeKeys "<HOME> <RIGHT> <RETURN>"
- sleep (5)
- '///Add a transition effect
+ sleep (5)
Printlog "Add a transition effect"
Kontext "Tasks"
View.OpenMenu
@@ -179,11 +167,10 @@ testcase t_Introduction
TransitionSound.GetItemCount 'needed for select
Sleep 1
TransitionSound.Select 4
-
- '///Close the document
+
Printlog "Close the document"
Call hCloseDocument
-
+
endcase 't_Introduction
'--------------------------------------------------------------------
@@ -192,33 +179,32 @@ testcase t_Interoperability
Dim sTemplatename as string
gApplication = "IMPRESS"
-
- '///Open PowerPoint presentation
+
printlog "Open PowerPoint presentation"
hFileOpen (Convertpath (gTesttoolPath + "graphics/required/input/dotNetOverview.ppt"))
Call sMakeReadOnlyDocumentEditable
-
+
'Save the name of the origin background (taken from last slide)
- Kontext "DocumentImpress"
- DocumentImpress.TypeKeys "<END>"
- sleep (4)
- sTemplatename = DocumentImpress.StatusGetText (6)
- printlog " Background = " & sTemplatename 'Debugcode
-
+ Kontext "DocumentImpress"
+ DocumentImpress.TypeKeys "<END>"
+ sleep (4)
+ sTemplatename = DocumentImpress.StatusGetText (6)
+ printlog " Background = " & sTemplatename 'Debugcode
+
printlog "Choose a masterpage from right pane"
-
+
Kontext "Tasks"
printlog "Deselect all tabs accept the Master Pages"
View.OpenMenu
- MenuSelect(MenuGetItemID(5))
+ MenuSelect(MenuGetItemID(5))
View.OpenMenu
- MenuSelect(MenuGetItemID(4))
+ MenuSelect(MenuGetItemID(4))
View.OpenMenu
MenuSelect(MenuGetItemID(3))
View.OpenMenu
MenuSelect(MenuGetItemID(2))
- sleep 2
+ sleep 2
Kontext "AvailableForUsePreview"
AvailableForUsePreview.TypeKeys "<HOME> <RIGHT> <RETURN>"
sleep (5)
@@ -226,11 +212,10 @@ testcase t_Interoperability
Kontext "DocumentImpress"
printlog " Background is " & DocumentImpress.StatusGetText (6) 'Debugcode
if DocumentImpress.StatusGetText (6) = sTemplatename then
- warnlog "The background is not changed"
- else printlog " Background has been changed"
+ warnlog "The background is not changed"
+ else printlog " Background has been changed"
endif
-
- '///Switch back to original background
+
printlog "Switch back to original background"
Kontext "Tasks"
Kontext "AvailableForUsePreview"
@@ -238,11 +223,10 @@ testcase t_Interoperability
sleep (5)
Kontext "DocumentImpress"
if DocumentImpress.StatusGetText (6) = sTemplatename then
- printlog " The background has been set back to default"
- else warnlog "The background is " & DocumentImpress.StatusGetText (6) & " but should be: " & sTemplatename
+ printlog " The background has been set back to default"
+ else warnlog "The background is " & DocumentImpress.StatusGetText (6) & " but should be: " & sTemplatename
endif
-
- '///Resort slides
+
printlog "Resort slides"
Kontext "DocumentImpress"
Kontext "Slides"
@@ -254,29 +238,28 @@ testcase t_Interoperability
Kontext "SlidesControl"
SlidesControl.TypeKeys "<Mod1 V>"
kontext "InsertPaste"
- if InsertPaste.Exists(1) then
+ if InsertPaste.Exists(1) then
Before.Check
InsertPaste.OK
- endif
- Printlog " Verify that the slide was moved correctly"
- Kontext "Slides"
- SlidesControl.TypeKeys "<PAGEUP>"
- SlidesControl.TypeKeys "<SHIFT F10>"
- if hMenuFindSelect(27268, true, 3) = false then
+ endif
+ Printlog " Verify that the slide was moved correctly"
+ Kontext "Slides"
+ SlidesControl.TypeKeys "<PAGEUP>"
+ SlidesControl.TypeKeys "<SHIFT F10>"
+ if hMenuFindSelect(27268, true, 3) = false then
Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
Call hCloseDocument
Goto Endsub
- endif
- kontext "NameDlgPage"
- if NameField.GetText <> ".NET Enterprise Federation" then
+ endif
+ kontext "NameDlgPage"
+ if NameField.GetText <> ".NET Enterprise Federation" then
Warnlog "Wrong slide found! Expected no 3, but found " + NameField.GetText + "."
- else
+ else
Printlog " The slide was correctly moved"
- endif
- NameDlgPage.OK
- sleep 1
-
- '///Switch views
+ endif
+ NameDlgPage.OK
+ sleep 1
+
printlog "Switch views"
ViewWorkspaceOutlineView
sleep (2)
@@ -287,8 +270,8 @@ testcase t_Interoperability
DocumentImpressOutlineView.TypeKeys "<Mod1 C>"
sleep (5)
if getclipboard() <> ".NET Enterprise" then
- warnlog " Wrong selection in outlineview. Should be '.NET Enterprise', but is '" & getclipboard() +"'."
- else printlog " Switching to Outlineview was successfull"
+ warnlog " Wrong selection in outlineview. Should be '.NET Enterprise', but is '" & getclipboard() +"'."
+ else printlog " Switching to Outlineview was successfull"
endif
catch
warnlog "Switching to Outlineview was not successfull"
@@ -336,8 +319,7 @@ testcase t_Interoperability
catch
warnlog "Switching to Drawingview was not successfull"
endcatch
-
- '///Travel through the presentation by left pane
+
printlog "Travel through the presentation by left pane to slide 7"
Kontext "DocumentImpress"
DocumentImpress.TypeKeys "<HOME><PAGEDOWN><PAGEDOWN><PAGEDOWN><PAGEDOWN><PAGEDOWN><PAGEDOWN><PAGEDOWN>"
@@ -346,31 +328,31 @@ testcase t_Interoperability
Kontext "SlidesControl"
SlidesControl.OpenContextMenu
if hMenuFindSelect(27268, true, 3) = false then
- Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
+ Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
endif
kontext "NameDlgPage"
if NameField.GetText <> "Visual Studio.NET The complete development environment for building distributed applications for Windows and the Web" then
- Warnlog "Wrong slide found! Expected no 7, but found " + NameField.GetText + "."
- else Printlog " Slide 7 is reached"
+ Warnlog "Wrong slide found! Expected no 7, but found " + NameField.GetText + "."
+ else Printlog " Slide 7 is reached"
endif
NameDlgPage.OK
sleep 1
-
+
printlog "Autoshape support"
Kontext "DocumentImpress"
DocumentImpress.TypeKeys "<TAB>"
try
Kontext "ExtrusionObjectBar"
- printlog "Checking if ExtrusionObjectBar is already open."
+ printlog "Checking if ExtrusionObjectBar is already open."
if ExtrusionObjectBar.Exists then
- printlog "ExtrusionObjectBar Exists = " & ExtrusionObjectBar.Exists
+ printlog "ExtrusionObjectBar Exists = " & ExtrusionObjectBar.Exists
else
- printlog "ExtrusionObjectBar Exists = " & ExtrusionObjectBar.Exists
- printlog "Opening ExtrusionObjectBar."
- ViewToolbarsThreeDSettings
- endif
+ printlog "ExtrusionObjectBar Exists = " & ExtrusionObjectBar.Exists
+ printlog "Opening ExtrusionObjectBar."
+ ViewToolbarsThreeDSettings
+ endif
ExtrusionTiltRight.Click
printlog " An autoshape was found and turned right"
catch
@@ -378,24 +360,22 @@ testcase t_Interoperability
endcatch
printlog "Close document"
Call hCloseDocument
-
+
endcase 't_Interoperability
'--------------------------------------------------------------------
testcase t_DrawingEngine
-Dim sGroupPosition as string
-Dim sObjectPosition as string
+ Dim sGroupPosition as string
+ Dim sObjectPosition as string
+
+ gApplication = "DRAW"
-gApplication = "DRAW"
-
- '///Open a drawing
printlog "Open a drawing"
hFileOpen (Convertpath (gTesttoolPath + "graphics/required/input/Blueprint.odg"))
Call sMakeReadOnlyDocumentEditable
- '///Select grouped object and enter group
printlog "Select group"
Kontext "DocumentDraw"
DocumentDraw.TypeKeys "<TAB><TAB>"
@@ -412,8 +392,7 @@ gApplication = "DRAW"
Kontext "DocumentDraw"
FormatEditGroupDraw
sleep 1
-
- '///Select and move single object
+
printlog "Select and move single object"
printlog " Select object"
Kontext "DocumentDraw"
@@ -424,8 +403,8 @@ gApplication = "DRAW"
MenuSelect(MenuGetItemID(15)) 'Select NAME from context
kontext "NameDlgObject"
if NameField.GetText <> "Chair" then
- Warnlog "Wrong object selected!"
- else Printlog " The correct object is selected"
+ Warnlog "Wrong object selected!"
+ else Printlog " The correct object is selected"
endif
NameDlgObject.OK
sleep 1
@@ -442,13 +421,12 @@ gApplication = "DRAW"
DocumentDraw.TypeKeys "<UP><UP><UP>"
sleep (5)
printlog " Verify that the object was moved"
- ContextPositionAndSize '/// Format-position and size
Kontext
Active.SetPage TabPositionAndSize
Kontext "TabPositionAndSize"
if PositionY.GetText <> sObjectPosition then
- printlog " Single object was moved"
- else warnlog "The object has not been moved"
+ printlog " Single object was moved"
+ else warnlog "The object has not been moved"
endif
TabPositionAndSize.OK
printlog " Exit group"
@@ -460,12 +438,11 @@ gApplication = "DRAW"
Active.SetPage TabPositionAndSize
Kontext "TabPositionAndSize"
if PositionY.GetText = sGroupPosition then
- printlog " Group is still on position"
- else warnlog "Group has moved from " & sGroupPosition & " to " & PositionY.GetText
+ printlog " Group is still on position"
+ else warnlog "Group has moved from " & sGroupPosition & " to " & PositionY.GetText
endif
TabPositionAndSize.OK
-
- '///Close document
+
printlog "Close document"
Call hCloseDocument
diff --git a/testautomation/graphics/optional/includes/global/g_dimensions.inc b/testautomation/graphics/optional/includes/global/g_dimensions.inc
index 37df8f687e4b..8cab59c7b049 100755
--- a/testautomation/graphics/optional/includes/global/g_dimensions.inc
+++ b/testautomation/graphics/optional/includes/global/g_dimensions.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
@@ -43,88 +43,80 @@
Sub testFormatDimensioning
-call tdFormatDimensioning
+ call tdFormatDimensioning
End Sub
testcase tdFormatDimensioning
- Dim ZaehlerMetrik
- Dim i
+ Dim ZaehlerMetrik
+ Dim i
- Call hNewDocument
+ Call hNewDocument
- '/// Set min and max values for dimensioning ///'
- FormatDimensioning
- Kontext "Bemassung"
- LinienDistanz.ToMin
- PrintLog LinienDistanz.GetText + " = minimum value"
- LinienDistanz.ToMax
- PrintLog LinienDistanz.GetText + " = maximum value"
+ FormatDimensioning
+ Kontext "Bemassung"
+ LinienDistanz.ToMin
+ PrintLog LinienDistanz.GetText + " = minimum value"
+ LinienDistanz.ToMax
+ PrintLog LinienDistanz.GetText + " = maximum value"
- HLUeberhang.ToMin
- PrintLog HLUeberhang.GetText + " = minimum value"
- HLUeberhang.ToMax
- PrintLog HLUeberhang.GetText + " = maximum value"
+ HLUeberhang.ToMin
+ PrintLog HLUeberhang.GetText + " = minimum value"
+ HLUeberhang.ToMax
+ PrintLog HLUeberhang.GetText + " = maximum value"
- HLDistanz.ToMin
- PrintLog HLDistanz.GetText + " = minimum value"
- HLDistanz.ToMax
- PrintLog HLDistanz.GetText + " = maximum value"
+ HLDistanz.ToMin
+ PrintLog HLDistanz.GetText + " = minimum value"
+ HLDistanz.ToMax
+ PrintLog HLDistanz.GetText + " = maximum value"
- LinkeHL.ToMin
- PrintLog LinkeHL.GetText + " = minimum value"
- LinkeHL.ToMax
- PrintLog LinkeHL.GetText + " = maximum valuet"
+ LinkeHL.ToMin
+ PrintLog LinkeHL.GetText + " = minimum value"
+ LinkeHL.ToMax
+ PrintLog LinkeHL.GetText + " = maximum valuet"
- RechteHL.ToMin
- PrintLog RechteHL.GetText + " = minimum value"
- RechteHL.ToMax
- PrintLog RechteHL.GetText + " = maximum value"
+ RechteHL.ToMin
+ PrintLog RechteHL.GetText + " = minimum value"
+ RechteHL.ToMax
+ PrintLog RechteHL.GetText + " = maximum value"
- '/// set every metric unit ///'
- MetrikList.GetItemCount
- ZaehlerMetrik=MetrikList.GetItemCount
- for i = 1 to ZaehlerMetrik
- MetrikList.Select i
- PrintLog MetrikList.GetSelText + " set"
- next i
- '/// check show unit ///'
- MetrikAnzeigen.Check
- '/// check "below reference edge ///'
- AnzeigeUnterhalb.Check
- '/// check parallel ///'
- AnzeigeParallel.Check
- '/// check automatic vertical ///'
- AutomatischHorizontal.Check
- '/// check automatic horizontal ///'
- AutomatischVertikal.Check
- sleep 2
- Bemassung.OK
+ MetrikList.GetItemCount
+ ZaehlerMetrik=MetrikList.GetItemCount
+ for i = 1 to ZaehlerMetrik
+ MetrikList.Select i
+ PrintLog MetrikList.GetSelText + " set"
+ next i
+ MetrikAnzeigen.Check
+ AnzeigeUnterhalb.Check
+ AnzeigeParallel.Check
+ AutomatischHorizontal.Check
+ AutomatischVertikal.Check
+ sleep 2
+ Bemassung.OK
- '/// control value changes and checkbox states ///'
- FormatDimensioning
- Kontext "Bemassung"
- MetrikAnzeigen.GetState
- AnzeigeUnterhalb.GetState
- AnzeigeParallel.GetState
- AutomatischHorizontal.GetState
- AutomatischVertikal.GetState
- if MetrikAnzeigen.GetState = 1 Then
- PrintLog " show metric works"
- else
- WarnLog " show metric does not work"
- end if
- if AnzeigeUnterhalb.GetState= 1 Then
- PrintLog " AnzeigeUnterhalb does work"
- else
- WarnLog " TriStateBox AnzeigeUnterhalb does not work"
- end if
- if AnzeigeParallel.GetState= 1 Then
- PrintLog " AnzeigeParallel does work"
- else
- WarnLog " TriStateBox AnzeigeParallel does not work properly"
- end if
- Bemassung.OK
- Call hCloseDocument
+ FormatDimensioning
+ Kontext "Bemassung"
+ MetrikAnzeigen.GetState
+ AnzeigeUnterhalb.GetState
+ AnzeigeParallel.GetState
+ AutomatischHorizontal.GetState
+ AutomatischVertikal.GetState
+ if MetrikAnzeigen.GetState = 1 Then
+ PrintLog " show metric works"
+ else
+ WarnLog " show metric does not work"
+ end if
+ if AnzeigeUnterhalb.GetState= 1 Then
+ PrintLog " AnzeigeUnterhalb does work"
+ else
+ WarnLog " TriStateBox AnzeigeUnterhalb does not work"
+ end if
+ if AnzeigeParallel.GetState= 1 Then
+ PrintLog " AnzeigeParallel does work"
+ else
+ WarnLog " TriStateBox AnzeigeParallel does not work properly"
+ end if
+ Bemassung.OK
+ Call hCloseDocument
endcase
diff --git a/testautomation/graphics/optional/includes/global/g_edit.inc b/testautomation/graphics/optional/includes/global/g_edit.inc
index 6dbcb9f2cf14..5d646a0f0fc7 100755
--- a/testautomation/graphics/optional/includes/global/g_edit.inc
+++ b/testautomation/graphics/optional/includes/global/g_edit.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
@@ -45,236 +45,185 @@
'\*************************************************************************************
' sDatei = gTesttoolPath + "graphics\required\input\leer.sx"+left(gApplication,1)
-' Call hDateiOeffnen ConvertPath (gTesttoolPath + "graphics\required\input\frame1.htm") '/// Load html document ///'
' sDatei = gTesttoolPath + "graphics\required\input\leer.sx"+left(gApplication,1)
' Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
testcase tEditDuplicate
- dim Ueber_Text_1
- dim Zaehler
+ dim Ueber_Text_1
+ dim Zaehler
- Call hNewDocument '/// New Impress document ///'
- Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
- EditSelectAll '/// Select rectangle ///'
- EditDuplicate '/// Edit-duplicate ///'
- Kontext "Duplizieren"
- Ueber_Text_1 = AnzahlAnKopien.GetText
- AnzahlAnKopien.SetText "50" '/// Set number of copies to 50 ///'
- Duplizieren.Cancel '/// Cancel Edit Duplicate ///'
- sleep 1
- For Zaehler = 1 to 8
- EditDuplicate '/// Edit Duplicate ///'
- sleep 1
- Kontext "Duplizieren"
- AnzahlAnKopien.SetText "30" '/// Number of copies = 30 ///'
+ Kontext "Duplizieren"
+ Ueber_Text_1 = AnzahlAnKopien.GetText
+ sleep 1
+ For Zaehler = 1 to 8
+ sleep 1
+ Kontext "Duplizieren"
- Select Case Zaehler '/// Setting values for axis and angles ///'
- Case 1: XAchse.SetText "0,0"
- YAchse.SetText "0,45"
- Hoehe.SetText "-0,1"
- Breite.SetText "-0,1"
- Drehwinkel.SetText "3"
- Anfang.Select Int((Anfang.GetItemCount * Rnd)+1)
- Case 2,6: XAchse.SetText "0,6"
- YAchse.SetText "0,0"
- Hoehe.SetText "0,15"
- Breite.SetText "0,01"
- Drehwinkel.SetText "353"
- Case 3,7: XAchse.SetText "0,0"
- YAchse.SetText "-0,4"
- Hoehe.SetText "-0,1"
- Breite.SetText "0,06"
- Drehwinkel.SetText "11"
- Case 4,8: XAchse.SetText "-0,6"
- YAchse.SetText "0,0"
- Hoehe.SetText "0,05"
- Breite.SetText "-0,08"
- Drehwinkel.SetText "347"
- Case 5: XAchse.SetText "0,1"
- YAchse.SetText "0,48"
- Hoehe.SetText "-0,05"
- Breite.SetText "-0,05"
- Drehwinkel.SetText "355"
+ Case 1: XAchse.SetText "0,0"
+ YAchse.SetText "0,45"
+ Hoehe.SetText "-0,1"
+ Breite.SetText "-0,1"
+ Drehwinkel.SetText "3"
+ Anfang.Select Int((Anfang.GetItemCount * Rnd)+1)
+ Case 2,6: XAchse.SetText "0,6"
+ YAchse.SetText "0,0"
+ Hoehe.SetText "0,15"
+ Breite.SetText "0,01"
+ Drehwinkel.SetText "353"
+ Case 3,7: XAchse.SetText "0,0"
+ YAchse.SetText "-0,4"
+ Hoehe.SetText "-0,1"
+ Breite.SetText "0,06"
+ Drehwinkel.SetText "11"
+ Case 4,8: XAchse.SetText "-0,6"
+ YAchse.SetText "0,0"
+ Hoehe.SetText "0,05"
+ Breite.SetText "-0,08"
+ Drehwinkel.SetText "347"
+ Case 5: XAchse.SetText "0,1"
+ YAchse.SetText "0,48"
+ Hoehe.SetText "-0,05"
+ Breite.SetText "-0,05"
+ Drehwinkel.SetText "355"
End Select
Ende.Select Int((Ende.GetItemCount * Rnd)+1)
- Duplizieren.OK '/// Execute Duplicate ///'
sleep 1
- Next Zaehler
- sleep 2
- Call hCloseDocument '/// Close document ///'
+Next Zaehler
+sleep 2
endcase
testcase tEditFields
- Call hNewDocument
- sleep 3
- InsertFieldsDateFix '/// Insert Date-Fix ///'
- EditSelectAll '/// Select inserted field ///'
- sleep 1
- hTypeKeys "<F2>" '/// Go into edit mode (F2) ///'
- sleep 2
- EditSelectAll '/// Select the date///'
- sleep 2
- EditfieldsDraw '/// Edit -fields///'
- Kontext "FeldbefehlBearbeitenDraw"
- sleep 2
- FeldtypFix.Check '/// check field type fix ///'
- If FeldtypFix.Ischecked then
+ Call hNewDocument
+ sleep 3
+ sleep 1
+ sleep 2
+ sleep 2
+ Kontext "FeldbefehlBearbeitenDraw"
+ sleep 2
+ If FeldtypFix.Ischecked then
Printlog "OK FieldtypeFix checkable"
- else
- warnlog "FieldtypeFix not checkable"
- end if
- FeldtypVariabel.Check '/// check field type variabel///'
- sleep 1
- If FeldtypVariabel.Ischecked then
- Printlog "OK FieldtypeVariabel enabled"
- else
- warnlog "FieldtypeVariabel not enabled"
- end if
+else
+ warnlog "FieldtypeFix not checkable"
+end if
+sleep 1
+If FeldtypVariabel.Ischecked then
+Printlog "OK FieldtypeVariabel enabled"
+else
+warnlog "FieldtypeVariabel not enabled"
+end if
' For Zaehler = 1 to FeldtypFormat.GetItemCount
' FeldTypFormat.Select Zaehler
' printlog "OK Format ", Zaehler, " = ", FeldtypFormat.GetSelText
' Next Zaehler
- FeldbefehlBearbeitenDraw.OK '/// close edit fields dialog ///'
- sleep 2
- Call hCloseDocument '/// close document ///'
- sleep 2
+sleep 2
+sleep 2
endcase
testcase tEditDeleteSlide
- dim Ueber_Text_1 as string
- dim Ueber_Text_2 as string
- dim Ueber_Text_3 as string
- Call hNewDocument '/// New impress document ///'
- sleep 3
- Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// create rectangle ///'
- sleep 1
- ContextPositionAndSize '/// open Position and Size dialog ///'
- kontext
- Messagebox.SetPage TabPositionAndSize
- kontext "TabPositionAndSize"
- Ueber_Text_1 = PositionX.GetText '/// get position values for rectangle ///'
- TabPositionAndSize.OK
- InsertSlide '/// insert slide ///'
- sleep 2
- hTypekeys "<Pagedown>"
- sleep 2
- Call hRechteckErstellen ( 40, 40, 60, 60 ) '/// create rectangle ///'
- sleep 1
- EditDeleteSlide '/// Delete slide ///'
- sleep 1
- Ueber_Text_2 = "OK Page was closed"
- Ueber_Text_3 = "Page was not closed"
- call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3) '/// compare position of rectange ///'
- sleep 1
- Call hCloseDocument '/// close document ///'
+ dim Ueber_Text_1 as string
+ dim Ueber_Text_2 as string
+ dim Ueber_Text_3 as string
+ sleep 3
+ sleep 1
+ kontext
+ Messagebox.SetPage TabPositionAndSize
+ kontext "TabPositionAndSize"
+ TabPositionAndSize.OK
+ sleep 2
+ hTypekeys "<Pagedown>"
+ sleep 2
+ sleep 1
+ sleep 1
+ Ueber_Text_2 = "OK Page was closed"
+ Ueber_Text_3 = "Page was not closed"
+ sleep 1
endcase
testcase tEditLinks
- Call hNewDocument '/// New document ///'
- InsertGraphicsFromFile '/// insert graphic (sample.bmp) ///'
- Kontext "GrafikEinfuegenDlg"
- Link.Check '/// check link ///'
- Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
- Oeffnen.Click
- sleep 3
- EditLinksDraw '/// edit links ///'
- Kontext "VerknuepfungenBearbeiten"
- Aktualisieren.Click '/// refresh ///'
- sleep 1
- 'Aendern 'kann man noch den Dialog aufrufen...
- Loesen.Click
- sleep 1
- Kontext
- Messagebox.Yes
- VerknuepfungenBearbeiten.Close '/// close dialog ///'
- sleep 1
- try
- EditLinksDraw '/// check if last changes remain in the dialog ///'
+ Kontext "GrafikEinfuegenDlg"
+ Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
+ Oeffnen.Click
+ sleep 3
Kontext "VerknuepfungenBearbeiten"
+ sleep 1
+ 'Aendern 'kann man noch den Dialog aufrufen...
Loesen.Click
sleep 1
Kontext
Messagebox.Yes
- VerknuepfungenBearbeiten.Close
- warnlog "Break link does not work"
- catch
- printlog "OK Link broken"
- endcatch
- Call hCloseDocument '/// close document ///'
+ sleep 1
+ try
+ Kontext "VerknuepfungenBearbeiten"
+ Loesen.Click
+ sleep 1
+ Kontext
+ Messagebox.Yes
+ VerknuepfungenBearbeiten.Close
+ warnlog "Break link does not work"
+ catch
+ printlog "OK Link broken"
+ endcatch
endcase
testcase tdEditDeleteLayer
- dim Ueber_Text_1 as string
- dim Ueber_Text_2 as string
- dim Ueber_Text_3 as string
- Call hNewDocument '/// new document ///'
- sleep 2
- Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// create rectangle ///'
- sleep 1
-'/// View->Layer ///'
- ViewLayer
- ContextPositionAndSize '/// get position values for rectangle ///'
- kontext
- active.SetPage TabPositionAndSize
- kontext "TabPositionAndSize"
- Ueber_Text_1 = PositionX.GetText
- TabPositionAndSize.OK
- InsertLayer '/// insert layer ///'
- Kontext "EbeneEinfuegenDlg"
- EbeneEinfuegenDlg.OK
- Call hRechteckErstellen ( 10, 40, 90, 60 ) '/// create rectangle on created layer ///'
- sleep 1
- EditDeleteLayer '/// delete layer ///'
- sleep 1
- Kontext
- Active.Yes
- sleep 1
- Ueber_Text_2 = "OK Layer was deleted" '/// compare position of selected rectangle with position of created rectangle in deteted layer ///'
- Ueber_Text_3 = "Layer was not deleted"
- Call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3)
- sleep 1
- Call hCloseDocument '/// close document ///'
+ dim Ueber_Text_1 as string
+ dim Ueber_Text_2 as string
+ dim Ueber_Text_3 as string
+ sleep 2
+ sleep 1
+ ViewLayer
+ kontext
+ active.SetPage TabPositionAndSize
+ kontext "TabPositionAndSize"
+ Ueber_Text_1 = PositionX.GetText
+ TabPositionAndSize.OK
+ Kontext "EbeneEinfuegenDlg"
+ EbeneEinfuegenDlg.OK
+ sleep 1
+ sleep 1
+ Kontext
+ Active.Yes
+ sleep 1
+ Ueber_Text_3 = "Layer was not deleted"
+ Call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3)
+ sleep 1
endcase
testcase tEditObjectEdit
- Dim Schrieb as string
+ Dim Schrieb as string
- Schrieb = gOLEWriter
- if Schrieb = "" then
- warnlog " the OLE is not defined :-((( gOLEWriter: " + iSprache
- else
+ Schrieb = gOLEWriter
+ if Schrieb = "" then
+ warnlog " the OLE is not defined :-((( gOLEWriter: " + iSprache
+ else
- Call hNewDocument
- sleep 1 '/// new document ///'
- InsertObjectOLEObject '/// insert writer ole object ///'
- Kontext "OLEObjektEinfuegen"
- sleep 3
- if ObjektTyp.GetItemCount = 0 Then
- Warnlog "- No available Ole-entry in the list, maybe an error in the Install.ini?"
- sleep 1
- OleObjektEinfuegen.Cancel
- sleep 1
- else
+ Call hNewDocument
+ Kontext "OLEObjektEinfuegen"
+ sleep 3
+ if ObjektTyp.GetItemCount = 0 Then
+ Warnlog "- No available Ole-entry in the list, maybe an error in the Install.ini?"
+ sleep 1
+ OleObjektEinfuegen.Cancel
+ sleep 1
+ else
- ObjektTyp.Select Schrieb
- sleep 1
- OLEObjektEinfuegen.OK
- sleep 3 ' Changed from Sleep 1 to Sleep 3
- gMouseMove 10,10,90,90
- sleep 1
- EditSelectAll
+ ObjektTyp.Select Schrieb
+ sleep 1
+ OLEObjektEinfuegen.OK
+ sleep 3 ' Changed from Sleep 1 to Sleep 3
+ gMouseMove 10,10,90,90
+ sleep 1
+ EditSelectAll
- try
- EditObjectEdit 'keine ID '/// try edit-objects ///'
- sleep 2
- catch
- Warnlog "- The EditObjectEdit did not work"
- endcatch
+ try
+ sleep 2
+ catch
+ Warnlog "- The EditObjectEdit did not work"
+ endcatch
- gMouseClick 90,90
+ gMouseClick 90,90
end if
- sleep 1
- Call hCloseDocument '/// close document ///'
- endif
+ sleep 1
+ endif
endcase
diff --git a/testautomation/graphics/optional/includes/global/g_export_html.inc b/testautomation/graphics/optional/includes/global/g_export_html.inc
index 4b76e9b4be52..88a7e3dadc64 100755
--- a/testautomation/graphics/optional/includes/global/g_export_html.inc
+++ b/testautomation/graphics/optional/includes/global/g_export_html.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
@@ -41,7 +41,7 @@
'\********************************************************************
testcase tHtmlExport
-
+
Dim Autor1 as string
Dim Adresse1 as string
Dim Liste(50) as string
@@ -50,300 +50,249 @@ testcase tHtmlExport
dim sTemp as string
dim sFile as string
- '/// 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@sun.com"
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
+ ToolsOptions
+ hToolsOptions ("STAROFFICE","USERDATA")
+ VorName.SetText "Garfield"
+ ZuName.SetText "Peanuts"
+ EMail.SetText "recumbent@sun.com"
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
- '/// create directory if not exists and delete the content, if exists user\\work\\html\\ ///'
- app.mkDir ((ConvertPath (gOfficePath + "user\work\html\"))
- Liste(0) = 0
- GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.*" , Liste() )
- if (KillFileList (Liste()) <> TRUE) then
- for i = 1 to ListCount (Liste())
- Warnlog "File Not deleted: " + i + ": '" + Liste(i) + "'"
- next i
- endif
+ app.mkDir ((ConvertPath (gOfficePath + "user\work\html\"))
+ Liste(0) = 0
+ GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.*" , Liste() )
+ if (KillFileList (Liste()) <> TRUE) then
+ for i = 1 to ListCount (Liste())
+ Warnlog "File Not deleted: " + i + ": '" + Liste(i) + "'"
+ next i
+ endif
- '/// open application ///'
- Call hNewDocument
- WaitSlot (3000)
-'---------------------------------- simple document -----------------------------------------------
- '/// create a rectrangle ///'
- hTextrahmenErstellen ("This is a test text",10,10,40,20)
- WaitSlot (2000)
- '/// create another rectrangle ///'
- hRechteckErstellen (50,50,70,70)
- WaitSlot (3000)
-'###################################################################################################
- Printlog "'///<b> test if no file is created, if dialog is canceld </b>///'"
- '/// call 'File->Export'///'
- FileExport
- Kontext "ExportierenDlg"
- WaitSlot (1000)
- gHTMLFilter = Dateityp.GetItemText(1)
- Dateityp.Select(gHTMLFilter)
- '/// set Filename to 'user\\work\\html\\expo0.html' ///'
- sFile = ConvertPath (gOfficePath + "user\work\html\expo0")
- Dateiname.SetText sFile
- WaitSlot (2000)
- '/// click button 'Save' ///'
- Speichern.Click
- WaitSlot (3000)
- Kontext "Active"
- if Active.Exists Then Active.Yes
-'--------------------------------------------------------------------------
- '/// now we are on the dialog -1- 'Assign design' ///'
- Kontext "HTMLExport1"
- '/// click button 'Cancel' ///'
- HTMLExport1.Cancel
- WaitSlot (5000)
- Liste(0) = 0
- GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.*" , Liste() )
- WaitSlot (1000)
- Printlog "used file name: '" + sFile + "'"
- if (ListCount (Liste()) > 0) then
- warnlog "dialog for export was canceled, but file was created :-("
- for i = 1 to ListCount (Liste())
- Warnlog "File created: " + i + ": '" + Liste(i) + "'"
- next i
- KillFileList (Liste())
- end if
-'###################################################################################################
- Printlog "'///<b> test if files are created </b>///'"
- '/// call 'File->Export'///'
- FileExport
- Kontext "ExportierenDlg"
- WaitSlot (1000)
- try
- '/// select Filetype 'HTML...' aka 'WebPage' ///'
- Dateityp.Select gHTMLFilter
- catch
- errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
- Dateityp.Select 1 '/// Selects the first entry - which should be html ///'
- endcatch
- WaitSlot (1000)
- '/// set Filename to 'user\\work\\html\\expo.html' ///'
- sFile = ConvertPath (gOfficePath + "user\work\html\expo.html")
- Dateiname.SetText sFile
- WaitSlot (2000)
- '/// click button 'Save' ///'
- Speichern.Click
- WaitSlot (3000)
- Kontext "Active"
- if Active.Exists Then Active.Yes
-'--------------------------------------------------------------------------
- Printlog "'/// now we are on the dialog -1- 'Assign design' ///'"
- Kontext "HTMLExport1"
- '/// 'New design' should be checked ///'
- if (NeuesDesign.IsEnabled <> TRUE) then
- warnlog "NewDesign is not enabled by default :-("
- endif
- '/// click button 'Next >>' ///'
- Weiter.Click
- WaitSlot (1000)
- Printlog "'/// now we are on the dialog -2- 'Publication Type & Options' ///'"
- Kontext "HTMLExport2"
- '/// checkbox 'Standard HTML Format' is checked by default ///'
- if (Standard.IsChecked <> TRUE) then
- warnlog "Standard is not enabled by default :-("
- Standard.Check
- end if
- '/// checkbox 'Title Page' is checked by default ///'
- if Not TitelseiteErzeugen.IsChecked Then
- TitelSeiteErzeugen.Check
- Warnlog "- 'create Titlepage' should be checked as default :-("
- end if
- if (gApplication = "IMPRESS") then
- '/// if applcation is impress: the checkbox 'Show notes' is enabled by default///'
- If (Notizenanzeigen.IsChecked <> TRUE) Then
- warnlog "- 'Show notes' checked as default :-("
- Notizenanzeigen.Check
- end if
- end if
- '/// click button 'Next >>' ///'
- Weiter.Click
- Printlog "'/// now we are on the dialog -3- 'png/gif/jpeg & resolution & sound' ///'"
- Kontext "HTMLExport3"
- '/// checkbox 'PNG' is checked by default ///'
- if (PNG.isChecked <> TRUE) then
- warnlog "Save Graphic as 'PNG' is not checked as default :-("
- PNG.Check
- end if
- '/// Listbox compression '75%' is selected by default ///'
- if (Kompressionswert.GetSelText <> "75%") then
- warnlog "'Compression' should be '75%', but is: '" + Kompressionswert.GetSelText + "'"
- Kompressionswert.Select "75%"
- end if
- '/// checkbox 'low monitor resolution' is checked by default ///'
- if (NiedrigeAufloesung.IsChecked <> TRUE)Then
- warnlog "Monitor resolution 'low' is not selected as default :-("
- NiedrigeAufloesung.Check
- end if
- '/// checkbox 'export sounds' is checked by default ///'
- if (KlaengeExportieren.IsChecked <> true) then
- warnlog "'Export Sounds' is not checked as default :-("
- KlaengeExportieren.Check
- end if
- '/// click button 'Next >>' ///'
- Weiter.Click
- WaitSlot (1000)
- Printlog "'/// now we are on the dialog -4- 'Information for the title page' ///'"
- Kontext "HTMLExport4"
- '/// the names you entered in the options have to appeare here! ///'
- sTemp = Autor.GetText
- Autor1=Autor.GetText
- if (sTemp <> "Garfield Peanuts") then
- warnlog "Value for 'Author' is other than expected, should 'Garfield Peanuts', is: '"+sTemp+"'"
- end if
- sTemp = EMail.GetText
- Adresse1=EMail.GetText
- if (sTemp <> "recumbent@sun.com") then
- warnlog "Value for 'Email' is other than expected, should be 'recumbent@sun.com', is: '"+sTemp+"'"
- end if
- '/// set text in field 'your homepage' ///'
- Homepage.SetText "mahler"
- AdditionalInformation.SetText "QualityApprooved"
- '/// click button 'Next >>' ///'
- Weiter.Click
- WaitSlot (2000)
- Printlog "'/// now we are on the dialog -5- 'select button style' ///'"
- Kontext "HTMLExport5"
- WaitSlot (5000)
- '/// checkbox 'Text only' should be checked by default ///'
- if (NurText.ischecked <> TRUE) then
- warnlog "'Text only' is not checked by default :-("
- NurText.check
- end if
- '/// click button 'Next >>' ///'
- Weiter.Click
- WaitSlot (1000)
- Printlog "'/// now we are on the dialog -6- 'select color scheme' ///'"
- Kontext "HTMLExport6"
- WaitSlot (2000)
- ' maybe check if colour dialog comes up ?! TBO
- 'Text
- 'Hyperlink
- 'AktiverLink
- 'GesichteterLink
- 'Hintergrund
- '/// 'Apply color schemes from document' should be checked per default :-) ///'
- if (FarbenAusDok.IsChecked <> TRUE) Then
- warnlog "'Apply color schemes from document' should be checked per default :-("
- FarbenAusDok.Check
- end if
- WaitSlot (2000)
- '/// click button 'Create' ///'
- HTMLExport6.OK
- WaitSlot (5000)
- Printlog "'/// now we are on the dialog -7- 'Name HTML Design' ///'"
- Kontext "HTMLDesign"
- WaitSlot (1000)
- Designname.SetText "Lem's Standard"
- HTMLDesign.OK
- WaitSlot (3000)
- Kontext "active"
- if active.exists (5) then
- printlog " the name for this design already exists : '" + active.GetText+ "'"
- printlog " SAY YES!------------------"
- active.yes
- end if
- '/// check number and names of created files ///'
- Printlog "used file name: '" + sFile + "'"
- Liste(0) = 0
- GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.*" , Liste() )
- WaitSlot (1000)
- x = ListCount(Liste())
-' Printlog "gApplication is: " + gApplication ' For debugging - FHA
- if gApplication = "DRAW" then
- if (x <> "3") then
- Warnlog "- Number of files is not correct, it should be:3 but it is: '" + x + "' - Draw"
- for i=1 to x
- printlog "("+i+"/"+x+"): '"+Liste(i)+"'"
- next
- end if
- else
- if (x <> "4") then
- Warnlog "- Number of files is not correct, it should be:4 but it is: '" + x + "' - Impress"
- for i=1 to x
- printlog "("+i+"/"+x+"): '"+Liste(i)+"'"
- next
- end if
- end if
- '/// check if fileextension is common - .htm or .html for all files the same ///'
- Liste(0) = 0
- GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.htm" , Liste() )
- WaitSlot (1000)
- x = ListCount(Liste())
- Liste(0) = 0
- GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.html" , Liste() )
- WaitSlot (1000)
- i = ListCount(Liste())
- if ((x > 0) AND (i > 0)) Then
- Warnlog " fileextension is different between HTML-files :-( (htm/html)"
- Warnlog " htm : " + x
- Warnlog " html: " + i
- end if
-'------------------------------------------------------------------------------------------------------------------------------
- Printlog "'///<b> check if design is created in dialog </b>///'"
- WaitSlot (3000)
- '/// File->Export ///'
- FileExport
- Kontext "ExportierenDlg"
- '/// Set Filename to "user\\work\\html\\expo.html" ///'
- Dateiname.SetText sFile
- try
- '/// select Filetype 'HTML...' aka 'WebPage' ///'
- Dateityp.Select gHTMLFilter
- catch
- errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
- endcatch
- WaitSlot (1000)
- '/// click button 'save' ///'
- Speichern.Click
- WaitSlot (1000)
- Kontext "Active"
- ' active about overwriting existing file
- if Active.Exists Then Active.Yes
-'--------------------------------------------------------------------------
- WaitSlot (1000)
- Kontext "HTMLExport1"
- WaitSlot (1000)
- try
- '/// now 'existing design' is checkable -> check it ///'
- ExistierendesDesign.Check
- WaitSlot (3000)
- '/// there has to be 1 design in the list, select and delete it ///'
- x = Designliste.GetItemCount
- if (x <> 1) then
- warnlog "there is an unexpected count on designs in the list, expected 1, but there are : '" + x + "'"
- end if
- Designliste.Select 1
- sTemp = Designliste.GetSelText
- if sTemp = "Lem's Standard" Then
- Printlog "- Created design exists in list and will be deleted now"
+ Call hNewDocument
+ WaitSlot (3000)
+ '---------------------------------- simple document -----------------------------------------------
+ hTextrahmenErstellen ("This is a test text",10,10,40,20)
+ WaitSlot (2000)
+ hRechteckErstellen (50,50,70,70)
+ WaitSlot (3000)
+ '###################################################################################################
+ FileExport
+ Kontext "ExportierenDlg"
+ WaitSlot (1000)
+ gHTMLFilter = Dateityp.GetItemText(1)
+ Dateityp.Select(gHTMLFilter)
+ sFile = ConvertPath (gOfficePath + "user\work\html\expo0")
+ Dateiname.SetText sFile
+ WaitSlot (2000)
+ Speichern.Click
+ WaitSlot (3000)
+ Kontext "Active"
+ if Active.Exists Then Active.Yes
+ '--------------------------------------------------------------------------
+ Kontext "HTMLExport1"
+ HTMLExport1.Cancel
+ WaitSlot (5000)
+ Liste(0) = 0
+ GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.*" , Liste() )
+ WaitSlot (1000)
+ Printlog "used file name: '" + sFile + "'"
+ if (ListCount (Liste()) > 0) then
+ warnlog "dialog for export was canceled, but file was created :-("
+ for i = 1 to ListCount (Liste())
+ Warnlog "File created: " + i + ": '" + Liste(i) + "'"
+ next i
+ KillFileList (Liste())
+ end if
+ '###################################################################################################
+ FileExport
+ Kontext "ExportierenDlg"
+ WaitSlot (1000)
+ try
+ Dateityp.Select gHTMLFilter
+ catch
+ errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
+ endcatch
+ WaitSlot (1000)
+ sFile = ConvertPath (gOfficePath + "user\work\html\expo.html")
+ Dateiname.SetText sFile
+ WaitSlot (2000)
+ Speichern.Click
+ WaitSlot (3000)
+ Kontext "Active"
+ if Active.Exists Then Active.Yes
+ '--------------------------------------------------------------------------
+ Kontext "HTMLExport1"
+ if (NeuesDesign.IsEnabled <> TRUE) then
+ warnlog "NewDesign is not enabled by default :-("
+ endif
+ Weiter.Click
+ WaitSlot (1000)
+ Kontext "HTMLExport2"
+ if (Standard.IsChecked <> TRUE) then
+ warnlog "Standard is not enabled by default :-("
+ Standard.Check
+ end if
+ if Not TitelseiteErzeugen.IsChecked Then
+ TitelSeiteErzeugen.Check
+ Warnlog "- 'create Titlepage' should be checked as default :-("
+ end if
+ if (gApplication = "IMPRESS") then
+ If (Notizenanzeigen.IsChecked <> TRUE) Then
+ warnlog "- 'Show notes' checked as default :-("
+ Notizenanzeigen.Check
+ end if
+ end if
+ Weiter.Click
+ Kontext "HTMLExport3"
+ if (PNG.isChecked <> TRUE) then
+ warnlog "Save Graphic as 'PNG' is not checked as default :-("
+ PNG.Check
+ end if
+ if (Kompressionswert.GetSelText <> "75%") then
+ warnlog "'Compression' should be '75%', but is: '" + Kompressionswert.GetSelText + "'"
+ Kompressionswert.Select "75%"
+ end if
+ if (NiedrigeAufloesung.IsChecked <> TRUE)Then
+ warnlog "Monitor resolution 'low' is not selected as default :-("
+ NiedrigeAufloesung.Check
+ end if
+ if (KlaengeExportieren.IsChecked <> true) then
+ warnlog "'Export Sounds' is not checked as default :-("
+ KlaengeExportieren.Check
+ end if
+ Weiter.Click
WaitSlot (1000)
- DesignLoeschen.Click
+ Kontext "HTMLExport4"
+ sTemp = Autor.GetText
+ Autor1=Autor.GetText
+ if (sTemp <> "Garfield Peanuts") then
+ warnlog "Value for 'Author' is other than expected, should 'Garfield Peanuts', is: '"+sTemp+"'"
+ end if
+ sTemp = EMail.GetText
+ Adresse1=EMail.GetText
+ if (sTemp <> "recumbent@sun.com") then
+ warnlog "Value for 'Email' is other than expected, should be 'recumbent@sun.com', is: '"+sTemp+"'"
+ end if
+ Homepage.SetText "mahler"
+ AdditionalInformation.SetText "QualityApprooved"
+ Weiter.Click
WaitSlot (2000)
- else
- Warnlog "- Created design does not appear in the list it is: '"+sTemp+"'"
- end if
- catch
- Warnlog "- List could not be accessed"
- endcatch
- WaitSlot (5000)
- HTMLExport1.OK
- kontext "Active"
- if Active.Exists then
- Active.Yes
- end if
- Call hCloseDocument
- Printlog "used file name: '" + sFile + "'"
- ' TBOTODO CHECK files contenet !
+ Kontext "HTMLExport5"
+ WaitSlot (5000)
+ if (NurText.ischecked <> TRUE) then
+ warnlog "'Text only' is not checked by default :-("
+ NurText.check
+ end if
+ Weiter.Click
+ WaitSlot (1000)
+ Kontext "HTMLExport6"
+ WaitSlot (2000)
+ ' maybe check if colour dialog comes up ?! TBO
+ 'Text
+ 'Hyperlink
+ 'AktiverLink
+ 'GesichteterLink
+ 'Hintergrund
+ if (FarbenAusDok.IsChecked <> TRUE) Then
+ warnlog "'Apply color schemes from document' should be checked per default :-("
+ FarbenAusDok.Check
+ end if
+ WaitSlot (2000)
+ HTMLExport6.OK
+ WaitSlot (5000)
+ Kontext "HTMLDesign"
+ WaitSlot (1000)
+ Designname.SetText "Lem's Standard"
+ HTMLDesign.OK
+ WaitSlot (3000)
+ Kontext "active"
+ if active.exists (5) then
+ printlog " the name for this design already exists : '" + active.GetText+ "'"
+ printlog " SAY YES!------------------"
+ active.yes
+ end if
+ Printlog "used file name: '" + sFile + "'"
+ Liste(0) = 0
+ GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.*" , Liste() )
+ WaitSlot (1000)
+ x = ListCount(Liste())
+ ' Printlog "gApplication is: " + gApplication ' For debugging - FHA
+ if gApplication = "DRAW" then
+ if (x <> "3") then
+ Warnlog "- Number of files is not correct, it should be:3 but it is: '" + x + "' - Draw"
+ for i=1 to x
+ printlog "("+i+"/"+x+"): '"+Liste(i)+"'"
+ next
+ end if
+ else
+ if (x <> "4") then
+ Warnlog "- Number of files is not correct, it should be:4 but it is: '" + x + "' - Impress"
+ for i=1 to x
+ printlog "("+i+"/"+x+"): '"+Liste(i)+"'"
+ next
+ end if
+ end if
+ Liste(0) = 0
+ GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.htm" , Liste() )
+ WaitSlot (1000)
+ x = ListCount(Liste())
+ Liste(0) = 0
+ GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.html" , Liste() )
+ WaitSlot (1000)
+ i = ListCount(Liste())
+ if ((x > 0) AND (i > 0)) Then
+ Warnlog " fileextension is different between HTML-files :-( (htm/html)"
+ Warnlog " htm : " + x
+ Warnlog " html: " + i
+ end if
+ '------------------------------------------------------------------------------------------------------------------------------
+ WaitSlot (3000)
+ FileExport
+ Kontext "ExportierenDlg"
+ Dateiname.SetText sFile
+ try
+ Dateityp.Select gHTMLFilter
+ catch
+ errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
+ endcatch
+ WaitSlot (1000)
+ Speichern.Click
+ WaitSlot (1000)
+ Kontext "Active"
+ ' active about overwriting existing file
+ if Active.Exists Then Active.Yes
+ '--------------------------------------------------------------------------
+ WaitSlot (1000)
+ Kontext "HTMLExport1"
+ WaitSlot (1000)
+ try
+ ExistierendesDesign.Check
+ WaitSlot (3000)
+ x = Designliste.GetItemCount
+ if (x <> 1) then
+ warnlog "there is an unexpected count on designs in the list, expected 1, but there are : '" + x + "'"
+ end if
+ Designliste.Select 1
+ sTemp = Designliste.GetSelText
+ if sTemp = "Lem's Standard" Then
+ Printlog "- Created design exists in list and will be deleted now"
+ WaitSlot (1000)
+ DesignLoeschen.Click
+ WaitSlot (2000)
+ else
+ Warnlog "- Created design does not appear in the list it is: '"+sTemp+"'"
+ end if
+ catch
+ Warnlog "- List could not be accessed"
+ endcatch
+ WaitSlot (5000)
+ HTMLExport1.OK
+ kontext "Active"
+ if Active.Exists then
+ Active.Yes
+ end if
+ Call hCloseDocument
+ Printlog "used file name: '" + sFile + "'"
+ ' TBOTODO CHECK files contenet !
endcase 'tHtmlExport
'-------------------------------------------------------------------------------
@@ -356,400 +305,324 @@ testcase tHtmlExport_Webcast
dim Liste ( 200 ) as String
dim sFile as string
- '/// create directories if not exists and delete the content, if exists user\\work\\html\\[asp|perl]\\ ///'
- app.mkDir (ConvertPath (gOfficePath + "user\work\html\asp\"))
- app.mkDir (ConvertPath (gOfficePath + "user\work\html\perl\"))
- Liste(0) = 0
- GetFileList ((ConvertPath (gOfficePath + "user\work\html\asp\")), "*.*" , Liste() )
- WaitSlot (1000)
- if (KillFileList (Liste()) <> TRUE) then
- for i = 1 to ListCount (Liste())
- Warnlog "File Not deleted: " + i + ": '" + Liste(i) + "'"
- next i
- end if
- Liste(0) = 0
- GetFileList ((ConvertPath (gOfficePath + "user\work\html\perl\")), "*.*" , Liste() )
- WaitSlot (1000)
- if (KillFileList (Liste()) <> TRUE) then
- for i = 1 to ListCount (Liste())
- Warnlog "File Not deleted: " + i + ": '" + Liste(i) + "'"
- next i
- end if
+ app.mkDir (ConvertPath (gOfficePath + "user\work\html\asp\"))
+ app.mkDir (ConvertPath (gOfficePath + "user\work\html\perl\"))
+ Liste(0) = 0
+ GetFileList ((ConvertPath (gOfficePath + "user\work\html\asp\")), "*.*" , Liste() )
+ WaitSlot (1000)
+ if (KillFileList (Liste()) <> TRUE) then
+ for i = 1 to ListCount (Liste())
+ Warnlog "File Not deleted: " + i + ": '" + Liste(i) + "'"
+ next i
+ end if
+ Liste(0) = 0
+ GetFileList ((ConvertPath (gOfficePath + "user\work\html\perl\")), "*.*" , Liste() )
+ WaitSlot (1000)
+ if (KillFileList (Liste()) <> TRUE) then
+ for i = 1 to ListCount (Liste())
+ Warnlog "File Not deleted: " + i + ": '" + Liste(i) + "'"
+ next i
+ end if
- '/// File->Autopillot->Presentation... ///'----------------------------------
FileAutopilotPresentation
Kontext "Active"
if Active.Exists(1) then
WarnlogActive.GetText
try
- Active.OK
+ Active.OK
catch
- Active.No
+ Active.No
endcatch
goto endsub
end if
- '/// Page 1 of autopilot///'
Kontext "AutopilotPraesentation1"
- '/// uncheck 'preview' ///'
Preview.Uncheck
- '/// click on button 'create' ///'
AutopilotPraesentation1.OK
WaitSlot (3000)
'************************************************************ Page 1
- Printlog "'///<b> create a presentation and save it for further references </b>///'"
- '/// start creating the presentation now ///'-------------------------------
Printlog "- Create presentation"
- '/// select 'click to add title' with [TAB] and press [F2] to edit the placeholder title ///'
hTypeKeys "<TAB><F2>"
WaitSlot (2000)
Select Case Ucase(gApplication)
- case "DRAW" : hMouseClick DocumentDraw,50,50
- case "IMPRESS" : hMouseClick DocumentImpress,50,50
+ case "DRAW" : hMouseClick DocumentDraw,50,50
+ case "IMPRESS" : hMouseClick DocumentImpress,50,50
end select
WaitSlot (3000)
- '/// Type 'This is a test text', select it. ///'
hTextrahmenErstellen ("This is a test text",10,10,40,20)
EditSelectAll
Kontext "TextObjectbar"
- '/// click 'bold text' in object toolbar ///'
Fett.Click
WaitSlot (2000)
- '/// press [esacpe][tab] to get out of edit mode and select the next placeholder ///'
hTypeKeys "<escape><TAB>"
WaitSlot (1000)
- '/// SlideShow->Effects ///'
SlideShowCustomAnimation
WaitSlot (1000)
Kontext "Tasks"
WaitSlot (1000)
EffectAdd.Click
- '/// Dialog 'Custom Animation' comes up ///'
kontext
- '/// Switch to TabPage: Entrance ///'
active.setPage(TabEntrance)
Kontext "TabEntrance"
if TabEntrance.Exists (5) then
- WaitSlot (1000)
- '/// select effect 'ABC v' :-) ///'
- Effects.Select(5)
- '/// select speed 'slow' -> first item in list ///'
- Speed.Select 1
- try
- TabEntrance.Ok
- catch
- errorlog "SlideShowEffects wasnt closed as it should have been"
- endcatch
- if TabEntrance.Exists then
- TabEntrance.Close
- warnlog "TabEntrance.Ok didn't seem to close the dialog."
- else
- printlog "TabEntrance was closed as it should"
- end if
- kontext "Tasks"
- end if
- WaitSlot (3000)
- '/// activate grafik insert dialog by typing [return] ///'
-'Doesnt work, will work when accessability works better - FHA.
+ WaitSlot (1000)
+ Effects.Select(5)
+ Speed.Select 1
+ try
+ TabEntrance.Ok
+ catch
+ errorlog "SlideShowEffects wasnt closed as it should have been"
+ endcatch
+ if TabEntrance.Exists then
+ TabEntrance.Close
+ warnlog "TabEntrance.Ok didn't seem to close the dialog."
+ else
+ printlog "TabEntrance was closed as it should"
+ end if
+ kontext "Tasks"
+ end if
+ WaitSlot (3000)
+ 'Doesnt work, will work when accessability works better - FHA.
-' hTypeKEys "<return>" ' i love accessability feartures .-)))))))))))))))))
- InsertGraphicsFromFile
- Kontext "GrafikEinfuegenDlg"
- if GrafikEinfuegenDlg.Exists <> TRUE then
- WaitSlot (1000)
- end if
- '/// insert grafik: global\\input\\graf_inp\\borabora.jpg ///'
- Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\borabora.jpg")
- WaitSlot (3000)
- Oeffnen.Click
- WaitSlot (2000)
- '/// select 'click to add an outline' with [TAB] and press [F2] to edit the placeholder ///'
- hTypeKeys "<TAB><F2>"
- '/// insert text and select the words by typing [strg a] ///'
- hTypeKeys "Mecury<RETURN>Venus<RETURN>Earth<RETURN>Mars<RETURN>Jupiter<RETURN>Saturn<RETURN>Uranus<RETURN>Neptune<RETURN>Pluto"
- EditSelectAll
- WaitSlot (1000)
- '/// format->character ///'
- FormatCharacter
- WaitSlot (2000)
- Kontext
- Active.SetPage TabFont
- Kontext "TabFont"
- '/// set font size to '18' on tabpage 'font' ///'
- try
- SizeWest.SetText "18"
- catch
- Size.SetText "18"
- endcatch
- '/// click button OK ///'
- TabFont.OK
- WaitSlot (1000)
- '/// click 'bold text' in object toolbar ///'
- Kontext "TextObjectbar"
- try
- usebindings
- Fett.Click 'culprint
- catch
- warnlog "Objectbar 'Text' not available :-( / didn't change automatical!"
- hTypeKeys "<escape><escape><escape><tab><tab><TAB>"
- WaitSlot (1000)
- hTypeKeys "<F2>"
- hTypeKeys "<HOME>"
- hTypeKeys "<SHIFT><END>"
- Kontext "TextObjectbar"
- try
- usebindings
- Fett.Click 'culprint
- catch
- warnlog "darn again TBO"
- endcatch
- endcatch
- WaitSlot (2000)
- '/// SlideShow-> CustomAnimation ///'
- SlideShowCustomAnimation
- WaitSlot (1000)
- Kontext "Tasks"
- WaitSlot (1000)
- EffectChange.Click
- kontext
- '/// Switch to TabPage: Entrance ///'
- active.setPage(TabEntrance)
- kontext "TabEntrance"
- Effects.TypeKeys "<DOWN>",8
- Speed.Select 2
- try
- TabEntrance.Ok
- catch
- warnlog "select another effect, assign is not possible"
- endcatch
-'************************************************************ Page 2 Merkur
- '/// create a 2nd slide with: insert->slide ///'
- InsertSlide
- WaitSlot (2000)
- hTypekeys "<Pagedown>"
- WaitSlot (2000)
- '/// select 'click to add title' with [TAB] and press [F2] to edit the placeholder title ///'
- hTypeKeys "<TAB><F2>"
- WaitSlot (2000)
- '/// Type 'MERKUR', select it via Edit-Select All///'
- hTextrahmenErstellen ("MERKUR",10,10,60,30)
- EditSelectAll
- WaitSlot (2000)
- '/// click 'bold text' in object toolbar ///'
- Kontext "TextObjectbar"
- Fett.Click
- WaitSlot (1000)
- '/// press [esacpe][tab][return] to get out of edit mode and select the next placeholder and activate grafik insert dialog ///'
-' hTypeKeys "<escape><tab><return>"
- hTypeKeys "<escape><tab>"
- InsertGraphicsFromFile
- WaitSlot (4000)
- '/// insert grafik: global\\input\\graf_inp\\borabora.jpg ///'
- Kontext "GrafikEinfuegenDlg"
- Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\borabora.jpg")
- WaitSlot (3000)
- Oeffnen.Click
- WaitSlot (2000)
- '/// select 'click to add an outline' with [TAB] and press [F2] to edit the placeholder ///'
- hTypeKeys "<TAB><F2>"
- '/// insert text and select the words by typing [strg a] ///'
- WaitSlot (1000)
- hTypeKeys "Reciprocal Mass *5972000<SHIFT RETURN>Mass (Erde=1) 0,0558<SHIFT RETURN>Mass in kg 3,30310<SHIFT RETURN>"
- hTypeKeys "Equator-radius (km) 2440<SHIFT RETURN>Equator-radius (Erde=1)0,382<SHIFT RETURN>Middle density (kg/m^3) 5400<SHIFT RETURN>"
- hTypeKeys "Gravity acceleration at the equator (m/s^2) 3,78<SHIFT RETURN>Flightvelocity at the equator (km/s) 4,3<SHIFT RETURN>Sidereal rotationtime 58,65 Tage<SHIFT RETURN>"
- hTypeKeys "Bias of the equatorplane against the orbitplane 0><SHIFT RETURN>Time of circulation 88 days<SHIFT RETURN>Distance to the sun Sun (km) 58Mio.<SHIFT RETURN>Temperatur at the day 350C<SHIFT RETURN>"
- hTypeKeys "Temperatur at night -170C<SHIFT RETURN>Diameter (km) 4800"
- EditSelectAll
- WaitSlot (1000)
- '/// format->character ///'
- FormatCharacter
- WaitSlot (2000)
- Kontext
- Active.SetPage TabFont
- Kontext "TabFont"
- '/// set font size to '18' on tabpage 'font' ///'
- try
- SizeWest.SetText "16"
- catch
- Size.SetText "16"
- endcatch
- '/// click button OK ///'
- TabFont.OK
- WaitSlot (2000)
- '/// click 'bold text' in object toolbar ///'
- Kontext "TextObjectbar"
- try
- Fett.Click 'culprint
- catch
- warnlog "Objectbar 'Text' not available :-( / didn't change automatical!"
- hTypeKeys "<escape><escape><escape><tab><tab><TAB>"
- WaitSlot (1000)
- hTypeKeys "<F2>"
- hTypeKeys "<HOME>"
- hTypeKeys "<SHIFT><END>"
- Kontext "TextObjectbar"
- try
- Fett.Click 'culprint
- catch
- warnlog "darn again TBO"
- endcatch
- endcatch
- WaitSlot (2000)
- '/// save file with impress filter : "user\\work\\webcast.odp" ///'
- sFile = ConvertPath (gOfficePath + "user\work\webcast")
- if (Dir (sFile + ".odp") <> "") then app.kill (sFile + ".odp")
- WaitSlot (2000)
- hFileSaveAsWithFilterKill ((sFile + ".odp") , "impress8" )
- Printlog "saved presentation: '" + sFile + ".odp"
-'----------------------------------- Exportieren als ASP Web-Cast
- Printlog "'///<b> export as webcast ASP </b>///'"
- '/// File->SaveAs ///'
- FileExport
- WaitSlot (2000)
- Kontext "ExportierenDlg"
- try
- '/// select Filetype 'HTML...' aka 'WebPage' ///'
- gHTMLFilter = Dateityp.GetItemText(1)
- Dateityp.Select(gHTMLFilter)
- catch
- errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
- Dateityp.Select 1 '/// Selects the first entry - which should be html ///'
- endcatch
- '/// Set Filename to "user\\work\\webcst_asp.html" ///'
- sFile = ConvertPath (gOfficePath + "user\work\html\asp\webcast.html")
- Dateiname.SetText sFile
- '/// click button 'save' ///'
- Speichern.Click
- WaitSlot (5000)
- Kontext "Active"' ????????? TBO
- if Active.Exists (5) Then Active.Yes
- WaitSlot (3000)
- '/// now we are on the dialog -1- 'Assign design' ///'
- Kontext "HTMLExport1"
- WaitSlot (2000)
- '/// click button 'Next >>' ///'
- Weiter.Click
- WaitSlot (2000)
- '/// now we are on the dialog -2- 'Publication Type & Options' ///'
- Kontext "HTMLExport2"
- WaitSlot (2000)
- Printlog "'/// check 'WebCast' ///"
- WebCast.Check
- WaitSlot (2000)
- Printlog "'/// check 'Active Server Pages (ASP)' ///"
- ASP.Check
- '/// click button 'Next >>' ///'
- Weiter.Click
- '/// now we are on the dialog -3- 'gif/jpeg & resolution & sound' ///'
- Kontext "HTMLExport3"
- WaitSlot (2000)
- '/// check Save graphics as 'GIF' ///'
- Gif.Check
- '/// check 'Medium (monitor) Resolution' ///'
- MittlereAufloesung.Check
- WaitSlot (1000)
- '/// click button 'Create' ///'
- HTMLExport3.OK
- WaitSlot (2000)
- '/// now we are on the dialog -7- 'Name HTML Design' ///'
- Kontext "HTMLDesign"
- '/// click button 'Do Not Save' ///'
- if HTMLDesign.Exists Then HTMLDesign.Cancel
- iWaitIndex = 0
- do while HTMLDesign.Exists AND iWaitIndex < 30
- WaitSlot (1000)
- iWaitIndex = iWaitIndex + 1
- loop
- Printlog "- Check number of safed files"
- Printlog "file saved: '" + sFile + "'"
- Liste(0) = 0
- GetFileList ((ConvertPath (gOfficePath + "user\work\html\asp\")), "*.*" , Liste() )
- WaitSlot (1000)
- x = ListCount(Liste())
- if (x <> "11") Then
- Warnlog "- Number of files is not correct, it should be:11 but it is: '" + x + "'"
- for i=1 to x
- printlog "("+i+"/"+x+"): '"+Liste(i)+"'"
- next
- end if
-'----------------------------------- Exportieren als ASP Web-Cast
- Printlog "'///<b> export as webcast PERL </b>///'"
- Kontext "DocumentImpress"
- WaitSlot (2000)
- '/// File->export ///'
- FileExport
- WaitSlot (2000)
- Kontext "ExportierenDlg"
- '/// select Filetype 'HTML...' aka 'WebPage' ///'
- try
- Dateityp.Select gHTMLFilter
- catch
- errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
- Dateityp.Select 1 ' selects the first one just in case anything else is selected.
- printlog "Selected " + Dateityp.GetSelText + " manually."
- endcatch
- WaitSlot (1000)
- '/// Set Filename to "user\\work\\wbcst_p.html" ///'
- sFile = ConvertPath (gOfficePath + "user\work\html\perl\webcast")
- Dateiname.SetText sFile
- '/// click button 'save' ///'
- Speichern.Click
- WaitSlot (2000)
- Kontext "Active" '/// click button 'save' ///'
- if Active.Exists Then Active.Yes
- WaitSlot (2000)
- '/// now we are on the dialog -1- 'Assign design' ///'
- Kontext "HTMLExport1"
- WaitSlot (2000)
- '/// click button 'Next >>' ///'
- Weiter.Click
- WaitSlot (2000)
- '/// now we are on the dialog -2- 'Publication Type & Options' ///'
- Kontext "HTMLExport2"
- WaitSlot (2000)
- Printlog "'/// check 'WebCast' ///"
- WebCast.Check
- WaitSlot (2000)
- Printlog "'/// check 'Perl' ///"
- PERL.Check
- WaitSlot (1000)
- '/// 'URL for listeners' ///'
- printlog "URL for listeners compare to to TBO: '"+BeamerURL.GetText+"'"
- '/// set 'URL for presentation' to 'wbcst_prl.html' ///'
- PraesentationURL.SetText "wbcst_prl"
- WaitSlot (1000)
- '/// set 'URL for perl scrips' to '/WebCast/cgi-bin/' ///'
- ScriptURL.SetText "/WebCast/cgi-bin/"
- printlog "presentation url? : "+ (gOfficePath + "/WebCast/cgi-bin/wbcst_prl")
- WaitSlot (1000)
- '/// click button 'Next >>' ///'
- Weiter.Click
- WaitSlot (1000)
- '/// now we are on the dialog -3- 'gif/jpeg & resolution & sound' ///'
- Kontext "HTMLExport3"
- WaitSlot (1000)
- '/// check Save graphics as 'GIF' ///'
- Gif.Check
- '/// check 'Medium (monitor) Resolution' ///'
- MittlereAufloesung.Check
- WaitSlot (3000)
- '/// click button 'Create' ///'
- HTMLExport3.OK
- WaitSlot (3000)
- Kontext "HTMLDesign"
- if HTMLDesign.Exists Then HTMLDesign.Cancel
- Printlog "- Presentation saved and exported into both Webcast formats. all files can be found here: " + gOfficePath + "output\impress\web-cast\"
- Printlog "file saved: '" + sFile + ".html'"
- WaitSlot (10000)
- Liste(0) = 0
- GetFileList ((ConvertPath (gOfficePath + "user\work\html\perl\")), "*.*" , Liste() )
- x = ListCount(Liste())
- if (x <> "12") Then
- Warnlog "- Number of files is not correct, it should be:5 but it is: '" + x + "'"
- for i=1 to x
- printlog "("+i+"/"+x+"): '"+Liste(i)+"'"
- next
- end if
- Call hCloseDocument
+ ' hTypeKEys "<return>" ' i love accessability feartures .-)))))))))))))))))
+ InsertGraphicsFromFile
+ Kontext "GrafikEinfuegenDlg"
+ if GrafikEinfuegenDlg.Exists <> TRUE then
+ WaitSlot (1000)
+ end if
+ Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\borabora.jpg")
+ WaitSlot (3000)
+ Oeffnen.Click
+ WaitSlot (2000)
+ hTypeKeys "<TAB><F2>"
+ hTypeKeys "Mecury<RETURN>Venus<RETURN>Earth<RETURN>Mars<RETURN>Jupiter<RETURN>Saturn<RETURN>Uranus<RETURN>Neptune<RETURN>Pluto"
+ EditSelectAll
+ WaitSlot (1000)
+ FormatCharacter
+ WaitSlot (2000)
+ Kontext
+ Active.SetPage TabFont
+ Kontext "TabFont"
+ try
+ SizeWest.SetText "18"
+ catch
+ Size.SetText "18"
+ endcatch
+ TabFont.OK
+ WaitSlot (1000)
+ Kontext "TextObjectbar"
+ try
+ usebindings
+ Fett.Click 'culprint
+ catch
+ warnlog "Objectbar 'Text' not available :-( / didn't change automatical!"
+ hTypeKeys "<escape><escape><escape><tab><tab><TAB>"
+ WaitSlot (1000)
+ hTypeKeys "<F2>"
+ hTypeKeys "<HOME>"
+ hTypeKeys "<SHIFT><END>"
+ Kontext "TextObjectbar"
+ try
+ usebindings
+ Fett.Click 'culprint
+ catch
+ warnlog "darn again TBO"
+ endcatch
+ endcatch
+ WaitSlot (2000)
+ SlideShowCustomAnimation
+ WaitSlot (1000)
+ Kontext "Tasks"
+ WaitSlot (1000)
+ EffectChange.Click
+ kontext
+ active.setPage(TabEntrance)
+ kontext "TabEntrance"
+ Effects.TypeKeys "<DOWN>",8
+ Speed.Select 2
+ try
+ TabEntrance.Ok
+ catch
+ warnlog "select another effect, assign is not possible"
+ endcatch
+ '************************************************************ Page 2 Merkur
+ InsertSlide
+ WaitSlot (2000)
+ hTypekeys "<Pagedown>"
+ WaitSlot (2000)
+ hTypeKeys "<TAB><F2>"
+ WaitSlot (2000)
+ hTextrahmenErstellen ("MERKUR",10,10,60,30)
+ EditSelectAll
+ WaitSlot (2000)
+ Kontext "TextObjectbar"
+ Fett.Click
+ WaitSlot (1000)
+ ' hTypeKeys "<escape><tab><return>"
+ hTypeKeys "<escape><tab>"
+ InsertGraphicsFromFile
+ WaitSlot (4000)
+ Kontext "GrafikEinfuegenDlg"
+ Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\borabora.jpg")
+ WaitSlot (3000)
+ Oeffnen.Click
+ WaitSlot (2000)
+ hTypeKeys "<TAB><F2>"
+ WaitSlot (1000)
+ hTypeKeys "Reciprocal Mass *5972000<SHIFT RETURN>Mass (Erde=1) 0,0558<SHIFT RETURN>Mass in kg 3,30310<SHIFT RETURN>"
+ hTypeKeys "Equator-radius (km) 2440<SHIFT RETURN>Equator-radius (Erde=1)0,382<SHIFT RETURN>Middle density (kg/m^3) 5400<SHIFT RETURN>"
+ hTypeKeys "Gravity acceleration at the equator (m/s^2) 3,78<SHIFT RETURN>Flightvelocity at the equator (km/s) 4,3<SHIFT RETURN>Sidereal rotationtime 58,65 Tage<SHIFT RETURN>"
+ hTypeKeys "Bias of the equatorplane against the orbitplane 0><SHIFT RETURN>Time of circulation 88 days<SHIFT RETURN>Distance to the sun Sun (km) 58Mio.<SHIFT RETURN>Temperatur at the day 350C<SHIFT RETURN>"
+ hTypeKeys "Temperatur at night -170C<SHIFT RETURN>Diameter (km) 4800"
+ EditSelectAll
+ WaitSlot (1000)
+ FormatCharacter
+ WaitSlot (2000)
+ Kontext
+ Active.SetPage TabFont
+ Kontext "TabFont"
+ try
+ SizeWest.SetText "16"
+ catch
+ Size.SetText "16"
+ endcatch
+ TabFont.OK
+ WaitSlot (2000)
+ Kontext "TextObjectbar"
+ try
+ Fett.Click 'culprint
+ catch
+ warnlog "Objectbar 'Text' not available :-( / didn't change automatical!"
+ hTypeKeys "<escape><escape><escape><tab><tab><TAB>"
+ WaitSlot (1000)
+ hTypeKeys "<F2>"
+ hTypeKeys "<HOME>"
+ hTypeKeys "<SHIFT><END>"
+ Kontext "TextObjectbar"
+ try
+ Fett.Click 'culprint
+ catch
+ warnlog "darn again TBO"
+ endcatch
+ endcatch
+ WaitSlot (2000)
+ sFile = ConvertPath (gOfficePath + "user\work\webcast")
+ if (Dir (sFile + ".odp") <> "") then app.kill (sFile + ".odp")
+ WaitSlot (2000)
+ hFileSaveAsWithFilterKill ((sFile + ".odp") , "impress8" )
+ Printlog "saved presentation: '" + sFile + ".odp"
+ '----------------------------------- Exportieren als ASP Web-Cast
+ FileExport
+ WaitSlot (2000)
+ Kontext "ExportierenDlg"
+ try
+ gHTMLFilter = Dateityp.GetItemText(1)
+ Dateityp.Select(gHTMLFilter)
+ catch
+ errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
+ endcatch
+ sFile = ConvertPath (gOfficePath + "user\work\html\asp\webcast.html")
+ Dateiname.SetText sFile
+ Speichern.Click
+ WaitSlot (5000)
+ Kontext "Active"' ????????? TBO
+ if Active.Exists (5) Then Active.Yes
+ WaitSlot (3000)
+ Kontext "HTMLExport1"
+ WaitSlot (2000)
+ Weiter.Click
+ WaitSlot (2000)
+ Kontext "HTMLExport2"
+ WaitSlot (2000)
+ WebCast.Check
+ WaitSlot (2000)
+ ASP.Check
+ Weiter.Click
+ Kontext "HTMLExport3"
+ WaitSlot (2000)
+ Gif.Check
+ MittlereAufloesung.Check
+ WaitSlot (1000)
+ HTMLExport3.OK
+ WaitSlot (2000)
+ Kontext "HTMLDesign"
+ if HTMLDesign.Exists Then HTMLDesign.Cancel
+ iWaitIndex = 0
+ do while HTMLDesign.Exists AND iWaitIndex < 30
+ WaitSlot (1000)
+ iWaitIndex = iWaitIndex + 1
+ loop
+ Printlog "- Check number of safed files"
+ Printlog "file saved: '" + sFile + "'"
+ Liste(0) = 0
+ GetFileList ((ConvertPath (gOfficePath + "user\work\html\asp\")), "*.*" , Liste() )
+ WaitSlot (1000)
+ x = ListCount(Liste())
+ if (x <> "11") Then
+ Warnlog "- Number of files is not correct, it should be:11 but it is: '" + x + "'"
+ for i=1 to x
+ printlog "("+i+"/"+x+"): '"+Liste(i)+"'"
+ next
+ end if
+ '----------------------------------- Exportieren als ASP Web-Cast
+ Kontext "DocumentImpress"
+ WaitSlot (2000)
+ FileExport
+ WaitSlot (2000)
+ Kontext "ExportierenDlg"
+ try
+ Dateityp.Select gHTMLFilter
+ catch
+ errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
+ Dateityp.Select 1 ' selects the first one just in case anything else is selected.
+ printlog "Selected " + Dateityp.GetSelText + " manually."
+ endcatch
+ WaitSlot (1000)
+ sFile = ConvertPath (gOfficePath + "user\work\html\perl\webcast")
+ Dateiname.SetText sFile
+ Speichern.Click
+ WaitSlot (2000)
+ if Active.Exists Then Active.Yes
+ WaitSlot (2000)
+ Kontext "HTMLExport1"
+ WaitSlot (2000)
+ Weiter.Click
+ WaitSlot (2000)
+ Kontext "HTMLExport2"
+ WaitSlot (2000)
+ WebCast.Check
+ WaitSlot (2000)
+ PERL.Check
+ WaitSlot (1000)
+ printlog "URL for listeners compare to to TBO: '"+BeamerURL.GetText+"'"
+ PraesentationURL.SetText "wbcst_prl"
+ WaitSlot (1000)
+ ScriptURL.SetText "/WebCast/cgi-bin/"
+ printlog "presentation url? : "+ (gOfficePath + "/WebCast/cgi-bin/wbcst_prl")
+ WaitSlot (1000)
+ Weiter.Click
+ WaitSlot (1000)
+ Kontext "HTMLExport3"
+ WaitSlot (1000)
+ Gif.Check
+ MittlereAufloesung.Check
+ WaitSlot (3000)
+ HTMLExport3.OK
+ WaitSlot (3000)
+ Kontext "HTMLDesign"
+ if HTMLDesign.Exists Then HTMLDesign.Cancel
+ Printlog "- Presentation saved and exported into both Webcast formats. all files can be found here: " + gOfficePath + "output\impress\web-cast\"
+ Printlog "file saved: '" + sFile + ".html'"
+ WaitSlot (10000)
+ Liste(0) = 0
+ GetFileList ((ConvertPath (gOfficePath + "user\work\html\perl\")), "*.*" , Liste() )
+ x = ListCount(Liste())
+ if (x <> "12") Then
+ Warnlog "- Number of files is not correct, it should be:5 but it is: '" + x + "'"
+ for i=1 to x
+ printlog "("+i+"/"+x+"): '"+Liste(i)+"'"
+ next
+ end if
+ Call hCloseDocument
- ' TBO: TODO FILECHECK IF EXISTS
+ ' TBO: TODO FILECHECK IF EXISTS
endcase
diff --git a/testautomation/graphics/optional/includes/global/g_find_replace.inc b/testautomation/graphics/optional/includes/global/g_find_replace.inc
index 656fbe5f5537..49b38dd85713 100755
--- a/testautomation/graphics/optional/includes/global/g_find_replace.inc
+++ b/testautomation/graphics/optional/includes/global/g_find_replace.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
@@ -43,53 +43,52 @@
'\**********************************************************************************
testcase tiEditSearchAndReplace
- '/// This test tests the 'Search and Replace' -dialogue. ///'
- Dim sFile 'as string
- Dim sExpression(2) as string ' Expression to look for: ... Replace with
- dim sExt as string
+ Dim sFile 'as string
+ Dim sExpression(2) as string ' Expression to look for: ... Replace with
+ dim sExt as string
- Select Case Ucase(gApplication)
- case "DRAW" : sExt = ".odg"
- case "IMPRESS" : sExt = ".odp"
- end select
+ Select Case Ucase(gApplication)
+ case "DRAW" : sExt = ".odg"
+ case "IMPRESS" : sExt = ".odp"
+ end select
- 'First we need some errornes words to replace. (sExpression)
- 'sExpression(1) has to be 3 times in the document
- select case iSprache
- case 01 : sExpression(1) = "Alle" : sExpression(2) = "Allz"
- case 03 : sExpression(1) = "empreza" : sExpression(2) = "Emperor" ' Portuguese
- case 07 : qaerrorlog "No files for Russian yet, will use english instead."
- sExpression(1) = "Alle" : sExpression(2) = "Allz"
- case 30 : ' Greek
- case 31 : sExpression(1) = "bedoeling" : sExpression(2) = "Bedoling" ' Netherlands
- case 33 : sExpression(1) = "projjet" : sExpression(2) = "projete" ' French
- case 34 : sExpression(1) = "lazsos" : sExpression(2) = "Lazsi" ' Spanish
- case 35 : ' Finnish
- case 36 : sExpression(1) = "Bozniai" : sExpression(2) = "Boszniai" ' Hungaria
- case 37 : ' Catalan
- case 39 : sExpression(1) = "Presentazione" : sExpression(2) = "Raggazi" ' Italian
- case 42 : ' Czech
- case 43 : ' Slowak
- case 44 : ' English (GB)
- case 45 : sExpression(1) = "installlere" : sExpression(2) = "installer" ' Danish
- case 46 : sExpression(1) = "desa" : sExpression(2) = "ased" ' Swedish
- case 47 : ' Norwegian
- case 48 : sExpression(1) = "programmu" : sExpression(2) = "programu" ' Polish
- case 49 : sExpression(1) = "Texxt" : sExpression(2) = "Schrieb" ' German
- case 55 : sExpression(1) = "esktava" : sExpression(2) = "norte" ' Portuguese (Brazil)
- case 66 : ' Thai
-' case 81 : sExpression(1) = "���" : sExpression(2) = "���" ' Japanese
- ' case 82 : ' Korean
- ' case 86 : ' Chinese (simplified)
- ' case 88 : ' Chinese (traditional)
- case 90 : ' Turkish
- case 91 : ' Hindi
- case 96 : ' Arab
- case 97 : ' Hebrew
- case else :
-' Warnlog "For the language " + iSprache +" nothing is prepared yet: insert text here and create the file"
- printlog " :-) Will use English instead"
- sExpression(1) = "Alle" : sExpression(2) = "Allz"
+ 'First we need some errornes words to replace. (sExpression)
+ 'sExpression(1) has to be 3 times in the document
+ select case iSprache
+ case 01 : sExpression(1) = "Alle" : sExpression(2) = "Allz"
+ case 03 : sExpression(1) = "empreza" : sExpression(2) = "Emperor" ' Portuguese
+ case 07 : qaerrorlog "No files for Russian yet, will use english instead."
+ sExpression(1) = "Alle" : sExpression(2) = "Allz"
+ case 30 : ' Greek
+ case 31 : sExpression(1) = "bedoeling" : sExpression(2) = "Bedoling" ' Netherlands
+ case 33 : sExpression(1) = "projjet" : sExpression(2) = "projete" ' French
+ case 34 : sExpression(1) = "lazsos" : sExpression(2) = "Lazsi" ' Spanish
+ case 35 : ' Finnish
+ case 36 : sExpression(1) = "Bozniai" : sExpression(2) = "Boszniai" ' Hungaria
+ case 37 : ' Catalan
+ case 39 : sExpression(1) = "Presentazione" : sExpression(2) = "Raggazi" ' Italian
+ case 42 : ' Czech
+ case 43 : ' Slowak
+ case 44 : ' English (GB)
+ case 45 : sExpression(1) = "installlere" : sExpression(2) = "installer" ' Danish
+ case 46 : sExpression(1) = "desa" : sExpression(2) = "ased" ' Swedish
+ case 47 : ' Norwegian
+ case 48 : sExpression(1) = "programmu" : sExpression(2) = "programu" ' Polish
+ case 49 : sExpression(1) = "Texxt" : sExpression(2) = "Schrieb" ' German
+ case 55 : sExpression(1) = "esktava" : sExpression(2) = "norte" ' Portuguese (Brazil)
+ case 66 : ' Thai
+ ' case 81 : sExpression(1) = "���" : sExpression(2) = "���" ' Japanese
+ ' case 82 : ' Korean
+ ' case 86 : ' Chinese (simplified)
+ ' case 88 : ' Chinese (traditional)
+ case 90 : ' Turkish
+ case 91 : ' Hindi
+ case 96 : ' Arab
+ case 97 : ' Hebrew
+ case else :
+ ' Warnlog "For the language " + iSprache +" nothing is prepared yet: insert text here and create the file"
+ printlog " :-) Will use English instead"
+ sExpression(1) = "Alle" : sExpression(2) = "Allz"
end select
if ((bAsianLan) OR (iSprache = 07)) then
@@ -114,74 +113,61 @@ testcase tiEditSearchAndReplace
Messagebox.OK
end if
sleep 2
- hTypeKeys "<MOD1 HOME>" '/// Select the text ///'
- '/// Edit-Find & Replace I///'
EditSearchAndReplace
sleep 1
Kontext "FindAndReplace"
- '/// Clap the 'more options'-part open ///'
More.Click
- '/// verify, that search is done without 'similarity search' !!! ///'
if SimilaritySearch.IsChecked = TRUE then
SimilaritySearch.UnCheck
warnlog "'Similar search' checkbox was enabled! It shouldn't be the default!"
end if
- SearchFor.SetText sExpression(1) '/// set Search text ///'
- ReplaceWith.SetText sExpression(2) '/// set Replace text///'
- '/// Word has to be there ONLY three times ///'
- SearchNow.Click '/// 1st search for text ///'
Kontext "Messagebox"
- if Messagebox.Exists(2) then
- Printlog Messagebox.GetText
- Messagebox.OK
- end if
+ if Messagebox.Exists(2) then
+ Printlog Messagebox.GetText
+ Messagebox.OK
+ end if
sleep 1
Kontext "FindAndReplace"
- SearchNow.Click '/// 2nd search for text ///'
Kontext "Messagebox"
- if Messagebox.Exists(2) then
- Printlog Messagebox.GetText
- Messagebox.OK
- end if
+ if Messagebox.Exists(2) then
+ Printlog Messagebox.GetText
+ Messagebox.OK
+ end if
sleep 1
Kontext "FindAndReplace"
- SearchNow.Click '/// 3th search for text///'
Kontext "Messagebox"
- if Messagebox.Exists(2) then
- Printlog Messagebox.GetText
- Messagebox.OK
- end if
+ if Messagebox.Exists(2) then
+ Printlog Messagebox.GetText
+ Messagebox.OK
+ end if
sleep 1
Kontext "FindAndReplace"
- SearchNow.Click '/// 4th search for text; but it is no more available!///'
sleep 2
kontext "Messagebox"
if Messagebox.Exists Then
Printlog "- The word was found 3 times: '" + messagebox.gettext + "'"
Messagebox.OK
else
- SearchNow.Click '/// 5th search for word 1///'
kontext
if Messagebox.Exists (5) Then
Printlog "?: "+Messagebox.gettext
- Warnlog "- No MsgBox appeared: 'changed'"
+ Warnlog "- No MsgBox appeared: 'changed'"
Messagebox.OK
endif
Warnlog "- No MsgBox appeared: 'changed'"
end if
- '/// Replace all ///'
Kontext "FindAndReplace"
sleep 1
ReplaceAll.Click
Kontext "Messagebox"
if Not Messagebox.Exists (2) then
- ' Warnlog " Not all words are replaced" ' there never was a mesagebox ! (compared to 5.2)
+ ' Warnlog " Not all words are replaced" ' there never was a mesagebox ! (compared to 5.2)
else
printlog messagebox.gettext
qaerrorlog "^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
@@ -189,7 +175,6 @@ testcase tiEditSearchAndReplace
end if
Kontext "FindAndReplace"
sleep 2
- SearchNow.Click '/// Search for word 1 to check if all words are replaced ///'
Kontext "Messagebox"
if Not Messagebox.Exists then
Warnlog " Not all words are replaced (Replace All)"
@@ -201,17 +186,13 @@ testcase tiEditSearchAndReplace
FindAndReplace.Close
sleep 3
- '/// Edit-Find & Replace II ///'
gMouseClick 50,50
sleep 1
hTypeKeys "<MOD1 HOME>"
EditSearchAndReplace
sleep 1
Kontext "FindAndReplace"
- SearchFor.SetText sExpression(2) '/// Search for word 2 ///'
- ReplaceWith.SetText sExpression(1) '/// Replace with word 1 ///'
- Replace.Click '/// Replace 1 ///'
Kontext "Messagebox"
if Messagebox.Exists(4) Then
Kontext "Messagebox"
@@ -223,7 +204,6 @@ testcase tiEditSearchAndReplace
Kontext "FindAndReplace"
sleep 1
- SearchNow.Click '/// 2nd search for word 2 ///'
Kontext "Messagebox"
if Messagebox.Exists(2) Then
Warnlog " All words got replaced, but only the 1st should have been"
@@ -234,7 +214,6 @@ testcase tiEditSearchAndReplace
Printlog " Word replaced"
end if
- '/// Replace all ///'
Kontext "FindAndReplace"
ReplaceAll.Click
kontext "Messagebox"
@@ -244,7 +223,6 @@ testcase tiEditSearchAndReplace
Printlog "- No messagebox after replace all"
end if
- '/// Search for word 2 to check if all are replaced ///'
Kontext "FindAndReplace"
SearchNow.Click
kontext "Messagebox"
@@ -259,108 +237,98 @@ testcase tiEditSearchAndReplace
More.Click
FindAndReplace.Close
sleep 2
- '/// Close document ///'
Call hCloseDocument
endcase
testcase tiEditSearchAndReplaceBUGS
-'/// inspired by bugs: 101974, 101975, 101976 ///'
- dim i as integer
- dim bTemp as boolean
+ dim i as integer
+ dim bTemp as boolean
- '/// open application ///'
- Call hNewDocument
- sleep 3
- '/// Edit->Search and Replace ///'
- EditSearchAndReplace
- Kontext "FindAndReplace"
- if FindAndReplace.Exists (5) then
- Printlog "Dialog for Search&Replace could be opened :-)"
- else
- Warnlog "Dialog for Search&Replace could NOT be opened :-("
- endif
+ Call hNewDocument
+ sleep 3
+ EditSearchAndReplace
+ Kontext "FindAndReplace"
+ if FindAndReplace.Exists (5) then
+ Printlog "Dialog for Search&Replace could be opened :-)"
+ else
+ Warnlog "Dialog for Search&Replace could NOT be opened :-("
+ endif
- '/// for al 5 views in 'View->Workspace->...' do: ///'
- for i = 1 to 6
- Printlog "- " + i + " View->Workspace->... ------------------------------------------------------"
- try
- select case i
+ for i = 1 to 6
+ Printlog "- " + i + " View->Workspace->... ------------------------------------------------------"
+ try
+ select case i
case 1:Printlog " Drawing"
- ViewWorkspaceDrawingView
+ ViewWorkspaceDrawingView
case 2:Printlog " Outline"
- ViewWorkspaceOutlineView
+ ViewWorkspaceOutlineView
case 3:Printlog " Slides"
- ViewWorkspaceSlidesView
+ ViewWorkspaceSlidesView
case 4:Printlog " Notes"
- ViewWorkspaceNotesView
+ ViewWorkspaceNotesView
case 5:Printlog " Handout"
- ' this is done this way, to regcognize BUGID:101975
- ViewWorkspaceHandoutView
+ ' this is done this way, to regcognize BUGID:101975
+ ViewWorkspaceHandoutView
case 6:Printlog " Drawing"
- ViewWorkspaceDrawingView
- end select
- catch
- Warnlog "Couldn't excecute the last view ^^^^^^^^^ :-("
- Printlog "Will close the search&replace dialog as a workaround and then try to switch to the view again"
- Kontext "FindAndReplace"
- FindAndReplace.close
- sleep 5
- try
- select case i
- case 1:ViewWorkspaceDrawingView
- case 2:ViewWorkspaceOutlineView
- case 3:ViewWorkspaceSlidesView
- case 4:ViewWorkspaceNotesView
- case 5:ViewWorkspaceHandoutView
+ ViewWorkspaceDrawingView
end select
- catch
- Warnlog "Couldn't really switch the view :-("
- endcatch
- endcatch
- sleep 5
- Kontext "FindAndReplace"
- '///+ if not already open, open. edit->search and replace ///'
- if (FindAndReplace.exists <> TRUE) then
- try
- EditSearchAndReplace
- catch
- endcatch
- endif
- if (FindAndReplace.exists <> TRUE) then
- if (i=3) then
- ' SlideView
- else
- Warnlog "Search and replace was not open, and could not be opened :-("
- endif
- else
- Kontext "FindAndReplace"
- '///+ set text to look for to "a" ///'
- SearchFor.SetText "a"
- Printlog "'///+ click button 'find' ///'"
- SearchNow.Click
- sleep 5
- kontext
- '///+ if active exists 'wrap/not found...' say OK ///'
- if active.exists(5) then
- Printlog "Active: '" + active.GetText + "'"
+ catch
+ Warnlog "Couldn't excecute the last view ^^^^^^^^^ :-("
+ Printlog "Will close the search&replace dialog as a workaround and then try to switch to the view again"
+ Kontext "FindAndReplace"
+ FindAndReplace.close
+ sleep 5
try
- active.ok
+ select case i
+ case 1:ViewWorkspaceDrawingView
+ case 2:ViewWorkspaceOutlineView
+ case 3:ViewWorkspaceSlidesView
+ case 4:ViewWorkspaceNotesView
+ case 5:ViewWorkspaceHandoutView
+ end select
catch
- active.yes
- sleep 2
- if active.exists(5) then
- Printlog "Active: '" + active.GetText + "'"
- active.ok
- endif
+ Warnlog "Couldn't really switch the view :-("
endcatch
- else
- ' this is done this way, to regcognize BUGID:101974
- Warnlog "No message about 'search key not found' :-("
- endif
- endif
- next i
- Kontext "FindAndReplace"
- FindAndReplace.cancel
- '/// close application ///'
- Call hCloseDocument
+ endcatch
+ sleep 5
+ Kontext "FindAndReplace"
+ if (FindAndReplace.exists <> TRUE) then
+ try
+ EditSearchAndReplace
+ catch
+ endcatch
+ endif
+ if (FindAndReplace.exists <> TRUE) then
+ if (i=3) then
+ ' SlideView
+ else
+ Warnlog "Search and replace was not open, and could not be opened :-("
+ endif
+ else
+ Kontext "FindAndReplace"
+ SearchFor.SetText "a"
+ SearchNow.Click
+ sleep 5
+ kontext
+ if active.exists(5) then
+ Printlog "Active: '" + active.GetText + "'"
+ try
+ active.ok
+ catch
+ active.yes
+ sleep 2
+ if active.exists(5) then
+ Printlog "Active: '" + active.GetText + "'"
+ active.ok
+ endif
+ endcatch
+ else
+ ' this is done this way, to regcognize BUGID:101974
+ Warnlog "No message about 'search key not found' :-("
+ endif
+ endif
+ next i
+ Kontext "FindAndReplace"
+ FindAndReplace.cancel
+ Call hCloseDocument
endcase
diff --git a/testautomation/graphics/optional/includes/global/g_format.inc b/testautomation/graphics/optional/includes/global/g_format.inc
index 6ba987346dae..ed738933ad37 100755
--- a/testautomation/graphics/optional/includes/global/g_format.inc
+++ b/testautomation/graphics/optional/includes/global/g_format.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,266 +53,215 @@ testcase tiFormatText
Dim ZaehlerEffekt
dim sTemp as string
- '/// open application ///'
Call hNewDocument
- '/// create a textbox with text ///'
Call hTextrahmenErstellen ("This is a text, which, I hope, in Staroffice, will be automaticly formatted. Should that not be the case, then it doesn't matter.",20,20,70,20)
WaitSlot (1000)
- '/// click outside of textbox, to leave edit mode of textbox and deselect it ///'
gMouseClick 99,99
- '/// type key [TAB] to select textbox again ///'
hTypeKeys "<TAB>"
- '/// Format->Position and Size ///'
FormatPositionAndSize
- Kontext
- '/// select tabpage 'Format and Size' on dialog 'Position and Size' ///'
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- sleep 2
- '/// get and remember Position: 'Position X' ///'
- a = PositionX.GetText
- '/// close dialog 'Position and Size' with OK ///'
- TabPositionAndSize.OK
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ sleep 2
+ a = PositionX.GetText
+ TabPositionAndSize.OK
- '/// Format -> Text... ///'
FormatTextDraw
- Kontext
- '/// select tabpage 'Text' ///'
- Active.SetPage TabText
- Kontext "TabText"
- '/// Check checkbox 'Fit width to text' ///'
- BreiteAnTextAnpassen.Check
- '/// leave dialog with OK ///'
- TabText.OK
+ Kontext
+ Active.SetPage TabText
+ Kontext "TabText"
+ BreiteAnTextAnpassen.Check
+ TabText.OK
- '/// Dialog should have been resized and moved now! ///'
- '/// Format->Position and Size ///'
ContextPositionAndSize
- Kontext
- '/// select tabpage 'Format and Size' on dialog 'Position and Size' ///'
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- WaitSlot (2000)
- '/// compare 'Position X' with saved value - has to be different ///'
- sTemp = PositionX.GetText
- if (sTemp <> a) Then
- Printlog " - Fit to frame does work"
- else
- warnlog " - Fit to frame doesn't work: expected: '" + a + "' is: '" + + "'"
- end if
- '/// get and remember Position: 'Position Y' ///'
- b=PositionY.GetText
- TabPositionAndSize.OK
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ WaitSlot (2000)
+ sTemp = PositionX.GetText
+ if (sTemp <> a) Then
+ Printlog " - Fit to frame does work"
+ else
+ warnlog " - Fit to frame doesn't work: expected: '" + a + "' is: '" + + "'"
+ end if
+ b=PositionY.GetText
+ TabPositionAndSize.OK
- '/// Format -> Text... ///'
FormatTextDraw
- Kontext
- '/// select tabpage 'Text' ///'
- Active.SetPage TabText
- Kontext "TabText"
- '/// UNCheck checkbox 'Fit width to text' ///'
- BreiteAnTextAnpassen.Uncheck
- '/// check checkbox 'Fit height to text' ///'
- HoeheAnTextAnpassen.Check
- '/// if checkbox 'Fit to frame' is enabled: this state only happens, if 'Fit height to text' and 'Fit width to text' are checked ///'
- if AmRahmenAnpassen.IsEnabled Then
- WarnLog " - checkbox 'Fit to frame' is enabled, which is wrong!"
- else
- PrintLog " - checkbox 'Fit to frame' is disabled."
- end if
- WaitSlot (1000)
- '/// UNcheck checkbox 'Fit height to text' ///'
- HoeheAnTextAnpassen.UnCheck
- '/// UNCheck checkbox 'Fit width to text' ///'
- BreiteAnTextAnpassen.UnCheck
- '/// if checkbox 'Fit to frame' is disabled: this state only happens, if 'Fit height to text' and/or 'Fit width to text' are checked ///'
- if AmRahmenAnpassen.IsEnabled Then
- PrintLog " - checkbox 'Fit to frame' is enabled."
- else
- WarnLog " - checkbox 'Fit to frame' is disabled, which is wrong!"
- end if
-' PrintLog "Full width: " + GanzeBreite.IsChecked
- '/// set metric field 'Left' to 10 ///'
- Links.SetText "10"
- '/// set metric field 'Right' to 10 ///'
- Rechts.SetText "10"
- '/// set metric field 'Top' to 10 ///'
- Oben.SetText "10"
- '/// set metric field 'Bottom' to 10 ///'
- Unten.SetText "10"
- '/// leave dialog with OK ///'
- TabText.OK
-
- '/// Edit -> Select All ///'
+ Kontext
+ Active.SetPage TabText
+ Kontext "TabText"
+ BreiteAnTextAnpassen.Uncheck
+ HoeheAnTextAnpassen.Check
+ if AmRahmenAnpassen.IsEnabled Then
+ WarnLog " - checkbox 'Fit to frame' is enabled, which is wrong!"
+ else
+ PrintLog " - checkbox 'Fit to frame' is disabled."
+ end if
+ WaitSlot (1000)
+ HoeheAnTextAnpassen.UnCheck
+ BreiteAnTextAnpassen.UnCheck
+ if AmRahmenAnpassen.IsEnabled Then
+ PrintLog " - checkbox 'Fit to frame' is enabled."
+ else
+ WarnLog " - checkbox 'Fit to frame' is disabled, which is wrong!"
+ end if
+ ' PrintLog "Full width: " + GanzeBreite.IsChecked
+ Links.SetText "10"
+ Rechts.SetText "10"
+ Oben.SetText "10"
+ Unten.SetText "10"
+ TabText.OK
+
EditSelectAll
- '/// type Keys [Strg]+[x] to cut object ///'
hTypeKeys "<MOD1 X>"
- '/// No object exists in dokument right now! ///'
- '/// Format -> Text... ///'
FormatTextDraw
- Kontext
- '/// select tabpage 'Text' ///'
- Active.SetPage TabText
- Kontext "TabText"
- '/// check checkbox 'Adjust to contour' ///'
- Konturfluss.Check
- '/// now every other control on the dialog has to get disabled ///'
- if ((AmRahmenAnpassen.IsEnabled=False) And (Links.IsEnabled=False) And (Rechts.IsEnabled=False) And (Oben.IsEnabled=False) And (Unten.IsEnabled =False)) Then
- PrintLog " - Adjust to contour is working"
- else
- WarnLog " - contourflow aktivated doesn't work it's supposed to"
- end if
- '/// leave dialog with OK ///'
- TabText.OK
+ Kontext
+ Active.SetPage TabText
+ Kontext "TabText"
+ Konturfluss.Check
+ if ((AmRahmenAnpassen.IsEnabled=False) And (Links.IsEnabled=False) And (Rechts.IsEnabled=False) And (Oben.IsEnabled=False) And (Unten.IsEnabled =False)) Then
+ PrintLog " - Adjust to contour is working"
+ else
+ WarnLog " - contourflow aktivated doesn't work it's supposed to"
+ end if
+ TabText.OK
- '/// create a textbox with text ///'
Call hTextrahmenErstellen ("blablablablablablablablablablablabla",20,20,60,60)
WaitSlot (5000)
- '/// Format -> Text... ///'
FormatTextDraw
- Kontext
- '/// select tabpage 'Text Animation' ///'
- Active.SetPage TabLauftext
- Kontext "TabLauftext"
+ Kontext
+ Active.SetPage TabLauftext
+ Kontext "TabLauftext"
- ZaehlerEffekt = Effekt.GetItemCount
- if (ZaehlerEffekt <> 5) then
- qaerrorlog "There are now more or less than 5 Effects - Change testcase! " + ZaehlerEffekt
+ ZaehlerEffekt = Effekt.GetItemCount
+ if (ZaehlerEffekt <> 5) then
+ qaerrorlog "There are now more or less than 5 Effects - Change testcase! " + ZaehlerEffekt
+ end if
+ for n=1 to ZaehlerEffekt
+ Effekt.Select n
+ printlog "" + n + ": '" + Effekt.getSelText + "' -------------------------------"
+ if (n > 2) then
+ for i = 1 to 4
+ printlog "" + i
+ select case i
+ case 1: NachOben.click
+ case 2: NachLinks.click
+ case 3: NachRechts.click
+ case 4: NachUnten.click
+ end select
+ sFormatTextDrawAnimation
+ next i
end if
- for n=1 to ZaehlerEffekt
- Effekt.Select n
- printlog "" + n + ": '" + Effekt.getSelText + "' -------------------------------"
- if (n > 2) then
- '/// test all directions ///'
- for i = 1 to 4
- printlog "" + i
- select case i
- case 1: NachOben.click
- case 2: NachLinks.click
- case 3: NachRechts.click
- case 4: NachUnten.click
- end select
- sFormatTextDrawAnimation
- next i
- end if
- if ((n > 1) AND (n < 5)) then
- '/// test all Start/End Text visibility ///'
- for i = 1 to 4
- printlog "" + i
- select case i
- case 1: TextSichtbarBeimStarten.check : TextSichtbarBeimBeenden.uncheck
- case 2: TextSichtbarBeimBeenden.check
- case 3: TextSichtbarBeimStarten.uncheck
- case 4: TextSichtbarBeimBeenden.uncheck
- end select
- sFormatTextDrawAnimation
- next i
- end if
- if ((n > 1) AND (n < 5)) then
- '/// test all Animation cycles ///'
- for i = 1 to 3
- printlog "" + i
- select case i
- case 1: Endlos.check
- case 2: Endlos.UnCheck : Anzahl.typeKeys ("<PageUp>")
- case 3: If Endlos.IsChecked = true then
- QaErrorLog "#i74067# - Checkbox checked when it shouldn't have been."
- Endlos.UnCheck
- end if
- Anzahl.setText ("1")
- end select
- sFormatTextDrawAnimation
- next i
- end if
- if (n > 2) then
- '/// test all Increment ///'
- for i = 1 to 4
- printlog "" + i
- select case i
- case 1: Pixel.check : Schrittweite.setText("1")
- case 2: printlog "#114551# Loop, if Step greater than object size"
- case 3: Pixel.UnCheck : Schrittweite.typeKeys ("<PageDown>")
- case 4: printlog "#114551# Loop, if Step greater than object size"
- end select
- sFormatTextDrawAnimation
- next i
- end if
- if (n > 1) then
- '/// test all Delay ///'
- for i = 1 to 3
- printlog "" + i
- select case i
- case 1: Automatisch.check
- case 2: Automatisch.UnCheck : Verzoegerung.setText("1")
- case 3: Verzoegerung.typeKeys ("<PageUp>")
- end select
- sFormatTextDrawAnimation
- next i
- end if
- next n
- TabLauftext.OK
- Call hCloseDocument
+ if ((n > 1) AND (n < 5)) then
+ for i = 1 to 4
+ printlog "" + i
+ select case i
+ case 1: TextSichtbarBeimStarten.check : TextSichtbarBeimBeenden.uncheck
+ case 2: TextSichtbarBeimBeenden.check
+ case 3: TextSichtbarBeimStarten.uncheck
+ case 4: TextSichtbarBeimBeenden.uncheck
+ end select
+ sFormatTextDrawAnimation
+ next i
+ end if
+ if ((n > 1) AND (n < 5)) then
+ for i = 1 to 3
+ printlog "" + i
+ select case i
+ case 1: Endlos.check
+ case 2: Endlos.UnCheck : Anzahl.typeKeys ("<PageUp>")
+ case 3: If Endlos.IsChecked = true then
+ QaErrorLog "#i74067# - Checkbox checked when it shouldn't have been."
+ Endlos.UnCheck
+ end if
+ Anzahl.setText ("1")
+ end select
+ sFormatTextDrawAnimation
+ next i
+ end if
+ if (n > 2) then
+ for i = 1 to 4
+ printlog "" + i
+ select case i
+ case 1: Pixel.check : Schrittweite.setText("1")
+ case 2: printlog "#114551# Loop, if Step greater than object size"
+ case 3: Pixel.UnCheck : Schrittweite.typeKeys ("<PageDown>")
+ case 4: printlog "#114551# Loop, if Step greater than object size"
+ end select
+ sFormatTextDrawAnimation
+ next i
+ end if
+ if (n > 1) then
+ for i = 1 to 3
+ printlog "" + i
+ select case i
+ case 1: Automatisch.check
+ case 2: Automatisch.UnCheck : Verzoegerung.setText("1")
+ case 3: Verzoegerung.typeKeys ("<PageUp>")
+ end select
+ sFormatTextDrawAnimation
+ next i
+ end if
+next n
+TabLauftext.OK
+Call hCloseDocument
endcase 'tiFormatText
'-------------------------------------------------------------------------------
testcase tdFormatLayer
- '/// open application ///'
Call hNewDocument
- '/// Edit->Layer->Insert (in DRAW also via Insert->Layer) ///'
InsertLayer
- Kontext "EbeneEinfuegenDlg"
- EbenenName.SetText " Test 4"
- LayerTitle.SetText " Test no 4"
- LayerDescription.SetText " This is the Description of the Layer."
- EbeneEinfuegenDlg.OK
+ Kontext "EbeneEinfuegenDlg"
+ EbenenName.SetText " Test 4"
+ LayerTitle.SetText " Test no 4"
+ LayerDescription.SetText " This is the Description of the Layer."
+ EbeneEinfuegenDlg.OK
- '/// Edit->Layer->Modify (in DRAW also via Format->Layer)///'
FormatLayer
- Kontext "EbeneAendernDlg"
- if EbenenName.GetText = " Test 4" Then
- EbenenName.SetText "Layer 5"
- end if
- if LayerTitle.GetText = " Test no 4" Then
- LayerTitle.SetText "Layer test 5"
- end if
- if LayerDescription.GetText = " This is the Description of the Layer." Then
- LayerDescription.SetText " This is the changed Description of the Layer."
- end if
+ Kontext "EbeneAendernDlg"
+ if EbenenName.GetText = " Test 4" Then
+ EbenenName.SetText "Layer 5"
+ end if
+ if LayerTitle.GetText = " Test no 4" Then
+ LayerTitle.SetText "Layer test 5"
+ end if
+ if LayerDescription.GetText = " This is the Description of the Layer." Then
+ LayerDescription.SetText " This is the changed Description of the Layer."
+ end if
- Sichtbar.Check
- Druckbar.Check
- Gesperrt.Check
- EbeneAendernDlg.OK
+ Sichtbar.Check
+ Druckbar.Check
+ Gesperrt.Check
+ EbeneAendernDlg.OK
- '/// Edit->Layer->Modify (in DRAW also via Format->Layer)///'
FormatLayer
- Kontext "EbeneAendernDlg"
- if EbenenName.GetText <> "Layer 5" Then
- WarnLog " Name-Value either didn't change at all, or was empty. Expected: 'Layer 5', but was: " + EbenenName.GetText
- end if
- if LayerTitle.GetText <> "Layer test 5" Then
- WarnLog " Title-Value either didn't change at all, or was empty. Expected: 'Layer test 5', but was: " + LayerTitle.GetText
- end if
- if LayerDescription.GetText <> " This is the changed Description of the Layer." Then
- WarnLog " Description-Value either didn't change at all, or was empty. Expected: ' This is the changed Description of the Layer.', but was: " + LayerDescription.GetText
- end if
-
- if Sichtbar.IsChecked=False Then
- WarnLog " Value changed: visible"
- end if
- if Druckbar.IsChecked=False Then
- WarnLog " Value changed: printable"
- end if
- if Gesperrt.IsChecked=False then
- WarnLog " Value changed: locked"
- end if
- EbeneAendernDlg.OK
+ Kontext "EbeneAendernDlg"
+ if EbenenName.GetText <> "Layer 5" Then
+ WarnLog " Name-Value either didn't change at all, or was empty. Expected: 'Layer 5', but was: " + EbenenName.GetText
+ end if
+ if LayerTitle.GetText <> "Layer test 5" Then
+ WarnLog " Title-Value either didn't change at all, or was empty. Expected: 'Layer test 5', but was: " + LayerTitle.GetText
+ end if
+ if LayerDescription.GetText <> " This is the changed Description of the Layer." Then
+ WarnLog " Description-Value either didn't change at all, or was empty. Expected: ' This is the changed Description of the Layer.', but was: " + LayerDescription.GetText
+ end if
+
+ if Sichtbar.IsChecked=False Then
+ WarnLog " Value changed: visible"
+ end if
+ if Druckbar.IsChecked=False Then
+ WarnLog " Value changed: printable"
+ end if
+ if Gesperrt.IsChecked=False then
+ WarnLog " Value changed: locked"
+ end if
+ EbeneAendernDlg.OK
- '/// close application ///'
Call hCloseDocument
endcase 'tdFormatLayer
@@ -325,36 +274,33 @@ testcase tdFormatConnector
dim sTemp as string
dim cDecSep as string
- if (gApplication = "IMPRESS") then
+ if (gApplication = "IMPRESS") then
ExtensionString = "odp"
else
ExtensionString = "odg"
end if
Call hNewDocument
- '/// insert connector ///
- kontext "Connectorsbar"
- if Connectorsbar.Exists then
- Connectorsbar.Close
- end if
-
- kontext "Toolbar"
- Sleep (1)
- try
- Verbinder.TearOff ' insert connector
- catch
- warnlog "bug for GH from TBO; .tearoff doesn't tell success"
- endcatch
+ kontext "Connectorsbar"
+ if Connectorsbar.Exists then
+ Connectorsbar.Close
+ end if
+
+ kontext "Toolbar"
+ Sleep (1)
+ try
+ Verbinder.TearOff ' insert connector
+ catch
+ warnlog "bug for GH from TBO; .tearoff doesn't tell success"
+ endcatch
kontext "Connectorsbar"
Verbinder.click
gMouseMove ( 10,10,30,30)
Call hCloseDocument
- '/// Open file with a finished scenario ///'
- hFileOpen ConvertPath (gTesttoolPath + "graphics\required\input\FormatConnector." + ExtensionString)
+ hFileOpen ConvertPath (gTesttoolPath + "graphics\required\input\FormatConnector." + ExtensionString)
sleep (1)
- '/// Check if the document is writable ///'
if fIsDocumentWritable = false then
' Make the document writable and check if it's succesfull
if fMakeDocumentWritable = false then
@@ -364,7 +310,6 @@ testcase tdFormatConnector
end if
gMouseClick 1,1
- '/// Press TAB three times to select the connector. ///'
hTypekeys "<TAB>"
hTypekeys "<TAB>"
hTypekeys "<TAB>"
@@ -374,72 +319,72 @@ testcase tdFormatConnector
sleep (3)
hMenuSelectNr(2) ' Connector
Kontext "Verbinder"
- Typ.Select 2 ' the one with 2 from 3 posibilities to set a value...
- Sleep (1)
- AnfangHorizontal.SetText "1"
- Verbinder.TypeKeys "<TAB>"
- AnfangVertikal.SetText "1"
+ Typ.Select 2 ' the one with 2 from 3 posibilities to set a value...
+ Sleep (1)
+ AnfangHorizontal.SetText "1"
+ Verbinder.TypeKeys "<TAB>"
+ AnfangVertikal.SetText "1"
+ Verbinder.TypeKeys "<TAB>"
+ EndeHorizontal.SetText "1"
+ Verbinder.TypeKeys "<TAB>"
+ EndeVertikal.SetText "1"
+ Verbinder.TypeKeys "<TAB>"
+ printlog EndeVertikal.getText
+ try
+ Linie1.SetText "10"
Verbinder.TypeKeys "<TAB>"
- EndeHorizontal.SetText "1"
+ sTemp = Linie1.getText
+ sUnit = GetMeasUnit(sTemp)
+ cDecSep = GetDecimalSeperator(sTemp)
+ catch
+ PrintLog " Lineoffset not activated -> you have to choose another linetype: 1"
+ endcatch
+ try
+ Linie2.SetText "10"
Verbinder.TypeKeys "<TAB>"
- EndeVertikal.SetText "1"
+ catch
+ PrintLog " Lineoffset not activated -> you have to choose another linetype: 2"
+ endcatch
+ try
+ Linie3.SetText "10"
Verbinder.TypeKeys "<TAB>"
- printlog EndeVertikal.getText
- try
- Linie1.SetText "10"
- Verbinder.TypeKeys "<TAB>"
- sTemp = Linie1.getText
- sUnit = GetMeasUnit(sTemp)
- cDecSep = GetDecimalSeperator(sTemp)
- catch
- PrintLog " Lineoffset not activated -> you have to choose another linetype: 1"
- endcatch
- try
- Linie2.SetText "10"
- Verbinder.TypeKeys "<TAB>"
- catch
- PrintLog " Lineoffset not activated -> you have to choose another linetype: 2"
- endcatch
- try
- Linie3.SetText "10"
- Verbinder.TypeKeys "<TAB>"
- catch
- PrintLog " Lineoffset not activated -> you have to choose another linetype: 3 when will this be enabled ?"
- endcatch
+ catch
+ PrintLog " Lineoffset not activated -> you have to choose another linetype: 3 when will this be enabled ?"
+ endcatch
Verbinder.OK
FormatConnector
- Kontext "Verbinder"
- sTemp = AnfangHorizontal.GetText
+ Kontext "Verbinder"
+ sTemp = AnfangHorizontal.GetText
- if fCompareTwoValues(sTemp, "1"+cDecSep+"00"+sUnit) Then
- WarnLog " value not changed"
- printlog "AnfangHorizontal = is '" + sTemp + "' should: '"+"1"+cDecSep+"00"+sUnit+"'"
- end if
- if fCompareTwoValues(AnfangVertikal.GetText, "1"+cDecSep+"00"+sUnit) Then
- WarnLog " value not changed"
- printlog "AnfangVertikal.GetText = " + AnfangVertikal.GetText
- end if
- if fCompareTwoValues(EndeHorizontal.GetText, "1"+cDecSep+"00"+sUnit) Then
- WarnLog " value not changed"
- printlog "EndeHorizontal.GetText = " + EndeHorizontal.GetText
- end if
- if fCompareTwoValues(EndeVertikal.GetText, "1"+cDecSep+"00"+sUnit) Then
- WarnLog " value not changed"
- printlog "EndeHorizontal.GetText = " + EndeHorizontal.GetText
- end if
+ if fCompareTwoValues(sTemp, "1"+cDecSep+"00"+sUnit) Then
+ WarnLog " value not changed"
+ printlog "AnfangHorizontal = is '" + sTemp + "' should: '"+"1"+cDecSep+"00"+sUnit+"'"
+ end if
+ if fCompareTwoValues(AnfangVertikal.GetText, "1"+cDecSep+"00"+sUnit) Then
+ WarnLog " value not changed"
+ printlog "AnfangVertikal.GetText = " + AnfangVertikal.GetText
+ end if
+ if fCompareTwoValues(EndeHorizontal.GetText, "1"+cDecSep+"00"+sUnit) Then
+ WarnLog " value not changed"
+ printlog "EndeHorizontal.GetText = " + EndeHorizontal.GetText
+ end if
+ if fCompareTwoValues(EndeVertikal.GetText, "1"+cDecSep+"00"+sUnit) Then
+ WarnLog " value not changed"
+ printlog "EndeHorizontal.GetText = " + EndeHorizontal.GetText
+ end if
- Zaehler = Typ.GetItemCount
- for i = 1 to Zaehler
- Typ.Select i
- SetClipboard Typ.GetSelText
- Verbinder.OK
- FormatConnector
- Kontext "Verbinder"
- if GetClipboardText <> Typ.GetSelText Then
- WarnLog " Selection not saved. Was: " + Typ.GetSelText + " . But should have been: " +GetClipboardText
- end if
- next i
+ Zaehler = Typ.GetItemCount
+ for i = 1 to Zaehler
+ Typ.Select i
+ SetClipboard Typ.GetSelText
+ Verbinder.OK
+ FormatConnector
+ Kontext "Verbinder"
+ if GetClipboardText <> Typ.GetSelText Then
+ WarnLog " Selection not saved. Was: " + Typ.GetSelText + " . But should have been: " +GetClipboardText
+ end if
+ next i
Verbinder.OK
Call hCloseDocument
endcase 'tdFormatConnector
@@ -453,41 +398,41 @@ testcase tiFormatPositionAndSize
Dim b 'Variable fuer Breite
Dim r 'Variable fuer Radius
Dim w 'Variable fuer Winkel
-
-printlog "New impress doc"
- Call hNewDocument
+
+ printlog "New impress doc"
+ Call hNewDocument
WaitSlot (3000)
printlog "RECTANGLE-----1/2"
printlog "create rectangle"
- Call hRechteckErstellen (20,20,70,30)
+ Call hRechteckErstellen (20,20,70,30)
WaitSlot (1000)
gMouseClick 50,25
WaitSlot (1000)
printlog "Format-position and size"
- ContextPositionAndSize
- WaitSlot (1000)
- Kontext
- printlog "TabPositionAndSize"
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- printlog "put x and y position into clipboard"
- printlog "x = " & PositionX.GetText
- printlog "y = " & PositionY.GetText
- SetClipboard (PositionX.GetText + PositionY.GetText)
- TabPositionAndSize.OK
+ ContextPositionAndSize
+ WaitSlot (1000)
+ Kontext
+ printlog "TabPositionAndSize"
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ printlog "put x and y position into clipboard"
+ printlog "x = " & PositionX.GetText
+ printlog "y = " & PositionY.GetText
+ SetClipboard (PositionX.GetText + PositionY.GetText)
+ TabPositionAndSize.OK
WaitSlot (1000)
printlog "move rectangle down and right"
- hTypeKeys "<DOWN>",10
+ hTypeKeys "<DOWN>",10
hTypeKeys "<RIGHT>",10
printlog "open PositionAndSize"
ContextPositionAndSize
- WaitSlot (1000)
- Kontext
- printlog "TabPositionAndSize"
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- printlog "control position changes with clipboard content"
- if (PositionX.GetText + PositionY.GetText) = GetClipboardText Then WarnLog "Der Dialog hat die Positionsaenderung nicht registriert"
+ WaitSlot (1000)
+ Kontext
+ printlog "TabPositionAndSize"
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ printlog "control position changes with clipboard content"
+ if (PositionX.GetText + PositionY.GetText) = GetClipboardText Then WarnLog "Der Dialog hat die Positionsaenderung nicht registriert"
printlog "set position of rectange using the edit fields"
PositionX.SetText "2"
x=PositionX.GetText
@@ -496,198 +441,197 @@ printlog "New impress doc"
printlog "check protect"
ProtectPosition.Check
TabPositionAndSize.OK
- WaitSlot (1000)
- ContextPositionAndSize
- WaitSlot (1000)
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- printlog "check if values are correct"
- if PositionX.GetText = x And PositionY.GetText = y Then PrintLog " Values could be changed"
- printlog "check if protect works"
- if PositionX.GetText<> x Then
- WarnLog "Protect does not work"
- else
- PrintLog "Protext works, X axis checked"
- end if
- if PositionY.GetText<> y Then
- WarnLog "Protect does not work"
- else
- PrintLog " Protext does work, checked y axis"
- end if
- printlog "uncheck protect"
- ProtectPosition.UnCheck
- TabPositionAndSize.OK
- WaitSlot (1000)
- ContextPositionAndSize
- WaitSlot (1000)
- Kontext
- printlog "TabPositionAndSize"
- WaitSlot (1000)
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- printlog "set width to 10"
WaitSlot (1000)
- Width.SetText "10"
- printlog "put value into a variable"
- WaitSlot (1000)
- b=Width.GetText
- printlog "Width is " & b
- SetClipboard Width.GetText
- '/// set heigth to 5 ///'
- Height.SetText "5"
- printlog "put value into variable"
- WaitSlot (1000)
- h=Height.GetText
- printlog "Height is " & h
- printlog "check protect"
- ProtectPosition.Check
- printlog "close dialog"
- TabPositionAndSize.OK
- WaitSlot (1000)
- ContextPositionAndSize
+ ContextPositionAndSize
WaitSlot (1000)
Kontext
Active.SetPage TabPositionAndSize
Kontext "TabPositionAndSize"
- WaitSlot (2000)
- printlog "control size changes"
- printlog "Width value is: " & Width.GetText
- printlog "Value from Clipboard is: " & GetClipboardText
- if Width.GetText = GetClipboardText Then
- PrintLog " Size of rectangle could be changed. It is = " + Width.GetText + " but it should be = " + b
- else
- WarnLog " Controls for height and width do not work"
- end if
- printlog "Uncheck the Position-Protection, so we can work with this window."
- if ProtectPosition.isChecked = FALSE then
- printlog "Should be checked since it was checked just 16 rows ago"
- ErrorLog "ProtectPosition was not checked - why?"
- else
- ProtectPosition.Uncheck
- end if
+ printlog "check if values are correct"
+ if PositionX.GetText = x And PositionY.GetText = y Then PrintLog " Values could be changed"
+ printlog "check if protect works"
+ if PositionX.GetText<> x Then
+ WarnLog "Protect does not work"
+ else
+ PrintLog "Protext works, X axis checked"
+ end if
+ if PositionY.GetText<> y Then
+ WarnLog "Protect does not work"
+ else
+ PrintLog " Protext does work, checked y axis"
+ end if
+ printlog "uncheck protect"
+ ProtectPosition.UnCheck
+ TabPositionAndSize.OK
+ WaitSlot (1000)
+ ContextPositionAndSize
+ WaitSlot (1000)
+ Kontext
+ printlog "TabPositionAndSize"
+ WaitSlot (1000)
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ printlog "set width to 10"
+ WaitSlot (1000)
+ Width.SetText "10"
+ printlog "put value into a variable"
+ WaitSlot (1000)
+ b=Width.GetText
+ printlog "Width is " & b
+ SetClipboard Width.GetText
+ Height.SetText "5"
+ printlog "put value into variable"
+ WaitSlot (1000)
+ h=Height.GetText
+ printlog "Height is " & h
+ printlog "check protect"
+ ProtectPosition.Check
+ printlog "close dialog"
+ TabPositionAndSize.OK
+ WaitSlot (1000)
+ ContextPositionAndSize
+ WaitSlot (1000)
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ WaitSlot (2000)
+ printlog "control size changes"
+ printlog "Width value is: " & Width.GetText
+ printlog "Value from Clipboard is: " & GetClipboardText
+ if Width.GetText = GetClipboardText Then
+ PrintLog " Size of rectangle could be changed. It is = " + Width.GetText + " but it should be = " + b
+ else
+ WarnLog " Controls for height and width do not work"
+ end if
+ printlog "Uncheck the Position-Protection, so we can work with this window."
+ if ProtectPosition.isChecked = FALSE then
+ printlog "Should be checked since it was checked just 16 rows ago"
+ ErrorLog "ProtectPosition was not checked - why?"
+ else
+ ProtectPosition.Uncheck
+ end if
- KeepRatio.Check
- printlog "raise value for width"
- Width.More 5
- if Height.GetText = h Then
- WarnLog " Keep ratio does not work properly"
- else
- PrintLog " Keep ratio does work"
- KeepRatio.UnCheck
- end if
- TabPositionAndSize.OK
- WaitSlot (2000)
- gMouseClick 90,90
- WaitSlot (2000)
- printlog "Now trying TEXT..."
- printlog "create textbox"
- Call hTextrahmenErstellen ("Never before have I written such a meaning" ,10,10,60,20)
- WaitSlot (2000)
- printlog "Format-Postion and Size"
- FormatPositionAndSize
- WaitSlot (1000)
- Kontext
- printlog "TabPositionAndSize"
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- printlog "default value ?: width :-----"+Width.IsEnabled
- printlog "check fit width to text"
- if Width.IsEnabled then FitWidthText.Check
- if Width.IsEnabled = True Then
- WarnLog " Fit width does not work"
- else
- PrintLog " Fit width does work"
- end if
- printlog "fit heigth to text"
- FitHeightText.Check
- if Height.IsEnabled = True Then
- WarnLog " fit heigth doe not work"
- else
- PrintLog " fit heigth does work"
- end if
- ' PrintLog " Fit width to text active: " + FitWidthText.IsChecked
- ' PrintLog " Fit heigth to text active: " + FitHeightText.IsChecked
- printlog "uncheck fit width to text"
- FitWidthText.UnCheck
- printlog "uncheck fit heigth to text"
- FitHeightText.Uncheck
- TabPositionAndSize.OK
- WaitSlot (1000)
- hTypeKeys "<escape>",2
- hTypeKeys "<TAB>",2
- WaitSlot (1000)
- ContextPositionAndSize
- WaitSlot (1000)
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- printlog "check x-position of textbox"
- SetClipboard PositionX.GetText
- WaitSlot (1000)
- Kontext
- printlog "set rotation angle to 50 and position x and y to 1"
- Active.SetPage TabDrehung
- Kontext "TabDrehung"
- PositionX.SetText "1"
- PositionY.SetText "1"
- Winkel.SetText "50"
- w=Winkel.GetText
- TabDrehung.OK
- WaitSlot (3000)
+ KeepRatio.Check
+ printlog "raise value for width"
+ Width.More 5
+ if Height.GetText = h Then
+ WarnLog " Keep ratio does not work properly"
+ else
+ PrintLog " Keep ratio does work"
+ KeepRatio.UnCheck
+ end if
+ TabPositionAndSize.OK
+ WaitSlot (2000)
+ gMouseClick 90,90
+ WaitSlot (2000)
+ printlog "Now trying TEXT..."
+ printlog "create textbox"
+ Call hTextrahmenErstellen ("Never before have I written such a meaning" ,10,10,60,20)
+ WaitSlot (2000)
+ printlog "Format-Postion and Size"
+ FormatPositionAndSize
+ WaitSlot (1000)
+ Kontext
+ printlog "TabPositionAndSize"
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ printlog "default value ?: width :-----"+Width.IsEnabled
+ printlog "check fit width to text"
+ if Width.IsEnabled then FitWidthText.Check
+ if Width.IsEnabled = True Then
+ WarnLog " Fit width does not work"
+ else
+ PrintLog " Fit width does work"
+ end if
+ printlog "fit heigth to text"
+ FitHeightText.Check
+ if Height.IsEnabled = True Then
+ WarnLog " fit heigth doe not work"
+ else
+ PrintLog " fit heigth does work"
+ end if
+ ' PrintLog " Fit width to text active: " + FitWidthText.IsChecked
+ ' PrintLog " Fit heigth to text active: " + FitHeightText.IsChecked
+ printlog "uncheck fit width to text"
+ FitWidthText.UnCheck
+ printlog "uncheck fit heigth to text"
+ FitHeightText.Uncheck
+ TabPositionAndSize.OK
+ WaitSlot (1000)
+ hTypeKeys "<escape>",2
+ hTypeKeys "<TAB>",2
+ WaitSlot (1000)
+ ContextPositionAndSize
+ WaitSlot (1000)
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ printlog "check x-position of textbox"
+ SetClipboard PositionX.GetText
+ WaitSlot (1000)
+ Kontext
+ printlog "set rotation angle to 50 and position x and y to 1"
+ Active.SetPage TabDrehung
+ Kontext "TabDrehung"
+ PositionX.SetText "1"
+ PositionY.SetText "1"
+ Winkel.SetText "50"
+ w=Winkel.GetText
+ TabDrehung.OK
+ WaitSlot (3000)
- printlog "check position of manipulated textbox"
- ContextPositionAndSize
- WaitSlot (3000)
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- if PositionX = GetClipboardText Then PrintLog " Position changed due to rotation"
- Kontext
- Active.SetPage TabDrehung
- Kontext "TabDrehung"
- WaitSlot (1000)
- printlog "check rotation angle"
- if Winkel.GetText = w Then PrintLog " Object rotated"
- TabDrehung.OK
+ printlog "check position of manipulated textbox"
+ ContextPositionAndSize
+ WaitSlot (3000)
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ if PositionX = GetClipboardText Then PrintLog " Position changed due to rotation"
+ Kontext
+ Active.SetPage TabDrehung
+ Kontext "TabDrehung"
+ WaitSlot (1000)
+ printlog "check rotation angle"
+ if Winkel.GetText = w Then PrintLog " Object rotated"
+ TabDrehung.OK
- printlog "RECTANGLE-----2/2"
- printlog "create rectangle"
- Call hRechteckErstellen (10,60,70,90)
- WaitSlot (2000)
- ContextPositionAndSize
- WaitSlot (1000)
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- printlog "put x-axis postion of rectangle into clipboard"
- SetClipboard PositionX.GetText
- Kontext
- printlog "set slant angle to 5"
- Active.SetPage TabSchraegstellen
- Kontext "TabSchraegstellen"
- WaitSlot (1000)
- printlog "set radius to 5"
- Radius.SetText "5"
- r=Radius.GetText
- Winkel.SetText w
- TabSchraegstellen.OK
- WaitSlot (1000)
- ContextPositionAndSize
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- if PositionX <> GetClipboardText Then PrintLog " Object changed position due to scaling"
- printlog "Before we change tab, we set the Position-marker back to checked "
- ProtectPosition.Check
- Kontext
- printlog "check slant angle and radius"
- Active.SetPage TabSchraegstellen
- Kontext "TabSchraegstellen"
- if Radius.GetText = r Then PrintLog " Cornwer radius changed"
- if Winkel.GetText =w Then PrintLog " Object rotated over 45°"
- TabSchraegstellen.OK
- Call hCloseDocument
+ printlog "RECTANGLE-----2/2"
+ printlog "create rectangle"
+ Call hRechteckErstellen (10,60,70,90)
+ WaitSlot (2000)
+ ContextPositionAndSize
+ WaitSlot (1000)
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ printlog "put x-axis postion of rectangle into clipboard"
+ SetClipboard PositionX.GetText
+ Kontext
+ printlog "set slant angle to 5"
+ Active.SetPage TabSchraegstellen
+ Kontext "TabSchraegstellen"
+ WaitSlot (1000)
+ printlog "set radius to 5"
+ Radius.SetText "5"
+ r=Radius.GetText
+ Winkel.SetText w
+ TabSchraegstellen.OK
+ WaitSlot (1000)
+ ContextPositionAndSize
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ if PositionX <> GetClipboardText Then PrintLog " Object changed position due to scaling"
+ printlog "Before we change tab, we set the Position-marker back to checked "
+ ProtectPosition.Check
+ Kontext
+ printlog "check slant angle and radius"
+ Active.SetPage TabSchraegstellen
+ Kontext "TabSchraegstellen"
+ if Radius.GetText = r Then PrintLog " Cornwer radius changed"
+ if Winkel.GetText =w Then PrintLog " Object rotated over 45°"
+ TabSchraegstellen.OK
+ Call hCloseDocument
endcase 'tiFormatPositionAndSize
'-------------------------------------------------------------------------------
@@ -705,82 +649,67 @@ testcase tiFormat3D_Effekte
Dim Zaehler as integer
Dim Posi as string
- Call hNewDocument
+ Call hNewDocument
printlog "new document"
'-----------------------------------RECTANGLE------------------------------------------------------
- Call hRechteckErstellen (20,20,60,70) '/// create rectangle ///'
WaitSlot (1000)
- ContextPositionAndSize '/// get position and size of rectangle ///'
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- PositionX.SetText "5"
- X=PositionX.GetText
- printlog "--- created RECTANGLE; xPosition @ "+ x
- TabPositionAndSize.OK
- ContextConvertInto3D '/// convert rectangle into 3d ///'
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ PositionX.SetText "5"
+ X=PositionX.GetText
+ printlog "--- created RECTANGLE; xPosition @ "+ x
+ TabPositionAndSize.OK
WaitSlot (1000)
Kontext "Drei_D_Effekte"
if Drei_D_Effekte.exists(3) then
- qaerrorlog " The 3D-Effects-dialogue was open. Check why."
+ qaerrorlog " The 3D-Effects-dialogue was open. Check why."
else
- Format3D_Effects '/// open 3d flyer///'
end if
- try
- if Perspektive.isvisible then
- Perspektive.Click '/// check perspective ///'
- else
- warnlog "why not in draw?"
- end if
- catch
- warnlog "something is wrong mit perspective"
- endcatch
- Zuweisen.Click '/// assign perspective ///'
- Kontext "DocumentImpress"
- gMouseClick 40,40
- ContextPositionAndSize '/// check position and size ///'
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- if PositionX.GetText = X Then
- printlog "- Perspective acitvated x: "+PositionX.GetText
- else
- warnlog "- Perspective seems to have a problem, x value has changed!"
- end if
- TabPositionAndSize.OK
- Kontext "Drei_D_Effekte"
- Aktualisieren.Click
- Drei_D_Effekte.Close
- EditSelectAll '/// delete rectangle ///'
+ try
+ if Perspektive.isvisible then
+ else
+ warnlog "why not in draw?"
+ end if
+ catch
+ warnlog "something is wrong mit perspective"
+ endcatch
+ Kontext "DocumentImpress"
+ gMouseClick 40,40
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ if PositionX.GetText = X Then
+ printlog "- Perspective acitvated x: "+PositionX.GetText
+ else
+ warnlog "- Perspective seems to have a problem, x value has changed!"
+ end if
+ TabPositionAndSize.OK
+ Kontext "Drei_D_Effekte"
+ Aktualisieren.Click
+ Drei_D_Effekte.Close
hTypeKeys "<DELETE>"
'-----------------------------------RECTANGLE------------------------------------------------------
- hRechteckErstellen (20,20,60,70) '/// create new rectangle ///'
printlog "--- created RECTANGLE 2"
- Format3D_Effects '/// open 3d flyer ///'
Kontext "Drei_D_Effekte"
- Rotationskoerper.Click '/// create lathe object ///'
WaitSlot (1000)
Kontext "DocumentImpress"
- ContextPositionAndSize '/// check position and size ///'
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- if PositionX.GetText = X Then
- Warnlog "- Rectangle not converted into a lath object; x: "+PositionX.GetText
- else
- Printlog "- Creating a lath object seems to work"
- end if
- TabPositionAndSize.OK
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ if PositionX.GetText = X Then
+ Warnlog "- Rectangle not converted into a lath object; x: "+PositionX.GetText
+ else
+ Printlog "- Creating a lath object seems to work"
+ end if
+ TabPositionAndSize.OK
EditSelectAll
- hTypeKeys "<DELETE>" '/// delete object ///'
Sleep (1)
'-----------------------------------RECTANGLE------------------------------------------------------
- hRechteckErstellen (20,20,60,70) '/// create rectangle ///'
printlog "--- created RECTANGLE 3"
Kontext "Drei_D_Effekte"
WaitSlot (1000)
- In_3D_Umwandeln.Click '/// convert to 3d in 3d flyer ///'
WaitSlot (2000)
gMouseClick 40,40
qaerrorlog "#i92910: automation: crash when executing tiFormat3D_Effekte in test g_format"
@@ -790,219 +719,179 @@ testcase tiFormat3D_Effekte
'gMouseClick 90,90
'select case gApplication
' case "DRAW" : if y = 13 then
- ' Printlog "- 3D object created"
- ' else
+ ' Printlog "- 3D object created"
+ ' else
' Warnlog " Context-menu-entry-number was wrong. Expected 13, but was " + y + "."
' end if
- ' case else : if y = 15 then
- ' Printlog "- 3D object created"
- ' else
+ ' case else : if y = 15 then
+ ' Printlog "- 3D object created"
+ ' else
' Warnlog " Context-menu-entry-number was wrong. Expected 15, but was " + y + "."
- ' end if
+ ' end if
'end select
-
+
EditSelectAll
- hTypeKeys "<DELETE>" '/// delete object ///'
'-----------------------------------ZYLINDER------------------------------------------------------
Sleep (1)
printlog "--- create CYLINDER"
- WL_SD_Zylinder '/// create cylinder ///'
- gMousemove 30,30,80,80 '/// This affects the Vertical-value down to 15 ///'
Sleep (1)
hTypeKeys "<ESC>"
Kontext "Drei_D_Effekte"
- Geometrie.Click '/// geometry ///'
WaitSlot (1000)
' Endwinkel.More
- Vert=Vertikale_Segmente.GetText '/// get value for vertical segments (default) ///'
- Hor =Horizontale_Segmente.GetText '/// get value for horizontal segments (default) ///'
- Rund=Kantenrundung.GetText '/// get value for edge rounding ///'
- Skal=Tiefenskalierung.GetText '/// get value for scale ///'
- Tief=Tiefe.GetText '/// get value for depth ///'
- Winkel=Endwinkel.GetText '/// get value for angle ///'
-
- '/// Check if every entry has a value <> "" -> an init value is shown. ///'
+
if Vert ="" then warnlog "Vertical Segment has no init value"
- if Hor ="" then warnlog "Horizontal Segment has no init value"
- if Rund ="" then warnlog "Rounded edges has no init value"
- if Skal ="" then warnlog "Scaled depth has no init value"
- if Tief ="" then warnlog "Depth has no init value"
- if Winkel="" then printlog "Rotation angle has no init value"
+ if Hor ="" then warnlog "Horizontal Segment has no init value"
+ if Rund ="" then warnlog "Rounded edges has no init value"
+ if Skal ="" then warnlog "Scaled depth has no init value"
+ if Tief ="" then warnlog "Depth has no init value"
+ if Winkel="" then printlog "Rotation angle has no init value"
- '/// Go back to the 3d-effects-dialogue and change the value for the cylinder ///'
- hTypeKeys "<ESC>" '/// Deselect object and check if 3d controller has default values again ///'
- Kontext "Drei_D_Effekte"
+ Kontext "Drei_D_Effekte"
- '/// Check if value for vertical segments has changed in 3d controller ///'
- if Vertikale_Segmente.GetText = Vert Then
- Printlog "- Vertical segment value read from object's properties in the 3d flyer"
- else
- Warnlog "- 3D flyer could not read vertical segment information from object. It is = '"+ Vertikale_Segmente.GetText + "' but should be = '" + Vert + "'"
- end if
+ if Vertikale_Segmente.GetText = Vert Then
+ Printlog "- Vertical segment value read from object's properties in the 3d flyer"
+ else
+ Warnlog "- 3D flyer could not read vertical segment information from object. It is = '"+ Vertikale_Segmente.GetText + "' but should be = '" + Vert + "'"
+ end if
- if Horizontale_Segmente.GetText = Hor Then '/// check if value for horizontal segments has changed ///'
- Printlog "- Horizontal segment value read from object's properties in the 3d flyer"
- else
- Warnlog "- 3D flyer not be able to read horizonal segment information from object. It is = '"+ Horizontale_Segmente.GetText + "' but should be = '" + Hor + "'"
- end if
+ Printlog "- Horizontal segment value read from object's properties in the 3d flyer"
+ else
+ Warnlog "- 3D flyer not be able to read horizonal segment information from object. It is = '"+ Horizontale_Segmente.GetText + "' but should be = '" + Hor + "'"
+ end if
- if Kantenrundung.GetText = Rund Then '/// check if value for edge rounding has changed ///'
- Printlog "- Rounded edges works"
- else
- Warnlog "- Rounded edges value could not be read by the 3d flyer It is = '" + Kantenrundung.GetText + "' but should be = '" + rund + "'"
- end if
+ Printlog "- Rounded edges works"
+ else
+ Warnlog "- Rounded edges value could not be read by the 3d flyer It is = '" + Kantenrundung.GetText + "' but should be = '" + rund + "'"
+ end if
- if Tiefenskalierung.GetText = Skal Then '/// check value for scale ///'
- Printlog "- Scaled depth works"
- else
- Warnlog "- Scale depth value could not be read by the 3d flyer It is = '" + Tiefenskalierung.GetText + "' but should be = '" + skal + "'"
- end if
+ Printlog "- Scaled depth works"
+ else
+ Warnlog "- Scale depth value could not be read by the 3d flyer It is = '" + Tiefenskalierung.GetText + "' but should be = '" + skal + "'"
+ end if
- if Tiefe.GetText = Tief Then '/// check value for depth ///'
- Printlog "- Depth value could be read by the 3d flyer"
- else
- Warnlog "- Depth value of object could not be read by the flyer It is = '"+ Tiefe.GetText + "' but should be = '" + tief + "'"
- end if
-
- if Endwinkel.GetText = Winkel Then '/// check value for angle ///'
- Printlog "- Angle value could be read by the 3d flyer"
- else
- Warnlog "- Angle value is not correct"
- end if
+ Printlog "- Depth value could be read by the 3d flyer"
+ else
+ Warnlog "- Depth value of object could not be read by the flyer It is = '"+ Tiefe.GetText + "' but should be = '" + tief + "'"
+ end if
- hTypeKeys "<ESC>" '/// deselect object and check if 3d controller has default values again ///'
- Kontext "Drei_D_Effekte"
- Sleep (2)
- Printlog "- check if 3D flyer goes back to default values if object is deselected"
- if Vertikale_Segmente.GetText <> Vert Then Warnlog " Vertical Segment - Default value is wrong is: "+Vertikale_Segmente.GetText+"; should: " +vert
- if Horizontale_Segmente.GetText <> Hor Then Warnlog " Horizontal Segment - Default value is wrong"
- if Kantenrundung.GetText <> Rund Then Warnlog " Rounded edges - Default value is wrong"
- if Tiefenskalierung.GetText <> Skal Then Warnlog " Scaled depth - Default value is wrong"
- if Endwinkel.GetText <> Winkel Then Warnlog " Rotation angle - Default value is wrong"
- if Tiefe.GetText<>Tief Then Warnlog " Depth - Default value is wrong"
+ Printlog "- Angle value could be read by the 3d flyer"
+ else
+ Warnlog "- Angle value is not correct"
+ end if
- hTypeKeys "<TAB>"
- Kontext "Drei_D_Effekte"
+ Kontext "Drei_D_Effekte"
Sleep (2)
- Horizontale_Segmente.SetText "32" '/// change horizontal and vertical segments ///'
- Vertikale_Segmente.SetText "32"
- Kantenrundung.SetText "100"
- Endwinkel.Settext "300"
- Tiefenskalierung.SetText "500"
- Tiefe.SetText "100"
- Zuweisen.Click '/// assign changes ///'
-
- WaitSlot (1000) '/// check value changes ///'
- if Vertikale_Segmente.GetText = Vert Then Warnlog "- Default value is wrong"
- if Horizontale_Segmente.GetText = Hor Then Warnlog "- Default value is wrong"
- if Kantenrundung.GetText = Rund Then Warnlog "- Default value is wrong"
- if Tiefenskalierung.GetText = Skal Then Warnlog "- Default value is wrong"
- if Endwinkel.GetText = Winkel Then Warnlog "- Default value is wrong"
- if Tiefe.GetText=Tief Then Warnlog "- Default value is wrong"
- EditSelectAll
- hTypeKeys "<DELETE>" '/// delete cylinder ///'
+ Printlog "- check if 3D flyer goes back to default values if object is deselected"
+ if Vertikale_Segmente.GetText <> Vert Then Warnlog " Vertical Segment - Default value is wrong is: "+Vertikale_Segmente.GetText+"; should: " +vert
+ if Horizontale_Segmente.GetText <> Hor Then Warnlog " Horizontal Segment - Default value is wrong"
+ if Kantenrundung.GetText <> Rund Then Warnlog " Rounded edges - Default value is wrong"
+ if Tiefenskalierung.GetText <> Skal Then Warnlog " Scaled depth - Default value is wrong"
+ if Endwinkel.GetText <> Winkel Then Warnlog " Rotation angle - Default value is wrong"
+ if Tiefe.GetText<>Tief Then Warnlog " Depth - Default value is wrong"
- '-----------------------------------ZYLINDER------------------------------------------------------
- WL_SD_Zylinder '/// create new cylinder ///'
- gMouseMove (20,20,60,60)
- WaitSlot (3000)
- Kontext "Drei_D_Effekte"
- Printlog "- Change basic geometric parameters for the object"
- Printlog "Segments : Horizontal: 8; Vertical: 8; Rounded edges: 50 %"
- Horizontale_Segmente.SetText "8" '/// changing values for cylinder ///'
- Vertikale_Segmente.SetText "8"
- Kantenrundung.SetText "50 %"
- Sleep (1)
- Zuweisen.Click
- WaitSlot (2000)
- gMouseClick 90,90
- Sleep (2)
- EditSelectAll '/// select object ///'
- WaitSlot (1000)
- Kontext "Drei_D_Effekte" '/// control if changes are done ///'
- if Horizontale_Segmente.GetText <> "8" Then Warnlog "- Horizontal segment count is not correct "+Horizontale_Segmente.GetText
- if Vertikale_Segmente.GetText <> "8" Then Warnlog "- Vertical segment count is not correct "+Vertikale_Segmente.GetText
- if Kantenrundung.GetText <> "50 %" Then Warnlog "- Value for rounded edges is not correct "+Kantenrundung.GetText
- Darstellung.Click
- Zaehler=Modus.GetItemCount '/// get number of pssibole render methods ///'
- for i =1 to Zaehler
- Modus.Select i
- Zuweisen.Click '/// assign every render method ///'
- gMouseClick 90,90
- Sleep (1)
- EditSelectAll '/// select object ///'
- Sleep (1)
- Kontext "Drei_D_Effekte"
- if Modus.GetSelIndex <> i Then Warnlog "- Value for render modus did not change" '/// check if render method has changed ///'
- next i
- Printlog "- Check 3d shadow and surface angle"
- Drei_DSchatten.Click '/// check 3d shadow ///'
- Papierneigung.SetText "90 degree(s)"
- vert = Papierneigung.getText
- Zuweisen.Click '/// assign shadow ///'
- gMouseClick 90,90 '/// deselect object ///'
- WaitSlot (1000)
- EditSelectAll '/// select object ///'
- Kontext "Drei_D_Effekte"
- if Papierneigung.GetText <> vert Then Warnlog "- Value for surface angle is not correct" '/// check value changes ///'
- Entfernung.SetText "10" '/// set distance to 10 ///'
- Sleep (1)
- hor = Entfernung.getText
- Sleep (1)
- Zuweisen.Click
- if Entfernung.GetText <> hor Then Warnlog "- Value for distance is not correct; should: "+hor+"; is: "+Entfernung.GetText
- WaitSlot (2000)
- hTypeKeys "<TAB>"
- Sleep (2)
- ContextPositionAndSize
- WaitSlot (2000)
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- PositionX.SetText "5,00cm"
- Posi=PositionX.GetText
- TabPositionAndSize.OK
- WaitSlot (1000)
- Kontext "Drei_D_Effekte"
+ hTypeKeys "<TAB>"
+ Kontext "Drei_D_Effekte"
+ Sleep (2)
+ Vertikale_Segmente.SetText "32"
+ Kantenrundung.SetText "100"
+ Endwinkel.Settext "300"
+ Tiefenskalierung.SetText "500"
+ Tiefe.SetText "100"
- Brennweite.SetText "50" '/// set focval length to 50 ///'
- Zuweisen.Click
- ContextPositionAndSize '/// check change in position of the object ///'
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- If PositionX.GetText = Posi Then
- printlog "- Raising value for focal length has not changed optical appearence of object, ok."
- else
- warnlog "Problem with focal lenght here!"
- endif
- TabPositionAndSize.OK
- WaitSlot (1000)
- Kontext "Drei_D_Effekte"
- Brennweite.SetText "5"
- Zuweisen.Click
- WaitSlot (1000)
- EditSelectAll
- WaitSlot (3000)
- ContextPositionAndSize
- WaitSlot (1000)
- Kontext
- Sleep (1)
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- Sleep (2)
- if PositionX.GetText = Posi Then
- printlog "- Lowering focus length value has not changed optical appearence of object, ok."
- else
- warnlog "problem with focus, check!"
- endif
- TabPositionAndSize.OK
- Kontext "Drei_D_Effekte"
- printlog "close document"
- Drei_D_Effekte.Close
- Call hCloseDocument
+ if Vertikale_Segmente.GetText = Vert Then Warnlog "- Default value is wrong"
+ if Horizontale_Segmente.GetText = Hor Then Warnlog "- Default value is wrong"
+ if Kantenrundung.GetText = Rund Then Warnlog "- Default value is wrong"
+ if Tiefenskalierung.GetText = Skal Then Warnlog "- Default value is wrong"
+ if Endwinkel.GetText = Winkel Then Warnlog "- Default value is wrong"
+ if Tiefe.GetText=Tief Then Warnlog "- Default value is wrong"
+ EditSelectAll
+
+ '-----------------------------------ZYLINDER------------------------------------------------------
+ gMouseMove (20,20,60,60)
+ WaitSlot (3000)
+ Kontext "Drei_D_Effekte"
+ Printlog "- Change basic geometric parameters for the object"
+ Printlog "Segments : Horizontal: 8; Vertical: 8; Rounded edges: 50 %"
+ Vertikale_Segmente.SetText "8"
+ Kantenrundung.SetText "50 %"
+ Sleep (1)
+ Zuweisen.Click
+ WaitSlot (2000)
+ gMouseClick 90,90
+ Sleep (2)
+ WaitSlot (1000)
+ if Horizontale_Segmente.GetText <> "8" Then Warnlog "- Horizontal segment count is not correct "+Horizontale_Segmente.GetText
+ if Vertikale_Segmente.GetText <> "8" Then Warnlog "- Vertical segment count is not correct "+Vertikale_Segmente.GetText
+ if Kantenrundung.GetText <> "50 %" Then Warnlog "- Value for rounded edges is not correct "+Kantenrundung.GetText
+ Darstellung.Click
+ for i =1 to Zaehler
+ Modus.Select i
+ gMouseClick 90,90
+ Sleep (1)
+ Sleep (1)
+ Kontext "Drei_D_Effekte"
+ next i
+ Printlog "- Check 3d shadow and surface angle"
+ Papierneigung.SetText "90 degree(s)"
+ vert = Papierneigung.getText
+ WaitSlot (1000)
+ Kontext "Drei_D_Effekte"
+ Sleep (1)
+ hor = Entfernung.getText
+ Sleep (1)
+ Zuweisen.Click
+ if Entfernung.GetText <> hor Then Warnlog "- Value for distance is not correct; should: "+hor+"; is: "+Entfernung.GetText
+ WaitSlot (2000)
+ hTypeKeys "<TAB>"
+ Sleep (2)
+ ContextPositionAndSize
+ WaitSlot (2000)
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ PositionX.SetText "5,00cm"
+ Posi=PositionX.GetText
+ TabPositionAndSize.OK
+ WaitSlot (1000)
+ Kontext "Drei_D_Effekte"
+
+ Zuweisen.Click
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ If PositionX.GetText = Posi Then
+ printlog "- Raising value for focal length has not changed optical appearence of object, ok."
+ else
+ warnlog "Problem with focal lenght here!"
+ endif
+ TabPositionAndSize.OK
+ WaitSlot (1000)
+ Kontext "Drei_D_Effekte"
+ Brennweite.SetText "5"
+ Zuweisen.Click
+ WaitSlot (1000)
+ EditSelectAll
+ WaitSlot (3000)
+ ContextPositionAndSize
+ WaitSlot (1000)
+ Kontext
+ Sleep (1)
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ Sleep (2)
+ if PositionX.GetText = Posi Then
+ printlog "- Lowering focus length value has not changed optical appearence of object, ok."
+ else
+ warnlog "problem with focus, check!"
+ endif
+ TabPositionAndSize.OK
+ Kontext "Drei_D_Effekte"
+ printlog "close document"
+ Drei_D_Effekte.Close
+ Call hCloseDocument
endcase 'tiFormat3D_Effekte
'------------------------------------------------------------------
@@ -1010,247 +899,229 @@ testcase tdFormatTemplates
qaerrorlog "Not yet ready."
goto endsub
- dim Zaehler as integer
- dim i as integer
- dim x as integer
- dim iWaitIndex as integer
- dim sStyleName as string
- dim bDouble as boolean
- dim sTemp(2) as string
-
- Call hNewDocument '/// new impress document ///'
-
- WaitSlot (5000)
- FormatStylesCatalog '/// format-Style catalog///'
- iWaitIndex = 0
- do while Vorlagenkatalog.NotExists AND iWaitIndex < 10
+ dim Zaehler as integer
+ dim i as integer
+ dim x as integer
+ dim iWaitIndex as integer
+ dim sStyleName as string
+ dim bDouble as boolean
+ dim sTemp(2) as string
+
+
+ WaitSlot (5000)
+ iWaitIndex = 0
+ do while Vorlagenkatalog.NotExists AND iWaitIndex < 10
sleep (1)
iWaitIndex = iWaitIndex + 1
- loop
-
- Kontext "Vorlagenkatalog"
- Vorlagen.GetItemCount '/// get item count for templates ///'
- Vorlagen.Select 2 '/// select template 2 ///'
-
- if Bereich.GetItemCount = Vorlagen.GetItemCount Then '/// check if area changes when selecting a template ///'
- PrintLog " - Area did changed"
- else
- WarnLog " Number of entrees should be 2, but it is " + Bereich.GetItemCount
- end if
-
- Zaehler = Ansicht.GetItemCount 'Vorlagenliste.GetItemCount
-
- for i = 1 to Zaehler
- Ansicht.TypeKeys "<DOWN>" ,i
- SetClipboard Ansicht.GetSelText
- WaitSlot (2000)
- Vorlagen.Select 1
- PrintLog " "+i+": Offset: '" + Vorlagen.GetSelText+"'"
- if Bereich.GetItemCount=Vorlagen.GetItemCount Then WarnLog " Range has not changed"
- Vorlagen.Select 2
+ loop
+
+ Kontext "Vorlagenkatalog"
+
+ PrintLog " - Area did changed"
+else
+ WarnLog " Number of entrees should be 2, but it is " + Bereich.GetItemCount
+end if
+
+Zaehler = Ansicht.GetItemCount 'Vorlagenliste.GetItemCount
+
+for i = 1 to Zaehler
+ Ansicht.TypeKeys "<DOWN>" ,i
+ SetClipboard Ansicht.GetSelText
+ WaitSlot (2000)
+ Vorlagen.Select 1
+ PrintLog " "+i+": Offset: '" + Vorlagen.GetSelText+"'"
+ if Bereich.GetItemCount=Vorlagen.GetItemCount Then WarnLog " Range has not changed"
+ Vorlagen.Select 2
WaitSlot (1000)
Ansicht.TypeKeys "<HOME>"
WaitSlot (1000)
- Ansicht.Select 1
+ Ansicht.Select 1
WaitSlot (1000)
- PrintLog " : Offset: '"+Vorlagen.GetSelText + "'; Opinion: '" + Ansicht.GetSelText+"'"
- Vorlagenkatalog.OK
- FormatStylesCatalog
- Kontext "Vorlagenkatalog"
- next i
-
- Vorlagen.Select 2
- WaitSlot (2000)
- Vorlagen.Select 1 '/// select first template ///'
- if Neu.IsEnabled =False Then WarnLog " Button must be choosable, but is not"
- Ansicht.Select 1
- WaitSlot (1000)
- Neu.Click '/// create new template ///'
- Kontext
- Active.SetPage TabVerwalten
- Kontext "TabVerwalten"
- sStyleName = VorlagenName.GetText
- printlog " created new style: '"+sStyleName +"'"
- TabVerwalten.OK
- PrintLog " New template created"
- Kontext "Vorlagenkatalog"
- WaitSlot (1000)
- ' find newly created style, because they are alphabetical ordered :-( i have to check every entry :-(((((
- Zaehler = Ansicht.GetItemCount
- i=1
- Ansicht.TypeKeys "<home>"
- bDouble = false
- sTemp(1) = Ansicht.GetText
- while (sTemp(1) <> sStyleName) AND (i <= Zaehler)
- Ansicht.TypeKeys "<DOWN>"
- inc i
- if (i > Zaehler) then ' here we are only, if we didn't found 'our' template
- if bDouble then
- qaErrorLog "There are Double Entries in the list! #111652#"
- else
- warnlog " style not found :-(" ' print out the styles...
- end if
- Ansicht.TypeKeys "<home>"
- for x=0 to zaehler
- printlog " "+(x+1)+": "+Ansicht.GetText
- if (Loeschen.IsEnabled) then qaErrorLog "^ is delete-able :-)"
- Ansicht.TypeKeys "<DOWN>"
- next x
- end if
- sTemp(2) = sTemp(1)
- sTemp(1) = Ansicht.GetText
- if (sTemp(1) = sTemp(2)) then
- bDouble = true
- end if
- wEnd
- if bDouble then
- i=1
- Ansicht.TypeKeys "<end>"
- sTemp(1) = Ansicht.GetText
- while (sTemp(1) <> sStyleName) AND (i <= Zaehler)
- printlog " "+(i)+": "+sTemp(1)
- Ansicht.TypeKeys "<UP>"
- inc i
- if (i > Zaehler) then ' here we are only, if we didn't found 'our' template
- warnlog " style not found :-(" ' print out the styles...
- Ansicht.TypeKeys "<end>"
- for x=0 to zaehler
+ PrintLog " : Offset: '"+Vorlagen.GetSelText + "'; Opinion: '" + Ansicht.GetSelText+"'"
+ Vorlagenkatalog.OK
+ FormatStylesCatalog
+ Kontext "Vorlagenkatalog"
+ next i
+
+ Vorlagen.Select 2
+ WaitSlot (2000)
+ if Neu.IsEnabled =False Then WarnLog " Button must be choosable, but is not"
+ Ansicht.Select 1
+ WaitSlot (1000)
+ Kontext
+ Active.SetPage TabVerwalten
+ Kontext "TabVerwalten"
+ sStyleName = VorlagenName.GetText
+ printlog " created new style: '"+sStyleName +"'"
+ TabVerwalten.OK
+ PrintLog " New template created"
+ Kontext "Vorlagenkatalog"
+ WaitSlot (1000)
+ ' find newly created style, because they are alphabetical ordered :-( i have to check every entry :-(((((
+ Zaehler = Ansicht.GetItemCount
+ i=1
+ Ansicht.TypeKeys "<home>"
+ bDouble = false
+ sTemp(1) = Ansicht.GetText
+ while (sTemp(1) <> sStyleName) AND (i <= Zaehler)
+ Ansicht.TypeKeys "<DOWN>"
+ inc i
+ if (i > Zaehler) then ' here we are only, if we didn't found 'our' template
+ if bDouble then
+ qaErrorLog "There are Double Entries in the list! #111652#"
+ else
+ warnlog " style not found :-(" ' print out the styles...
+ end if
+ Ansicht.TypeKeys "<home>"
+ for x=0 to zaehler
printlog " "+(x+1)+": "+Ansicht.GetText
if (Loeschen.IsEnabled) then qaErrorLog "^ is delete-able :-)"
+ Ansicht.TypeKeys "<DOWN>"
+ next x
+ end if
+ sTemp(2) = sTemp(1)
+ sTemp(1) = Ansicht.GetText
+ if (sTemp(1) = sTemp(2)) then
+ bDouble = true
+ end if
+ wEnd
+ if bDouble then
+ i=1
+ Ansicht.TypeKeys "<end>"
+ sTemp(1) = Ansicht.GetText
+ while (sTemp(1) <> sStyleName) AND (i <= Zaehler)
+ printlog " "+(i)+": "+sTemp(1)
Ansicht.TypeKeys "<UP>"
- next x
- end if
- sTemp(1) = Ansicht.GetText
- wEnd
- end if
- if (i <= Zaehler) then printlog " found created entry for deleting it :-)"
- ' Ansicht.TypeKeys "<DOWN>" ,( i + 1 ) '/// control if template list has created template included ///'
- WaitSlot (2000)
- try
- Loeschen.Click '/// delete template ///'
- WaitSlot (1000)
- Kontext "Active"
- if active.exists then
- printlog "ac: "+active.gettext
- try
- Active.Yes
- catch
- warnlog "active-Yes doesn't exist :-( WorkInProgress TBO"
- endcatch
- end if
- PrintLog " Delete did work"
- Kontext "Vorlagenkatalog"
- catch
- WarnLog " Only a new created template can be deleted"
- endcatch
- WaitSlot (1000)
- UseBindings
- Ansicht.Select 1
- WaitSlot (1000)
- Aendern.Click '/// modify template ///'
- WaitSlot (2000)
- Kontext
- Active.SetPage TabSchatten
- Kontext "TabSchatten"
- WaitSlot (2000)
- TabSchatten.Cancel
- WaitSlot (2000)
- Kontext "Vorlagenkatalog"
-
- Verwalten.Click '/// organize templates ///'
- WaitSlot (2000)
- Kontext "DVVerwalten"
- DVVerwalten.OK
- WaitSlot (1000)
- try
- Kontext "Vorlagenkatalog"
- Vorlagenkatalog.OK
- catch
- Warnlog " - Style Catalog can't close unless the Template Management-dialog is closed"
- endcatch
- PrintLog " FormatStylesCatalog finished" '/// close template catalog ///'
- WaitSlot (2000)
- FormatModifyLayout '/// format modify layout ///'
- WaitSlot (2000)
- Kontext "Seitenvorlage"
- if HintergrundseiteAustauschen.IsChecked=True Then HintergrundseiteAustauschen.UnCheck '/// uncheck switch background page ///'
- Laden.Click '/// load ///'
- WaitSlot (2000)
- Kontext "Neu"
- Neu.Cancel
- Kontext "Seitenvorlage" '/// choose a page layout ///'
- 'Waehlen.Click
- Seitenvorlage.OK '/// close dialog ///'
-
- Call hCloseDocument '/// close document ///'
+ inc i
+ if (i > Zaehler) then ' here we are only, if we didn't found 'our' template
+ warnlog " style not found :-(" ' print out the styles...
+ Ansicht.TypeKeys "<end>"
+ for x=0 to zaehler
+ printlog " "+(x+1)+": "+Ansicht.GetText
+ if (Loeschen.IsEnabled) then qaErrorLog "^ is delete-able :-)"
+ Ansicht.TypeKeys "<UP>"
+ next x
+ end if
+ sTemp(1) = Ansicht.GetText
+ wEnd
+ end if
+ if (i <= Zaehler) then printlog " found created entry for deleting it :-)"
+ WaitSlot (2000)
+ try
+ WaitSlot (1000)
+ Kontext "Active"
+ if active.exists then
+ printlog "ac: "+active.gettext
+ try
+ Active.Yes
+ catch
+ warnlog "active-Yes doesn't exist :-( WorkInProgress TBO"
+ endcatch
+ end if
+ PrintLog " Delete did work"
+ Kontext "Vorlagenkatalog"
+ catch
+ WarnLog " Only a new created template can be deleted"
+ endcatch
+ WaitSlot (1000)
+ UseBindings
+ Ansicht.Select 1
+ WaitSlot (1000)
+ WaitSlot (2000)
+ Kontext
+ Active.SetPage TabSchatten
+ Kontext "TabSchatten"
+ WaitSlot (2000)
+ TabSchatten.Cancel
+ WaitSlot (2000)
+ Kontext "Vorlagenkatalog"
+
+ WaitSlot (2000)
+ Kontext "DVVerwalten"
+ DVVerwalten.OK
+ WaitSlot (1000)
+ try
+ Kontext "Vorlagenkatalog"
+ Vorlagenkatalog.OK
+ catch
+ Warnlog " - Style Catalog can't close unless the Template Management-dialog is closed"
+ endcatch
+ WaitSlot (2000)
+ WaitSlot (2000)
+ Kontext "Seitenvorlage"
+ WaitSlot (2000)
+ Kontext "Neu"
+ Neu.Cancel
+ 'Waehlen.Click
+
endcase 'tdFormatTemplates
'-------------------------------------------------------------------------------
testcase tiFormatAufzaehlungszeichen
-
+
Dim i as Integer
PrintLog "- Format/Numbering and Bullets"
-
+
Call hNewDocument
WaitSlot (2000)
Kontext "DocumentImpress"
hTextrahmenErstellen ("Hello <Return><Return>",20,20,60,60)
for i=1 to 8
- Kontext "DocumentImpress"
- gMouseClick 30,30
- EditSelectAll
- WaitSlot (1000)
- FormatNumberingBulletsDraw
- WaitSlot (2000)
- Kontext
- Active.SetPage TabBullet
- Kontext "TabBullet"
- Auswahl.TypeKeys "<Right>", i
- TabBullet.OK
- Kontext "DocumentImpress"
+ Kontext "DocumentImpress"
+ gMouseClick 30,30
+ EditSelectAll
+ WaitSlot (1000)
+ FormatNumberingBulletsDraw
+ WaitSlot (2000)
+ Kontext
+ Active.SetPage TabBullet
+ Kontext "TabBullet"
+ Auswahl.TypeKeys "<Right>", i
+ TabBullet.OK
+ Kontext "DocumentImpress"
next i
for i=1 to 8
- Kontext "DocumentImpress"
- gMouseClick 30,30
- EditSelectAll
- WaitSlot (1000)
- FormatNumberingBulletsDraw
- Kontext
- Active.SetPage TabNumerierungsart
- Kontext "TabNumerierungsart"
- Auswahl.TypeKeys "<Right>", i
- TabNumerierungsart.OK
- Kontext "DocumentImpress"
+ Kontext "DocumentImpress"
+ gMouseClick 30,30
+ EditSelectAll
+ WaitSlot (1000)
+ FormatNumberingBulletsDraw
+ Kontext
+ Active.SetPage TabNumerierungsart
+ Kontext "TabNumerierungsart"
+ Auswahl.TypeKeys "<Right>", i
+ TabNumerierungsart.OK
+ Kontext "DocumentImpress"
next i
for i=1 to 8
- Kontext "DocumentImpress"
- gMouseClick 30,30
- EditSelectAll
- FormatNumberingBulletsDraw
- Kontext
- Active.SetPage TabNumerierungsart
- Kontext "TabNumerierungsart"
- Auswahl.TypeKeys "<Right>", i
- TabNumerierungsart.OK
- Kontext "DocumentImpress"
+ Kontext "DocumentImpress"
+ gMouseClick 30,30
+ EditSelectAll
+ FormatNumberingBulletsDraw
+ Kontext
+ Active.SetPage TabNumerierungsart
+ Kontext "TabNumerierungsart"
+ Auswahl.TypeKeys "<Right>", i
+ TabNumerierungsart.OK
+ Kontext "DocumentImpress"
next i
WaitSlot (3000)
for i=1 to 29
- WaitSlot (3000)
- FormatNumberingBulletsDraw
- WaitSlot (3000)
- Kontext
- Active.SetPage TabGrafiken
- Kontext "TabGrafiken"
- sleep 1
- Auswahl.TypeKeys "<Right>", i
- TabGrafiken.OK
- Kontext "DocumentImpress"
+ WaitSlot (3000)
+ FormatNumberingBulletsDraw
+ WaitSlot (3000)
+ Kontext
+ Active.SetPage TabGrafiken
+ Kontext "TabGrafiken"
+ sleep 1
+ Auswahl.TypeKeys "<Right>", i
+ TabGrafiken.OK
+ Kontext "DocumentImpress"
next i
-
+
gMouseClick 90,90
-
+
Call hCloseDocument
endcase 'tiFormatAufzaehlungszeichen
diff --git a/testautomation/graphics/optional/includes/global/g_group.inc b/testautomation/graphics/optional/includes/global/g_group.inc
index 61f5c9d3e31f..3e4e35537a41 100755
--- a/testautomation/graphics/optional/includes/global/g_group.inc
+++ b/testautomation/graphics/optional/includes/global/g_group.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
@@ -40,73 +40,60 @@
'\********************************************************************
testcase tiGruppierung
- Dim PosX 'Variable fuer PositionX
+ Dim PosX 'Variable fuer PositionX
- Call hNewDocument '/// new document ///'
- sleep 3
- Kontext "DocumentImpress"
- sleep 2
- hRechteckErstellen (20,20,40,40) '/// create rectangle ///'
- sleep 1
- hRechteckErstellen (60,60,70,10) '/// create 2nd rectangle ///'
- sleep 1
- hRechteckErstellen (50,90,70,40) '/// create 3rd rectangle ///'
- sleep 1
+ sleep 3
+ Kontext "DocumentImpress"
+ sleep 2
+ sleep 1
+ sleep 1
+ sleep 1
Printlog "- Created 3 rectangles for group testing"
- gMouseClick (50,50) '/// Put the mouse-marker in the middle of the screen ///'
- EditSelectAll '/// select all rectangles ///'
- if (gApplication = "DRAW") then
- hOpenContextMenu
+ if (gApplication = "DRAW") then
+ hOpenContextMenu
sleep(2)
hMenuSelectNr(12) ' Select "Group"
sleep(2)
- else
- FormatGroupDraw '/// open context menue and group rectangles ///'
- endif
- sleep 1
+ else
+ endif
+ sleep 1
Printlog "- Get position and dimensions of elements"
- ContextPositionAndSize '/// get dimensions of group ///'
- sleep 1
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- sleep 1
- PosX=PositionX.GetText
- TabPositionAndSize.OK
- sleep 1
- Kontext "DocumentImpress"
- gMouseClick 35,35
- sleep 1
- hTypeKeys "<F3>" '/// entering group using key "F3" ///'
- sleep 3
- try
- EditCut '/// cut rectangle out of document ///'
- sleep 1
- Warnlog "- Entering the group, no object within the group should have been selected"
- catch
- Printlog "- entered group, nothing selected"
- endcatch
- gMouseClick (35,35)
- gMouseMove (30,30,60,60)
- sleep 1
- Printlog "- Exit group"
-' DocumentImpress.OpenContextMenu '/// leave group, compare dimensions ///'
-' sleep 1
-' hMenuSelectNr (13)
- hTypeKeys "<mod1 F3>" '/// exit group using key "strg F3" ///'
- ' would be better to call the slot TBO!
- ContextPositionAndSize
- sleep 1
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- sleep 1
- if PosX = PositionX.GetText then
- Warnlog "- No change in position for X axis, even we changed position of 1 object within the group"
- TabPositionAndSize.OK
- else
- Printlog "- Moving within the group works"
- TabPositionAndSize.OK
- end if
- Call hCloseDocument '/// close document ///'
+ sleep 1
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ sleep 1
+ PosX=PositionX.GetText
+ TabPositionAndSize.OK
+ sleep 1
+ Kontext "DocumentImpress"
+ gMouseClick 35,35
+ sleep 1
+ sleep 3
+ try
+ sleep 1
+ Warnlog "- Entering the group, no object within the group should have been selected"
+ catch
+ Printlog "- entered group, nothing selected"
+ endcatch
+ gMouseClick (35,35)
+ gMouseMove (30,30,60,60)
+ sleep 1
+ Printlog "- Exit group"
+ ' sleep 1
+ ' hMenuSelectNr (13)
+ ' would be better to call the slot TBO!
+ ContextPositionAndSize
+ sleep 1
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ sleep 1
+ if PosX = PositionX.GetText then
+ Warnlog "- No change in position for X axis, even we changed position of 1 object within the group"
+ TabPositionAndSize.OK
+ else
+ Printlog "- Moving within the group works"
+ TabPositionAndSize.OK
+ end if
endcase
diff --git a/testautomation/graphics/optional/includes/global/g_imagemap.inc b/testautomation/graphics/optional/includes/global/g_imagemap.inc
index 51db4ae326b5..08e6575e5cb2 100755
--- a/testautomation/graphics/optional/includes/global/g_imagemap.inc
+++ b/testautomation/graphics/optional/includes/global/g_imagemap.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
@@ -41,32 +41,28 @@
'\*************************************************************************************
testcase tEditImageMap
- Call hNewDocument '/// new document ///'
- EditImageMap '/// edit image map ///'
- Kontext "ImageMapEditor"
- sleep 1
- if ImageMapEditor.Exists (2) then '/// test dialog controls ///'
- printlog "ImageMap editor exists"
- DialogTest ( ImageMapEditor )
- try
+ Kontext "ImageMapEditor"
+ sleep 1
+ printlog "ImageMap editor exists"
+ DialogTest ( ImageMapEditor )
+ try
ImageMapEditor.Close
Printlog "ImageMap closed"
- catch
+ catch
EditImageMap
Printlog "ImageMap closed using the edit-menu entry"
- endcatch
- else
- sleep 2
- DialogTest ( ImageMapEditor )
- try
+ endcatch
+else
+ sleep 2
+ DialogTest ( ImageMapEditor )
+ try
ImageMapEditor.Close
Printlog "ImageMap closed"
- catch
+ catch
EditImageMap
Printlog "ImageMap closed using the edit-menu entry"
- endcatch
- end if
- Call hCloseDocument '/// close document ///'
+ endcatch
+end if
endcase
'------------------------------------------------------------------------------------------------------------------------------------
@@ -74,92 +70,79 @@ endcase
testcase tEditImageMapProperties
qaerrorlog "test not yet ready."
goto endsub
- Call hNewDocument '/// new document ///'
- InsertGraphicsFromFile '/// Insert a graphic and select it ///'
sleep (1)
Kontext "GrafikEinfuegenDlg"
- sleep (2)
- Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\SaveAsPicture\SaveAsPicture.pcx")
- sleep (2)
- Oeffnen.Click
- sleep (2)
- EditImageMap '/// Open the image map dialog ///'
- Kontext "ImageMapEditor"
- sleep (1)
- if ImageMapEditor.Exists (2) then '/// test dialog controls ///'
- printlog "ImageMap editor exists"
- else
- warnlog "Something is wrong, the Imagemap didn't show up."
- end if
+ sleep (2)
+ Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\SaveAsPicture\SaveAsPicture.pcx")
+ sleep (2)
+ Oeffnen.Click
+ sleep (2)
+ Kontext "ImageMapEditor"
+ sleep (1)
+ printlog "ImageMap editor exists"
+else
+ warnlog "Something is wrong, the Imagemap didn't show up."
+end if
- Ellipse.Click '/// Insert an 'image map' object ///'
- Dokument.MouseDown 50,50
- Dokument.MouseMove 50,50,10,10
- Dokument.MouseUp 10,10
+Dokument.MouseDown 50,50
+Dokument.MouseMove 50,50,10,10
+Dokument.MouseUp 10,10
- Eigenschaften.Click '/// Click on the properties icon to open up the properties for the Object ///'
- kontext "ImageMapHyperlink"
- sleep (1)
- if ImageMapHyperlink.Exists (2) then
- printlog "ImageMapHyperlink (properties) editor exists"
- else
- warnlog "Something is wrong, the ImageMapHyperlink (properties) didn't show up."
- end if
+kontext "ImageMapHyperlink"
+sleep (1)
+if ImageMapHyperlink.Exists (2) then
+ printlog "ImageMapHyperlink (properties) editor exists"
+else
+ warnlog "Something is wrong, the ImageMapHyperlink (properties) didn't show up."
+end if
- URL.SetText "http://www.cnn.com" '/// Write some text in each field ///'
- Frame.SetText "http://www.framed.com"
- Objectname.SetText "This is a strange name: Huckillerry Bohaahw"
- Alternativetext.SetText "Alternative, the only way to fly..."
- Description.SetText "Just a Foney-text... or whatever it's called."
- ImageMapHyperlink.Ok '/// Close the Properties-Dialogue with "Ok" ///'
- kontext "ImageMapEditor"
- Zuweisen.Click
- sleep (1)
- ImageMapEditor.Close
+Frame.SetText "http://www.framed.com"
+Objectname.SetText "This is a strange name: Huckillerry Bohaahw"
+Alternativetext.SetText "Alternative, the only way to fly..."
+Description.SetText "Just a Foney-text... or whatever it's called."
+kontext "ImageMapEditor"
+Zuweisen.Click
+sleep (1)
+ImageMapEditor.Close
- if gApplication = "DRAW" then
- kontext "DocumentDraw"
- else
- kontext "DocumentImpress"
- end if
+if gApplication = "DRAW" then
+ kontext "DocumentDraw"
+else
+ kontext "DocumentImpress"
+end if
- EditImageMap '/// Check if what we wrote in the Properites-Dialogue still is visible."
- Kontext "ImageMapEditor"
- sleep (1)
- if ImageMapEditor.Exists (2) then
- printlog "ImageMap editor exists"
- else
- warnlog "Something is wrong, the ImageMap Editor didn't show up."
- end if
+Kontext "ImageMapEditor"
+sleep (1)
+if ImageMapEditor.Exists (2) then
+ printlog "ImageMap editor exists"
+else
+ warnlog "Something is wrong, the ImageMap Editor didn't show up."
+end if
- Dokument.TypeKeys "<TAB>"
- sleep (1)
+Dokument.TypeKeys "<TAB>"
+sleep (1)
- Eigenschaften.Click '/// Click on the properties icon to open up the properties for the Object ///'
- kontext "ImageMapHyperlink"
- sleep (1)
- if ImageMapHyperlink.Exists (2) then
- printlog "ImageMapHyperlink (properties) editor exists"
- else
- warnlog "Something is wrong, the ImageMapHyperlink (properties) didn't show up."
- end if
+kontext "ImageMapHyperlink"
+sleep (1)
+if ImageMapHyperlink.Exists (2) then
+ printlog "ImageMapHyperlink (properties) editor exists"
+else
+ warnlog "Something is wrong, the ImageMapHyperlink (properties) didn't show up."
+end if
- '/// Check if the entries we set before has remained the same, with one exception: cnn.com should now have a slash after it. ///'
- if URL.GetText <> "http://www.cnn.com/" then warnlog "URL should have been: http://www.cnn.com/ . But was " + URL.GetText
-' if Frame.GetSelText <> "http://www.framed.com" then warnlog "Frame should have been: http://www.framed.com. But was " + Frame.GetSelText
- if Objectname.GetText <> "This is a strange name: Huckillerry Bohaahw" then warnlog "Objectname. should have been: This is a strange name: Huckillerry Bohaahw. But was " + Objectname.GetText
+if URL.GetText <> "http://www.cnn.com/" then warnlog "URL should have been: http://www.cnn.com/ . But was " + URL.GetText
+ ' if Frame.GetSelText <> "http://www.framed.com" then warnlog "Frame should have been: http://www.framed.com. But was " + Frame.GetSelText
+ if Objectname.GetText <> "This is a strange name: Huckillerry Bohaahw" then warnlog "Objectname. should have been: This is a strange name: Huckillerry Bohaahw. But was " + Objectname.GetText
if Alternativetext.GetText <> "Alternative, the only way to fly..." then warnlog "Alternativetext should have been: . But was " + Alternativetext.GetText
- if Description.GetText <> "Just a Foney-text... or whatever it's called." then warnlog "Description. should have been: . But was " + Description.GetText
- ImageMapHyperlink.Ok '/// Close the Properties-Dialogue ///'
- sleep (1)
+ if Description.GetText <> "Just a Foney-text... or whatever it's called." then warnlog "Description. should have been: . But was " + Description.GetText
+ sleep (1)
- kontext "ImageMapEditor"
- Zuweisen.Click
- sleep (1)
- ImageMapEditor.Close
- sleep (1)
+ kontext "ImageMapEditor"
+ Zuweisen.Click
+ sleep (1)
+ ImageMapEditor.Close
+ sleep (1)
- Call hCloseDocument '/// close document ///'
endcase 'tEditImageMapProperties
'------------------------------------------------------------------------------------------------------------------------------------
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
'-------------------------------------------------------------------------------
diff --git a/testautomation/graphics/optional/includes/global/g_line.inc b/testautomation/graphics/optional/includes/global/g_line.inc
index dbd0e06b3370..0c84051ac514 100755
--- a/testautomation/graphics/optional/includes/global/g_line.inc
+++ b/testautomation/graphics/optional/includes/global/g_line.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
@@ -49,85 +49,66 @@ testcase tiFormatLine
Dim k 'Variable fuer Transparenz (Anzahl)
Dim l
Dim ZaehlerStilLinks
-
- Call hNewDocument '/// New impress document
+
sleep 3
- Call hRechteckErstellen (10,10,60,60) '/// create rectangle
sleep 2
- FormatLine '/// open Format line dialog
Kontext
- Active.SetPage TabLinie '///Open TabLine Tabpage
Kontext "TabLinie"
sleep 2
- Stil.GetItemCount '/// Get item count for style ///'
- Farbe.GetItemCount '/// Get item count for color ///'
- Breite.More 1 '/// change value for ///'
ZaehlerStil = Stil.GetItemCount
ZaehlerFarbe = Farbe.GetItemCount
-
- for i=1 to ZaehlerStil '/// Apply every style to the rectangle ///'
- wait 10
- Stil.Select i
- wait 10
- TabLinie.OK '/// Closing dialog with ok
- ' Kontext "DocumentImpress"
- FormatLine '///Open TabLine Tabpage
- Kontext
- Active.SetPage TabLinie
- Kontext "TabLinie"
- next i
-
- for j=1 to ZaehlerFarbe '/// Apply every color to the rectangle///'
- PrintLog "-- " + Farbe.GetSelText
- wait 10
- Farbe.Select j
- wait 10
- TabLinie.OK
+
+ wait 10
+ Stil.Select i
+ wait 10
' Kontext "DocumentImpress"
- FormatLine
- Kontext
- Active.SetPage TabLinie
- Kontext "TabLinie"
- next j
- Breite.More 3 '/// change Breite ///'
- Breite.Less 2
- for k=1 to 6
- Transparenz.More 1 '/// change tranparence///'
- next k
- TabLinie.OK
- '---------------------------------------
- sleep 2
- EditSelectAll '/// Select all objects in document ///'
- sleep 2
- hTypeKeys "<DELETE>" '/// Delete objects ///'
- sleep 2
- FormatLine
-
Kontext
- Active.SetPage TabLinie '/// TabLine ///'
+ Active.SetPage TabLinie
Kontext "TabLinie"
- StilLinks.GetItemCount
- ZaehlerStilLinks=StilLinks.GetItemCount
- for l=1 to ZaehlerStilLinks '/// Apply all line end styles///'
- wait 10
- if EndenSynchronisieren.IsChecked=False Then EndenSynchronisieren.Check '/// check synchronize ///'
- wait 10
- StilLinks.Select l
- if StilLinks.GetSelText<>StilRechts.GetSelText Then
- WarnLog " Ends not synchronized. " + StilLinks.GetSelText + " Right: " + StilRechts.GetSelText '/// check if style is automatically applied for both ends ///'
- else
- PrintLog " Left: " + StilLinks.GetSelText + " Right: " + StilRechts.GetSelText
- end if
- EndenSynchronisieren.UnCheck
- next l
- ZentriertLinks.Check
- if ZentriertRechts.isChecked = True Then PrintLog " Centered right does work"
- i = CornerStyle.GetItemCount
- if i <> 4 then warnlog "CornerStyle should contain four options, but currently has: " + i
- for i = 1 to 4
+next i
+
+PrintLog "-- " + Farbe.GetSelText
+wait 10
+Farbe.Select j
+wait 10
+TabLinie.OK
+' Kontext "DocumentImpress"
+FormatLine
+Kontext
+Active.SetPage TabLinie
+Kontext "TabLinie"
+next j
+Breite.Less 2
+for k=1 to 6
+next k
+TabLinie.OK
+'---------------------------------------
+sleep 2
+sleep 2
+sleep 2
+FormatLine
+
+Kontext
+Kontext "TabLinie"
+StilLinks.GetItemCount
+ZaehlerStilLinks=StilLinks.GetItemCount
+wait 10
+wait 10
+StilLinks.Select l
+if StilLinks.GetSelText<>StilRechts.GetSelText Then
+else
+PrintLog " Left: " + StilLinks.GetSelText + " Right: " + StilRechts.GetSelText
+end if
+EndenSynchronisieren.UnCheck
+next l
+ZentriertLinks.Check
+if ZentriertRechts.isChecked = True Then PrintLog " Centered right does work"
+i = CornerStyle.GetItemCount
+if i <> 4 then warnlog "CornerStyle should contain four options, but currently has: " + i
+for i = 1 to 4
CornerStyle.Select i
if CornerStyle.GetSelIndex <> i then warnlog "Corner Styles was: " + CornerStyle.GetSelIndex + ", should have been " + i
- Printlog "Corner Style nr: " + i + " = " + CornerStyle.GetSelText
+ Printlog "Corner Style nr: " + i + " = " + CornerStyle.GetSelText
next i
TabLinie.OK
'------------------------------------------
@@ -136,15 +117,12 @@ testcase tiFormatLine
Kontext
Active.SetPage TabLinienstile
Kontext "TabLinienstile"
- Hinzufuegen.Click '/// Add new line style ///'
Kontext "NameDlg"
- Eingabefeld.SetText "Testlinie2" '/// insert name of style (Testlinie2) ///'
NameDlg.OK
sleep 1
Kontext
Active.SetPage TabLinienstile
Kontext "TabLinienstile"
- Loeschen.Click '/// delete created style ///'
Kontext "Active"
Active.Yes
Kontext
@@ -157,167 +135,146 @@ testcase tiFormatLine
LaengeLinks.More 3
LaengeRechts.More 3
Abstand.SetText "0,1"
- if AnLinienbreite.IsChecked = True Then AnLinienbreite.Click '/// all fields changed in TabLinienstile ///'
PrintLog " All controls could be manipulated."
TypLinks.Select 1
TypRechts.Select 1
- if LaengeLinks.IsEnabled And LaengeRechts.IsEnabled =True Then '/// check if its possible to apply a length to a point ///'
- WarnLog " A point where you can change its length is not a point anymore"
- else
- PrintLog " Line style pint tested" '/// All styles for points are changed ///'
- end if
- sleep 1
- try
- Linienstil.Select 1
- catch
- if Linienstil.GetItemCount = 0 then '/// check if style list is filled ///'
- Warnlog "- The list for line styles is empty"
- Hinzufuegen.Click '/// new style ///'
- Kontext "NameDlg"
- NameDlg.OK
- end if
- endcatch
- Kontext
- Active.SetPage TabLinienstile
- Kontext "TabLinienstile"
- Aendern.Click '/// change style ///'
+ WarnLog " A point where you can change its length is not a point anymore"
+else
+end if
+sleep 1
+try
+ Linienstil.Select 1
+catch
+ Warnlog "- The list for line styles is empty"
Kontext "NameDlg"
- Eingabefeld.SetText Eingabefeld.GetText + "1" '/// new name for changed style ///'
- SetClipboard Eingabefeld.GetText '/// put name into clipboard ///'
NameDlg.OK
- Kontext
- Active.SetPage TabLinienstile
- Kontext "TabLinienstile"
- TabLinienstile.OK
- sleep 2
- FormatLine
- Kontext
- Active.SetPage TabLinienstile
- Kontext "TabLinienstile"
- try
- Aendern.Click
- catch
+end if
+endcatch
+Kontext
+Active.SetPage TabLinienstile
+Kontext "TabLinienstile"
+Kontext "NameDlg"
+NameDlg.OK
+Kontext
+Active.SetPage TabLinienstile
+Kontext "TabLinienstile"
+TabLinienstile.OK
+sleep 2
+FormatLine
+Kontext
+Active.SetPage TabLinienstile
+Kontext "TabLinienstile"
+try
+Aendern.Click
+catch
+Hinzufuegen.Click
+endcatch
+Kontext "NameDlg"
+NameDlg.Cancel
+sleep 2
+Kontext
+Active.SetPage TabLinienstile
+Kontext "TabLinienstile"
+sleep 1
+try
+Kontext "Active"
+Active.Yes
+sleep 3
+catch
+if Linienstile.GetItemCount = 0 Then
Hinzufuegen.Click
- endcatch
Kontext "NameDlg"
- if Eingabefeld.GetText <> GetClipboardText Then WarnLog "No changes for Line style" '/// check if changed style is in list ///'
- NameDlg.Cancel
- sleep 2
- Kontext
- Active.SetPage TabLinienstile
- Kontext "TabLinienstile"
sleep 1
- try
- Loeschen.Click '/// delete changed style ///'
- Kontext "Active"
- Active.Yes
- sleep 3
- catch
- if Linienstile.GetItemCount = 0 Then
- Hinzufuegen.Click
- Kontext "NameDlg"
- sleep 1
- Eingabefeld.SetText "Delete"
- NameDlg.OK
- end if
- endcatch
- Kontext
- Active.SetPage TabLinienstile
- Kontext "TabLinienstile"
- sleep 1
- TabLinienstile.OK
- '--------------------------------------------
- sleep 2
- Call hRechteckErstellen (40,40,80,50) '/// create rectangle ///'
- sleep 2
- FormatLine
- Kontext
- Active.SetPage TabLinienenden
- Kontext "TabLinienenden"
- sleep 2
- Kontext "Linienstil"
- if Linienstil.Exists then Aendern.Click '/// change style ///'
- sleep 1
- Kontext
- Active.SetPage TabLinienenden
- Kontext "TabLinienenden"
- sleep 1
- Liste.GetItemCount
- Liste.Select 3
- Hinzufuegen.Click '/// add style ///'
- Kontext "NameDlg"
- NameDlg.OK
-
- Kontext
- Active.SetPage TabLinienenden
- Kontext "TabLinienenden"
- Aendern.Click '/// change style ///'
- Kontext "Active"
- Printlog Active.GetText
- Active.OK
- Kontext "NameDlg"
- Eingabefeld.SetText Eingabefeld.GetText + "1"
- PrintLog " Name inserted"
+ Eingabefeld.SetText "Delete"
NameDlg.OK
-
- Kontext
- if active.GetRt=304 then
- active.ok
- Kontext "NameDlg"
- Eingabefeld.SetText Eingabefeld.GetText + "1"
- PrintLog " Name inserted"
- NameDlg.OK
- endif
- if active.GetRt=304 then
- active.ok
- warnlog "still not a valid name :-("
- endif
- Kontext
- Active.SetPage TabLinienenden
- Kontext "TabLinienenden"
- Loeschen.Click '/// delete style ///'
- Kontext "Active"
- Active.Yes
-
- Kontext
- Active.SetPage TabLinienenden
- Kontext "TabLinienenden"
- sleep 1
- Speichern.Click '/// save style ///'
- sleep 1
- Kontext "SpeichernDlg"
- sleep 1
- SpeichernDlg.Cancel
-
- Kontext "TabLinienenden"
- TabLinienenden.Cancel
- sleep 2
-
- '///New part for line
- 'EditSelectAll '/// Select all objects in document ///'
- 'sleep 2
- 'hTypeKeys "<DELETE>" '/// Delete objects ///'
- 'sleep 2
-
- '/// Create line to test shadow tabpage in line dialog
- 'kontext "Toolbar"
- 'Kurven.Click
- 'sleep 1
- 'if (gApplication = "DRAW") then
- ' Kontext "DocumentDraw"
- ' gMouseMove (30,50, 40,60)
- ' sleep 1
- 'else
- ' Kontext "DocumentImpress"
- ' gMouseMove (30,50, 40,60)
- ' sleep 1
- 'endif
- 'FormatLine
- 'Kontext
- 'Active.SetPage TabSchatten
-
- ' FormatLine.Cancel
- Call hCloseDocument '/// close document ///'
+end if
+endcatch
+Kontext
+Active.SetPage TabLinienstile
+Kontext "TabLinienstile"
+sleep 1
+TabLinienstile.OK
+'--------------------------------------------
+sleep 2
+sleep 2
+FormatLine
+Kontext
+Active.SetPage TabLinienenden
+Kontext "TabLinienenden"
+sleep 2
+Kontext "Linienstil"
+sleep 1
+Kontext
+Active.SetPage TabLinienenden
+Kontext "TabLinienenden"
+sleep 1
+Liste.GetItemCount
+Liste.Select 3
+Kontext "NameDlg"
+NameDlg.OK
+
+Kontext
+Active.SetPage TabLinienenden
+Kontext "TabLinienenden"
+Kontext "Active"
+Printlog Active.GetText
+Active.OK
+Kontext "NameDlg"
+Eingabefeld.SetText Eingabefeld.GetText + "1"
+PrintLog " Name inserted"
+NameDlg.OK
+
+Kontext
+if active.GetRt=304 then
+active.ok
+Kontext "NameDlg"
+Eingabefeld.SetText Eingabefeld.GetText + "1"
+PrintLog " Name inserted"
+NameDlg.OK
+endif
+if active.GetRt=304 then
+active.ok
+warnlog "still not a valid name :-("
+endif
+Kontext
+Active.SetPage TabLinienenden
+Kontext "TabLinienenden"
+Kontext "Active"
+Active.Yes
+
+Kontext
+Active.SetPage TabLinienenden
+Kontext "TabLinienenden"
+sleep 1
+sleep 1
+Kontext "SpeichernDlg"
+sleep 1
+SpeichernDlg.Cancel
+
+Kontext "TabLinienenden"
+TabLinienenden.Cancel
+sleep 2
+
+'sleep 2
+'sleep 2
+
+'kontext "Toolbar"
+'Kurven.Click
+'sleep 1
+'if (gApplication = "DRAW") then
+' Kontext "DocumentDraw"
+' gMouseMove (30,50, 40,60)
+' sleep 1
+'else
+' Kontext "DocumentImpress"
+' gMouseMove (30,50, 40,60)
+' sleep 1
+'endif
+'FormatLine
+'Kontext
+'Active.SetPage TabSchatten
+
+' FormatLine.Cancel
endcase 'tiFormatLine
'-------------------------------------------------------------------------------'
@@ -330,58 +287,55 @@ testcase tLineConnect
Dim i as integer
Dim cname as string
Dim cfirst as integer
-
- if bAsianLan then
- QaErrorLog "tLineConnect ends because Asian languages are not fully supported."
- goto Endsub
+
+ if bAsianLan then
+ QaErrorLog "tLineConnect ends because Asian languages are not fully supported."
+ goto Endsub
end if
-
- Call hNewDocument '/// New Impress / Draw document ///'
+
sleep 3
kontext "GraphicObjectbar"
if GraphicObjectbar.Exists then
- if GraphicObjectbar.isDocked = False then
- GraphicObjectbar.Move 900,900
- endif
+ if GraphicObjectbar.isDocked = False then
+ GraphicObjectbar.Move 900,900
+ endif
endif
kontext "Gluepointsobjectbar"
if Gluepointsobjectbar.Exists then
- if Gluepointsobjectbar.isDocked = false then
- Gluepointsobjectbar.Move 900,900
- endif
+ if Gluepointsobjectbar.isDocked = false then
+ Gluepointsobjectbar.Move 900,900
+ endif
endif
kontext "Optionsbar"
if Optionsbar.Exists then
- if Optionsbar.isDocked = false then
- Optionsbar.Move 900,900
- end if
+ if Optionsbar.isDocked = false then
+ Optionsbar.Move 900,900
+ end if
endif
-
- '/// Create 2 lines ///'
+
kontext "Toolbar"
Kurven.Click
sleep 1
if (gApplication = "DRAW") then
- Kontext "DocumentDraw"
- gMouseMove (30,50, 40,60)
- sleep 1
- kontext "Toolbar"
- Kurven.Click
- Kontext "DocumentDraw"
- gMouseMove (70,50, 60,60)
+ Kontext "DocumentDraw"
+ gMouseMove (30,50, 40,60)
+ sleep 1
+ kontext "Toolbar"
+ Kurven.Click
+ Kontext "DocumentDraw"
+ gMouseMove (70,50, 60,60)
else
- Kontext "DocumentImpress"
- gMouseMove (30,50, 40,60)
- sleep 1
- kontext "Toolbar"
- Kurven.Click
- Kontext "DocumentImpress"
- gMouseMove (70,50, 60,60)
+ Kontext "DocumentImpress"
+ gMouseMove (30,50, 40,60)
+ sleep 1
+ kontext "Toolbar"
+ Kurven.Click
+ Kontext "DocumentImpress"
+ gMouseMove (70,50, 60,60)
endif
-
+
printlog "'" + (gApplication) +"'"
-
- '/// Check the amount of objects ///'
+
gMouseClick (10, 10)
sleep 1
EditSelectAll
@@ -392,8 +346,8 @@ testcase tLineConnect
kontext "DocumentDraw"
StatusBarText = DocumentDraw.StatusGetText(DocumentDraw.StatusGetItemID(1))
endif
- if bAsianLan then
- value1 = left(StatusBarText,(InStr(StatusBarText, "2" )))
+ if bAsianLan then
+ value1 = left(StatusBarText,(InStr(StatusBarText, "2" )))
if value1 <> 2 then
warnlog "UH? There is supposed to be two objects visible, but was: " + value1 + " and the StatusBarText said: " + StatusBarText + "."
end if
@@ -404,130 +358,117 @@ testcase tLineConnect
warnlog "UH? There is supposed to be two objects visible, but we found " + value1 + " objects."
end if
end if
-
- '/// Connect the two objects selected ///'
+
hOpenContextMenu
sleep 1
hMenuSelectNr(13)
sleep 1
- '/// Check the amount of objects ///'
gMouseClick (10, 10)
sleep 1
EditSelectAll
sleep 1
if (gApplication = "IMPRESS") then
- StatusBarText = DocumentImpress.StatusGetText(DocumentImpress.StatusGetItemID(1))
+ StatusBarText = DocumentImpress.StatusGetText(DocumentImpress.StatusGetItemID(1))
else
- kontext "DocumentDraw"
- StatusBarText = DocumentDraw.StatusGetText(DocumentDraw.StatusGetItemID(1))
+ kontext "DocumentDraw"
+ StatusBarText = DocumentDraw.StatusGetText(DocumentDraw.StatusGetItemID(1))
endif
value2 = left(StatusBarText,1)
printlog "StatusBarText was: " + StatusBarText
-
- '/// if same as the first value = wrong ///'
+
if value1 = value2 then
- warnlog "Expected to find one object, but found " + value2 + " instead."
+ warnlog "Expected to find one object, but found " + value2 + " instead."
endif
if value2 = "2" then
- warnlog "Connect was not successful. We should have one object, but have " + value2 + " instead."
+ warnlog "Connect was not successful. We should have one object, but have " + value2 + " instead."
endif
-
- '/// unmark the objects, thereafter mark them again ///'
+
gMouseClick (10, 10)
sleep 1
EditSelectAll
sleep 1
- '/// Break them from eachother ///'
hOpenContextMenu
sleep 1
hMenuSelectNr(11)
sleep 1
- '/// unmark the objects, thereafter mark them again ///'
gMouseClick (10, 10)
sleep 1
EditSelectAll
sleep 1
- '/// Check the amount of objects ///'
if (gApplication = "IMPRESS") then
- StatusBarText = DocumentImpress.StatusGetText(DocumentImpress.StatusGetItemID(1))
+ StatusBarText = DocumentImpress.StatusGetText(DocumentImpress.StatusGetItemID(1))
else
- kontext "DocumentDraw"
- StatusBarText = DocumentDraw.StatusGetText(DocumentDraw.StatusGetItemID(1))
+ kontext "DocumentDraw"
+ StatusBarText = DocumentDraw.StatusGetText(DocumentDraw.StatusGetItemID(1))
endif
value3 = left(StatusBarText,1)
-
+
printlog "StatusBarText was: " + StatusBarText
-
- '/// if the same as any of the ones before: Wrong ///'
+
if (value3 = value1 OR value3 = value2) then
- warnlog "Expected to find three objects, but found " + value3 + " instead."
+ warnlog "Expected to find three objects, but found " + value3 + " instead."
endif
-
- '/// if 3 objects, then everything is ok ///'
+
if value3 = 3 then
- printlog "Found three objects. Means the test was successful."
+ printlog "Found three objects. Means the test was successful."
else
- warnlog "Wrong value, expected three objects, but found " + value3 + "."
+ warnlog "Wrong value, expected three objects, but found " + value3 + "."
endif
-
- '/// Go through the different Corner-styles ///'
-
+
+
hOpenContextMenu
hMenuSelectNr(2) 'Choose "Line"
-
+
Kontext "TabLinie"
cfirst = CornerStyle.GetSelIndex
-
+
For i = 1 to CornerStyle.GetItemCount
- Kontext "TabLinie"
- if (i > 1) AND (cname <> CornerStyle.GetSelText) then
- warnlog "Cornerstylename wasnt saved. Should have been: " + cname + ". But was: " + CornerStyle.GetSelText
- endif
- CornerStyle.Select i
- cname = CornerStyle.GetSelText
- Printlog " Found and selected Corner-Style: " + cname
- TabLinie.Ok
- sleep 1
- hOpenContextMenu
- hMenuSelectNr(2) 'Choose "Line"
+ Kontext "TabLinie"
+ if (i > 1) AND (cname <> CornerStyle.GetSelText) then
+ warnlog "Cornerstylename wasnt saved. Should have been: " + cname + ". But was: " + CornerStyle.GetSelText
+ endif
+ CornerStyle.Select i
+ cname = CornerStyle.GetSelText
+ Printlog " Found and selected Corner-Style: " + cname
+ TabLinie.Ok
+ sleep 1
+ hOpenContextMenu
+ hMenuSelectNr(2) 'Choose "Line"
Next i
-
+
Kontext "TabLinie"
CornerStyle.Select cfirst
TabLinie.Ok
-
- '/// And a nice finish to make life a bit happier for anyone who looks at the test ///'
+
kontext "Toolbar"
Ellipsen.Click
if (gApplication = "DRAW") then
- Kontext "DocumentDraw"
- gMouseMove (40,40, 50,30)
- sleep 1
- kontext "Toolbar"
- Ellipsen.Click
- Kontext "DocumentDraw"
- gMouseMove (51,40, 61,30)
- kontext "Toolbar"
- Ellipsen.Click
- Kontext "DocumentDraw"
- gMouseMove (48,43, 53,50)
+ Kontext "DocumentDraw"
+ gMouseMove (40,40, 50,30)
+ sleep 1
+ kontext "Toolbar"
+ Ellipsen.Click
+ Kontext "DocumentDraw"
+ gMouseMove (51,40, 61,30)
+ kontext "Toolbar"
+ Ellipsen.Click
+ Kontext "DocumentDraw"
+ gMouseMove (48,43, 53,50)
else
- Kontext "DocumentImpress"
- gMouseMove (40,40, 50,30)
- sleep 1
- kontext "Toolbar"
- Ellipsen.Click
- Kontext "DocumentImpress"
- gMouseMove (51,40, 61,30)
- kontext "Toolbar"
- Ellipsen.Click
- Kontext "DocumentImpress"
- gMouseMove (48,43, 53,50)
+ Kontext "DocumentImpress"
+ gMouseMove (40,40, 50,30)
+ sleep 1
+ kontext "Toolbar"
+ Ellipsen.Click
+ Kontext "DocumentImpress"
+ gMouseMove (51,40, 61,30)
+ kontext "Toolbar"
+ Ellipsen.Click
+ Kontext "DocumentImpress"
+ gMouseMove (48,43, 53,50)
endif
gMouseClick (10, 10)
- '/// Close the document ///'
hCloseDocument
- '/// Endcase ///'
endcase 'tiLineConnect
'-------------------------------------------------------------------------------'
diff --git a/testautomation/graphics/optional/includes/global/g_load_save.inc b/testautomation/graphics/optional/includes/global/g_load_save.inc
index 55685cfb9fbf..2fd40014a58a 100755
--- a/testautomation/graphics/optional/includes/global/g_load_save.inc
+++ b/testautomation/graphics/optional/includes/global/g_load_save.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
@@ -52,131 +52,114 @@
'\*************************************************************************************
testcase tFileOpenSaveEtc
- Dim Dokument$
- Dim Dokument2$
+ Dim Dokument$
+ Dim Dokument2$
- Dokument$ = ConvertPath ( gOfficePath + "user\work\test1")
- Dokument2$ = ConvertPath ( gOfficePath + "user\work\test1_2")
+ Dokument$ = ConvertPath ( gOfficePath + "user\work\test1")
+ Dokument2$ = ConvertPath ( gOfficePath + "user\work\test1_2")
- if (gApplication = "IMPRESS") then
+ if (gApplication = "IMPRESS") then
ExtensionString = "odp"
else
ExtensionString = "odg"
end if
- '/// delete previous created documents: 'user\\work\\test1*.od?' ///'
- if Dir (Dokument$ + ".odp") <> "" then kill (Dokument$ + ".odp")
- if Dir (Dokument2$ + ".odg") <> "" then kill (Dokument2$ + ".odg")
-
- '/// open application ///'
- hNewDocument
- gMouseclick 90,90
- '/// create a textframe with content ///'
- Call hTextrahmenErstellen ( "This is a test",20,20,40,30 )
- '/// save file as 'test1' ///'
- hFileSaveAsKill (Dokument$ + "." + ExtensionString)
- Sleep 10
- '/// close Document ///'
- hCloseDocument
- printlog "- Document Saved and Closed"
-
- '/// load document 'test1' ///'
- hFileOpen (Dokument$ + "." + ExtensionString)
-
- Sleep 10
- '/// close Document ///'
- hCloseDocument
- printlog "- document Loaded and closed"
- Sleep 10
- '/// load document 'test1' ///'
- hFileOpen (Dokument$ + "." + ExtensionString)
- ' check if the document is writable
- if fIsDocumentWritable = false then
- ' make the document writable and check if it's succesfull
- if fMakeDocumentWritable = false then
- warnlog "The document can't be make writeable. Test stopped."
- goto endsub
- endif
- endif
- Sleep 10
- gMouseclick 90,90
- '/// create another textbox with content ///'
- Call hTextrahmenerstellen ( "Change",60,60,80,80 )
- '/// File->Close needn't work, just say CANCEL to the question about saving changes! ///'
- FileClose
- Kontext ' message about 'something changed should i [overwrite discard cancel]?'
- if Messagebox.exists (5) then
- printlog "2:"+messagebox.gettext
- Messagebox.Cancel
- else
- Warnlog "Mesagebox is missing :-("
- endif
- printlog "- Document loaded, changed and closed discarding all changes"
-
- printlog "- Last version"
- try
- FileReload '/// File Reload ///'
- catch
- kontext "documentimpress"
- try
- FileReload '/// File Reload ///'
- catch
- warnlog "Damn reload ?? Why ? BREAKPOINT! File reload doesn't work. Create new object and try again :-("
- endcatch
- endcatch
- Kontext
- Messagebox.Yes
- Sleep 10
- gMouseDoubleClick 70,70
- hTypeKeys "<Down>", 3
- hTypeKeys "<SHIFT LEFT>",10
- hTypeKeys "<MOD1 C>"
- Sleep 1
- if GetClipboardText = "Change" then Warnlog "- Last version not loaded. Changes in the document still in."
- printlog "- Change document, save it under different name"
- Kontext "DocumentImpress"
- Call hTextrahmenErstellen ("Change2",10,10,50,20 ) '/// new textbox ///'
- gMouseclick 90,90
- sleep 1
- FileSaveAs
- Kontext "SpeichernDlg"
- Dateiname.SetText Dokument2$
- Speichern.Click
- kontext "AlienWarning"
- if AlienWarning.exists(5) then
- warnlog "#i41983# Alien Warning on export not allowed"
- AlienWarning.OK
- endif
- Kontext "Messagebox"
- if Messagebox.Exists(2) then Messagebox.Yes
- Sleep 3
- FileClose '/// Close document ///'
- sleep 10
- Kontext "Messagebox"
- if Messagebox.Exists Then
- Warnlog "- Document saved, but Msgbox appeared, even no changes were made: " + Messagebox.GetText
- Messagebox.Yes
- end if
- sleep 2
- printlog "- Loading write protected file"
- FileOpen '/// Open write protected file ///'
- Kontext "OeffnenDlg"
- Dateiname.SetText (Dokument2$ + "." + ExtensionString)
- NurLesen.Check
- Oeffnen.Click
- Sleep 10
- ' check if the document is writable
- try
- Call hTextrahmenErstellen ( "Hello",85,85,95,95 ) '/// attempt to create a textbox ///'
- hTypeKeys "<SHIFT LEFT>",5
- hTypeKeys "<MOD1 C>"
- sleep 1
- if GetClipboardText = "Hello" then Warnlog "Write protected document could be edited"
- catch
- Printlog "- Write protected document could not be edited"
- endcatch
- sleep 5
- FileClose '/// Close document ///'
+ if Dir (Dokument$ + ".odp") <> "" then kill (Dokument$ + ".odp")
+ if Dir (Dokument2$ + ".odg") <> "" then kill (Dokument2$ + ".odg")
+
+ hNewDocument
+ gMouseclick 90,90
+ Call hTextrahmenErstellen ( "This is a test",20,20,40,30 )
+ hFileSaveAsKill (Dokument$ + "." + ExtensionString)
+ Sleep 10
+ hCloseDocument
+ printlog "- Document Saved and Closed"
+
+ hFileOpen (Dokument$ + "." + ExtensionString)
+
+ Sleep 10
+ hCloseDocument
+ printlog "- document Loaded and closed"
+ Sleep 10
+ hFileOpen (Dokument$ + "." + ExtensionString)
+ ' check if the document is writable
+ if fIsDocumentWritable = false then
+ ' make the document writable and check if it's succesfull
+ if fMakeDocumentWritable = false then
+ warnlog "The document can't be make writeable. Test stopped."
+ goto endsub
+ endif
+ endif
+ Sleep 10
+ gMouseclick 90,90
+ Call hTextrahmenerstellen ( "Change",60,60,80,80 )
+ FileClose
+ Kontext ' message about 'something changed should i [overwrite discard cancel]?'
+ if Messagebox.exists (5) then
+ printlog "2:"+messagebox.gettext
+ Messagebox.Cancel
+ else
+ Warnlog "Mesagebox is missing :-("
+ endif
+ printlog "- Document loaded, changed and closed discarding all changes"
+
+ printlog "- Last version"
+ try
+ catch
+ kontext "documentimpress"
+ try
+ catch
+ warnlog "Damn reload ?? Why ? BREAKPOINT! File reload doesn't work. Create new object and try again :-("
+ endcatch
+ endcatch
+ Kontext
+ Messagebox.Yes
+ Sleep 10
+ gMouseDoubleClick 70,70
+ hTypeKeys "<Down>", 3
+ hTypeKeys "<SHIFT LEFT>",10
+ hTypeKeys "<MOD1 C>"
+ Sleep 1
+ if GetClipboardText = "Change" then Warnlog "- Last version not loaded. Changes in the document still in."
+ printlog "- Change document, save it under different name"
+ Kontext "DocumentImpress"
+ gMouseclick 90,90
+ sleep 1
+ FileSaveAs
+ Kontext "SpeichernDlg"
+ Dateiname.SetText Dokument2$
+ Speichern.Click
+ kontext "AlienWarning"
+ if AlienWarning.exists(5) then
+ warnlog "#i41983# Alien Warning on export not allowed"
+ AlienWarning.OK
+ endif
+ Kontext "Messagebox"
+ if Messagebox.Exists(2) then Messagebox.Yes
+ Sleep 3
+ sleep 10
+ Kontext "Messagebox"
+ if Messagebox.Exists Then
+ Warnlog "- Document saved, but Msgbox appeared, even no changes were made: " + Messagebox.GetText
+ Messagebox.Yes
+ end if
+ sleep 2
+ printlog "- Loading write protected file"
+ Kontext "OeffnenDlg"
+ Dateiname.SetText (Dokument2$ + "." + ExtensionString)
+ NurLesen.Check
+ Oeffnen.Click
+ Sleep 10
+ ' check if the document is writable
+ try
+ hTypeKeys "<SHIFT LEFT>",5
+ hTypeKeys "<MOD1 C>"
+ sleep 1
+ if GetClipboardText = "Hello" then Warnlog "Write protected document could be edited"
+ catch
+ Printlog "- Write protected document could not be edited"
+ endcatch
+ sleep 5
endcase
'********************************************************************************************
@@ -184,214 +167,204 @@ endcase
testcase tFileProperties
qaerrorlog "#i88163#, File/properties/user defined fields get mixed up."
goto endsub
- Call hNewDocument
- Call hTextrahmenErstellen ("This is a document to test the Menupoint in File/Properties",30,30,60,40)
+ Call hNewDocument
+ Call hTextrahmenErstellen ("This is a document to test the Menupoint in File/Properties",30,30,60,40)
- if (gApplication = "IMPRESS") then
+ if (gApplication = "IMPRESS") then
ExtensionString = "odp"
else
ExtensionString = "odg"
end if
- FileProperties
-
- Kontext
- active.SetPage TabDokumentinfo
- Kontext "TabDokumentinfo"
- Titel.SetText "Properties"
- Thema.SetText "Documentproperties"
- Schluesselworte.SetText "None"
-
- qaerrorlog "#i95523#"
- 'Kontext
- 'active.SetPage TabBenutzer
- 'Kontext "TabBenutzer"
- 'Info2.SetText "Thorsten Peters"
-
- 'Infofelder.Click
- 'Kontext "InfonamenBearbeiten"
- 'Namen2.SetText "Name"
- 'InfonamenBearbeiten.OK
- 'sleep 2
- Kontext
- active.SetPage TabInternet
- Kontext "TabInternet"
- RefreshThisDocument.Check
-
- TabInternet.OK
-
- hFileSaveAsKill ConvertPath (gOfficePath + "user\work\eigen." & ExtensionString)
-
- FileClose
- Kontext "Active"
+ FileProperties
+
+ Kontext
+ active.SetPage TabDokumentinfo
+ Kontext "TabDokumentinfo"
+ Titel.SetText "Properties"
+ Thema.SetText "Documentproperties"
+ Schluesselworte.SetText "None"
+
+ qaerrorlog "#i95523#"
+ 'Kontext
+ 'active.SetPage TabBenutzer
+ 'Kontext "TabBenutzer"
+ 'Info2.SetText "Thorsten Peters"
+
+ 'Infofelder.Click
+ 'Kontext "InfonamenBearbeiten"
+ 'Namen2.SetText "Name"
+ 'InfonamenBearbeiten.OK
+ 'sleep 2
+ Kontext
+ active.SetPage TabInternet
+ Kontext "TabInternet"
+ RefreshThisDocument.Check
+
+ TabInternet.OK
+
+ hFileSaveAsKill ConvertPath (gOfficePath + "user\work\eigen." & ExtensionString)
+
+ FileClose
+ Kontext "Active"
if Active.Exists(2) then Active.Yes
- PrintLog "- File / Properties compare"
- Sleep 2
- hFileOpen ConvertPath (gOfficePath + "user\work\eigen." + ExtensionString)
-
- ' check if the document is writable
- if fIsDocumentWritable = false then
- ' make the document writable and check if it's succesfull
- if fMakeDocumentWritable = false then
- warnlog "The document can't be make writeable. Test stopped."
- goto endsub
- endif
- endif
- FileProperties
- Kontext
- active.SetPage TabDokumentinfo
- Kontext "TabDokumentinfo"
- if Titel.GetText <> "Properties" then Warnlog "Description / Titel is wrong"
- if Thema.GetText <> "Documentproperties" then Warnlog "Description / Thema is wrong"
- if Schluesselworte.GetText <> "None" then Warnlog "Description / Keywords is wrong"
-
- qaerrorlog "#i95523#"
- 'Kontext
- 'active.SetPage TabBenutzer
- 'Kontext "TabBenutzer"
- 'if Info2.GetText <> "Thorsten Peters" then Warnlog "User Defined / Info2 is wrong"
-
- 'Infofelder.Click
- 'sleep 2
- 'Kontext "InfonamenBearbeiten"
- 'if Namen2.GetText <> "Name" then Warnlog "Edit Field Names / Info2 is wrong"
- 'InfonamenBearbeiten.OK
-
- Kontext
- active.SetPage TabInternet
- Kontext "TabInternet"
- if RefreshThisDocument.IsChecked = FALSE then Warnlog "Internet / 'Refresh this document' is not checked"
-
- TabInternet.Close
-
- Call hCloseDocument
+ PrintLog "- File / Properties compare"
+ Sleep 2
+ hFileOpen ConvertPath (gOfficePath + "user\work\eigen." + ExtensionString)
+
+ ' check if the document is writable
+ if fIsDocumentWritable = false then
+ ' make the document writable and check if it's succesfull
+ if fMakeDocumentWritable = false then
+ warnlog "The document can't be make writeable. Test stopped."
+ goto endsub
+ endif
+ endif
+ FileProperties
+ Kontext
+ active.SetPage TabDokumentinfo
+ Kontext "TabDokumentinfo"
+ if Titel.GetText <> "Properties" then Warnlog "Description / Titel is wrong"
+ if Thema.GetText <> "Documentproperties" then Warnlog "Description / Thema is wrong"
+ if Schluesselworte.GetText <> "None" then Warnlog "Description / Keywords is wrong"
+
+ qaerrorlog "#i95523#"
+ 'Kontext
+ 'active.SetPage TabBenutzer
+ 'Kontext "TabBenutzer"
+ 'if Info2.GetText <> "Thorsten Peters" then Warnlog "User Defined / Info2 is wrong"
+
+ 'Infofelder.Click
+ 'sleep 2
+ 'Kontext "InfonamenBearbeiten"
+ 'if Namen2.GetText <> "Name" then Warnlog "Edit Field Names / Info2 is wrong"
+ 'InfonamenBearbeiten.OK
+
+ Kontext
+ active.SetPage TabInternet
+ Kontext "TabInternet"
+ if RefreshThisDocument.IsChecked = FALSE then Warnlog "Internet / 'Refresh this document' is not checked"
+
+ TabInternet.Close
+
+ Call hCloseDocument
endcase
'********************************************************************************************
testcase tFilePassword52
-'/// load files with password from version 5.2 ///'
- Dim Datei$
- dim i as integer
- dim x as integer
- dim y as integer
- dim sExt() as string
-
- sExt = array("d","a")
-' passwo52.sd d-preas a-draw
- for i = 0 to 1
- Datei$ = ConvertPath ( gTesttoolPath + "graphics\required\input\passwo52.sd"+sExt(i) )
- '/// open document graphics\\required\\input\\passwo52.sd? ///'
- hFileOpen(Datei$)
- sleep 2
- Kontext "passwordFileOpen"
- '/// password dialog has to came up ! ELSE: error! ///'
- if passwordFileOpen.exists(5) then
- '/// type password: "12345" -> RIGHT ///'
- PasswortName.SetText "12345"
- passwordFileOpen.OK
- Printlog "Ok, password dialog came up :-) for file : '" + datei$ + "'"
- else
- Warnlog "No password dialog came up :-( for file : '" + datei$ + "'"
- endif
- Kontext "Messagebox"
- if Messagebox.Exists(2) then
- Warnlog "messagebox ?: '" + Messagebox.GetText + "'"
- endif
- '/// close document ///'
- hCloseDocument
- next i
+ Dim Datei$
+ dim i as integer
+ dim x as integer
+ dim y as integer
+ dim sExt() as string
+
+ sExt = array("d","a")
+ ' passwo52.sd d-preas a-draw
+ for i = 0 to 1
+ Datei$ = ConvertPath ( gTesttoolPath + "graphics\required\input\passwo52.sd"+sExt(i) )
+ hFileOpen(Datei$)
+ sleep 2
+ Kontext "passwordFileOpen"
+ if passwordFileOpen.exists(5) then
+ PasswortName.SetText "12345"
+ passwordFileOpen.OK
+ Printlog "Ok, password dialog came up :-) for file : '" + datei$ + "'"
+ else
+ Warnlog "No password dialog came up :-( for file : '" + datei$ + "'"
+ endif
+ Kontext "Messagebox"
+ if Messagebox.Exists(2) then
+ Warnlog "messagebox ?: '" + Messagebox.GetText + "'"
+ endif
+ hCloseDocument
+ next i
endcase
'********************************************************************************************
testcase tFileOpenImport
-'/// tries to load a document of type 'ComputerGraphicsMetafile'; gets loaded as impress document. ///'
-dim q as integer
- call hNewDocument
- FileOpen
- Kontext "OeffnenDlg"
-'/// Dateiname.SetText (gTesttoolpath + "graphics\required\input\imsusmap.cgm") ///'
- Dateiname.SetText (ConvertPath (gTesttoolpath + "graphics\required\input\imsusmap.cgm"))
- Oeffnen.Click
- Sleep 2
- ' check if the document is writable
- if fIsDocumentWritable = false then
- ' make the document writable and check if it's succesfull
- if fMakeDocumentWritable = false then
- warnlog "The document can't be make writeable. Test stopped."
- goto endsub
- endif
- endif
- kontext "DocumentImpress"
- if DocumentImpress.exists(5) then
- DocumentImpress.TypeKeys ("<Tab>")
- else
- warnlog "Not loaded in impress"
- endif
- try
- ContextPositionAndSize
- kontext
- messagebox.setpage TabPositionAndSize
- sleep 1
- TabPositionAndSize.Close
- catch
- warnlog "Documents of Type 'ComputerGraphicsMetafile' can't get loaded :-("
- endcatch
- Call hCloseDocument
- if (gApplication="DRAW") then
- Call hCloseDocument
- endif
+ dim q as integer
+ call hNewDocument
+ FileOpen
+ Kontext "OeffnenDlg"
+ Dateiname.SetText (ConvertPath (gTesttoolpath + "graphics\required\input\imsusmap.cgm"))
+ Oeffnen.Click
+ Sleep 2
+ ' check if the document is writable
+ if fIsDocumentWritable = false then
+ ' make the document writable and check if it's succesfull
+ if fMakeDocumentWritable = false then
+ warnlog "The document can't be make writeable. Test stopped."
+ goto endsub
+ endif
+ endif
+ kontext "DocumentImpress"
+ if DocumentImpress.exists(5) then
+ DocumentImpress.TypeKeys ("<Tab>")
+ else
+ warnlog "Not loaded in impress"
+ endif
+ try
+ ContextPositionAndSize
+ kontext
+ messagebox.setpage TabPositionAndSize
+ sleep 1
+ TabPositionAndSize.Close
+ catch
+ warnlog "Documents of Type 'ComputerGraphicsMetafile' can't get loaded :-("
+ endcatch
+ Call hCloseDocument
+ if (gApplication="DRAW") then
+ Call hCloseDocument
+ endif
endcase
'********************************************************************************************
testcase tTestDXF255CharBug
-'/// tries to load a DXF-document which has a string-leght of 255 characters. ///'
-dim q as integer
- call hNewDocument
- InsertGraphicsFromFile '/// insert graphic ///'
- sleep 1
- kontext "Active"
- sleep 1
+ dim q as integer
+ call hNewDocument
+ sleep 1
+ kontext "Active"
+ sleep 1
if Active.Exists Then
- Active.OK
+ Active.OK
end if
sleep 1
- Kontext "GrafikEinfuegenDlg"
- sleep 2
- '/// Dateiname.SetText (ConvertPath (gTesttoolpath + "graphics\required\input\255chars.dxf")) ///'
- Dateiname.SetText (ConvertPath (gTesttoolpath + "graphics\required\input\255chars.dxf"))
- Oeffnen.Click
- Sleep 2
-
- if gApplication = "DRAW" then
- Kontext "Documentdraw"
- if Documentdraw.exists(5) then
- Documentdraw.TypeKeys ("<Tab>")
- else
- warnlog "Not loaded in draw"
- endif
- else '(Impress)
- Kontext "DocumentImpress"
- if DocumentImpress.exists(5) then
- DocumentImpress.TypeKeys ("<Tab>")
- else
- warnlog "Not loaded in impress"
- endif
- endif
-
- try
- ContextPositionAndSize
- kontext
- messagebox.setpage TabPositionAndSize
- sleep 1
- TabPositionAndSize.Close
- catch
- warnlog "DXF-Document could not be loaded :-("
- endcatch
- Call hCloseDocument
+ Kontext "GrafikEinfuegenDlg"
+ sleep 2
+ Dateiname.SetText (ConvertPath (gTesttoolpath + "graphics\required\input\255chars.dxf"))
+ Oeffnen.Click
+ Sleep 2
+
+ if gApplication = "DRAW" then
+ Kontext "Documentdraw"
+ if Documentdraw.exists(5) then
+ Documentdraw.TypeKeys ("<Tab>")
+ else
+ warnlog "Not loaded in draw"
+ endif
+ else '(Impress)
+ Kontext "DocumentImpress"
+ if DocumentImpress.exists(5) then
+ DocumentImpress.TypeKeys ("<Tab>")
+ else
+ warnlog "Not loaded in impress"
+ endif
+ endif
+
+ try
+ ContextPositionAndSize
+ kontext
+ messagebox.setpage TabPositionAndSize
+ sleep 1
+ TabPositionAndSize.Close
+ catch
+ warnlog "DXF-Document could not be loaded :-("
+ endcatch
+ Call hCloseDocument
endcase
'********************************************************************************************
@@ -403,102 +376,89 @@ testcase tDeletedTemplate
dim SavedActiveMessage as string
dim found as boolean
- if (gApplication = "IMPRESS") then
+ if (gApplication = "IMPRESS") then
ExtensionString = "odp"
else
ExtensionString = "odg"
end if
-
+
Dokument1$ = ConvertPath ( gOfficePath + "user\work\test1." & ExtensionString)
Dokument2$ = ConvertPath ( gOfficePath + "user\work\test2." & ExtensionString)
-
-
- '/// delete previous created documents: 'user\\work\\test*.odp' ///'
- if Dir (Dokument1$) <> "" then kill Dokument1$
- if Dir (Dokument2$) <> "" then kill Dokument2$
-
- '/// open application ///'
- hNewDocument
- gMouseclick 90,90
- '/// create a textframe with content ///'
- Call hTextrahmenErstellen ( "This is the first file",20,20,40,30 )
- '/// save file as 'test1.odp' ///'
- hFileSaveAsKill (Dokument1$)
- Sleep 10
- '/// close Document ///'
- hCloseDocument
- printlog "- Document 'test1.odp' Saved and Closed"
-
- '/// open application again ///'
- hNewDocument
- gMouseclick 90,90
- '/// create another textframe with content ///'
- Call hTextrahmenErstellen ( "This is the second file",20,20,40,30 )
- '/// save file as 'test2.odp' ///'
- hFileSaveAsKill (Dokument2$)
- Sleep 10
- '/// close Document ///'
- hCloseDocument
- printlog "- Document 'test2.odp' Saved and Closed"
-
- '/// Delete the first file ///'
- try
- kill Dokument1$
- Printlog " Correctly deleted the file: " + Dokument1$
- catch
- warnlog "Could not delete the file: " + Dokument1$
- endcatch
-
- '/// File => New => Presentation ///'
- FileAutopilotPresentation '/// new document-autopilot ///'
- Kontext "AutopilotPraesentation1"
- sleep 5
- Existingpresentation.Check
- sleep 5
- kontext "active"
- if active.exists then
- SavedActiveMessage = Active.GetText
- QaErrorLog "Message: " + SavedActiveMessage
- active.ok
- Kontext "AutopilotPraesentation1"
- if Existinglist.GetSelText = "test1.odp" then
- warnlog " The deleted File was found. Messagebox said: " + SavedActiveMessage
- endif
- SavedActiveMessage = ""
- endif
- Kontext "AutopilotPraesentation1"
- Existinglist.TypeKeys "<HOME>"
- sleep 5
- found = false
- for i = 1 to Existinglist.GetItemCount
- kontext "active"
- if active.exists then
- SavedActiveMessage = Active.GetText
- active.ok
- endif
- Kontext "AutopilotPraesentation1"
- if Existinglist.GetSelText = "test1.odp" then
- found = true
- if SavedActiveMessage <> "" then
- warnlog " The deleted File was found. Messagebox said: " + SavedActiveMessage
- else
- warnlog " The deleted File was found. However without any messagebox."
- endif
- endif
- Existinglist.TypeKeys "<DOWN>"
- sleep 5
- next i
- if found = true then warnlog " An error-message showed up. Eventually a result of '138498'"
- AutopilotPraesentation1.Cancel
- Sleep 2
- '/// Delete the second file ///'
- try
- kill Dokument2$
- Printlog " Correctly deleted the file: " + Dokument2$
- catch
- warnlog "Could not delete the file: " + Dokument2$
- endcatch
+
+
+ if Dir (Dokument1$) <> "" then kill Dokument1$
+ if Dir (Dokument2$) <> "" then kill Dokument2$
+
+ hNewDocument
+ gMouseclick 90,90
+ Call hTextrahmenErstellen ( "This is the first file",20,20,40,30 )
+ hFileSaveAsKill (Dokument1$)
+ Sleep 10
+ hCloseDocument
+ printlog "- Document 'test1.odp' Saved and Closed"
+
+ hNewDocument
+ gMouseclick 90,90
+ Call hTextrahmenErstellen ( "This is the second file",20,20,40,30 )
+ hFileSaveAsKill (Dokument2$)
+ Sleep 10
+ hCloseDocument
+ printlog "- Document 'test2.odp' Saved and Closed"
+
+ try
+ kill Dokument1$
+ Printlog " Correctly deleted the file: " + Dokument1$
+ catch
+ warnlog "Could not delete the file: " + Dokument1$
+ endcatch
+
+ Kontext "AutopilotPraesentation1"
+ sleep 5
+ Existingpresentation.Check
+ sleep 5
+ kontext "active"
+ if active.exists then
+ SavedActiveMessage = Active.GetText
+ QaErrorLog "Message: " + SavedActiveMessage
+ active.ok
+ Kontext "AutopilotPraesentation1"
+ if Existinglist.GetSelText = "test1.odp" then
+ warnlog " The deleted File was found. Messagebox said: " + SavedActiveMessage
+ endif
+ SavedActiveMessage = ""
+ endif
+ Kontext "AutopilotPraesentation1"
+ Existinglist.TypeKeys "<HOME>"
+ sleep 5
+ found = false
+ for i = 1 to Existinglist.GetItemCount
+ kontext "active"
+ if active.exists then
+ SavedActiveMessage = Active.GetText
+ active.ok
+ endif
+ Kontext "AutopilotPraesentation1"
+ if Existinglist.GetSelText = "test1.odp" then
+ found = true
+ if SavedActiveMessage <> "" then
+ warnlog " The deleted File was found. Messagebox said: " + SavedActiveMessage
+ else
+ warnlog " The deleted File was found. However without any messagebox."
+ endif
+ endif
+ Existinglist.TypeKeys "<DOWN>"
+ sleep 5
+ next i
+ if found = true then warnlog " An error-message showed up. Eventually a result of '138498'"
+ AutopilotPraesentation1.Cancel
+ Sleep 2
+ try
+ kill Dokument2$
+ Printlog " Correctly deleted the file: " + Dokument2$
+ catch
+ warnlog "Could not delete the file: " + Dokument2$
+ endcatch
endcase
@@ -509,41 +469,31 @@ testcase tSaveLoadLayoutEmpty
NewFileDir = ConvertPath (gOfficePath + "user\work\LayoutTest\")
- '/// Create New folder in the Work-directory ///'
printlog " Will try to create the directory: " + NewFileDir
app.mkdir NewFileDir
- '/// Create a new document, add a Layout, Save the document in different Formats, and open the saved files. ///'
- '/// Make new Presentation ///'
gApplication = "IMPRESS"
Call hNewDocument
- '/// Choose and Insert an empty Layout. ///'
printlog "Choose and Insert an empty Layout."
FormatModifyPage
sleep 1
kontext "Tasks"
- LayoutsPreview.TypeKeys "<HOME>"
- kontext "Pagelayout_UndoDeleteWarning"
- if Pagelayout_UndoDeleteWarning.exists then
- Pagelayout_UndoDeleteWarning.ok
+ LayoutsPreview.TypeKeys "<HOME>"
+ kontext "Pagelayout_UndoDeleteWarning"
+ if Pagelayout_UndoDeleteWarning.exists then
+ Pagelayout_UndoDeleteWarning.ok
endif
kontext "Tasks"
- '/// Press "Enter" to use the layout on the current slide ///'
LayoutsPreview.TypeKeys "<RETURN>"
sleep (5)
- '/// Save the document in different formats... ///'
- '/// Close the file. ///'
- '/// Load the different files. ///'
- call fSaveLoadAllFormats (NewFileDir) 'Runs the Function below.
+ call fSaveLoadAllFormats (NewFileDir) 'Runs the Function below.
- '/// Delete the different files. ///'
printlog " Will try to delete the directory: " + NewFileDir
app.rmDir NewFileDir
- '/// End the test ///'
endcase 'tSaveLoadLayoutEmpty
'****************************************************************************************************
@@ -555,57 +505,47 @@ testcase tSaveLoadLayoutOLE
NewFileDir = ConvertPath (gOfficePath + "user\work\LayoutTest\")
- '/// Create New folder in the Work-directory ///'
printlog " Will try to create the directory: " + NewFileDir
app.mkdir NewFileDir
- '/// Create a new document, add a Layout, Save the document in different Formats, and open the saved files. ///'
- '/// Make new Presentation ///'
gApplication = "IMPRESS"
Call hNewDocument
- '/// Choose and Insert an Layout with an OLE. ///'
printlog "Choose and Insert an Layout with an OLE."
FormatModifyPage
sleep 1
kontext "Tasks"
- LayoutsPreview.TypeKeys "<HOME>"
+ LayoutsPreview.TypeKeys "<HOME>"
kontext "Pagelayout_UndoDeleteWarning"
if Pagelayout_UndoDeleteWarning.exists then
- Pagelayout_UndoDeleteWarning.ok
+ Pagelayout_UndoDeleteWarning.ok
endif
kontext "Tasks"
- '/// select the OLE placeholder and activate it with [Return] ///'
- LayoutsPreview.TypeKeys ("<RIGHT>",12)
- sleep (1)
- LayoutsPreview.TypeKeys ("<Return>")
- sleep (1)
- hTypeKeys ("<TAB><TAB><TAB>")
- hTypeKeys ("<Return>")
- try
- sleep (2)
- kontext "OLEObjektInsert"
- sleep (1)
- OLEObjektInsert.Cancel
- Printlog "Inserted a layout with an 'Insert OLE-Object'-frame. Correct."
- catch
- warnlog "Ole wasn't selected :-("
- CALL hCloseDocument
- Goto Endsub
- endcatch
+ LayoutsPreview.TypeKeys ("<RIGHT>",12)
+ sleep (1)
+ LayoutsPreview.TypeKeys ("<Return>")
+ sleep (1)
+ hTypeKeys ("<TAB><TAB><TAB>")
+ hTypeKeys ("<Return>")
+ try
+ sleep (2)
+ kontext "OLEObjektInsert"
+ sleep (1)
+ OLEObjektInsert.Cancel
+ Printlog "Inserted a layout with an 'Insert OLE-Object'-frame. Correct."
+ catch
+ warnlog "Ole wasn't selected :-("
+ CALL hCloseDocument
+ Goto Endsub
+ endcatch
sleep (5)
- '/// Save the document in different formats... ///'
- '/// Close the file. ///'
- '/// Load the different files. ///'
- call fSaveLoadAllFormats (NewFileDir) 'Runs the Function below.
+ call fSaveLoadAllFormats (NewFileDir) 'Runs the Function below.
- '/// Delete the different files. ///'
printlog " Will try to delete the directory: " + NewFileDir
app.rmDir ConvertPath (gOfficePath + "user\work\LayoutTest\")' NewFileDir
- '/// End the test ///'
endcase 'tSaveLoadLayoutOLE
'****************************************************************************************************
@@ -617,48 +557,38 @@ testcase tSaveLoadLayoutText
NewFileDir = ConvertPath (gOfficePath + "user\work\LayoutTest\")
- '/// Create New folder in the Work-directory ///'
printlog " Will try to create the directory: " + NewFileDir
app.mkdir NewFileDir
- '/// Create a new document, add a Layout, Save the document in different Formats, and open the saved files. ///'
- '/// Make new Presentation ///'
gApplication = "IMPRESS"
Call hNewDocument
- '/// Choose and Insert an Layout with a Text-field. ///'
printlog "Choose and Insert an Layout with a Text-field."
FormatModifyPage
sleep 1
kontext "Tasks"
- LayoutsPreview.TypeKeys "<HOME>"
- kontext "Pagelayout_UndoDeleteWarning"
- if Pagelayout_UndoDeleteWarning.exists then
- Pagelayout_UndoDeleteWarning.ok
+ LayoutsPreview.TypeKeys "<HOME>"
+ kontext "Pagelayout_UndoDeleteWarning"
+ if Pagelayout_UndoDeleteWarning.exists then
+ Pagelayout_UndoDeleteWarning.ok
endif
kontext "Tasks"
- '/// select the Text placeholder and activate it with [Return] ///'
- LayoutsPreview.TypeKeys ("<RIGHT>")
- sleep (1)
- LayoutsPreview.TypeKeys ("<Return>")
- sleep (1)
- hTypeKeys ("<TAB><TAB><TAB>")
- hTypeKeys ("<Return>")
- hTypeKeys ("<ESCAPE>")
-' LayoutsPreview.TypeKeys "<RETURN>"
+ LayoutsPreview.TypeKeys ("<RIGHT>")
+ sleep (1)
+ LayoutsPreview.TypeKeys ("<Return>")
+ sleep (1)
+ hTypeKeys ("<TAB><TAB><TAB>")
+ hTypeKeys ("<Return>")
+ hTypeKeys ("<ESCAPE>")
+ ' LayoutsPreview.TypeKeys "<RETURN>"
sleep (5)
- '/// Save the document in different formats... ///'
- '/// Close the file. ///'
- '/// Load the different files. ///'
- call fSaveLoadAllFormats (NewFileDir) 'Runs the Function below.
+ call fSaveLoadAllFormats (NewFileDir) 'Runs the Function below.
- '/// Delete the different files. ///'
printlog " Will try to delete the directory: " + NewFileDir
app.rmDir ConvertPath (gOfficePath + "user\work\LayoutTest\")' NewFileDir
- '/// End the test ///'
endcase 'tSaveLoadLayoutText
'****************************************************************************************************
@@ -670,47 +600,37 @@ testcase tSaveLoadLayoutOutline
NewFileDir = ConvertPath (gOfficePath + "user\work\LayoutTest\")
- '/// Create New folder in the Work-directory ///'
printlog " Will try to create the directory: " + NewFileDir
app.mkdir NewFileDir
- '/// Create a new document, add a Layout, Save the document in different Formats, and open the saved files. ///'
- '/// Make new Presentation ///'
gApplication = "IMPRESS"
Call hNewDocument
- '/// Choose and Insert an Layout with a Outline-field. ///'
printlog "Choose and Insert an Layout with a Outline-field."
FormatModifyPage
sleep 1
kontext "Tasks"
- LayoutsPreview.TypeKeys "<HOME>"
- kontext "Pagelayout_UndoDeleteWarning"
- if Pagelayout_UndoDeleteWarning.exists then
- Pagelayout_UndoDeleteWarning.ok
+ LayoutsPreview.TypeKeys "<HOME>"
+ kontext "Pagelayout_UndoDeleteWarning"
+ if Pagelayout_UndoDeleteWarning.exists then
+ Pagelayout_UndoDeleteWarning.ok
endif
kontext "Tasks"
- '/// select the Outline placeholder and activate it with [Return] ///'
- LayoutsPreview.TypeKeys ("<RIGHT>",3)
- sleep (1)
- LayoutsPreview.TypeKeys ("<Return>")
- sleep (1)
- hTypeKeys ("<TAB><TAB><TAB>")
- hTypeKeys ("<Return>")
- hTypeKeys ("<ESCAPE>")
+ LayoutsPreview.TypeKeys ("<RIGHT>",3)
+ sleep (1)
+ LayoutsPreview.TypeKeys ("<Return>")
+ sleep (1)
+ hTypeKeys ("<TAB><TAB><TAB>")
+ hTypeKeys ("<Return>")
+ hTypeKeys ("<ESCAPE>")
sleep (5)
- '/// Save the document in different formats... ///'
- '/// Close the file. ///'
- '/// Load the different files. ///'
- call fSaveLoadAllFormats (NewFileDir) 'Runs the Function below.
+ call fSaveLoadAllFormats (NewFileDir) 'Runs the Function below.
- '/// Delete the different files. ///'
printlog " Will try to delete the directory: " + NewFileDir
app.rmDir ConvertPath (gOfficePath + "user\work\LayoutTest\")' NewFileDir
- '/// End the test ///'
endcase 'tSaveLoadLayoutOutline
'****************************************************************************************************
@@ -722,47 +642,37 @@ testcase tSaveLoadLayoutPicture
NewFileDir = ConvertPath (gOfficePath + "user\work\LayoutTest\")
- '/// Create New folder in the Work-directory ///'
printlog " Will try to create the directory: " + NewFileDir
app.mkdir NewFileDir
- '/// Create a new document, add a Layout, Save the document in different Formats, and open the saved files. ///'
- '/// Make new Presentation ///'
gApplication = "IMPRESS"
Call hNewDocument
- '/// Choose and Insert an Layout with a Graphic-field. ///'
printlog "Choose and Insert an Layout with a Graphic-field."
FormatModifyPage
sleep 1
kontext "Tasks"
- LayoutsPreview.TypeKeys "<HOME>"
- kontext "Pagelayout_UndoDeleteWarning"
- if Pagelayout_UndoDeleteWarning.exists then
- Pagelayout_UndoDeleteWarning.ok
+ LayoutsPreview.TypeKeys "<HOME>"
+ kontext "Pagelayout_UndoDeleteWarning"
+ if Pagelayout_UndoDeleteWarning.exists then
+ Pagelayout_UndoDeleteWarning.ok
endif
kontext "Tasks"
- '/// select the Picture placeholder and activate it with [Return] ///'
- LayoutsPreview.TypeKeys ("<RIGHT>",8)
- sleep (1)
- LayoutsPreview.TypeKeys ("<Return>")
- sleep (1)
- hTypeKeys ("<TAB><TAB><TAB>")
- hTypeKeys ("<Return>")
- hTypeKeys ("<ESCAPE>")
- sleep (5)
-
- '/// Save the document in different formats... ///'
- '/// Close the file. ///'
- '/// Load the different files. ///'
- call fSaveLoadAllFormats (NewFileDir) 'Runs the Function below.
-
- '/// Delete the different files. ///'
+ LayoutsPreview.TypeKeys ("<RIGHT>",8)
+ sleep (1)
+ LayoutsPreview.TypeKeys ("<Return>")
+ sleep (1)
+ hTypeKeys ("<TAB><TAB><TAB>")
+ hTypeKeys ("<Return>")
+ hTypeKeys ("<ESCAPE>")
+ sleep (5)
+
+ call fSaveLoadAllFormats (NewFileDir) 'Runs the Function below.
+
printlog " Will try to delete the directory: " + NewFileDir
app.rmDir ConvertPath (gOfficePath + "user\work\LayoutTest\")' NewFileDir
- '/// End the test ///'
endcase 'tSaveLoadLayoutPicture
'****************************************************************************************************
@@ -774,47 +684,37 @@ testcase tSaveLoadLayoutChart
NewFileDir = ConvertPath (gOfficePath + "user\work\LayoutTest\")
- '/// Create New folder in the Work-directory ///'
printlog " Will try to create the directory: " + NewFileDir
app.mkdir NewFileDir
- '/// Create a new document, add a Layout, Save the document in different Formats, and open the saved files. ///'
- '/// Make new Presentation ///'
gApplication = "IMPRESS"
Call hNewDocument
- '/// Choose and Insert an Layout with a Chart-field. ///'
printlog "Choose and Insert an Layout with a Chart-field."
FormatModifyPage
sleep 1
kontext "Tasks"
- LayoutsPreview.TypeKeys "<HOME>"
- kontext "Pagelayout_UndoDeleteWarning"
- if Pagelayout_UndoDeleteWarning.exists then
- Pagelayout_UndoDeleteWarning.ok
+ LayoutsPreview.TypeKeys "<HOME>"
+ kontext "Pagelayout_UndoDeleteWarning"
+ if Pagelayout_UndoDeleteWarning.exists then
+ Pagelayout_UndoDeleteWarning.ok
endif
kontext "Tasks"
- '/// select the Chart placeholder and activate it with [Return] ///'
- LayoutsPreview.TypeKeys ("<RIGHT>",6)
- sleep (1)
- LayoutsPreview.TypeKeys ("<Return>")
- sleep (1)
- hTypeKeys ("<TAB><TAB><TAB>")
- hTypeKeys ("<Return>")
- hTypeKeys ("<ESCAPE>")
- sleep (5)
-
- '/// Save the document in different formats... ///'
- '/// Close the file. ///'
- '/// Load the different files. ///'
- call fSaveLoadAllFormats (NewFileDir) 'Runs the Function below.
-
- '/// Delete the different files. ///'
+ LayoutsPreview.TypeKeys ("<RIGHT>",6)
+ sleep (1)
+ LayoutsPreview.TypeKeys ("<Return>")
+ sleep (1)
+ hTypeKeys ("<TAB><TAB><TAB>")
+ hTypeKeys ("<Return>")
+ hTypeKeys ("<ESCAPE>")
+ sleep (5)
+
+ call fSaveLoadAllFormats (NewFileDir) 'Runs the Function below.
+
printlog " Will try to delete the directory: " + NewFileDir
app.rmDir ConvertPath (gOfficePath + "user\work\LayoutTest\")' NewFileDir
- '/// End the test ///'
endcase 'tSaveLoadLayoutChart
'****************************************************************************************************
@@ -826,47 +726,37 @@ testcase tSaveLoadLayoutSpreadsheet
NewFileDir = ConvertPath (gOfficePath + "user\work\LayoutTest\")
- '/// Create New folder in the Work-directory ///'
printlog " Will try to create the directory: " + NewFileDir
app.mkdir NewFileDir
- '/// Create a new document, add a Layout, Save the document in different Formats, and open the saved files. ///'
- '/// Make new Presentation ///'
gApplication = "IMPRESS"
Call hNewDocument
- '/// Choose and Insert an Layout with a Spreadsheet-field. ///'
printlog "Choose and Insert an Layout with a Spreadsheet-field."
FormatModifyPage
sleep 1
kontext "Tasks"
- LayoutsPreview.TypeKeys "<HOME>"
- kontext "Pagelayout_UndoDeleteWarning"
- if Pagelayout_UndoDeleteWarning.exists then
- Pagelayout_UndoDeleteWarning.ok
+ LayoutsPreview.TypeKeys "<HOME>"
+ kontext "Pagelayout_UndoDeleteWarning"
+ if Pagelayout_UndoDeleteWarning.exists then
+ Pagelayout_UndoDeleteWarning.ok
endif
kontext "Tasks"
- '/// select the Spreadsheet placeholder and activate it with [Return] ///'
- LayoutsPreview.TypeKeys ("<RIGHT>",7)
- sleep (1)
- LayoutsPreview.TypeKeys ("<Return>")
- sleep (1)
- hTypeKeys ("<TAB><TAB><TAB>")
- hTypeKeys ("<Return>")
- hTypeKeys ("<ESCAPE>")
- sleep (5)
-
- '/// Save the document in different formats... ///'
- '/// Close the file. ///'
- '/// Load the different files. ///'
- call fSaveLoadAllFormats (NewFileDir) 'Runs the Function below.
-
- '/// Delete the different files. ///'
+ LayoutsPreview.TypeKeys ("<RIGHT>",7)
+ sleep (1)
+ LayoutsPreview.TypeKeys ("<Return>")
+ sleep (1)
+ hTypeKeys ("<TAB><TAB><TAB>")
+ hTypeKeys ("<Return>")
+ hTypeKeys ("<ESCAPE>")
+ sleep (5)
+
+ call fSaveLoadAllFormats (NewFileDir) 'Runs the Function below.
+
printlog " Will try to delete the directory: " + NewFileDir
app.rmDir ConvertPath (gOfficePath + "user\work\LayoutTest\")' NewFileDir
- '/// End the test ///'
endcase 'tSaveLoadLayoutSpreadsheet
'****************************************************************************************************
diff --git a/testautomation/graphics/optional/includes/global/g_mediaplayer.inc b/testautomation/graphics/optional/includes/global/g_mediaplayer.inc
index d02383393f9a..61d9d7a95f95 100755
--- a/testautomation/graphics/optional/includes/global/g_mediaplayer.inc
+++ b/testautomation/graphics/optional/includes/global/g_mediaplayer.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
@@ -45,218 +45,193 @@ testcase g_mediaplayer
dim timevalue2
dim timevalue3
dim timecounter, iWaitIndex, timefound as integer
-
+
if iSprache <> 39 then
Printlog "- MediaPlayer"
if gPlatgroup = "unx" then
- QaErrorLog "Solaris / Linux: Soundcard + Java Media Framework (JMF) Media-Libraries is needed."
- goto endsub
+ QaErrorLog "Solaris / Linux: Soundcard + Java Media Framework (JMF) Media-Libraries is needed."
+ goto endsub
endif
Datei$ = ConvertPath (convertPath (gTesttoolPath + "graphics\required\input\29secsound.wav"))
- '/// Open New Document ///'
Call hNewDocument
sleep 2
- '/// Check if the Media Player already exists - if so - close it ///'
kontext "mPlayer"
if mPlayer.exists then ' Close the MediaPlayer
- warnlog "The MediaPlayer was visible since some earlier test. Plese notify FHA."
- ToolsMediaPlayer
- printlog "Closed the Media Player"
+ warnlog "The MediaPlayer was visible since some earlier test. Plese notify FHA."
+ ToolsMediaPlayer
+ printlog "Closed the Media Player"
endif
-
- '/// Tools - MediaPlayer ///'
+
ToolsMediaPlayer
sleep 2
- '/// Open file ///' 'a bigger / longer one
kontext "mPlayer"
if mPlayer.exists then
- printlog "The MediaPlayer was open."
+ printlog "The MediaPlayer was open."
else
- warnlog "Tools - MediaPlayer didnt work. The MediaPlayer wasnt visible. Aborting test."
- Call hCloseDocument '/// Close document ///'
- goto endsub
+ warnlog "Tools - MediaPlayer didnt work. The MediaPlayer wasnt visible. Aborting test."
+ goto endsub
endif
Mopen.Click
kontext "OeffnenDlg"
Pfad.SetText Datei$
Oeffnen.Click
-
- '/// This test wont work correctly under Solaris and Linux, ///'
- '/// unless some optional Media-libraries are installed. ///'
- '/// Therefore we warn the tester about it if we cannot open the file. ///'
-
+
+
iWaitIndex = 0
do while OeffnenDlg.Exists AND iWaitIndex < 10
- sleep (1)
- iWaitIndex = iWaitIndex + 1
+ sleep (1)
+ iWaitIndex = iWaitIndex + 1
loop
kontext "Active"
if Active.exists then
- Warnlog "Error when opening file. Last dialogue said: " + Active.GetText
- Active.OK
- kontext "Mplayer"
- ToolsMediaPlayer
- Call hCloseDocument '/// close document ///'
- goto endsub
- else
- kontext "Mplayer"
- if Mplayer.exists then printlog "Media Player was opened."
- endif
-
- timevalue1 = mTimeedit.GetText
-
- '/// Stop ///'
- sleep 2
- mStop.Click
- printlog "Just pressed stop."
- sleep 1
- timevalue2 = mTimeedit.GetText
- sleep 2
- timevalue3 = mTimeedit.GetText
- printlog "The time was: " + mTimeedit.GetText
- if timevalue1 = timevalue2 AND timevalue2 = timevalue3 then
- if gtSYSName <> "WinXP" then '("Solaris x86" OR "Linux" OR "Solaris") then
- warnlog "The sound doesnt seem to be played at all. And since the test is run on a platform which needs extra libraries, the test ends now."
- kontext "Mplayer"
- if Mplayer.Exists(3) then
- ToolsMediaPlayer
- endif
- Call hCloseDocument '/// close document ///'
- goto endsub
- else
- warnlog "The sound doesnt seem to be played at all, but I will continue the test. The platform was: " + gtSYSName
- endif
- else
- if timevalue1 <> timevalue2 AND timevalue2 = timevalue3 then
- Printlog "the stop-button seemed to work. Good."
- else
- warnlog "Very strange. The first value was: " + timevalue1 + ". Second: " + timevalue2 + ". Third: " + timevalue3
- endif
- endif
- '/// Play ///'
- ' Save value
- timevalue1 = mTimeedit.GetText
- ' Press 'Play'
- mPlay.Click
- sleep 2
- timevalue2 = mTimeedit.GetText
- printlog "The time was: " + mTimeedit.GetText
- if timevalue1 = timevalue2 then
- warnlog "The play-button didnt seem to work" ' Because the time did not change.
+ Warnlog "Error when opening file. Last dialogue said: " + Active.GetText
+ Active.OK
+ kontext "Mplayer"
+ ToolsMediaPlayer
+ goto endsub
else
- Printlog "the play-button seemed to work. Good."
- endif
-
- '/// Pause ///'
- mPlay.Click
- sleep 10
- mPause.Click
- printlog "Pause."
- timevalue1 = mTimeedit.GetText
- sleep 2
- timevalue2 = mTimeedit.GetText
- printlog "The time was: " + mTimeedit.GetText
- if timevalue1 <> timevalue2 then
- warnlog "The pause-button didnt seem to work"
- else
- Printlog "the pause-button seemed to work. Good."
- endif
-
- '/// Time ///'
- mStop.Click 'to get to the beginning.
- sleep 1 'And make sure it's really the beginning.
- timevalue1 = mTimeedit.GetText
- if timevalue1 <> "00:00:00 / 00:00:29" then
- warnlog "Expected the time to go back to 00:00:00, but was " + timevalue1 + " instead."
- mStop.Click 'to make another try to get to the beginning again.
- else
- printlog "Sound stopped, time-value set to 00:00:00."
- endif
-
- printlog "We press 'Play'"
- mPlay.Click 'to get it running
- sleep 5
- timefound = 0
-
- for timecounter = 1 to 50000
+ kontext "Mplayer"
+ if Mplayer.exists then printlog "Media Player was opened."
+ endif
+
timevalue1 = mTimeedit.GetText
- if timevalue1 = "00:00:20 / 00:00:29" then
- timecounter = 50000
- timefound = 1
+
+ sleep 2
+ mStop.Click
+ printlog "Just pressed stop."
+ sleep 1
+ timevalue2 = mTimeedit.GetText
+ sleep 2
+ timevalue3 = mTimeedit.GetText
+ printlog "The time was: " + mTimeedit.GetText
+ if timevalue1 = timevalue2 AND timevalue2 = timevalue3 then
+ if gtSYSName <> "WinXP" then '("Solaris x86" OR "Linux" OR "Solaris") then
+ warnlog "The sound doesnt seem to be played at all. And since the test is run on a platform which needs extra libraries, the test ends now."
+ kontext "Mplayer"
+ if Mplayer.Exists(3) then
+ ToolsMediaPlayer
+ endif
+ goto endsub
+ else
+ warnlog "The sound doesnt seem to be played at all, but I will continue the test. The platform was: " + gtSYSName
+ endif
+ else
+ if timevalue1 <> timevalue2 AND timevalue2 = timevalue3 then
+ Printlog "the stop-button seemed to work. Good."
+ else
+ warnlog "Very strange. The first value was: " + timevalue1 + ". Second: " + timevalue2 + ". Third: " + timevalue3
+ endif
endif
- if timevalue1 = "00:00:29 / 00:00:29" then
- timecounter = 50000
- timefound = 2
+ ' Save value
+ timevalue1 = mTimeedit.GetText
+ ' Press 'Play'
+ mPlay.Click
+ sleep 2
+ timevalue2 = mTimeedit.GetText
+ printlog "The time was: " + mTimeedit.GetText
+ if timevalue1 = timevalue2 then
+ warnlog "The play-button didnt seem to work" ' Because the time did not change.
+ else
+ Printlog "the play-button seemed to work. Good."
endif
- next timecounter
-
- if timefound = 1 then
- Printlog "the time-counter seemed to work. Good."
- elseif timefound = 2 then
- warnlog "Contact the test-administrator, this test needs to be rewritten."
- elseif timefound = 0 then
- warnlog "Either the time didnt change, or the test-computer is too fast."
- endif
-
- '-Repeat
- 'Plays the file repeatedly.
- '/// Loop ///'
- mLoop.Click
-
- '/// Volume ///'
- 'mVolume. 'Click
- '-Volume slider
- 'Adjusts the volume.
-
- '/// Mute ///'
- mMute.Click
- sleep 1
- mMute.Click
- '-Mute
- 'Turns sound off and on.
-
- '/// Time-slider ///'
- ' mTimeslider. 'Click
- '-Position slider
- 'Moves to a different position in the file.
-
- '/// Scroll-whatever ///'
- 'mZoomlistbox.
- '-Zoom
- 'Adjusts the size of the movie playback.
-
- '/// Apply ///'
- mInsert.Click
- sleep 10
-
- '/// Close the MediaPlayer via Tools - MediaPlayer ///'
- ToolsMediaPlayer
-
- '/// Check if there is an object available. ///'
- if (gApplication = "IMPRESS") then
- kontext "DocumentImpress"
- else
- kontext "DocumentDraw"
- endif
- hTypeKeys ("<escape><tab>")
- hOpenContextMenu()
- hMenuSelectNr(1)
-
- Kontext "TabPositionAndSize"
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- if Width.Exists then
- Printlog "Position and Size came up, object inserted correctly."
- '/// Close dialog TabPositionAndSize with 'OK' ///'
- TabPositionAndSize.OK
+
+ mPlay.Click
+ sleep 10
+ mPause.Click
+ printlog "Pause."
+ timevalue1 = mTimeedit.GetText
+ sleep 2
+ timevalue2 = mTimeedit.GetText
+ printlog "The time was: " + mTimeedit.GetText
+ if timevalue1 <> timevalue2 then
+ warnlog "The pause-button didnt seem to work"
+ else
+ Printlog "the pause-button seemed to work. Good."
+ endif
+
+ mStop.Click 'to get to the beginning.
+ sleep 1 'And make sure it's really the beginning.
+ timevalue1 = mTimeedit.GetText
+ if timevalue1 <> "00:00:00 / 00:00:29" then
+ warnlog "Expected the time to go back to 00:00:00, but was " + timevalue1 + " instead."
+ mStop.Click 'to make another try to get to the beginning again.
+ else
+ printlog "Sound stopped, time-value set to 00:00:00."
+ endif
+
+ printlog "We press 'Play'"
+ mPlay.Click 'to get it running
+ sleep 5
+ timefound = 0
+
+ for timecounter = 1 to 50000
+ timevalue1 = mTimeedit.GetText
+ if timevalue1 = "00:00:20 / 00:00:29" then
+ timecounter = 50000
+ timefound = 1
+ endif
+ if timevalue1 = "00:00:29 / 00:00:29" then
+ timecounter = 50000
+ timefound = 2
+ endif
+ next timecounter
+
+ if timefound = 1 then
+ Printlog "the time-counter seemed to work. Good."
+ elseif timefound = 2 then
+ warnlog "Contact the test-administrator, this test needs to be rewritten."
+ elseif timefound = 0 then
+ warnlog "Either the time didnt change, or the test-computer is too fast."
+ endif
+
+ '-Repeat
+ 'Plays the file repeatedly.
+ mLoop.Click
+
+ 'mVolume. 'Click
+ '-Volume slider
+ 'Adjusts the volume.
+
+ mMute.Click
+ sleep 1
+ mMute.Click
+ '-Mute
+ 'Turns sound off and on.
+
+ ' mTimeslider. 'Click
+ '-Position slider
+ 'Moves to a different position in the file.
+
+ 'mZoomlistbox.
+ '-Zoom
+ 'Adjusts the size of the movie playback.
+
+ mInsert.Click
+ sleep 10
+
+ ToolsMediaPlayer
+
+ if (gApplication = "IMPRESS") then
+ kontext "DocumentImpress"
+ else
+ kontext "DocumentDraw"
+ endif
+ hTypeKeys ("<escape><tab>")
+ hOpenContextMenu()
+ hMenuSelectNr(1)
+
+ Kontext "TabPositionAndSize"
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ if Width.Exists then
+ Printlog "Position and Size came up, object inserted correctly."
+ TabPositionAndSize.OK
+ else
+ Warnlog "Position And Size didn't come up, was there no sound-object inserted?"
+ endif
+ sleep 2
else
- Warnlog "Position And Size didn't come up, was there no sound-object inserted?"
+ qaerrorLog "#74350# - Different strings in g_mediaplayer under Italian."
endif
- sleep 2
- '/// close document ///'
- Call hCloseDocument '/// close document ///'
- else
- qaerrorLog "#74350# - Different strings in g_mediaplayer under Italian."
- endif
endcase
diff --git a/testautomation/graphics/optional/includes/global/g_navigator.inc b/testautomation/graphics/optional/includes/global/g_navigator.inc
index 4b27d6e8226d..56f32d921f7b 100755
--- a/testautomation/graphics/optional/includes/global/g_navigator.inc
+++ b/testautomation/graphics/optional/includes/global/g_navigator.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
@@ -56,86 +56,72 @@ testcase tdViewNavigator
For Zaehler = 1 to 3
Select Case Zaehler
- Case 1: Position1 = 20
- Case 2: Position1 = 30
- Case 3: Position1 = 40
- end select '/// create test document containing 3 slides ///'
-
- Call hRechteckErstellen ( Position1, Position1, 60, 60) '/// On each page there is a rectangle at a different position, so jumping from slide to slide can be checked ///'
- ContextPositionAndSize
- kontext
- active.SetPage TabPositionAndSize
- kontext "TabPositionAndSize"
+ Case 1: Position1 = 20
+ Case 2: Position1 = 30
+ Case 3: Position1 = 40
+
+ ContextPositionAndSize
+ kontext
+ active.SetPage TabPositionAndSize
+ kontext "TabPositionAndSize"
Select Case Zaehler
- Case 1: Ueber_Text_4 = PositionX.GetText
- Case 2: Ueber_Text_5 = PositionX.GetText
- Case 3: Ueber_Text_6 = PositionX.GetText
+ Case 1: Ueber_Text_4 = PositionX.GetText
+ Case 2: Ueber_Text_5 = PositionX.GetText
+ Case 3: Ueber_Text_6 = PositionX.GetText
End Select
printlog " CHECK: Xposition i: "+Zaehler+": "+PositionX.GetText
TabPositionAndSize.OK
Select Case Zaehler
- Case 1,2: InsertSlide
- WaitSlot (2000)
- hTypekeys "<Pagedown>"
- WaitSlot (2000)
+ Case 1,2: InsertSlide
+ WaitSlot (2000)
+ hTypekeys "<Pagedown>"
+ WaitSlot (2000)
End Select
- Next Zaehler
+ Next Zaehler
- WaitSlot (1000)
- ViewNavigator '/// open navigator flyer ///'
- Kontext "NavigatorDraw"
+ WaitSlot (1000)
+ Kontext "NavigatorDraw"
if NavigatorDraw.exists (5) then printlog "OK"
- Erste.Click '/// jump to 1st slide ///'
- Ueber_Text_1 = Ueber_Text_4 '/// compare position ///'
Ueber_Text_2 = "OK First"
Ueber_Text_3 = "First doesnt work"
Call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3)
WaitSlot (1000)
Kontext "NavigatorDraw"
- Naechste.Click '/// jump to next slide ///'
- Ueber_Text_1 = Ueber_Text_5 '/// compare position ///'
- Ueber_Text_2 = "OK Next"
- Ueber_Text_3 = "Next doesnt work"
- Call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3)
+ Ueber_Text_2 = "OK Next"
+ Ueber_Text_3 = "Next doesnt work"
+ Call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3)
Kontext "NavigatorDraw"
- Erste.Click '/// jump back to 1st slide ///'
- WaitSlot (1000)
- Letzte.Click '/// jump to last slide ///'
- Ueber_Text_1 = Ueber_Text_6 '/// compare position ///'
- Ueber_Text_2 = "OK Last"
- Ueber_Text_3 = "Last doesnt work"
- Call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3)
- WaitSlot (1000)
+ WaitSlot (1000)
+ Ueber_Text_2 = "OK Last"
+ Ueber_Text_3 = "Last doesnt work"
+ Call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3)
+ WaitSlot (1000)
Kontext "NavigatorDraw"
- Vorherige.Click
- Ueber_Text_1 = Ueber_Text_5
- Ueber_Text_2 = "OK Before this"
- Ueber_Text_3 = "Before this doesnt work"
- Call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3)
+ Vorherige.Click
+ Ueber_Text_1 = Ueber_Text_5
+ Ueber_Text_2 = "OK Before this"
+ Ueber_Text_3 = "Before this doesnt work"
+ Call Position_Vergleichen (Ueber_Text_1,Ueber_Text_2,Ueber_Text_3)
- WaitSlot (1000)
+ WaitSlot (1000)
Kontext "NavigatorDraw"
- try
- Kontext "Navigator"
- Navigator.Close '/// close navigator ///'
- catch
- hTypeKeys "<SHIFT MOD1 F5>"
- Warnlog "- Unable to reach the Navigator, tried to use the keyboard Shortcut (MOD1 F5) to close it."
- endcatch
-
- '/// check state of navigator. Expected: Closed ///'
+ try
+ Kontext "Navigator"
+ catch
+ hTypeKeys "<SHIFT MOD1 F5>"
+ Warnlog "- Unable to reach the Navigator, tried to use the keyboard Shortcut (MOD1 F5) to close it."
+ endcatch
+
Kontext "Navigator"
- if Navigator.exists then
- '/// close navigator ///'
- Navigator.Close
- Warnlog "Navigator: should be closed at this point, but was not."
- else
- printlog "Navigator: Not available - Good."
- end if
-
- WaitSlot (1000)
- '/// Close the document ///'
- Call hCloseDocument
+ if Navigator.exists then
+ Navigator.Close
+ Warnlog "Navigator: should be closed at this point, but was not."
+ else
+ printlog "Navigator: Not available - Good."
+ end if
+
+ WaitSlot (1000)
+ Call hCloseDocument
endcase 'tdViewNavigator
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -143,14 +129,13 @@ endcase 'tdViewNavigator
testcase tViewNavigatorZOrder
qaerrorlog "Not yet ready."
goto endsub
-
+
dim zPosition(4)
dim Counter as integer
dim MaxCounter as integer
dim PositionName as string
dim CheckingValue as string
- '/// New document ///'
Call hNewDocument
zPosition(1) = "10"
@@ -159,56 +144,50 @@ testcase tViewNavigatorZOrder
zPosition(4) = "25"
For Counter = 1 to 4
- '/// Insert Objects ///'
Call hRechteckErstellen ((zPosition(Counter)), (zPosition(Counter)), 60, 60)
WaitSlot (1000)
- '/// Name them according to their Z-Order ///'
- printlog "Name the Objects according to their Z-Order. (" +Counter + ")"
- hOpenContextMenu
- WaitSlot (1000)
- 'Choose rename.
- if hMenuFindSelect(27027, true, 16) = false then
- Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- end if
- kontext "NameDlgObject"
- NameField.SetText "Object" + Counter
- NameDlgObject.OK
- hTypeKeys "<ESCAPE>"
+ printlog "Name the Objects according to their Z-Order. (" +Counter + ")"
+ hOpenContextMenu
+ WaitSlot (1000)
+ 'Choose rename.
+ if hMenuFindSelect(27027, true, 16) = false then
+ Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ end if
+ kontext "NameDlgObject"
+ NameField.SetText "Object" + Counter
+ NameDlgObject.OK
+ hTypeKeys "<ESCAPE>"
Next Counter
- '/// Check the Z-Order ///'
printlog "check"
- '/// Open the Navigator ///'
Kontext "NavigatorDraw"
- if (gApplication = "IMPRESS") then
- try
- NavigatorDraw.Close '/// test if the Navigator is visible. It should not be. ///'
- warnlog "- the Navigator was open, check earlier ran tests for inconsistency."
- hTypeKeys "<SHIFT MOD1 F5>"
- catch
- hTypeKeys "<SHIFT MOD1 F5>"
- endcatch
- else
- Kontext "NavigatorDraw"
- try
- NavigatorDraw.Close '/// test if the Navigator is visible. It should not be. ///'
- Warnlog "- the Navigator was open, check earlier ran tests for inconsistency."
- hTypeKeys "<F5>"
- catch
- hTypeKeys "<F5>"
- endcatch
- end if
+ if (gApplication = "IMPRESS") then
+ try
+ warnlog "- the Navigator was open, check earlier ran tests for inconsistency."
+ hTypeKeys "<SHIFT MOD1 F5>"
+ catch
+ hTypeKeys "<SHIFT MOD1 F5>"
+ endcatch
+ else
+ Kontext "NavigatorDraw"
+ try
+ Warnlog "- the Navigator was open, check earlier ran tests for inconsistency."
+ hTypeKeys "<F5>"
+ catch
+ hTypeKeys "<F5>"
+ endcatch
+ end if
-' * Check if the Navigator contains the 'Show Shapes' drop down menu.
+ ' * Check if the Navigator contains the 'Show Shapes' drop down menu.
kontext "NavigatorDraw"
- Dragmodus.OpenMenu
+ Dragmodus.OpenMenu
MaxCounter = MenuGetItemCount
- if MaxCounter <> 0 then
+ if MaxCounter <> 0 then
For Counter = 1 to MaxCounter
printlog "Entry (Dragmode): '" + (MenuGetItemText(MenuGetItemID (Counter))) + "' Found."
Next Counter
@@ -217,8 +196,7 @@ testcase tViewNavigatorZOrder
hMenuSelectNr (0)
- '/// Check the Options for the Shapes-Filter. ///'
- Shapesfilter.OpenMenu
+ Shapesfilter.OpenMenu
MaxCounter = MenuGetItemCount
For Counter = 1 to MaxCounter
printlog "Entry (Shapesfilter): '" + (MenuGetItemText(MenuGetItemID (Counter))) + "' Found."
@@ -260,44 +238,42 @@ testcase tViewNavigatorZOrder
'Vorherige HID_SD_NAVIGATOR_TBI_PREV
'Naechste HID_SD_NAVIGATOR_TBI_NEXT
'Letzte HID_SD_NAVIGATOR_TBI_LAST
-
+
'Context-menu framställbar?
'Dragmodus HID_SD_NAVIGATOR_TBI_DRAGTYPE
-
+
'Liste HID_SD_NAVIGATOR_TLB
-
+
'Den undre scroll-delen.
'Dokumentliste HID_SD_NAVIGATOR_LB
-' * the drop down menu must contain the entries 'Named shapes' and 'All Shapes'
+ ' * the drop down menu must contain the entries 'Named shapes' and 'All Shapes'
- '/// Close the Navigator ///'
Kontext "Navigator"
- try
- Navigator.Close
- catch
- printlog "Nope"
- endcatch
+ try
+ Navigator.Close
+ catch
+ printlog "Nope"
+ endcatch
+
+ ' * check if 'Named shapes' is selected by default
+
+ ' * insert 5 shapes in the Document. the shapes should overlap slightly.
+ ' * there must be no entry in the navigator
+ ' * name 1 shape (context menu of the shape / name...)
+ ' * there must appear 1 entry 'under' the corresponding slide in the navigator
+ ' * Select All shapes in the Show shapes drop down menu
+ ' * there must be 5 shapes in the navigator
+ ' * change the order of the shapes in the navigator
+ ' * the z-order of the shapes must stay
+ ' * delete 1 shape from the slide
+ ' * the automatic generated names of the shapes must change and no shape name must be duplicate. The changed shape name must stay
+
+ ' * select 2 shapes and group them
+ ' * an entry with a small plus in front must appear in the navigator
+ ' * click on the plus
+ ' * there must be an additional tree with the 2 shapes of the group
-' * check if 'Named shapes' is selected by default
-
-' * insert 5 shapes in the Document. the shapes should overlap slightly.
-' * there must be no entry in the navigator
-' * name 1 shape (context menu of the shape / name...)
-' * there must appear 1 entry 'under' the corresponding slide in the navigator
-' * Select All shapes in the Show shapes drop down menu
-' * there must be 5 shapes in the navigator
-' * change the order of the shapes in the navigator
-' * the z-order of the shapes must stay
-' * delete 1 shape from the slide
-' * the automatic generated names of the shapes must change and no shape name must be duplicate. The changed shape name must stay
-
-' * select 2 shapes and group them
-' * an entry with a small plus in front must appear in the navigator
-' * click on the plus
-' * there must be an additional tree with the 2 shapes of the group
-
- '/// Close the document ///'
Call hCloseDocument
endcase 'tViewNavigatorZOrder
@@ -312,16 +288,10 @@ testcase tViewNavigatorNameActivated
dim zPosition4 as integer
dim counter as integer
- '/// New document ///'
Call hNewDocument
- '/// Insert Objects ///'
- Call hRechteckErstellen ( Position1, Position1, 60, 60)
+ Call hRechteckErstellen ( Position1, Position1, 60, 60)
- '/// Name them accoirding to their Z-Order ///'
- '/// Open the Navigator ///'
- '/// Close the Navigator ///'
- '/// Close the document ///'
endcase 'tViewNavigatorNameActivated
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -335,17 +305,11 @@ testcase tViewNavigatorGroupedObjects
dim zPosition4 as integer
dim counter as integer
- '/// New document ///'
Call hNewDocument
- '/// Insert Objects ///'
- Call hRechteckErstellen ( Position1, Position1, 60, 60)
+ Call hRechteckErstellen ( Position1, Position1, 60, 60)
- '/// Name them accoirding to their Z-Order ///'
- '/// Open the Navigator ///'
- '/// Close the Navigator ///'
- '/// Close the document ///'
endcase 'tViewNavigatorGroupedObjects
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
diff --git a/testautomation/graphics/optional/includes/global/g_ole.inc b/testautomation/graphics/optional/includes/global/g_ole.inc
index 9ff9970d8c66..71780c68c83b 100755
--- a/testautomation/graphics/optional/includes/global/g_ole.inc
+++ b/testautomation/graphics/optional/includes/global/g_ole.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
@@ -44,28 +44,24 @@
testcase tOLE_Copy
qaerrorlog "not running due to reconstruction"
goto endsub
- printlog "Test to see if three different OLEs can be copied and identified correctly."
-
+
dim writerfilename1 as string
writerfilename1 = ConvertPath (gTesttoolPath + "graphics\required\input\oletest.odg")
-
- printlog "Open draw-file" & writerfilename1
+
FileOpen
Kontext "OeffnenDlg"
sleep 1
Dateiname.SetText (writerfilename1)
Oeffnen.Click
Sleep 3
-
- printlog "When messagebox about Update all links shows up - press yes."
+
kontext "Messagebox"
if Messagebox.exists then
- Messagebox.Yes
+ Messagebox.Yes
endif
-
+
sleep 3
gApplication = "DRAW"
- printlog "Select first object. Use EditCopy to copy it to the clipboard"
sleep 1
kontext "DocumentDraw"
DocumentDraw.mousedown (10,10)
@@ -73,57 +69,49 @@ testcase tOLE_Copy
sleep 1
DocumentDraw.Typekeys "<TAB>"
EditCopy
-
- printlog "Close document. Open new Impress-Document. Paste the OLE-Object."
+
Call hCloseDocument
gApplication = "IMPRESS"
Call hNewDocument
EditPaste
-
- printlog "Select object and check via the Context-menu what it has been opened as."
+
sleep 1
Kontext "DocumentImpress"
hTypekeys "<MOD1> A"
hTypekeys "<RETURN>"
hOpenContextMenu
-
- printlog "Count the number of entries. If 5 (including a menuseparator), then its a spreadsheet"
+
if MenuGetItemCount <> 5 then
Warnlog "This doesn't seem to be recognized as a Metafile. It has " + MenuGetItemCount + " entries."
end if
- printlog "Close Context menu. Then check if a Edit-line for the Cells is visible."
sleep 3
MenuSelect (1) 'Default
-
+
Kontext "RechenleisteCalc"
if RechenleisteCalc.Exists then
Printlog "This is a spreadsheet-Document. Good"
endif
-
+
Kontext "DocumentImpress"
- printlog "Click outside the OLE to deactivate it. Then close the Document "
DocumentImpress.mousedown (10,10)
DocumentImpress.mouseup (10,10)
sleep 3
Call hCloseDocument
-
- printlog "Open Draw-file "
+
FileOpen
Kontext "OeffnenDlg"
sleep 1
Dateiname.SetText (writerfilename1)
Oeffnen.Click
Sleep 3
-
- printlog " When messagebox about Update all links shows up - press yes."
+
kontext "Messagebox"
if Messagebox.exists then
Messagebox.Yes
endif
sleep 3
-
- printlog "Select second object. Use EditCopy to copy it to the clipboard."
+
gApplication = "DRAW"
sleep 1
kontext "DocumentDraw"
@@ -132,49 +120,43 @@ testcase tOLE_Copy
sleep 1
DocumentDraw.Typekeys "<TAB><TAB>"
EditCopy
-
- printlog "Close document. Open new Impress-Document. Paste the OLE-Object."
+
sleep 1
DocumentDraw.mousedown (10,10)
DocumentDraw.mouseup (10,10)
sleep 1
Call hCloseDocument
-
+
gApplication = "IMPRESS"
Call hNewDocument
EditPaste
-
- printlog "Select the object, and check via the Context-menu what it has been opened as."
+
sleep 1
Kontext "DocumentImpress"
hTypekeys "<MOD1> A"
hTypekeys "<RETURN>"
hOpenContextMenu
- printlog "Count the number of entries. If 5 (including a menuseparator), then its a spreadsheet"
if MenuGetItemCount <> 5 then
Warnlog "This doesn't seem to be recognized as a Metafile. It has " + MenuGetItemCount + " entries."
end if
-
- printlog "Close Context menu. Then check if a Edit-line for the Cells is visible."
+
sleep 3
MenuSelect (1) 'Default
-
+
Kontext "RechenleisteCalc"
if RechenleisteCalc.Exists then
Printlog "This is a spreadsheet-Document. Good"
endif
-
+
kontext "DocumentImpress"
sleep 1
DocumentImpress.mousedown (10,10)
DocumentImpress.mouseup (10,10)
sleep 1
-
- printlog "Close document"
+
Call hCloseDocument
-
- printlog "Open draw-file"
+
FileOpen
Kontext "OeffnenDlg"
sleep 1
@@ -182,13 +164,11 @@ testcase tOLE_Copy
Oeffnen.Click
Sleep 3
kontext "Messagebox"
- printlog "When messagebox about Update all links shows up - press yes."
if Messagebox.exists then
Messagebox.Yes
endif
sleep 3
-
- printlog "Select third object. Use EditCopy to copy it to the clipboard."
+
gApplication = "DRAW"
sleep 1
kontext "DocumentDraw"
@@ -197,8 +177,7 @@ testcase tOLE_Copy
sleep 1
DocumentDraw.Typekeys "<TAB><TAB><TAB>"
EditCopy
-
- printlog "Close the Document. Open new Impress-Document. Paste the OLE-Object."
+
sleep 1
DocumentDraw.mousedown (10,10)
DocumentDraw.mouseup (10,10)
@@ -208,28 +187,24 @@ testcase tOLE_Copy
gApplication = "IMPRESS"
Call hNewDocument
EditPaste
-
- printlog "Select the object, and check via the Context-menu what it has been opened as."
+
Kontext "DocumentImpress"
hTypekeys "<MOD1> A"
hTypekeys "<RETURN>"
hOpenContextMenu
-
- printlog "Count the number of entries. If 5 (including a menuseparator), then its a spreadsheet"
+
if MenuGetItemCount <> 5 then
Warnlog "This doesn't seem to be recognized as a Metafile. It has " + MenuGetItemCount + " entries."
end if
-
- printlog "Close Context menu. Then check if a Edit-line for the Cells is visible."
+
sleep 3
MenuSelect (1) 'Default
-
+
Kontext "RechenleisteCalc"
if RechenleisteCalc.Exists then
Printlog "This is a spreadsheet-Document. Good"
endif
-
- printlog "Close Context menu. Then close the Document"
+
Call hCloseDocument
endcase 'tOLE_Copy
@@ -241,8 +216,8 @@ testcase tOLE_SaveLoad
dim filename as string
dim filetype as string
dim filetype2 as string
-
- if (gApplication = "IMPRESS") then
+
+ if (gApplication = "IMPRESS") then
ExtensionString = "odp"
else
ExtensionString = "odg"
@@ -254,13 +229,13 @@ testcase tOLE_SaveLoad
printlog "Insert->Object->OLE Object..."
InsertObjectOLEObject
Kontext "OLEObjektInsert"
-
+
printlog "Choose create new. Select Writer."
Objekttyp.Select 5
-
+
printlog "Click OK to close dialog and insert OLE."
OLEObjektInsert.OK
-
+
printlog "Deselect object."
sleep 1
kontext "DocumentImpress"
@@ -285,7 +260,7 @@ testcase tOLE_SaveLoad
Dateiname.Settext (filename)
printlog "Saving as: " & filename
Speichern.Click
-
+
printlog "If the file already exists - press yes to overwrite it."
Sleep 3
kontext "Messagebox"
@@ -293,7 +268,7 @@ testcase tOLE_SaveLoad
Messagebox.Yes
endif
Sleep 3
-
+
printlog "Getting type of OLE from save as dialog."
hOpenContextMenu
hMenuSelectNr(-1)
@@ -311,7 +286,7 @@ testcase tOLE_SaveLoad
Call hFileOpen (filename)
sleep 1
hTypekeys "<MOD1 A>"
- hOpenContextMenu
+ hOpenContextMenu
hMenuSelectNr(-1)
Kontext "SpeichernDlg"
filetype2 = Dateityp.GetSelText
@@ -328,8 +303,6 @@ testcase tOLE_SaveLoad
'FHA TODO
'testcase tOLE_DragDrop
- printlog " Create OLE, drag n drop within the document. "
- printlog " If Impress, drag and drop from document to another slide. "
'endcase 'tOLE_DragDrop
endcase ' tOLE_Save
@@ -340,20 +313,15 @@ testcase tiOpenOLECrash
dim sFileodp as string
dim oFile as string
dim i as integer
- printlog "Testing for bug nr: i70019"
-
- printlog "Open Application"
+
Call hNewDocument
sleep 1
- printlog "1. Open file: generic_de.ppt"
FileOpen
sleep 1
Kontext "OeffnenDlg"
- printlog " Use file: graphics\\optional\\input\\generic_de.ppt "
oFile = ConvertPath (gTesttoolPath + "graphics\required\input\generic_de.ppt")
Printlog "file: '" + oFile + "'"
Dateiname.SetText (oFile)
- printlog "2. Save this document as an *.odp -file."
Oeffnen.Click
kontext "DocumentImpress"
i = 0
@@ -368,7 +336,7 @@ testcase tiOpenOLECrash
if DocumentImpress.StatusIsProgress AND i > 19 then
warnlog " Took over 20 seconds to load the document Document. Stalled?"
endif
-
+
FileSaveAs
Kontext "SpeichernDlg"
sFileodp = (ConvertPath(gOfficePath + "user\work\generic_de"))
@@ -379,18 +347,16 @@ testcase tiOpenOLECrash
if Messagebox.Exists(2) then
Messagebox.Yes
Kontext "AlienWarning"
- if AlienWarning.Exists(2) then
- Warnlog "Should not be any alienwarning when saving in our own format!"
- AlienWarning.OK
- end if
- printlog "Saved as: " + sFileodp
+ if AlienWarning.Exists(2) then
+ Warnlog "Should not be any alienwarning when saving in our own format!"
+ AlienWarning.OK
+ end if
+ printlog "Saved as: " + sFileodp
end if
Sleep 3
kontext "DocumentImpress"
- printlog "3. Close Impress."
Call hCloseDocument
-
- printlog "4.Reopen the *.odp file again"
+
FileOpen
Kontext "OeffnenDlg"
Dateiname.SetText (sFileodp + ".odp")
@@ -401,7 +367,7 @@ testcase tiOpenOLECrash
Active.ok
Warnlog "failed to open file? :-("
end if
-
+
i = 0
do while (i < 20)
try
@@ -412,45 +378,40 @@ testcase tiOpenOLECrash
endcatch
loop
if DocumentImpress.StatusIsProgress AND i > 19 then
- warnlog "Took over 20 seconds to load the document Document. Stalled?"
+ warnlog " Took over 20 seconds to load the document Document. Stalled?"
endif
-
- printlog "5. Right-click on the second slide and click on New slide. "
+
Kontext "Slides"
SlidesControl.TypeKeys "<PAGEDOWN>" 'Goto second slide. (and get the focus right)
SlidesControl.TypeKeys "<SHIFT F10>" 'OpenContextMenu (True) 'Open Context-menu
hMenuSelectNr (1) 'New Slide
- printlog "6. Change the title-(the text was F�r den TCM-Test, but this should irrelevant... ;) )."
hTypeKeys "<TAB>" 'To select the title.
- hTypeKeys "Fuer den TCM-Test" 'To enter text
- printlog " 7. Clicked two times on the Click twice to insert object "
+ hTypeKeys "F�r den TCM-Test" 'To enter text
hTypeKeys "<ESCAPE>"
gMouseClick 1,1
hTypeKeys "<TAB><TAB>" '(to select the second object)
hTypeKeys "<RETURN>"
sleep (2)
-
- printlog "8. Choose OpenOffice.org 2.0 Formular"
+
Kontext "OLEObjektInsert"
- Objekttyp.Select (3)
+ Objekttyp.Select (4)
sleep (2)
- PrintLog " Object: " + Objekttyp.GetSelText + " will be inserted."
- printlog "Leave dialog 'Insert OLE Object' with OK"
+ PrintLog " Objeckt: " + Objekttyp.GetSelText + " will be inserted."
OLEObjektInsert.OK
sleep (2)
-
+
kontext "CommandsMath"
Commands.TypeKeys "A over B + FACT 6 = x"
-
- 'printlog " Leave edit mode by typing key [Escape] "
+
'Comment: If I do this, the bug wont occur...
'hTypeKeys "<ESCAPE>"
-
- printlog "10. Click on the Save button."
+
kontext "Standardbar"
Speichern.Click
-
- printlog "11. Click on the X to close the window while the OLE-object still in Edit-mode."
+
Call hCloseDocument
endcase
+
+'-----------------oooo-----------------oooo-----------------oooo-----------------
+
diff --git a/testautomation/graphics/optional/includes/global/g_paneview.inc b/testautomation/graphics/optional/includes/global/g_paneview.inc
index c027200478a0..a84e4986f390 100755
--- a/testautomation/graphics/optional/includes/global/g_paneview.inc
+++ b/testautomation/graphics/optional/includes/global/g_paneview.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
@@ -50,124 +50,97 @@ testcase tiMinimize_Maximize_Docking_SlidePane
Dim ySize%
printlog "- SlidePane : using all possible things to manipulate the SlidePane"
- '/// open application ///'
Call hNewDocument
Kontext "Slides"
- '/// Check if SlidePane is there. Expected: not there ///'
if (Slides.isVisible = false) Then 'isReallyVisible ?
- qaErrorLog "- Expected SlidePane to be open; But is closed. Check tests."
- Kontext "DocumentImpress"
- ViewTaskSlide
- sleep 1
+ qaErrorLog "- Expected SlidePane to be open; But is closed. Check tests."
+ Kontext "DocumentImpress"
+ ViewTaskSlide
+ sleep 1
else
- printlog "SlidePane was open - good."
+ printlog "SlidePane was open - good."
end if
Kontext "Slides"
-'Only because of overflow-error when some part of the pane is outside the window.
+ 'Only because of overflow-error when some part of the pane is outside the window.
- '/// if SlidePane is docked; undock ///'
if Slides.IsDocked then Slides.UnDock
- '/// move Slides to 15,15 ///'
- Slides.Move 15, 15
-
-
- '/// save SlidePane size ///'
- xSize% = Slides.GetSizeX
- ySize% = Slides.GetSizeY
- '/// save TaskPane position and size ///'
- xPos% = Slides.GetPosX
- yPos% = Slides.GetPosY
- printlog " - '///move SlidePane ///"
- '/// move SlidePane to 300,400 ///'
- Slides.Move 300, 400
- Sleep 1
- '/// move SlidePane to 590,790 ///'
- Slides.Move 590, 790
- Sleep 1
- '/// move SlidePane to 10,10 ///'
- Slides.Move 10, 10
- Sleep 1
-
- printlog " - '/// size SlidePane ///"
- '/// change size to 200,200 ///'
- Slides.Size 200, 200
- Sleep 1
- '/// change size to 300,400 ///'
- Slides.Size 300, 400
- Sleep 1
- '/// change size to 150,250 ///'
- Slides.Size 150, 250
- Sleep 1
- '/// change size back to saved size ///'
- Slides.Size xSize%, ySize%
- Sleep 1
-
- printlog " - Close the SlidePane, reopen it, check if appearence is same as before"
- '/// save SlidePane position and size ///'
- xPos% = Slides.GetPosX
- yPos% = Slides.GetPosY
- xSize% = Slides.GetSizeX
- ySize% = Slides.GetSizeY
- '/// close SlidePane Format->SlidePane ///'
- Kontext "DocumentImpress"
- ViewTaskSlide
- ViewTaskSlide
- Kontext "Slides"
- Sleep 1
- '/// open SlidePane Format->SlidePane ///'
- if xPos% <> Slides.GetPosX then Warnlog "The x-Pos. has changed : Should be -> "+ xPos% + " Is -> "+ Slides.GetPosX
- if yPos% <> Slides.GetPosY then Warnlog "The y-Pos. has changed : Should be -> "+ yPos% + " Is -> "+ Slides.GetPosY
- if xSize% <> Slides.GetSizeX then Warnlog "The x-Size has changed : Should be -> "+ xSize% + " Is -> "+ Slides.GetSizeX
- if ySize% <> Slides.GetSizeY then Warnlog "Die y-Size has changed : Should be -> "+ ySize% + " Is -> "+ Slides.GetSizeY
-
- printlog " - dock SlidePane"
- '/// dock SlidePane ///'
- Slides.Dock
- Sleep 1
- if (NOT Slides.IsDocked) then
- Warnlog "SlidePane not docked but should be"
- end if
- '/// UNdock SlidePane ///'
- if (Slides.IsDocked) Then
- Slides.UnDock
- end if
- Sleep 1
-
- printlog " - maximize/minimize SlidePane"
- '/// minimize SlidePane ///'
- Slides.Minimize
- Sleep 1
- '/// Maximize SlidePane ///'
- Slides.Maximize
- Sleep 1
- if (NOT Slides.IsMax) then
- Warnlog "The Slides-docking-window did not return to maximized state"
- end if
- '/// Close SlidePane ///'
- Slides.Close
- '/// Open the SlidePane ///'
- Kontext "DocumentImpress"
- ViewTaskSlide
- Sleep (2)
- Kontext "Slides"
- '/// Make sure the SlidePane is visible ///'
- if (Slides.isVisible = false) Then 'isReallyVisible ?
- warnlog "the Slidepane wasnt visible"
- end if
- '/// move SlidePane back to saved start position ///'
- Sleep (1)
- Slides.Move xPos%, yPos%
- Sleep 1
- '/// Make sure the SlidePane is docked ///'
- if (Slides.IsDocked = True) then
- warnlog "the SlidePane was docked - should have been undocked."
- else
- printlog "the SlidePane was not docked, good."
- Slides.Dock
- end if
- Call hCloseDocument
+ Slides.Move 15, 15
+
+
+ xSize% = Slides.GetSizeX
+ ySize% = Slides.GetSizeY
+ xPos% = Slides.GetPosX
+ yPos% = Slides.GetPosY
+ Slides.Move 300, 400
+ Sleep 1
+ Slides.Move 590, 790
+ Sleep 1
+ Slides.Move 10, 10
+ Sleep 1
+
+ Slides.Size 200, 200
+ Sleep 1
+ Slides.Size 300, 400
+ Sleep 1
+ Slides.Size 150, 250
+ Sleep 1
+ Slides.Size xSize%, ySize%
+ Sleep 1
+
+ printlog " - Close the SlidePane, reopen it, check if appearence is same as before"
+ xPos% = Slides.GetPosX
+ yPos% = Slides.GetPosY
+ xSize% = Slides.GetSizeX
+ ySize% = Slides.GetSizeY
+ Kontext "DocumentImpress"
+ ViewTaskSlide
+ ViewTaskSlide
+ Kontext "Slides"
+ Sleep 1
+ if xPos% <> Slides.GetPosX then Warnlog "The x-Pos. has changed : Should be -> "+ xPos% + " Is -> "+ Slides.GetPosX
+ if yPos% <> Slides.GetPosY then Warnlog "The y-Pos. has changed : Should be -> "+ yPos% + " Is -> "+ Slides.GetPosY
+ if xSize% <> Slides.GetSizeX then Warnlog "The x-Size has changed : Should be -> "+ xSize% + " Is -> "+ Slides.GetSizeX
+ if ySize% <> Slides.GetSizeY then Warnlog "Die y-Size has changed : Should be -> "+ ySize% + " Is -> "+ Slides.GetSizeY
+
+ printlog " - dock SlidePane"
+ Slides.Dock
+ Sleep 1
+ if (NOT Slides.IsDocked) then
+ Warnlog "SlidePane not docked but should be"
+ end if
+ if (Slides.IsDocked) Then
+ Slides.UnDock
+ end if
+ Sleep 1
+
+ printlog " - maximize/minimize SlidePane"
+ Slides.Minimize
+ Sleep 1
+ Slides.Maximize
+ Sleep 1
+ if (NOT Slides.IsMax) then
+ Warnlog "The Slides-docking-window did not return to maximized state"
+ end if
+ Slides.Close
+ Kontext "DocumentImpress"
+ ViewTaskSlide
+ Sleep (2)
+ Kontext "Slides"
+ if (Slides.isVisible = false) Then 'isReallyVisible ?
+ warnlog "the Slidepane wasnt visible"
+ end if
+ Sleep (1)
+ Slides.Move xPos%, yPos%
+ Sleep 1
+ if (Slides.IsDocked = True) then
+ warnlog "the SlidePane was docked - should have been undocked."
+ else
+ printlog "the SlidePane was not docked, good."
+ Slides.Dock
+ end if
+ Call hCloseDocument
endcase 'tiMinimize_Maximize_Docking_SlidePane
'------------------------------------------------------------------------------------'
@@ -179,122 +152,95 @@ testcase tiMinimize_Maximize_Docking_TaskPane
Dim ySize%
printlog "- TaskPane : using all possible things to manipulate the TaskPane"
- '/// open application ///'
Call hNewDocument
- '/// Check if TaskPane is there. Expected: not there ///'
Kontext "Tasks"
if (Tasks.isVisible = false) Then 'isReallyVisible ?
- qaErrorLog "- Expected TaskPane to be open; But is closed. Check tests."
- sleep 1
- Kontext "DocumentImpress"
- ViewTaskPane
+ qaErrorLog "- Expected TaskPane to be open; But is closed. Check tests."
+ sleep 1
+ Kontext "DocumentImpress"
+ ViewTaskPane
else
- printlog "TaskPane was open - good."
+ printlog "TaskPane was open - good."
end if
Kontext "Tasks"
-'Only because of overflow-error when some part of the pane is outside the window.
- '/// if TaskPane is docked; undock ///'
+ 'Only because of overflow-error when some part of the pane is outside the window.
if Tasks.IsDocked then Tasks.UnDock
- '/// move Tasks to 15,15 ///'
- Tasks.Move 15, 15
-
- '/// save TaskPane size ///'
- xSize% = Tasks.GetSizeX
- ySize% = Tasks.GetSizeY
-
- '/// save TaskPane position and size ///'
- xPos% = Tasks.GetPosX
- yPos% = Tasks.GetPosY
- printlog " - '///move TaskPane ///"
- '/// move TaskPane to 300,400 ///'
- Tasks.Move 300, 400
- Sleep 1
- '/// move TaskPane to 590,790 ///'
- Tasks.Move 590, 790
- Sleep 1
- '/// move TaskPane to 10,10 ///'
- Tasks.Move 10, 10
- Sleep 1
- printlog " - '/// size -TaskPane ///"
- '/// change size to 200,200 ///'
- Tasks.Size 200, 200
- Sleep 1
- '/// change size to 300,400 ///'
- Tasks.Size 300, 400
- Sleep 1
- '/// change size to 150,250 ///'
- Tasks.Size 150, 250
- Sleep 1
- '/// change size back to saved size ///'
- Tasks.Size xSize%, ySize%
- Sleep 1
-
- printlog " - Close the TaskPane, reopen it, check if appearence is same as before"
- '/// save TaskPane position and size ///'
- xPos% = Tasks.GetPosX
- yPos% = Tasks.GetPosY
- xSize% = Tasks.GetSizeX
- ySize% = Tasks.GetSizeY
- '/// close TaskPane Format->SlidePane ///'
- Kontext "DocumentImpress"
- ViewTaskPane
- ViewTaskPane
- Sleep 1
- Kontext "Tasks"
- '/// open TaskPane Format->TaskPane ///'
- if xPos% <> Tasks.GetPosX then Warnlog "The x-Pos. has changed : Should be -> "+ xPos% + " Is -> "+ Tasks.GetPosX
- if yPos% <> Tasks.GetPosY then Warnlog "The y-Pos. has changed : Should be -> "+ yPos% + " Is -> "+ Tasks.GetPosY
- if xSize% <> Tasks.GetSizeX then Warnlog "The x-Size has changed : Should be -> "+ xSize% + " Is -> "+ Tasks.GetSizeX
- if ySize% <> Tasks.GetSizeY then Warnlog "Die y-Size has changed : Should be -> "+ ySize% + " Is -> "+ Tasks.GetSizeY
-
- printlog " - dock TaskPane"
- '/// dock TaskPane ///'
- Tasks.Dock
- Sleep 1
- if (NOT Tasks.IsDocked) then
- Warnlog "TaskPane not docked but should be"
- end if
- '/// UNdock TaskPane ///'
- if (Tasks.IsDocked) Then
- Tasks.UnDock
- end if
- Sleep 1
-
- printlog " - maximize/minimize TaskPane"
- '/// minimize TaskPane ///'
- Tasks.Minimize
- Sleep 1
- '/// Maximize TaskPane ///'
- Tasks.Maximize
- Sleep 1
- if (NOT Tasks.IsMax) then
- Warnlog "The Task-docking-window did not return to maximized state"
- end if
- '/// Close TaskPane ///'
- Tasks.Close
- Sleep (1)
- '/// Open the TaskPane ///'
- Kontext "DocumentImpress"
- ViewTaskPane
- Sleep (2)
- Kontext "Tasks"
- '/// Make sure the TaskPane is visible ///'
- if (Tasks.isVisible = false) Then 'isReallyVisible ?
- warnlog "the Taskpane wasnt visible"
- end if
- '/// move TaskPane back to saved start position ///'
- Tasks.Move xPos%, yPos%
- Sleep 1
- '/// Make sure the TaskPane is docked ///'
- if (Tasks.IsDocked = True) then
- warnlog "the TaskPane was docked - should have been undocked."
- else
- printlog "the TaskPane was not docked, good."
- Tasks.Dock
- end if
- Call hCloseDocument
+ Tasks.Move 15, 15
+
+ xSize% = Tasks.GetSizeX
+ ySize% = Tasks.GetSizeY
+
+ xPos% = Tasks.GetPosX
+ yPos% = Tasks.GetPosY
+ Tasks.Move 300, 400
+ Sleep 1
+ Tasks.Move 590, 790
+ Sleep 1
+ Tasks.Move 10, 10
+ Sleep 1
+ Tasks.Size 200, 200
+ Sleep 1
+ Tasks.Size 300, 400
+ Sleep 1
+ Tasks.Size 150, 250
+ Sleep 1
+ Tasks.Size xSize%, ySize%
+ Sleep 1
+
+ printlog " - Close the TaskPane, reopen it, check if appearence is same as before"
+ xPos% = Tasks.GetPosX
+ yPos% = Tasks.GetPosY
+ xSize% = Tasks.GetSizeX
+ ySize% = Tasks.GetSizeY
+ Kontext "DocumentImpress"
+ ViewTaskPane
+ ViewTaskPane
+ Sleep 1
+ Kontext "Tasks"
+ if xPos% <> Tasks.GetPosX then Warnlog "The x-Pos. has changed : Should be -> "+ xPos% + " Is -> "+ Tasks.GetPosX
+ if yPos% <> Tasks.GetPosY then Warnlog "The y-Pos. has changed : Should be -> "+ yPos% + " Is -> "+ Tasks.GetPosY
+ if xSize% <> Tasks.GetSizeX then Warnlog "The x-Size has changed : Should be -> "+ xSize% + " Is -> "+ Tasks.GetSizeX
+ if ySize% <> Tasks.GetSizeY then Warnlog "Die y-Size has changed : Should be -> "+ ySize% + " Is -> "+ Tasks.GetSizeY
+
+ printlog " - dock TaskPane"
+ Tasks.Dock
+ Sleep 1
+ if (NOT Tasks.IsDocked) then
+ Warnlog "TaskPane not docked but should be"
+ end if
+ if (Tasks.IsDocked) Then
+ Tasks.UnDock
+ end if
+ Sleep 1
+
+ printlog " - maximize/minimize TaskPane"
+ Tasks.Minimize
+ Sleep 1
+ Tasks.Maximize
+ Sleep 1
+ if (NOT Tasks.IsMax) then
+ Warnlog "The Task-docking-window did not return to maximized state"
+ end if
+ Tasks.Close
+ Sleep (1)
+ Kontext "DocumentImpress"
+ ViewTaskPane
+ Sleep (2)
+ Kontext "Tasks"
+ if (Tasks.isVisible = false) Then 'isReallyVisible ?
+ warnlog "the Taskpane wasnt visible"
+ end if
+ Tasks.Move xPos%, yPos%
+ Sleep 1
+ if (Tasks.IsDocked = True) then
+ warnlog "the TaskPane was docked - should have been undocked."
+ else
+ printlog "the TaskPane was not docked, good."
+ Tasks.Dock
+ end if
+ Call hCloseDocument
endcase 'tiMinimize_Maximize_Docking_TaskPane
'------------------------------------------------------------------------------------'
@@ -302,111 +248,85 @@ endcase 'tiMinimize_Maximize_Docking_TaskPane
testcase tiPaneview_LoadSave_Windowsstate
QaErrorLog "#i84057# - tiPaneview_LoadSave_Windowsstate deactivated."
goto endsub
- Dim xPos%
- Dim yPos%
- Dim xSize%
- Dim ySize%
- Dim Filenamex as string
- dim applicationchar as string
-
- Filenamex = ConvertPath (gOfficePath + "user\work\Task-postion")
-
- printlog "- TaskPane : using all possible things to manipulate the TaskPane"
- '/// open application ///'
- Call hNewDocument
- '/// Check if TaskPane is there. Expected: not there ///'
- kontext "Tasks"
- if (Tasks.isVisible = false) Then 'isReallyVisible ?
- qaErrorLog "- Expected TaskPane to be open; But is closed. Check tests."
- sleep 1
- Kontext "DocumentImpress"
- ViewTaskPane
- else
- printlog "TaskPane was open - good."
- end if
-
- Kontext "Tasks"
-'Only because of overflow-error when some part of the pane is outside the window.
-
- '/// if TaskPane is docked; undock ///'
- if Tasks.IsDocked then Tasks.UnDock
- Sleep (1)
- '/// move Tasks to 15,15 ///'
- Tasks.Move 15, 15
-
- '/// save TaskPane size ///'
- xSize% = Tasks.GetSizeX
- ySize% = Tasks.GetSizeY
-
- '/// save TaskPane position and size ///'
- xPos% = Tasks.GetPosX
- yPos% = Tasks.GetPosY
- printlog " - '/// size -TaskPane ///"
- '/// change size to 200,200 ///'
- Sleep (2)
- Tasks.Size 200, 200
- Sleep 1
- printlog " - '/// move TaskPane ///"
- '/// move TaskPane to 10,10 ///'
- Tasks.Move 10, 10
- printlog " - '/// size -TaskPane ///"
- '/// change size to 300,400 ///'
- Tasks.Size 300, 400
- Sleep 1
- printlog " - '/// move TaskPane ///"
- '/// move TaskPane to 550,690 ///'
- Tasks.Move 550, 290
- Sleep 1
-
- printlog " - Close the TaskPane, reopen it, check if appearence is same as before"
- '/// save TaskPane position and size ///'
- xPos% = Tasks.GetPosX
- yPos% = Tasks.GetPosY
- xSize% = Tasks.GetSizeX
- ySize% = Tasks.GetSizeY
-
- '/// Delete any documents from the past ///'
- if Dir(Filenamex)<>"" then app.Kill(Filenamex) ' kill old file
-
- '/// Save document ///'
- call hFileSaveAsKill (Filenamex) '/// save document ///'
- printlog "OK saved at ", Filenamex
- sleep 1
-
- '/// Close the document ///'
- Call hCloseDocument
-
- '/// Open document ///'
- hDateiOeffnen (Filenamex + "." + ExtensionString)
-
- '/// Make sure the TaskPane is open ///'
- Kontext "Tasks"
- '/// close TaskPane Format->SlidePane ///'
- if (Tasks.IsVisible = false) then
- warnlog "Taskpanel wasnt visible"
- Kontext "DocumentImpress"
- ViewTaskPane
- Sleep 1
- else
- printlog "Taskpanel was visible, good"
- end if
-
- '/// Check if the position is the same or if it has changed ///'
- Kontext "Tasks"
- if xPos% <> Tasks.GetPosX then Warnlog "The x-Pos. has changed : Should be -> "+ xPos% + " Is -> "+ Tasks.GetPosX
- if yPos% <> Tasks.GetPosY then Warnlog "The y-Pos. has changed : Should be -> "+ yPos% + " Is -> "+ Tasks.GetPosY
- if xSize% <> Tasks.GetSizeX then Warnlog "The x-Size has changed : Should be -> "+ xSize% + " Is -> "+ Tasks.GetSizeX
- if ySize% <> Tasks.GetSizeY then Warnlog "Die y-Size has changed : Should be -> "+ ySize% + " Is -> "+ Tasks.GetSizeY
- Sleep (2)
- '/// change size back to saved size ///'
- Tasks.Size xSize%, ySize%
- Sleep 1
-
- printlog " - dock TaskPane"
- '/// Dock TaskPane ///'
- Tasks.Dock
- '/// Close Document ///'
- Call hCloseDocument
+ Dim xPos%
+ Dim yPos%
+ Dim xSize%
+ Dim ySize%
+ Dim Filenamex as string
+ dim applicationchar as string
+
+ Filenamex = ConvertPath (gOfficePath + "user\work\Task-postion")
+
+ printlog "- TaskPane : using all possible things to manipulate the TaskPane"
+ Call hNewDocument
+ kontext "Tasks"
+ if (Tasks.isVisible = false) Then 'isReallyVisible ?
+ qaErrorLog "- Expected TaskPane to be open; But is closed. Check tests."
+ sleep 1
+ Kontext "DocumentImpress"
+ ViewTaskPane
+ else
+ printlog "TaskPane was open - good."
+ end if
+
+ Kontext "Tasks"
+ 'Only because of overflow-error when some part of the pane is outside the window.
+
+ if Tasks.IsDocked then Tasks.UnDock
+ Sleep (1)
+ Tasks.Move 15, 15
+
+ xSize% = Tasks.GetSizeX
+ ySize% = Tasks.GetSizeY
+
+ xPos% = Tasks.GetPosX
+ yPos% = Tasks.GetPosY
+ Sleep (2)
+ Tasks.Size 200, 200
+ Sleep 1
+ Tasks.Move 10, 10
+ Tasks.Size 300, 400
+ Sleep 1
+ Tasks.Move 550, 290
+ Sleep 1
+
+ printlog " - Close the TaskPane, reopen it, check if appearence is same as before"
+ xPos% = Tasks.GetPosX
+ yPos% = Tasks.GetPosY
+ xSize% = Tasks.GetSizeX
+ ySize% = Tasks.GetSizeY
+
+ if Dir(Filenamex)<>"" then app.Kill(Filenamex) ' kill old file
+
+ printlog "OK saved at ", Filenamex
+ sleep 1
+
+ Call hCloseDocument
+
+ hDateiOeffnen (Filenamex + "." + ExtensionString)
+
+ Kontext "Tasks"
+ if (Tasks.IsVisible = false) then
+ warnlog "Taskpanel wasnt visible"
+ Kontext "DocumentImpress"
+ ViewTaskPane
+ Sleep 1
+ else
+ printlog "Taskpanel was visible, good"
+ end if
+
+ Kontext "Tasks"
+ if xPos% <> Tasks.GetPosX then Warnlog "The x-Pos. has changed : Should be -> "+ xPos% + " Is -> "+ Tasks.GetPosX
+ if yPos% <> Tasks.GetPosY then Warnlog "The y-Pos. has changed : Should be -> "+ yPos% + " Is -> "+ Tasks.GetPosY
+ if xSize% <> Tasks.GetSizeX then Warnlog "The x-Size has changed : Should be -> "+ xSize% + " Is -> "+ Tasks.GetSizeX
+ if ySize% <> Tasks.GetSizeY then Warnlog "Die y-Size has changed : Should be -> "+ ySize% + " Is -> "+ Tasks.GetSizeY
+ Sleep (2)
+ Tasks.Size xSize%, ySize%
+ Sleep 1
+
+ printlog " - dock TaskPane"
+ Tasks.Dock
+ Call hCloseDocument
endcase
'----------------------------------------------------------------------------------------'
@@ -414,110 +334,84 @@ endcase
testcase tdPaneview_LoadSave_Windowsstate
QaErrorLog "#i84057# - tiPaneview_LoadSave_Windowsstate deactivated."
goto endsub
- Dim xPos%
- Dim yPos%
- Dim xSize%
- Dim ySize%
- Dim Filenamex as string
-
- Filenamex = ConvertPath (gOfficePath + "user\work\Task-postion")
-
- printlog "- Pagepane : using all possible things to manipulate the Pagepane"
- '/// open application ///'
- Call hNewDocument
- '/// Check if Pagepane is there. Expected: not there ///'
- kontext "Pagepane"
- if (Pagepane.isVisible = false) Then 'isReallyVisible ?
- qaErrorLog "- Expected Pagepane to be open; But is closed. Check tests."
- sleep 1
- Kontext "DocumentDraw"
- ViewPagepane
- else
- printlog "Pagepane was open - good."
- end if
-
-'Only because of overflow-error when some part of the pane is outside the window.
-
- '/// if Pagepane is docked; undock ///'
- if Pagepane.IsDocked then Pagepane.UnDock
-
- '/// move Pagepane to 15,15 ///'
- Pagepane.Move 15, 15
-
-
- Kontext "Pagepane"
- '/// save Pagepane size ///'
- xSize% = Pagepane.GetSizeX
- ySize% = Pagepane.GetSizeY
-
- '/// save TaskPane position and size ///'
- xPos% = Pagepane.GetPosX
- yPos% = Pagepane.GetPosY
- printlog " - '/// size -Pagepane ///"
- '/// change size to 200,100 ///'
- Pagepane.Size 200, 100
- Sleep 1
- printlog " - '/// move Pagepane ///"
- '/// move Pagepane to 10,10 ///'
- Pagepane.Move 10, 10
- printlog " - '/// size -Pagepane ///"
- '/// change size to 300,150 ///'
- Pagepane.Size 300, 150
- Sleep 1
- printlog " - '/// move Pagepane ///"
- '/// move Pagepane to 550,690 ///'
- Pagepane.Move 550, 290
- Sleep 1
-
- printlog " - Close the Pagepane, reopen it, check if appearence is same as before"
- '/// save Pagepane position and size ///'
- xPos% = Pagepane.GetPosX
- yPos% = Pagepane.GetPosY
- xSize% = Pagepane.GetSizeX
- ySize% = Pagepane.GetSizeY
-
- '/// Delete any documents from the past ///'
- if Dir(Filenamex)<>"" then app.Kill(Filenamex) ' kill old file
-
- '/// Save document ///'
- call hFileSaveAsKill (Filenamex) '/// save document ///'
- printlog "OK saved at ", Filenamex
- sleep 1
-
- '/// Close the document ///'
- Call hCloseDocument
-
- '/// Open document ///'
- hDateiOeffnen (Filenamex + "." + ExtensionString)
-
- '/// Make sure the Pagepane is open ///'
- Kontext "Pagepane"
- '/// close Pagepane Format->SlidePane ///'
- if (Pagepane.IsVisible = false) then
- warnlog "Pagepane wasnt visible"
- Kontext "DocumentDraw"
- ViewPagepane
- Sleep 1
- else
- printlog "Pagepane was visible, good"
- end if
-
- '/// Check if the position is the same or if it has changed ///'
- Kontext "Pagepane"
- if xPos% <> Pagepane.GetPosX then Warnlog "The x-Pos. has changed : Should be -> "+ xPos% + " Is -> "+ Pagepane.GetPosX
- if yPos% <> Pagepane.GetPosY then Warnlog "The y-Pos. has changed : Should be -> "+ yPos% + " Is -> "+ Pagepane.GetPosY
- if xSize% <> Pagepane.GetSizeX then Warnlog "The x-Size has changed : Should be -> "+ xSize% + " Is -> "+ Pagepane.GetSizeX
- if ySize% <> Pagepane.GetSizeY then Warnlog "Die y-Size has changed : Should be -> "+ ySize% + " Is -> "+ Pagepane.GetSizeY
-
- '/// change size back to saved size ///'
- Pagepane.Size xSize%, ySize%
- Sleep 1
-
- printlog " - dock Pagepane"
- '/// Dock Pagepane ///'
- Pagepane.Dock
- '/// Close Document ///'
- Call hCloseDocument
+ Dim xPos%
+ Dim yPos%
+ Dim xSize%
+ Dim ySize%
+ Dim Filenamex as string
+
+ Filenamex = ConvertPath (gOfficePath + "user\work\Task-postion")
+
+ printlog "- Pagepane : using all possible things to manipulate the Pagepane"
+ Call hNewDocument
+ kontext "Pagepane"
+ if (Pagepane.isVisible = false) Then 'isReallyVisible ?
+ qaErrorLog "- Expected Pagepane to be open; But is closed. Check tests."
+ sleep 1
+ Kontext "DocumentDraw"
+ ViewPagepane
+ else
+ printlog "Pagepane was open - good."
+ end if
+
+ 'Only because of overflow-error when some part of the pane is outside the window.
+
+ if Pagepane.IsDocked then Pagepane.UnDock
+
+ Pagepane.Move 15, 15
+
+
+ Kontext "Pagepane"
+ xSize% = Pagepane.GetSizeX
+ ySize% = Pagepane.GetSizeY
+
+ xPos% = Pagepane.GetPosX
+ yPos% = Pagepane.GetPosY
+ Pagepane.Size 200, 100
+ Sleep 1
+ Pagepane.Move 10, 10
+ Pagepane.Size 300, 150
+ Sleep 1
+ Pagepane.Move 550, 290
+ Sleep 1
+
+ printlog " - Close the Pagepane, reopen it, check if appearence is same as before"
+ xPos% = Pagepane.GetPosX
+ yPos% = Pagepane.GetPosY
+ xSize% = Pagepane.GetSizeX
+ ySize% = Pagepane.GetSizeY
+
+ if Dir(Filenamex)<>"" then app.Kill(Filenamex) ' kill old file
+
+ printlog "OK saved at ", Filenamex
+ sleep 1
+
+ Call hCloseDocument
+
+ hDateiOeffnen (Filenamex + "." + ExtensionString)
+
+ Kontext "Pagepane"
+ if (Pagepane.IsVisible = false) then
+ warnlog "Pagepane wasnt visible"
+ Kontext "DocumentDraw"
+ ViewPagepane
+ Sleep 1
+ else
+ printlog "Pagepane was visible, good"
+ end if
+
+ Kontext "Pagepane"
+ if xPos% <> Pagepane.GetPosX then Warnlog "The x-Pos. has changed : Should be -> "+ xPos% + " Is -> "+ Pagepane.GetPosX
+ if yPos% <> Pagepane.GetPosY then Warnlog "The y-Pos. has changed : Should be -> "+ yPos% + " Is -> "+ Pagepane.GetPosY
+ if xSize% <> Pagepane.GetSizeX then Warnlog "The x-Size has changed : Should be -> "+ xSize% + " Is -> "+ Pagepane.GetSizeX
+ if ySize% <> Pagepane.GetSizeY then Warnlog "Die y-Size has changed : Should be -> "+ ySize% + " Is -> "+ Pagepane.GetSizeY
+
+ Pagepane.Size xSize%, ySize%
+ Sleep 1
+
+ printlog " - dock Pagepane"
+ Pagepane.Dock
+ Call hCloseDocument
endcase 'tdPaneview_LoadSave_Windowsstate
'--------------------------------------------------------------------------------------'
@@ -529,141 +423,115 @@ testcase tdMinimize_Maximize_Docking_Pagepane
Dim ySize%
printlog "- Pagepane : using all possible things to manipulate the Pagepane"
- '/// open application ///'
Call hNewDocument
- '/// Check if TaskPane is there. Expected: not there ///'
Kontext "Pagepane"
if (Pagepane.isVisible = false) Then 'isReallyVisible ?
- qaErrorLog "- Expected Pagepane to be open; But is closed. Check tests."
- sleep 1
- Kontext "DocumentDraw"
- ViewPagepane
+ qaErrorLog "- Expected Pagepane to be open; But is closed. Check tests."
+ sleep 1
+ Kontext "DocumentDraw"
+ ViewPagepane
else
- printlog "Pagepane was open - good."
+ printlog "Pagepane was open - good."
end if
Kontext "Pagepane"
-'Only because of overflow-error when some part of the pane is outside the window.
+ 'Only because of overflow-error when some part of the pane is outside the window.
- '/// if Pagepane is docked; undock ///'
if Pagepane.IsDocked then Pagepane.UnDock
- '/// move Pagepane to 10,10 ///'
- Pagepane.Move 10, 10
- Sleep 1
-
- '/// save TaskPane position and size ///'
- xPos% = Pagepane.GetPosX
- yPos% = Pagepane.GetPosY
- xSize% = Pagepane.GetSizeX
- ySize% = Pagepane.GetSizeY
- printlog " - '///move Pagepane ///"
- '/// move Pagepane to 300,400 ///'
- Pagepane.Move 300, 400
- Sleep 1
- '/// move Pagepane to 590,790 ///'
- Pagepane.Move 590, 790
- Sleep 1
- '/// move Pagepane back to saved start position ///'
- Pagepane.Move xPos%, yPos%
- Sleep 1
-
- printlog " - '/// size -Pagepane ///"
- '/// change size to 200,200 ///'
- Pagepane.Size 200, 200
- Sleep 1
- '/// change size to 300,400 ///'
- Pagepane.Size 300, 400
- Sleep 1
- '/// change size to 150,250 ///'
- Pagepane.Size 150, 250
- Sleep 1
- '/// change size back to saved size ///'
- Pagepane.Size xSize%, ySize%
- Sleep 1
-
- printlog " - Close the Pagepane, reopen it, check if appearence is same as before"
- '/// save TaskPane position and size ///'
- xPos% = Pagepane.GetPosX
- yPos% = Pagepane.GetPosY
- xSize% = Pagepane.GetSizeX
- ySize% = Pagepane.GetSizeY
- '/// close Pagepane Format->SlidePane ///'
- Kontext "DocumentDraw"
- ViewPagepane
- ViewPagepane
- Sleep 1
- Kontext "Pagepane"
- '/// open Pagepane Format->TaskPane ///'
- if xPos% <> Pagepane.GetPosX then Warnlog "The x-Pos. has changed : Should be -> "+ xPos% + " Is -> "+ Pagepane.GetPosX
- if yPos% <> Pagepane.GetPosY then Warnlog "The y-Pos. has changed : Should be -> "+ yPos% + " Is -> "+ Pagepane.GetPosY
- if xSize% <> Pagepane.GetSizeX then Warnlog "The x-Size has changed : Should be -> "+ xSize% + " Is -> "+ Pagepane.GetSizeX
- if ySize% <> Pagepane.GetSizeY then Warnlog "Die y-Size has changed : Should be -> "+ ySize% + " Is -> "+ Pagepane.GetSizeY
-
- printlog " - dock Pagepane"
- '/// dock Pagepane ///'
- Pagepane.Dock
- Sleep 1
- if (NOT Pagepane.IsDocked) then
- Warnlog "Pagepane not docked but should be"
- end if
- '/// UNdock Pagepane ///'
- if (Pagepane.IsDocked) Then
- Pagepane.UnDock
- end if
- Sleep 1
-
- printlog " - maximize/minimize Pagepane"
- '/// minimize Pagepane ///'
- Pagepane.Minimize
- Sleep 1
- '/// Maximize Pagepane ///'
- Pagepane.Maximize
- Sleep 1
- if (NOT Pagepane.IsMax) then
- warnlog "The Pagepane-docking-window did not return to maximized state"
- end if
- '/// Close Pagepane ///'
- Kontext "DocumentDraw"
- ViewPagepane
- sleep (1)
- Kontext "Pagepane"
- '/// Make sure the Pagepane was closed ///'
- if Pagepane.Exists(5) Then
- warnlog "the Pagepane wasnt closed properly"
- else
- '/// Open the Pagepane ///'
- Kontext "DocumentDraw"
- ViewPagepane
- end if
- sleep (1)
- Kontext "Pagepane"
- '/// Make sure the Pagepane is visible ///'
- if (Pagepane.Exists = true) AND (Pagepane.isVisible = false) Then
- warnlog "the Pagepane wasnt visible"
- end if
-
- '/// Make sure the Pagepane is docked ///'
- if (Pagepane.IsDocked = True) then
- warnlog "the Pagepane was docked - should have been undocked."
- else
- printlog "the Pagepane was not docked, good."
- Pagepane.Dock
- end if
- Call hCloseDocument
+ Pagepane.Move 10, 10
+ Sleep 1
+
+ xPos% = Pagepane.GetPosX
+ yPos% = Pagepane.GetPosY
+ xSize% = Pagepane.GetSizeX
+ ySize% = Pagepane.GetSizeY
+ Pagepane.Move 300, 400
+ Sleep 1
+ Pagepane.Move 590, 790
+ Sleep 1
+ Pagepane.Move xPos%, yPos%
+ Sleep 1
+
+ Pagepane.Size 200, 200
+ Sleep 1
+ Pagepane.Size 300, 400
+ Sleep 1
+ Pagepane.Size 150, 250
+ Sleep 1
+ Pagepane.Size xSize%, ySize%
+ Sleep 1
+
+ printlog " - Close the Pagepane, reopen it, check if appearence is same as before"
+ xPos% = Pagepane.GetPosX
+ yPos% = Pagepane.GetPosY
+ xSize% = Pagepane.GetSizeX
+ ySize% = Pagepane.GetSizeY
+ Kontext "DocumentDraw"
+ ViewPagepane
+ ViewPagepane
+ Sleep 1
+ Kontext "Pagepane"
+ if xPos% <> Pagepane.GetPosX then Warnlog "The x-Pos. has changed : Should be -> "+ xPos% + " Is -> "+ Pagepane.GetPosX
+ if yPos% <> Pagepane.GetPosY then Warnlog "The y-Pos. has changed : Should be -> "+ yPos% + " Is -> "+ Pagepane.GetPosY
+ if xSize% <> Pagepane.GetSizeX then Warnlog "The x-Size has changed : Should be -> "+ xSize% + " Is -> "+ Pagepane.GetSizeX
+ if ySize% <> Pagepane.GetSizeY then Warnlog "Die y-Size has changed : Should be -> "+ ySize% + " Is -> "+ Pagepane.GetSizeY
+
+ printlog " - dock Pagepane"
+ Pagepane.Dock
+ Sleep 1
+ if (NOT Pagepane.IsDocked) then
+ Warnlog "Pagepane not docked but should be"
+ end if
+ if (Pagepane.IsDocked) Then
+ Pagepane.UnDock
+ end if
+ Sleep 1
+
+ printlog " - maximize/minimize Pagepane"
+ Pagepane.Minimize
+ Sleep 1
+ Pagepane.Maximize
+ Sleep 1
+ if (NOT Pagepane.IsMax) then
+ warnlog "The Pagepane-docking-window did not return to maximized state"
+ end if
+ Kontext "DocumentDraw"
+ ViewPagepane
+ sleep (1)
+ Kontext "Pagepane"
+ if Pagepane.Exists(5) Then
+ warnlog "the Pagepane wasnt closed properly"
+ else
+ Kontext "DocumentDraw"
+ ViewPagepane
+ end if
+ sleep (1)
+ Kontext "Pagepane"
+ if (Pagepane.Exists = true) AND (Pagepane.isVisible = false) Then
+ warnlog "the Pagepane wasnt visible"
+ end if
+
+ if (Pagepane.IsDocked = True) then
+ warnlog "the Pagepane was docked - should have been undocked."
+ else
+ printlog "the Pagepane was not docked, good."
+ Pagepane.Dock
+ end if
+ Call hCloseDocument
endcase 'tdMinimize_Maximize_Docking_Pagepane
'--------------------------------------------------------------------------------------'
'TODO FHA : testcase tClick_everywhere
' Call hNewDocument
' Kontext "LayerTabBar"
- 'Click everywhere
+'Click everywhere
- 'Draw:
- 'Page Pane
+'Draw:
+'Page Pane
- 'Imp:
- 'Slides:SlidesControl
+'Imp:
+'Slides:SlidesControl
' kontext "Slides"
' SlidesControl.MouseClick
' kontext "Tasks"
diff --git a/testautomation/graphics/optional/includes/global/g_paragraph.inc b/testautomation/graphics/optional/includes/global/g_paragraph.inc
index 63a83ae0829f..707ebaba85c8 100755
--- a/testautomation/graphics/optional/includes/global/g_paragraph.inc
+++ b/testautomation/graphics/optional/includes/global/g_paragraph.inc
@@ -47,10 +47,8 @@ testcase tdFormatParagraph
dim iTemp as integer
iCount = 0
- '/// open application ///'
Call hNewDocument
- printlog "'/// - save states ///" '
ToolsOptions
hToolsOptions (gApplication,"General")
iTemp = Masseinheit.GetSelIndex
@@ -58,7 +56,6 @@ testcase tdFormatParagraph
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
- '/// call Format->Paragraph & set some values on 'indents and spacing' ///'
FormatParagraph
Kontext
Active.SetPage TabEinzuegeUndAbstaende
@@ -87,143 +84,134 @@ testcase tdFormatParagraph
sTemp(4) = Oben.getText
sTemp(5) = Unten.getText
TabEinzuegeUndAbstaende.OK
- '///+ close dialog ///'
- '///+ call Format->Paragraph again and check values ///'
FormatParagraph
Kontext
Active.SetPage TabEinzuegeUndAbstaende
Kontext "TabEinzuegeUndAbstaende"
if LiberalMeasurement(VonLinks.GetText, sTemp(1)) <> TRUE Then WarnLog "Value changed VonLinks is: '" + VonLinks.GetText + "' should: '" + sTemp(1) +"'"
- if LiberalMeasurement(VonRechts.GetText, sTemp(2)) <> TRUE Then WarnLog "Value changed VonRechts is: '" + VonRechts.GetText + "' should: '" + sTemp(2) +"'"
- if LiberalMeasurement(ErsteZeile.GetText, sTemp(3)) <> TRUE Then WarnLog "Value changed ErsteZeile is: '" + ErsteZeile.GetText + "' should: '" + sTemp(3) +"'"
- if LiberalMeasurement(Oben.GetText, sTemp(4)) <> TRUE Then WarnLog "Value changed Oben is: '" + Oben.GetText + "' should: '" + sTemp(4) +"'"
- if LiberalMeasurement(Unten.GetText, sTemp(5)) <> TRUE Then WarnLog "Value changed Unten is: '" + Unten.GetText + "' should: '" + sTemp(5) +"'"
+ if LiberalMeasurement(VonRechts.GetText, sTemp(2)) <> TRUE Then WarnLog "Value changed VonRechts is: '" + VonRechts.GetText + "' should: '" + sTemp(2) +"'"
+ if LiberalMeasurement(ErsteZeile.GetText, sTemp(3)) <> TRUE Then WarnLog "Value changed ErsteZeile is: '" + ErsteZeile.GetText + "' should: '" + sTemp(3) +"'"
+ if LiberalMeasurement(Oben.GetText, sTemp(4)) <> TRUE Then WarnLog "Value changed Oben is: '" + Oben.GetText + "' should: '" + sTemp(4) +"'"
+ if LiberalMeasurement(Unten.GetText, sTemp(5)) <> TRUE Then WarnLog "Value changed Unten is: '" + Unten.GetText + "' should: '" + sTemp(5) +"'"
- '///+ try to activate the metric field for line spacing, has to work for the last 3 of 6 entries !///'
- Zaehler=Zeilenabstand.GetItemCount
- for a=1 to Zaehler
- Zeilenabstand.Select a
- sIndent = Zeilenabstand.GetSelText
- sleep 1
- try
- ' if um.IsEnabled then printlog "## UM##"
- ' if von.IsEnabled then printlog "##VON##"
- if (von.IsEnabled and um.IsEnabled) then printlog "##VON#### UM## !!!!! :-("
- if von.IsEnabled then
- sIndentValue = von.GetText
- von.More
- sleep 1
- if sIndentValue = von.GetText then
- warnlog "value didn't change :-( : '"+sIndent +"'"
- else
- printlog "value changed :-) '"+sIndent +"'"
- endif
- iCount = iCount+1
- else
- if um.IsEnabled then
- sIndentValue = Um.GetText
- Um.More
- sleep 1
- if sIndentValue = Um.GetText then
- warnlog "value didn't change :-( : '"+sIndent +"'"
- else
- printlog "value changed :-) '"+sIndent +"'"
- endif
- iCount = iCount+1
- else
- printlog "value not changeable :-? '"+sIndent +"'"
- endif
- endif
- catch
- warnLog "BIGERROR :-("
- endcatch
- printlog "----------------------------------------------------------------------------------------"
- sleep 1
- TabEinzuegeUndAbstaende.OK
- sleep 1
- FormatParagraph
- Kontext
- Active.SetPage TabEinzuegeUndAbstaende
- Kontext "TabEinzuegeUndAbstaende"
- next a
- if iCount <> 3 then warnlog "Could only activate "+ iCount + " out of "+Zaehler +" vlauefields :-("
- TabeinzuegeUndAbstaende.OK
+ Zaehler=Zeilenabstand.GetItemCount
+ for a=1 to Zaehler
+ Zeilenabstand.Select a
+ sIndent = Zeilenabstand.GetSelText
+ sleep 1
+ try
+ ' if um.IsEnabled then printlog "## UM##"
+ ' if von.IsEnabled then printlog "##VON##"
+ if (von.IsEnabled and um.IsEnabled) then printlog "##VON#### UM## !!!!! :-("
+ if von.IsEnabled then
+ sIndentValue = von.GetText
+ von.More
+ sleep 1
+ if sIndentValue = von.GetText then
+ warnlog "value didn't change :-( : '"+sIndent +"'"
+ else
+ printlog "value changed :-) '"+sIndent +"'"
+ endif
+ iCount = iCount+1
+ else
+ if um.IsEnabled then
+ sIndentValue = Um.GetText
+ Um.More
+ sleep 1
+ if sIndentValue = Um.GetText then
+ warnlog "value didn't change :-( : '"+sIndent +"'"
+ else
+ printlog "value changed :-) '"+sIndent +"'"
+ endif
+ iCount = iCount+1
+ else
+ printlog "value not changeable :-? '"+sIndent +"'"
+ endif
+ endif
+ catch
+ warnLog "BIGERROR :-("
+ endcatch
+ printlog "----------------------------------------------------------------------------------------"
+ sleep 1
+ TabEinzuegeUndAbstaende.OK
+ sleep 1
+ FormatParagraph
+ Kontext
+ Active.SetPage TabEinzuegeUndAbstaende
+ Kontext "TabEinzuegeUndAbstaende"
+ next a
+ if iCount <> 3 then warnlog "Could only activate "+ iCount + " out of "+Zaehler +" vlauefields :-("
+ TabeinzuegeUndAbstaende.OK
- '/// call Format->Paragraph & set some values on 'alignment' ///'
- '///+ check button, close dialog, open again, check if the button is stioll selected ///'
- '///+ do it for all four buttons: left, right, center, justified ///'
- FormatParagraph
- Kontext
- Active.SetPage TabAusrichtungAbsatz
- Kontext "TabAusrichtungAbsatz"
+ FormatParagraph
+ Kontext
+ Active.SetPage TabAusrichtungAbsatz
+ Kontext "TabAusrichtungAbsatz"
- Links.Check
- TabAusrichtungAbsatz.OK
- FormatParagraph
- Kontext
- Active.SetPage TabAusrichtungAbsatz
- Kontext "TabAusrichtungAbsatz"
- if Links.IsChecked=False Then WarnLog " Button 'left' is not activated"
+ Links.Check
+ TabAusrichtungAbsatz.OK
+ FormatParagraph
+ Kontext
+ Active.SetPage TabAusrichtungAbsatz
+ Kontext "TabAusrichtungAbsatz"
+ if Links.IsChecked=False Then WarnLog " Button 'left' is not activated"
- Rechts.Check
- TabAusrichtungAbsatz.OK
- FormatParagraph
- Kontext
- Active.SetPage TabAusrichtungAbsatz
- Kontext "TabAusrichtungAbsatz"
- if Rechts.IsChecked=False Then WarnLog " Button 'right' is not activated"
+ Rechts.Check
+ TabAusrichtungAbsatz.OK
+ FormatParagraph
+ Kontext
+ Active.SetPage TabAusrichtungAbsatz
+ Kontext "TabAusrichtungAbsatz"
+ if Rechts.IsChecked=False Then WarnLog " Button 'right' is not activated"
- Zentriert.Check
- TabAusrichtungAbsatz.OK
- FormatParagraph
- Kontext
- Active.SetPage TabAusrichtungAbsatz
- Kontext "TabAusrichtungAbsatz"
- if Zentriert.IsChecked=False Then WarnLog " Button 'center' is not activated"
+ Zentriert.Check
+ TabAusrichtungAbsatz.OK
+ FormatParagraph
+ Kontext
+ Active.SetPage TabAusrichtungAbsatz
+ Kontext "TabAusrichtungAbsatz"
+ if Zentriert.IsChecked=False Then WarnLog " Button 'center' is not activated"
- Blocksatz.Check
- TabAusrichtungAbsatz.OK
- FormatParagraph
- Kontext
- Active.SetPage TabAusrichtungAbsatz
- Kontext "TabAusrichtungAbsatz"
- if Blocksatz.IsChecked=False Then WarnLog " Button 'justified' is not activated"
- TabAusrichtungAbsatz.OK
+ Blocksatz.Check
+ TabAusrichtungAbsatz.OK
+ FormatParagraph
+ Kontext
+ Active.SetPage TabAusrichtungAbsatz
+ Kontext "TabAusrichtungAbsatz"
+ if Blocksatz.IsChecked=False Then WarnLog " Button 'justified' is not activated"
+ TabAusrichtungAbsatz.OK
- '/// call Format->Paragraph & set some values on 'tabs' ///'
- FormatParagraph
- Kontext
- Active.SetPage TabTabulator
- Kontext "TabTabulator"
- SetClipboard Position.GetItemCount
- Position.SetText "1"
- Neu.Click
- Position.SetText "2"
- Neu.Click
- Position.SetText "3"
- Neu.Click
- TabTabulator.OK
- FormatParagraph
- Kontext
- Active.SetPage TabTabulator
- Kontext "TabTabulator"
- if GetClipboardText + 3 = Position.GetItemCount Then PrintLog " positions added"
- Loeschen.Click
- if Position.GetItemCount="3" Then
- WarnLog " Delete does not work"
- else
- Printlog " TAll ran well in TabTabulator"
- end if
- TabTabulator.OK
+ FormatParagraph
+ Kontext
+ Active.SetPage TabTabulator
+ Kontext "TabTabulator"
+ SetClipboard Position.GetItemCount
+ Position.SetText "1"
+ Neu.Click
+ Position.SetText "2"
+ Neu.Click
+ Position.SetText "3"
+ Neu.Click
+ TabTabulator.OK
+ FormatParagraph
+ Kontext
+ Active.SetPage TabTabulator
+ Kontext "TabTabulator"
+ if GetClipboardText + 3 = Position.GetItemCount Then PrintLog " positions added"
+ Loeschen.Click
+ if Position.GetItemCount="3" Then
+ WarnLog " Delete does not work"
+ else
+ Printlog " TAll ran well in TabTabulator"
+ end if
+ TabTabulator.OK
- printlog "'/// - Reset states back to what they were before ///"'
- ToolsOptions
- hToolsOptions (gApplication,"General")
- Masseinheit.Select iTemp
- if ( Masseinheit.GetSelIndex <> iTemp ) then WarnLog "Unit of Measurement state were NOT changed back"
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
+ ToolsOptions
+ hToolsOptions (gApplication,"General")
+ Masseinheit.Select iTemp
+ if ( Masseinheit.GetSelIndex <> iTemp ) then WarnLog "Unit of Measurement state were NOT changed back"
+ Kontext "ExtrasOptionenDlg"
+ ExtrasOptionenDlg.OK
- '/// close application ///'
- Call hCloseDocument
+ Call hCloseDocument
endcase
diff --git a/testautomation/graphics/optional/includes/global/g_print.inc b/testautomation/graphics/optional/includes/global/g_print.inc
index 7339c105f3b2..21bad45dc420 100755
--- a/testautomation/graphics/optional/includes/global/g_print.inc
+++ b/testautomation/graphics/optional/includes/global/g_print.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
@@ -40,135 +40,125 @@
'\*************************************************************************************
testcase tFilePrint
- Call hNewDocument
-
- '/// Inserting test text
- printlog "Inserting testtext."
- hTextrahmenErstellen ("This is an automated print test with testtool for GRAPHICS ",90,90,80,10)
- hTextrahmenErstellen ("Version : "+ gVersionsnummer + " / " + gLanguage,80,90,70,10)
- hTextrahmenErstellen ("Date / Time : "+ Date + " / " + Time,70,90,60,10)
- hTextrahmenErstellen ("Machine / User: " + gPCName + " " + gUser,60,90,50,10)
-
- '/// starting printing dialog
- printlog "Opening print Dialog."
- FilePrint
- kontext
- if active.exists(2) then
- active.ok
- qaerrorlog "There is no printer available - please install one on your system!"
- endif
- sleep 2
- Kontext "DruckenDlg"
-
-
- ' Not yet active since this feature is not build into the master: i85355
- '/// Checking Options for impress, PrintContentBox
-' printlog "Checking options for impress..."
-' if (gApplication = "IMPRESS") then
-' if PrintContent.GetSelIndex <> 1 then
-' warnlog "Not first entry selected!"
-' else
-' printlog " First entry selected."
-' endif
-'
-' if PrintContent.GetItemCount <> 4 then
-' warnlog "Entry-number of PrintContent listbox is wrong!"
-' else
-' printlog "Entry-number of PrintContent listbox is 4."
-' endif
-'
-' '/// checking SlidesPerPage
-' PrintContent.Select 2
-' if SlidesPerPage.IsEnabled then
-' printlog "SlidesPerPage active."
-' else
-' warnlog "SlidesPerPage did not get active!"
-' endif
-'
-' '/// Checking Order RadioButtons
-' VerticalOrder.Check
-' printlog "Vertical checked."
-' HorizontalOrder.Check
-' printlog "Horizontal checked again."
-'
-' else
-' printlog "This is not impress, so no further print content testing."
-' endif
-
- '/// Opening options dialog
+ Call hNewDocument
+
+ printlog "Inserting testtext."
+ hTextrahmenErstellen ("This is an automated print test with testtool for GRAPHICS ",90,90,80,10)
+ hTextrahmenErstellen ("Version : "+ gVersionsnummer + " / " + gLanguage,80,90,70,10)
+ hTextrahmenErstellen ("Date / Time : "+ Date + " / " + Time,70,90,60,10)
+ hTextrahmenErstellen ("Machine / User: " + gPCName + " " + gUser,60,90,50,10)
+
+ printlog "Opening print Dialog."
+ FilePrint
+ kontext
+ if active.exists(2) then
+ active.ok
+ qaerrorlog "There is no printer available - please install one on your system!"
+ endif
+ sleep 2
+ Kontext "DruckenDlg"
+
+
+ ' Not yet active since this feature is not build into the master: i85355
+ ' printlog "Checking options for impress..."
+ ' if (gApplication = "IMPRESS") then
+ ' if PrintContent.GetSelIndex <> 1 then
+ ' warnlog "Not first entry selected!"
+ ' else
+ ' printlog " First entry selected."
+ ' endif
+ '
+ ' if PrintContent.GetItemCount <> 4 then
+ ' warnlog "Entry-number of PrintContent listbox is wrong!"
+ ' else
+ ' printlog "Entry-number of PrintContent listbox is 4."
+ ' endif
+ '
+ ' PrintContent.Select 2
+ ' if SlidesPerPage.IsEnabled then
+ ' printlog "SlidesPerPage active."
+ ' else
+ ' warnlog "SlidesPerPage did not get active!"
+ ' endif
+ '
+ ' VerticalOrder.Check
+ ' printlog "Vertical checked."
+ ' HorizontalOrder.Check
+ ' printlog "Horizontal checked again."
+ '
+ ' else
+ ' printlog "This is not impress, so no further print content testing."
+ ' endif
+
printlog "Opening Options dialog."
Zusaetze.Click
sleep 1
Kontext "DruckerZusaetzeDraw"
-
- '/// Checking brochure printing
+
printlog "Checking brochure printing."
if Prospekt.IsChecked then
warnlog "Somebody forgot to uncheck the prospect printing!"
- Standard.Check
+ Standard.Check
else
printlog "Brochure printing is checked."
endif
-
-
- '/// Checking additional options
+
+
Seitenname.Check
Datum.Check
Zeit.Check
AusgeblendeteSeiten.Check
SeitengroesseAnpassen.Check
AusDruckereinstellung.Check
-
- '/// Opening dialog again for checking settings
+
DruckerZusaetzeDraw.OK
Kontext "DruckenDlg"
Zusaetze.Click
sleep 2
Kontext "DruckerZusaetzeDraw"
- if NOT Seitenname.IsChecked Then
+ if NOT Seitenname.IsChecked Then
warnlog " - Page name not checked"
else
printlog "Page name checked."
endif
-
+
if NOT Datum.IsChecked Then
- warnlog " - Date not checked"
+ warnlog " - Date not checked"
else
printlog "Date is checked."
endif
-
+
if NOT Zeit.IsChecked Then
- warnlog " - Time not checked"
+ warnlog " - Time not checked"
else
printlog "Time is checked."
endif
-
+
if NOT AusgeblendeteSeiten.IsChecked Then
- warnlog " - Hidden pages not checked"
+ warnlog " - Hidden pages not checked"
else
printlog "Hidden pages checked."
endif
-
+
if NOT SeitengroesseAnpassen.IsChecked Then
- warnlog " - Fit to page not checked"
+ warnlog " - Fit to page not checked"
else
printlog "Fit to page checked."
endif
-
+
if NOT AusDruckereinstellung.IsChecked Then
- warnlog " - Paper tray from printer settings not checked"
+ warnlog " - Paper tray from printer settings not checked"
else
printlog "Paper tray checked."
endif
-
+
AusDruckereinstellung.UnCheck
Standard.Check
DruckerZusaetzeDraw.OK
Kontext "DruckenDlg"
DruckenDlg.Cancel
Sleep 5
-
- '/// Close document ///'
+
Call hCloseDocument
endcase
diff --git a/testautomation/graphics/optional/includes/global/g_savepictureas.inc b/testautomation/graphics/optional/includes/global/g_savepictureas.inc
index 240c7355da1a..6192338dbf9b 100755
--- a/testautomation/graphics/optional/includes/global/g_savepictureas.inc
+++ b/testautomation/graphics/optional/includes/global/g_savepictureas.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
@@ -43,773 +43,717 @@
'\***********************************************************************
testcase tContextSaveAsPicture
- Dim Counter as integer
- Dim CounterShouldBe as integer
- Dim SavedOrgPosition as integer
- Dim i as integer
- Dim q as integer
- Dim iFileSize(50) as Long
- Dim FileList(50) as String
- Dim FileList2(50) as string
- Dim Filesize1 as Long
- Dim Filesize2 as Long
- Dim Filename, LastFilterName as String
- Dim Filetype as String
- Dim OrgFile as String
- Dim NewFile as String
- Dim OrgFileDir as String
- Dim NewFileDir as String
- Dim Testsize as Boolean
-
- OrgFileDir = ConvertPath ( gTesttoolPath + "graphics\required\input\SaveAsPicture\" )
- NewFileDir = ConvertPath ( gOfficePath + "user\work\SaveAsPicture\" )
-
- '/// Create directory if not exists and delete the content ///'
+ Dim Counter as integer
+ Dim CounterShouldBe as integer
+ Dim SavedOrgPosition as integer
+ Dim i as integer
+ Dim q as integer
+ Dim iFileSize(50) as Long
+ Dim FileList(50) as String
+ Dim FileList2(50) as string
+ Dim Filesize1 as Long
+ Dim Filesize2 as Long
+ Dim Filename, LastFilterName as String
+ Dim Filetype as String
+ Dim OrgFile as String
+ Dim NewFile as String
+ Dim OrgFileDir as String
+ Dim NewFileDir as String
+ Dim Testsize as Boolean
+
+ OrgFileDir = ConvertPath ( gTesttoolPath + "graphics\required\input\SaveAsPicture\" )
+ NewFileDir = ConvertPath ( gOfficePath + "user\work\SaveAsPicture\" )
+
app.mkDir (NewFileDir)
sleep 3
FileList2(0) = 0
GetFileList ((ConvertPath (NewFileDir)), "*.*" , FileList2() )
sleep 1
if (KillFileList (FileList2()) <> TRUE) then
- for i = 1 to ListCount2 (FileList2())
- Warnlog "File Not deleted: " + i + ": '" + FileList2(i) + "'"
- next i
+ for i = 1 to ListCount2 (FileList2())
+ Warnlog "File Not deleted: " + i + ": '" + FileList2(i) + "'"
+ next i
endif
- '/// Open a new Draw or Impress doc. ///'
Call hNewDocument
setClipboard(" ")
sleep 2
- '/// Insert->Graphic From File ///'
InsertGraphicsFromFile
Kontext "GrafikEinfuegenDlg"
Counter = Dateityp.GetItemCount
- '/// Go to directory ///'
Pfad.SetText OrgFileDir
Pfad.TypeKeys ("<Return>")
Kontext "Active"
if Active.Exists then
- warnlog "Error when going to the directory " + OrgFileDir + ". Active: " + Active.GetText
- Active.OK
+ warnlog "Error when going to the directory " + OrgFileDir + ". Active: " + Active.GetText
+ Active.OK
endif
Kontext "GrafikEinfuegenDlg"
- '/// Check how many File-Formats the dialouge has. If zero, write warning into the log. ///'
if Dateityp.GetItemCount > 0 then
- Printlog "The ImportGraphic-Dialogue has " + Dateityp.GetItemCount + " File-types."
+ Printlog "The ImportGraphic-Dialogue has " + Dateityp.GetItemCount + " File-types."
else
- Warnlog "The ImportGraphic-Dialogue doesn't have any File-types listed"
+ Warnlog "The ImportGraphic-Dialogue doesn't have any File-types listed"
endif
- '/// Check that other Formats are visible and can be selected ///'
for i = 2 to Dateityp.GetItemCount 'Get the number of entries.
Printlog " *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* "
- '/// Go to the directory with the original-files ///'
Pfad.SetText OrgFileDir
Pfad.TypeKeys ("<Return>")
Kontext "Active"
if Active.Exists then
- warnlog "Error when going to the directory " + OrgFileDir + ". Active: " + Active.GetText
- Active.OK
+ warnlog "Error when going to the directory " + OrgFileDir + ". Active: " + Active.GetText
+ Active.OK
endif
Kontext "GrafikEinfuegenDlg"
if Dateityp.GetItemCount < 1 then
- Warnlog "Only one or none selectable fileformats."
+ Warnlog "Only one or none selectable fileformats."
endif
Dateityp.Select i
Filetype = Dateityp.GetSelText
Filetype = left(Right(Dateityp.GetSelText,4),3)
- '/// Choose the first file-format available in the dialogue ///'
- DateiAuswahl.TypeKeys "<END>"
- DateiAuswahl.TypeKeys "<SPACE>"
- if DateiAuswahl.GetItemCount < 1 then
+ DateiAuswahl.TypeKeys "<END>"
+ DateiAuswahl.TypeKeys "<SPACE>"
+ if DateiAuswahl.GetItemCount < 1 then
warnlog "The file with the extension " + Filetype + " does not exist. Please inform FHA."
- else
- printlog "Selected: " + DateiAuswahl.GetSelText
- '/// Choose the existing file. Check the size ///'
- Filename = Dateiname.GetSelText
- OrgFile = ConvertPath (OrgFileDir + Dateiname.GetSelText)
- printlog " File is: " + OrgFile
-
- iFileSize(i) = app.FileLen(OrgFile)
- printlog " The filesize was: " + iFileSize(i)
-
- '/// Check if there are any other file of the same kind ///'
- DateiAuswahl.TypeKeys "<DOWN>",true
- if DateiAuswahl.GetSelText <> Filename then
+ else
+ printlog "Selected: " + DateiAuswahl.GetSelText
+ Filename = Dateiname.GetSelText
+ OrgFile = ConvertPath (OrgFileDir + Dateiname.GetSelText)
+ printlog " File is: " + OrgFile
+
+ iFileSize(i) = app.FileLen(OrgFile)
+ printlog " The filesize was: " + iFileSize(i)
+
+ DateiAuswahl.TypeKeys "<DOWN>",true
+ if DateiAuswahl.GetSelText <> Filename then
warnlog "More than one file with the same extension. Contact Test-Administrator."
- endif
+ endif
- '/// If "Link" is checked: Uncheck it and press "Open". ///'
- if Link.IsChecked = true then
+ if Link.IsChecked = true then
Link.UnCheck
- endif
+ endif
- '/// If file exist: Press "Open". ///'
- Oeffnen.Click
+ Oeffnen.Click
- '/// Select all ///'
- if (gApplication = "IMPRESS") then
+ if (gApplication = "IMPRESS") then
Kontext "DocumentImpress"
- else
+ else
Kontext "DocumentDraw"
- endif
- EditSelectall
-
- '/// Check Context-entry for the marked object ///'
- '/// The context menu must contain the "save as picture..." entry at 4th position from bottom. (Check it) ///'
- '/// Use the Context-Menu 'Save As Picture' ///'
- hOpenContextMenu
- if (gApplication = "IMPRESS") then
+ endif
+ EditSelectall
+
+ hOpenContextMenu
+ if (gApplication = "IMPRESS") then
Kontext "DocumentImpress"
DocumentImpress.OpenContextMenu true
WaitSlot(1000)
- if hMenuFindSelect(27353, true, (MenuGetItemCount - 4), true) = false then
- Warnlog "Context-Menu-entry `SaveAsGraphics` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
+ if hMenuFindSelect(27353, true, (MenuGetItemCount - 4), true) = false then
+ Warnlog "Context-Menu-entry `SaveAsGraphics` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
endif
- else 'Should be Draw
+ else 'Should be Draw
Kontext "DocumentDraw"
DocumentDraw.OpenContextMenu true
WaitSlot(1000)
if hMenuFindSelect(27353, true, (MenuGetItemCount - 4), true) = false then
- Warnlog "Context-Menu-entry `SaveAsGraphics` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
+ Warnlog "Context-Menu-entry `SaveAsGraphics` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
endif
- endif
- sleep 1
+ endif
+ sleep 1
- Kontext "ExportierenDlg"
- if ExportierenDlg.IsVisible then
+ Kontext "ExportierenDlg"
+ if ExportierenDlg.IsVisible then
Printlog " 'Save As Picture' came up correctly when using the Context-menu."
- endif
-
- '/// The Dialogue should now be open ///'
- Kontext "ExportierenDlg" 'SaveAsDialogue
-
- Testsize = false
- SavedOrgPosition = Dateityp.GetSelIndex
- select case left(lcase(Dateityp.GetSelText),3) 'Filetype
- case "png" : if (Filetype = "png") OR (Filetype = "psd") OR (Filetype = "pcx") OR (Filetype = "xbm") OR (Filetype = "ras") OR (Filetype = "pbm") OR (Filetype = "pcd") OR (Filetype = "pgm") OR (Filetype = "bmp") OR (Filetype = "ppm") OR (Filetype = "sgf") OR (Filetype = "xpm") OR (Filetype = "tga") then
- printlog " " + Filetype + " will be saved as png, correct."
- CounterShouldBe = 17
- else
- warnlog "Png should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "svm" : if (Filetype = "svm") OR (Filetype = "dxf") OR (Filetype = "eps") OR (Filetype = "sgv") then
- printlog " " + Filetype + " will be saved as Svm, correct."
- CounterShouldBe = 17
- else
- warnlog "Svm should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "wmf" : if (Filetype = "wmf") OR (Filetype = "emf") then
- printlog " " + Filetype + " will be saved as Wmf, correct."
- CounterShouldBe = 17
- if Filetype = "wmf" then Testsize = true
- else
- warnlog "Wmf should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "jpe" : if (Filetype = "jpg") OR Filetype = "jif" OR Filetype = "peg" then
- printlog " " + Filetype + " will be saved as Jpg, correct."
- CounterShouldBe = 17
- if Filetype = "jpg" then Testsize = true
- else
- warnlog "Jpg should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "tif" : if Filetype = "tif" OR Filetype = "iff" then
- printlog " " + Filetype + " will be saved as Tiff, correct."
- CounterShouldBe = 17
- if Filetype = "tif" then Testsize = true
- else
- warnlog "Tif should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "sgf" : if (Filetype = "sgv") OR (Filetype = "sgf") then
- printlog " " + Filetype + " will be saved as Sgf, correct."
- CounterShouldBe = 17
- if Filetype = "sgf" then Testsize = true
- else
- warnlog "Sgf should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "gif" : if (Filetype = "gif") then
- printlog " " + Filetype + " will be saved as Gif, correct."
- CounterShouldBe = 17
- if Filetype = "gif" then Testsize = true
- else
- warnlog "Gif should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "met" : if (Filetype = "met") then
- printlog " " + Filetype + " will be saved as Met, correct."
- CounterShouldBe = 17
- if Filetype = "met" then Testsize = true
- else
- warnlog "Met should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "pct" : if (Filetype = "pct") OR (Filetype = "ict") then
- printlog " " + Filetype + " will be saved as Pct, correct."
- CounterShouldBe = 17
- if Filetype = "pct" then Testsize = true
- else
- warnlog "Pct should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case else : qaerrorlog " The test has not yet been fitted for this format ( " + Filetype + "). Contact FHA."
- '/// Check the size ///'
- printlog " But will be saved as: " + left(lcase(Dateityp.GetSelText),3)
- CounterShouldBe = 18
- Testsize = true
- end select
-
- '..........................................................................................................................'
-
- '/// Check if all other formats are there, and if they are selectable. ///'
- Dateityp.TypeKeys "<HOME>"
- if (Dateityp.GetItemCount) = CounterShouldBe then 'Counter - 10
- for q = 1 to CounterShouldBe - 1
- LastFilterName = Dateityp.GetSelIndex
- Dateityp.TypeKeys "<DOWN>"
- if Dateityp.GetSelIndex = LastFilterName then
- warnlog " Check the export-filters when trying to save a " + Filename + "-file. Exiting test."
- goto endsub
- endif
- next q
- else
- warnlog "Dateityp.GetItemCount = " + (Dateityp.GetItemCount) + " CounterShouldBe = " + CounterShouldBe
- endif
+ endif
- Dateityp.Select SavedOrgPosition
-
- '/// Save the file as the same name and file-type, as it was opened ///'
- Dateiname.SetText ( NewFileDir )
- Dateiname.TypeKeys ("<Return>")
-
- kontext "Active"
- if Active.Exists then 'Could not find directory.
- warnlog "Error when going to the directory " + NewFileDir + ". Active: " + Active.GetText
- warnlog "ABORTING TESTCASE. PLEASE INFORM TESTPROGRAMMER."
- Active.OK
- kontext "GrafikEinfuegenDlg"
- GrafikEinfuegenDlg.Close
- goto Endsub
- endif
- Kontext "ExportierenDlg"
-
- sleep 1
- Dateiname.SetText ConvertPath ( NewFileDir + "SaveAsPicture")
- NewFile = ConvertPath ( NewFileDir + "SaveAsPicture" + "." + left(lcase(Dateityp.GetSelText),3) )
- Dateiname.TypeKeys ("<Return>")
- Kontext "Active"
- if Active.Exists then 'either could not find directory, or overwrite.
- Active.Yes ' Overwrite?
- endif
-
- '/// IF it was saved in the same format as it was opened as,
- '/// compare the size of the old and the new file ///'
- '/// The selected picture must get exported without compression if the default is the same as the inserted picture. ///'
- '/// It must have the same size as the original. ///'
- if Testsize = true then
- if NewFile <> "" then
- Filesize1 = iFileSize(i)
- printlog " Saved file-size was: " + app.FileLen(NewFile)
- Filesize2 = app.FileLen(NewFile)
- endif
- endif
+ Kontext "ExportierenDlg" 'SaveAsDialogue
- if (Testsize = true) then
- if (Filesize1 < (Filesize2*0.95)) OR (Filesize1 > (Filesize2*1.05)) then
- warnlog "Format '" + right(NewFile,3) + "' was NOT saved properly. Org-Size: '" + Filesize1 + "' Saved-Size: '" + Filesize2 + "'."
- else
- printlog " The Format '" + right(NewFile,3) + "' was saved correctly."
- endif
+ Testsize = false
+ SavedOrgPosition = Dateityp.GetSelIndex
+ select case left(lcase(Dateityp.GetSelText),3) 'Filetype
+ case "png" : if (Filetype = "png") OR (Filetype = "psd") OR (Filetype = "pcx") OR (Filetype = "xbm") OR (Filetype = "ras") OR (Filetype = "pbm") OR (Filetype = "pcd") OR (Filetype = "pgm") OR (Filetype = "bmp") OR (Filetype = "ppm") OR (Filetype = "sgf") OR (Filetype = "xpm") OR (Filetype = "tga") then
+ printlog " " + Filetype + " will be saved as png, correct."
+ CounterShouldBe = 17
+ else
+ warnlog "Png should not have been selected when we opened a '" + Filetype + "'-file."
endif
- '/// Remove all in the Document. (Impress/Draw) ///'
- if (gApplication = "IMPRESS") then
- Kontext "DocumentImpress"
- else
- Kontext "DocumentDraw"
- endif
- hTypeKeys "<DELETE>"
- '/// Open the next file via Insert->Graphics From File ///'
- call hCloseDocument
- call hNewDocument
- InsertGraphicsFromFile
- Kontext "GrafikEinfuegenDlg"
- if GrafikEinfuegenDlg.exists(5) then
- printlog " The Insertgraphics-dialogue showed up correctly."
- sleep (5)
- else
- warnlog " The Insertgraphics-dialogue didn't show up."
- endif
- endif
- next i
- GrafikEinfuegenDlg.Close
-
- '/// When everything is finished, delete the content in the created directory. ///'
- GetFileList (NewFileDir, "*.*" , FileList() )
+ case "svm" : if (Filetype = "svm") OR (Filetype = "dxf") OR (Filetype = "eps") OR (Filetype = "sgv") then
+ printlog " " + Filetype + " will be saved as Svm, correct."
+ CounterShouldBe = 17
+ else
+ warnlog "Svm should not have been selected when we opened a '" + Filetype + "'-file."
+ endif
+ case "wmf" : if (Filetype = "wmf") OR (Filetype = "emf") then
+ printlog " " + Filetype + " will be saved as Wmf, correct."
+ CounterShouldBe = 17
+ if Filetype = "wmf" then Testsize = true
+ else
+ warnlog "Wmf should not have been selected when we opened a '" + Filetype + "'-file."
+ endif
+ case "jpe" : if (Filetype = "jpg") OR Filetype = "jif" OR Filetype = "peg" then
+ printlog " " + Filetype + " will be saved as Jpg, correct."
+ CounterShouldBe = 17
+ if Filetype = "jpg" then Testsize = true
+ else
+ warnlog "Jpg should not have been selected when we opened a '" + Filetype + "'-file."
+ endif
+ case "tif" : if Filetype = "tif" OR Filetype = "iff" then
+ printlog " " + Filetype + " will be saved as Tiff, correct."
+ CounterShouldBe = 17
+ if Filetype = "tif" then Testsize = true
+ else
+ warnlog "Tif should not have been selected when we opened a '" + Filetype + "'-file."
+ endif
+ case "sgf" : if (Filetype = "sgv") OR (Filetype = "sgf") then
+ printlog " " + Filetype + " will be saved as Sgf, correct."
+ CounterShouldBe = 17
+ if Filetype = "sgf" then Testsize = true
+ else
+ warnlog "Sgf should not have been selected when we opened a '" + Filetype + "'-file."
+ endif
+ case "gif" : if (Filetype = "gif") then
+ printlog " " + Filetype + " will be saved as Gif, correct."
+ CounterShouldBe = 17
+ if Filetype = "gif" then Testsize = true
+ else
+ warnlog "Gif should not have been selected when we opened a '" + Filetype + "'-file."
+ endif
+ case "met" : if (Filetype = "met") then
+ printlog " " + Filetype + " will be saved as Met, correct."
+ CounterShouldBe = 17
+ if Filetype = "met" then Testsize = true
+ else
+ warnlog "Met should not have been selected when we opened a '" + Filetype + "'-file."
+ endif
+ case "pct" : if (Filetype = "pct") OR (Filetype = "ict") then
+ printlog " " + Filetype + " will be saved as Pct, correct."
+ CounterShouldBe = 17
+ if Filetype = "pct" then Testsize = true
+ else
+ warnlog "Pct should not have been selected when we opened a '" + Filetype + "'-file."
+ endif
+ case else : qaerrorlog " The test has not yet been fitted for this format ( " + Filetype + "). Contact FHA."
+ printlog " But will be saved as: " + left(lcase(Dateityp.GetSelText),3)
+ CounterShouldBe = 18
+ Testsize = true
+ end select
+
+ '..........................................................................................................................'
+
+ Dateityp.TypeKeys "<HOME>"
+ if (Dateityp.GetItemCount) = CounterShouldBe then 'Counter - 10
+ for q = 1 to CounterShouldBe - 1
+ LastFilterName = Dateityp.GetSelIndex
+ Dateityp.TypeKeys "<DOWN>"
+ if Dateityp.GetSelIndex = LastFilterName then
+ warnlog " Check the export-filters when trying to save a " + Filename + "-file. Exiting test."
+ goto endsub
+ endif
+ next q
+ else
+ warnlog "Dateityp.GetItemCount = " + (Dateityp.GetItemCount) + " CounterShouldBe = " + CounterShouldBe
+ endif
+
+ Dateityp.Select SavedOrgPosition
+
+ Dateiname.SetText ( NewFileDir )
+ Dateiname.TypeKeys ("<Return>")
+
+ kontext "Active"
+ if Active.Exists then 'Could not find directory.
+ warnlog "Error when going to the directory " + NewFileDir + ". Active: " + Active.GetText
+ warnlog "ABORTING TESTCASE. PLEASE INFORM TESTPROGRAMMER."
+ Active.OK
+ kontext "GrafikEinfuegenDlg"
+ GrafikEinfuegenDlg.Close
+ goto Endsub
+ endif
+ Kontext "ExportierenDlg"
+
sleep 1
- if (KillFileList (FileList()) <> TRUE) then
- for i = 1 to ListCount (FileList())
- Warnlog "File Not deleted: " + i + ": '" + FileList(i) + "'"
- next i
+ Dateiname.SetText ConvertPath ( NewFileDir + "SaveAsPicture")
+ NewFile = ConvertPath ( NewFileDir + "SaveAsPicture" + "." + left(lcase(Dateityp.GetSelText),3) )
+ Dateiname.TypeKeys ("<Return>")
+ Kontext "Active"
+ if Active.Exists then 'either could not find directory, or overwrite.
+ Active.Yes ' Overwrite?
+ endif
+
+ if Testsize = true then
+ if NewFile <> "" then
+ Filesize1 = iFileSize(i)
+ printlog " Saved file-size was: " + app.FileLen(NewFile)
+ Filesize2 = app.FileLen(NewFile)
+ endif
+ endif
+
+ if (Testsize = true) then
+ if (Filesize1 < (Filesize2*0.95)) OR (Filesize1 > (Filesize2*1.05)) then
+ warnlog "Format '" + right(NewFile,3) + "' was NOT saved properly. Org-Size: '" + Filesize1 + "' Saved-Size: '" + Filesize2 + "'."
+ else
+ printlog " The Format '" + right(NewFile,3) + "' was saved correctly."
+ endif
+ endif
+ if (gApplication = "IMPRESS") then
+ Kontext "DocumentImpress"
+ else
+ Kontext "DocumentDraw"
+ endif
+ hTypeKeys "<DELETE>"
+ call hCloseDocument
+ call hNewDocument
+ InsertGraphicsFromFile
+ Kontext "GrafikEinfuegenDlg"
+ if GrafikEinfuegenDlg.exists(5) then
+ printlog " The Insertgraphics-dialogue showed up correctly."
+ sleep (5)
+ else
+ warnlog " The Insertgraphics-dialogue didn't show up."
endif
- Printlog "The test will exit now."
- Sleep 1
- '/// close application ///'
- Call hCloseDocument
+endif
+next i
+GrafikEinfuegenDlg.Close
+
+GetFileList (NewFileDir, "*.*" , FileList() )
+sleep 1
+if (KillFileList (FileList()) <> TRUE) then
+for i = 1 to ListCount (FileList())
+ Warnlog "File Not deleted: " + i + ": '" + FileList(i) + "'"
+next i
+endif
+Printlog "The test will exit now."
+Sleep 1
+Call hCloseDocument
endcase 'tContextSaveAsPicture
'--------------------------------------------------------------------------------------
-'/// When the graphics are not embedded but inserted as link ///' - TODO FHA.
'(Different behaviour = new testcase)
testcase tContextSavePictureLinkAsPicture
- Dim Counter as integer
- Dim CounterShouldBe as integer
- Dim SavedOrgPosition as integer
- Dim LastFilterName as String
- Dim i as integer
- Dim q as integer
- Dim iFileSize(50) as Long
- Dim FileList(50) as String
- Dim FileList2(50) as string
- Dim Filesize1 as Long
- Dim Filesize2 as Long
- Dim Filename as String
- Dim Filetype as String
- Dim SavedFileType as String
- Dim OrgFile as String
- Dim NewFile as String
- Dim OrgFileDir as String
- Dim NewFileDir as String
- Dim Testsize as Boolean
- Dim Found as Boolean
-
- OrgFileDir = ConvertPath ( gTesttoolPath + "graphics\required\input\SaveAsPicture\" )
- NewFileDir = ConvertPath ( gOfficePath + "user\work\SaveAsPicture\" )
-
- '/// Create directory if not exists and delete the content ///'
+ Dim Counter as integer
+ Dim CounterShouldBe as integer
+ Dim SavedOrgPosition as integer
+ Dim LastFilterName as String
+ Dim i as integer
+ Dim q as integer
+ Dim iFileSize(50) as Long
+ Dim FileList(50) as String
+ Dim FileList2(50) as string
+ Dim Filesize1 as Long
+ Dim Filesize2 as Long
+ Dim Filename as String
+ Dim Filetype as String
+ Dim SavedFileType as String
+ Dim OrgFile as String
+ Dim NewFile as String
+ Dim OrgFileDir as String
+ Dim NewFileDir as String
+ Dim Testsize as Boolean
+ Dim Found as Boolean
+
+ OrgFileDir = ConvertPath ( gTesttoolPath + "graphics\required\input\SaveAsPicture\" )
+ NewFileDir = ConvertPath ( gOfficePath + "user\work\SaveAsPicture\" )
+
app.mkDir (NewFileDir)
sleep 3
FileList2(0) = 0
GetFileList ((ConvertPath (NewFileDir)), "*.*" , FileList2() )
sleep 1
if (KillFileList (FileList2()) <> TRUE) then
- for i = 1 to ListCount2 (FileList2())
- Warnlog "File Not deleted: " + i + ": '" + FileList2(i) + "'"
- next i
+ for i = 1 to ListCount2 (FileList2())
+ Warnlog "File Not deleted: " + i + ": '" + FileList2(i) + "'"
+ next i
endif
- '/// Open a new Draw or Impress doc. ///'
Call hNewDocument
setClipboard(" ")
sleep 2
- '/// Insert->Graphic From File ///'
InsertGraphicsFromFile
Kontext "GrafikEinfuegenDlg"
Counter = Dateityp.GetItemCount
- '/// Go to directory ///'
Pfad.SetText OrgFileDir
Pfad.TypeKeys ("<Return>")
Kontext "Active"
if Active.Exists then
- warnlog "Error when going to the directory " + OrgFileDir + ". Active: " + Active.GetText
- Active.OK
+ warnlog "Error when going to the directory " + OrgFileDir + ". Active: " + Active.GetText
+ Active.OK
endif
Kontext "GrafikEinfuegenDlg"
- '/// Check how many File-Formats the dialouge has. If zero, write warning into the log. ///'
if Dateityp.GetItemCount > 0 then
- Printlog "The ImportGraphic-Dialogue has " + Dateityp.GetItemCount + " File-types."
+ Printlog "The ImportGraphic-Dialogue has " + Dateityp.GetItemCount + " File-types."
else
- Warnlog "The ImportGraphic-Dialogue doesn't have any File-types listed"
+ Warnlog "The ImportGraphic-Dialogue doesn't have any File-types listed"
endif
- '/// Check that other Formats are visible and can be selected ///'
for i = 2 to Dateityp.GetItemCount 'Get the number of entries.
Printlog " *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* "
- '/// Go to the directory with the original-files ///'
Pfad.SetText OrgFileDir
Pfad.TypeKeys ("<Return>")
Kontext "Active"
if Active.Exists then
- warnlog "Error when going to the directory " + OrgFileDir + ". Active: " + Active.GetText
- Active.OK
+ warnlog "Error when going to the directory " + OrgFileDir + ". Active: " + Active.GetText
+ Active.OK
endif
Kontext "GrafikEinfuegenDlg"
if Dateityp.GetItemCount < 1 then
- Warnlog "Only one or none selectable fileformats."
+ Warnlog "Only one or none selectable fileformats."
endif
Dateityp.Select i
Filetype = Dateityp.GetSelText
printlog " orginal: " + Dateityp.GetSelText
Filetype = left(Right(Dateityp.GetSelText,4),3)
- '/// Choose the first file-format available in the dialogue ///'
- DateiAuswahl.TypeKeys "<END>"
- DateiAuswahl.TypeKeys "<SPACE>"
- if DateiAuswahl.GetItemCount < 1 then
+ DateiAuswahl.TypeKeys "<END>"
+ DateiAuswahl.TypeKeys "<SPACE>"
+ if DateiAuswahl.GetItemCount < 1 then
warnlog "The file with the extension " + Filetype + " does not exist. Please inform FHA."
- else
- printlog " Selected: " + DateiAuswahl.GetSelText
- '/// Choose the existing file. Check the size ///'
- Filename = Dateiname.GetSelText
- OrgFile = ConvertPath (OrgFileDir + Dateiname.GetSelText)
- printlog " File is: " + OrgFile
-
- iFileSize(i) = app.FileLen(OrgFile)
- printlog " The filesize was: " + iFileSize(i)
-
- '/// Check if there are any other file of the same kind ///'
- DateiAuswahl.TypeKeys "<DOWN>",true
- if DateiAuswahl.GetSelText <> Filename then
+ else
+ printlog " Selected: " + DateiAuswahl.GetSelText
+ Filename = Dateiname.GetSelText
+ OrgFile = ConvertPath (OrgFileDir + Dateiname.GetSelText)
+ printlog " File is: " + OrgFile
+
+ iFileSize(i) = app.FileLen(OrgFile)
+ printlog " The filesize was: " + iFileSize(i)
+
+ DateiAuswahl.TypeKeys "<DOWN>",true
+ if DateiAuswahl.GetSelText <> Filename then
warnlog "More than one file with the same extension. Contact Test-Administrator."
- endif
+ endif
- '/// If file exist: Check "Link" and press "Open". ///'
- if Link.IsChecked <> true then
+ if Link.IsChecked <> true then
Link.Check
- endif
- Oeffnen.Click
+ endif
+ Oeffnen.Click
- '/// Select all ///'
- if (gApplication = "IMPRESS") then
+ if (gApplication = "IMPRESS") then
Kontext "DocumentImpress"
- else
+ else
Kontext "DocumentDraw"
- endif
- EditSelectall
-
- '/// Check Context-entry for the marked object ///'
- '/// The context menu must contain the "save as picture..." entry at 4th position from bottom. (Check it) ///'
- '/// Use the Context-Menu 'Save As Picture' ///'
- hOpenContextMenu
- if (gApplication = "IMPRESS") then
+ endif
+ EditSelectall
+
+ hOpenContextMenu
+ if (gApplication = "IMPRESS") then
Kontext "DocumentImpress"
DocumentImpress.OpenContextMenu true
if hMenuFindSelect(27353, true, (MenuGetItemCount - 4), true) = false then
- Warnlog "Context-Menu-entry `SaveAsGraphics` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
+ Warnlog "Context-Menu-entry `SaveAsGraphics` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
endif
- else 'Should be Draw
+ else 'Should be Draw
Kontext "DocumentDraw"
DocumentDraw.OpenContextMenu true
if hMenuFindSelect(27353, true, (MenuGetItemCount - 4), false) = false then
- Warnlog "Context-Menu-entry `SaveAsGraphics` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
+ Warnlog "Context-Menu-entry `SaveAsGraphics` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
endif
- endif
- sleep 1
+ endif
+ sleep 1
- Kontext "ExportierenDlg"
- if ExportierenDlg.IsVisible then
+ Kontext "ExportierenDlg"
+ if ExportierenDlg.IsVisible then
Printlog " 'Save As Picture' came up correctly when using the Context-menu."
- endif
-
- '/// The Dialogue should now be open ///'
- Kontext "ExportierenDlg" 'SaveAsDialogue
-
- Testsize = false
- Found = true
- SavedOrgPosition = Dateityp.GetSelIndex
- select case left(lcase(Dateityp.GetSelText),3) 'Filetype
- case "png" : if (Filetype = "png") then
- printlog " " + Filetype + " will be saved as png, correct."
- SavedFileType = "png"
- Testsize = true
- CounterShouldBe = 17
- else
- warnlog "Png should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "pcx" : if(Filetype = "pcx") then
- printlog " " + Filetype + " will be saved as pcx, correct."
- SavedFileType = "pcx"
- Testsize = true
- CounterShouldBe = 18
- else
- warnlog "Png should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "xbm" : if (Filetype = "xbm") then
- printlog " " + Filetype + " will be saved as xbm, correct."
- SavedFileType = "xbm"
- Testsize = true
- CounterShouldBe = 18
- else
- warnlog "xbm should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "xpm" : if (Filetype = "xpm") then
- printlog " " + Filetype + " will be saved as Xpm, correct."
- SavedFileType = "xpm"
- Testsize = true
- CounterShouldBe = 17
- else
- warnlog "xpm should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "svm" : if (Filetype = "svm") then
- printlog " " + Filetype + " will be saved as Svm, correct."
- SavedFileType = "svm"
- if (Filetype = "svm") then Testsize = true
- CounterShouldBe = 17
- else
- warnlog "Svm should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "tga" : if (Filetype = "tga") then
- printlog " " + Filetype + " will be saved as Svm, correct."
- SavedFileType = "tga"
- if (Filetype = "tga") then Testsize = true
- CounterShouldBe = 18
- else
- warnlog "Tga should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "bmp" : if (Filetype = "bmp") then
- printlog " " + Filetype + " will be saved as Bmp, correct."
- SavedFileType = "bmp"
- Testsize = true
- CounterShouldBe = 17
- else
- warnlog "Bmp should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "ppm" : if (Filetype = "ppm") then
- printlog " " + Filetype + " will be saved as Bmp, correct."
- SavedFileType = "ppm"
- if Filetype = "ppm" then Testsize = true
- CounterShouldBe = 17
- else
- warnlog "Ppm should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "eps" : if (Filetype = "eps") then
- printlog " " + Filetype + " will be saved as Eps, correct."
- SavedFileType = "eps"
- if Filetype = "eps" then Testsize = true
- CounterShouldBe = 17
- else
- warnlog "Eps should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "pgm" : if (Filetype = "pgm") then
- printlog " " + Filetype + " will be saved as Pgm, correct."
- SavedFileType = "pgm"
- if Filetype = "pgm" then Testsize = true
- CounterShouldBe = 17
- else
- warnlog "Pgm should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "dxf" : if (Filetype = "dxf") then
- printlog " " + Filetype + " will be saved as Dxf, correct."
- SavedFileType = "dxf"
- if Filetype = "dxf" then Testsize = true
- CounterShouldBe = 18
- else
- warnlog "Dxf should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "pbm" : if (Filetype = "pbm") then
- printlog " " + Filetype + " will be saved as Pbm, correct."
- SavedFileType = "pbm"
- if Filetype = "pbm" then Testsize = true
- CounterShouldBe = 17
- else
- warnlog "Pbm should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "ras" : if (Filetype = "ras") then
- printlog " " + Filetype + " will be saved as Ras, correct."
- SavedFileType = "ras"
- if Filetype = "ras" then Testsize = true
- CounterShouldBe = 17
- else
- warnlog "Ras should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "wmf" : if (Filetype = "wmf") or (Filetype = "emf") then
- printlog " " + Filetype + " will be saved as Wmf, correct."
- SavedFileType = "wmf"
- if Filetype = "wmf" then Testsize = true
- CounterShouldBe = 17
- else
- warnlog "Wmf should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "emf" : if (Filetype = "emf") then
- printlog " " + Filetype + " will be saved as Wmf, correct."
- SavedFileType = "emf"
- Testsize = true
- CounterShouldBe = 17
- else
- qaerrorlog "Wmf should not have been selected when we opened a '" + Filetype + "'-file. #i95364#"
- endif
- case "jpe" : if (Filetype = "jpg") OR Filetype = "jif" OR Filetype = "peg" then
- printlog " " + Filetype + " will be saved as Jpg, correct."
- SavedFileType = "jpg"
- Testsize = true
- CounterShouldBe = 17
- else
- warnlog "Jpg should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "tif" : if Filetype = "tif" OR Filetype = "iff" then
- printlog " " + Filetype + " will be saved as Tiff, correct."
- SavedFileType = "tif"
- Testsize = true
- CounterShouldBe = 17
- else
- warnlog "Tif should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "sgf" : if (Filetype = "sgf") OR (Filetype = "sgv") then 'sgf
- printlog " " + Filetype + " will be saved as Sgf, correct."
- SavedFileType = "sgf"
- Testsize = true
- CounterShouldBe = 18
- else
- warnlog "Sgf should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "gif" : if (Filetype = "gif") then
- SavedFileType = "gif"
- printlog " " + Filetype + " will be saved as Gif, correct."
- if Filetype = "gif" then Testsize = true
- CounterShouldBe = 17
- else
- warnlog "Gif should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "met" : if (Filetype = "met") then
- printlog " " + Filetype + " will be saved as Met, correct."
- SavedFileType = "met"
- if Filetype = "met" then Testsize = true
- CounterShouldBe = 17
- else
- warnlog "Met should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "pct" : if (Filetype = "pct") OR (Filetype = "ict") then
- printlog " " + Filetype + " will be saved as Pct, correct."
- SavedFileType = "pct"
- if Filetype = "pct" then Testsize = true
- CounterShouldBe = 17
- else
- warnlog "Pct should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "pcd" : if (Filetype = "pcd") then
- printlog " " + Filetype + " will be saved as Pcd, correct."
- SavedFileType = "pcd"
- if Filetype = "pcd" then Testsize = true
- CounterShouldBe = 18
- else
- warnlog "Pcd should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case "psd" : if (Filetype = "psd") then
- printlog " " + Filetype + " will be saved as Psd, correct."
- SavedFileType = "psd"
- if Filetype = "psd" then Testsize = true
- CounterShouldBe = 18
- else
- warnlog "Psd should not have been selected when we opened a '" + Filetype + "'-file."
- endif
- case else : qaerrorlog " The test has not yet been fitted for this format ( " + Filetype + "). Contact FHA."
- '/// Check the size ///'
- printlog " But will be saved as: " + left(lcase(Dateityp.GetSelText),3)
- CounterShouldBe = 18
- Found = false
- end select
-
- '/// Check if all other formats are there, and if they are selectable. ///'
- Dateityp.TypeKeys "<HOME>"
- if (Dateityp.GetItemCount) = CounterShouldBe then 'Counter - 10
- for q = 1 to CounterShouldBe - 1
- LastFilterName = Dateityp.GetSelIndex
- Dateityp.TypeKeys "<DOWN>"
- if Dateityp.GetSelIndex = LastFilterName then
- warnlog " Check the export-filters when trying to save a " + Filename + "-file. Exiting Test."
- goto endsub
- endif
- next q
- else
- warnlog "Dateityp.GetItemCount = " + (Dateityp.GetItemCount) + " CounterShouldBe = " + CounterShouldBe
- endif
- Dateityp.Select SavedOrgPosition
-
- '/// Save the file as the same name and file-type, as it was opened ///'
- Dateiname.SetText ( NewFileDir )
- Dateiname.TypeKeys ("<Return>")
-
- kontext "Active"
- if Active.Exists then 'Could not find directory.
- warnlog "Error when going to the directory " + NewFileDir + ". Active: " + Active.GetText
- warnlog "ABORTING TESTCASE. PLEASE INFORM THE TESTPROGRAMMER."
- Active.OK
- kontext "GrafikEinfuegenDlg"
- GrafikEinfuegenDlg.Close
- goto Endsub
- endif
- Kontext "ExportierenDlg"
-
- sleep 1
-
- if Found = false then
- NewFile = ConvertPath ( NewFileDir + "SaveAsPicture" + "." + left(lcase(Dateityp.GetSelText),3) )
- else
- NewFile = ConvertPath ( NewFileDir + "SaveAsPicture" + "." + SavedFileType ' left(lcase(Dateityp.GetSelText),3) )
- endif
- Dateiname.SetText NewFile
-
- Dateiname.TypeKeys ("<Return>")
- Kontext "Active"
- if Active.Exists then 'either could not find directory, or overwrite.
- Active.Yes ' Overwrite?
- endif
-
- '/// IF it was saved in the same format as it was opened as,
- '/// compare the size of the old and the new file ///'
- '/// The selected picture must get exported without compression if the default is the same as the inserted picture. ///'
- '/// It must have the same size as the original. ///'
- if Testsize = true then
- if NewFile <> "" then
- Filesize1 = iFileSize(i)
- printlog " Saved file-size was: " + app.FileLen(NewFile)
- Filesize2 = app.FileLen(NewFile)
- endif
- endif
-
- if (Testsize = true) AND (Filesize1 <> Filesize2) then
- qaerrorlog "Format '" + right(NewFile,3) + "' was NOT saved properly. Org-Size: '" + Filesize1 + "' Saved-Size: '" + Filesize2 + "'.#i95364#"
- else
- printlog " The Format '" + right(NewFile,3) + "' was saved correctly."
- endif
+ endif
- '/// Remove all in the Document. (Impress/Draw) ///'
- if (gApplication = "IMPRESS") then
- Kontext "DocumentImpress"
- else
- Kontext "DocumentDraw"
- endif
- hTypeKeys "<DELETE>"
- call hCloseDocument
- call hNewDocument
- '/// Open the next file via Insert->Graphics From File ///'
- InsertGraphicsFromFile
- Kontext "GrafikEinfuegenDlg"
- if GrafikEinfuegenDlg.exists(5) then
- printlog " The Insertgraphics-dialogue showed up correctly."
- sleep (5)
- else
- warnlog " The Insertgraphics-dialogue didn't show up."
- endif
- endif
- next i
-
- GrafikEinfuegenDlg.Close
-
- '/// When everything is finished, delete the content in the created directory. ///'
- GetFileList (NewFileDir, "*.*" , FileList() )
- sleep 1
- if (KillFileList (FileList()) <> TRUE) then
- for i = 1 to ListCount (FileList())
- Warnlog "File Not deleted: " + i + ": '" + FileList(i) + "'"
- next i
+ Kontext "ExportierenDlg" 'SaveAsDialogue
+
+ Testsize = false
+ Found = true
+ SavedOrgPosition = Dateityp.GetSelIndex
+ select case left(lcase(Dateityp.GetSelText),3) 'Filetype
+ case "png" : if (Filetype = "png") then
+ printlog " " + Filetype + " will be saved as png, correct."
+ SavedFileType = "png"
+ Testsize = true
+ CounterShouldBe = 17
+ else
+ warnlog "Png should not have been selected when we opened a '" + Filetype + "'-file."
+ endif
+ case "pcx" : if(Filetype = "pcx") then
+ printlog " " + Filetype + " will be saved as pcx, correct."
+ SavedFileType = "pcx"
+ Testsize = true
+ CounterShouldBe = 18
+ else
+ warnlog "Png should not have been selected when we opened a '" + Filetype + "'-file."
+ endif
+ case "xbm" : if (Filetype = "xbm") then
+ printlog " " + Filetype + " will be saved as xbm, correct."
+ SavedFileType = "xbm"
+ Testsize = true
+ CounterShouldBe = 18
+ else
+ warnlog "xbm should not have been selected when we opened a '" + Filetype + "'-file."
endif
- Printlog "The test will exit now."
- Sleep 1
- '/// close application ///'
- Call hCloseDocument
+case "xpm" : if (Filetype = "xpm") then
+ printlog " " + Filetype + " will be saved as Xpm, correct."
+ SavedFileType = "xpm"
+ Testsize = true
+ CounterShouldBe = 17
+else
+ warnlog "xpm should not have been selected when we opened a '" + Filetype + "'-file."
+endif
+case "svm" : if (Filetype = "svm") then
+printlog " " + Filetype + " will be saved as Svm, correct."
+SavedFileType = "svm"
+if (Filetype = "svm") then Testsize = true
+ CounterShouldBe = 17
+else
+ warnlog "Svm should not have been selected when we opened a '" + Filetype + "'-file."
+endif
+case "tga" : if (Filetype = "tga") then
+printlog " " + Filetype + " will be saved as Svm, correct."
+SavedFileType = "tga"
+if (Filetype = "tga") then Testsize = true
+ CounterShouldBe = 18
+else
+ warnlog "Tga should not have been selected when we opened a '" + Filetype + "'-file."
+endif
+case "bmp" : if (Filetype = "bmp") then
+printlog " " + Filetype + " will be saved as Bmp, correct."
+SavedFileType = "bmp"
+Testsize = true
+CounterShouldBe = 17
+else
+warnlog "Bmp should not have been selected when we opened a '" + Filetype + "'-file."
+endif
+case "ppm" : if (Filetype = "ppm") then
+printlog " " + Filetype + " will be saved as Bmp, correct."
+SavedFileType = "ppm"
+if Filetype = "ppm" then Testsize = true
+CounterShouldBe = 17
+else
+warnlog "Ppm should not have been selected when we opened a '" + Filetype + "'-file."
+endif
+case "eps" : if (Filetype = "eps") then
+printlog " " + Filetype + " will be saved as Eps, correct."
+SavedFileType = "eps"
+if Filetype = "eps" then Testsize = true
+CounterShouldBe = 17
+else
+warnlog "Eps should not have been selected when we opened a '" + Filetype + "'-file."
+endif
+case "pgm" : if (Filetype = "pgm") then
+printlog " " + Filetype + " will be saved as Pgm, correct."
+SavedFileType = "pgm"
+if Filetype = "pgm" then Testsize = true
+CounterShouldBe = 17
+else
+warnlog "Pgm should not have been selected when we opened a '" + Filetype + "'-file."
+endif
+case "dxf" : if (Filetype = "dxf") then
+printlog " " + Filetype + " will be saved as Dxf, correct."
+SavedFileType = "dxf"
+if Filetype = "dxf" then Testsize = true
+CounterShouldBe = 18
+else
+warnlog "Dxf should not have been selected when we opened a '" + Filetype + "'-file."
+endif
+case "pbm" : if (Filetype = "pbm") then
+printlog " " + Filetype + " will be saved as Pbm, correct."
+SavedFileType = "pbm"
+if Filetype = "pbm" then Testsize = true
+CounterShouldBe = 17
+else
+warnlog "Pbm should not have been selected when we opened a '" + Filetype + "'-file."
+endif
+case "ras" : if (Filetype = "ras") then
+printlog " " + Filetype + " will be saved as Ras, correct."
+SavedFileType = "ras"
+if Filetype = "ras" then Testsize = true
+CounterShouldBe = 17
+else
+warnlog "Ras should not have been selected when we opened a '" + Filetype + "'-file."
+endif
+case "wmf" : if (Filetype = "wmf") or (Filetype = "emf") then
+printlog " " + Filetype + " will be saved as Wmf, correct."
+SavedFileType = "wmf"
+if Filetype = "wmf" then Testsize = true
+CounterShouldBe = 17
+else
+warnlog "Wmf should not have been selected when we opened a '" + Filetype + "'-file."
+endif
+case "emf" : if (Filetype = "emf") then
+printlog " " + Filetype + " will be saved as Wmf, correct."
+SavedFileType = "emf"
+Testsize = true
+CounterShouldBe = 17
+else
+qaerrorlog "Wmf should not have been selected when we opened a '" + Filetype + "'-file. #i95364#"
+endif
+case "jpe" : if (Filetype = "jpg") OR Filetype = "jif" OR Filetype = "peg" then
+printlog " " + Filetype + " will be saved as Jpg, correct."
+SavedFileType = "jpg"
+Testsize = true
+CounterShouldBe = 17
+else
+warnlog "Jpg should not have been selected when we opened a '" + Filetype + "'-file."
+endif
+case "tif" : if Filetype = "tif" OR Filetype = "iff" then
+printlog " " + Filetype + " will be saved as Tiff, correct."
+SavedFileType = "tif"
+Testsize = true
+CounterShouldBe = 17
+else
+warnlog "Tif should not have been selected when we opened a '" + Filetype + "'-file."
+endif
+case "sgf" : if (Filetype = "sgf") OR (Filetype = "sgv") then 'sgf
+printlog " " + Filetype + " will be saved as Sgf, correct."
+SavedFileType = "sgf"
+Testsize = true
+CounterShouldBe = 18
+else
+warnlog "Sgf should not have been selected when we opened a '" + Filetype + "'-file."
+endif
+case "gif" : if (Filetype = "gif") then
+SavedFileType = "gif"
+printlog " " + Filetype + " will be saved as Gif, correct."
+if Filetype = "gif" then Testsize = true
+CounterShouldBe = 17
+else
+warnlog "Gif should not have been selected when we opened a '" + Filetype + "'-file."
+endif
+case "met" : if (Filetype = "met") then
+printlog " " + Filetype + " will be saved as Met, correct."
+SavedFileType = "met"
+if Filetype = "met" then Testsize = true
+CounterShouldBe = 17
+else
+warnlog "Met should not have been selected when we opened a '" + Filetype + "'-file."
+endif
+case "pct" : if (Filetype = "pct") OR (Filetype = "ict") then
+printlog " " + Filetype + " will be saved as Pct, correct."
+SavedFileType = "pct"
+if Filetype = "pct" then Testsize = true
+CounterShouldBe = 17
+else
+warnlog "Pct should not have been selected when we opened a '" + Filetype + "'-file."
+endif
+case "pcd" : if (Filetype = "pcd") then
+printlog " " + Filetype + " will be saved as Pcd, correct."
+SavedFileType = "pcd"
+if Filetype = "pcd" then Testsize = true
+CounterShouldBe = 18
+else
+warnlog "Pcd should not have been selected when we opened a '" + Filetype + "'-file."
+endif
+case "psd" : if (Filetype = "psd") then
+printlog " " + Filetype + " will be saved as Psd, correct."
+SavedFileType = "psd"
+if Filetype = "psd" then Testsize = true
+CounterShouldBe = 18
+else
+warnlog "Psd should not have been selected when we opened a '" + Filetype + "'-file."
+endif
+case else : qaerrorlog " The test has not yet been fitted for this format ( " + Filetype + "). Contact FHA."
+printlog " But will be saved as: " + left(lcase(Dateityp.GetSelText),3)
+CounterShouldBe = 18
+Found = false
+end select
+
+Dateityp.TypeKeys "<HOME>"
+if (Dateityp.GetItemCount) = CounterShouldBe then 'Counter - 10
+for q = 1 to CounterShouldBe - 1
+LastFilterName = Dateityp.GetSelIndex
+Dateityp.TypeKeys "<DOWN>"
+if Dateityp.GetSelIndex = LastFilterName then
+warnlog " Check the export-filters when trying to save a " + Filename + "-file. Exiting Test."
+goto endsub
+endif
+next q
+else
+warnlog "Dateityp.GetItemCount = " + (Dateityp.GetItemCount) + " CounterShouldBe = " + CounterShouldBe
+endif
+Dateityp.Select SavedOrgPosition
+
+Dateiname.SetText ( NewFileDir )
+Dateiname.TypeKeys ("<Return>")
+
+kontext "Active"
+if Active.Exists then 'Could not find directory.
+warnlog "Error when going to the directory " + NewFileDir + ". Active: " + Active.GetText
+warnlog "ABORTING TESTCASE. PLEASE INFORM THE TESTPROGRAMMER."
+Active.OK
+kontext "GrafikEinfuegenDlg"
+GrafikEinfuegenDlg.Close
+goto Endsub
+endif
+Kontext "ExportierenDlg"
+
+sleep 1
+
+if Found = false then
+NewFile = ConvertPath ( NewFileDir + "SaveAsPicture" + "." + left(lcase(Dateityp.GetSelText),3) )
+else
+NewFile = ConvertPath ( NewFileDir + "SaveAsPicture" + "." + SavedFileType ' left(lcase(Dateityp.GetSelText),3) )
+endif
+Dateiname.SetText NewFile
+
+Dateiname.TypeKeys ("<Return>")
+Kontext "Active"
+if Active.Exists then 'either could not find directory, or overwrite.
+Active.Yes ' Overwrite?
+endif
+
+if Testsize = true then
+if NewFile <> "" then
+Filesize1 = iFileSize(i)
+printlog " Saved file-size was: " + app.FileLen(NewFile)
+Filesize2 = app.FileLen(NewFile)
+endif
+endif
+
+if (Testsize = true) AND (Filesize1 <> Filesize2) then
+qaerrorlog "Format '" + right(NewFile,3) + "' was NOT saved properly. Org-Size: '" + Filesize1 + "' Saved-Size: '" + Filesize2 + "'.#i95364#"
+else
+printlog " The Format '" + right(NewFile,3) + "' was saved correctly."
+endif
+
+if (gApplication = "IMPRESS") then
+Kontext "DocumentImpress"
+else
+Kontext "DocumentDraw"
+endif
+hTypeKeys "<DELETE>"
+call hCloseDocument
+call hNewDocument
+InsertGraphicsFromFile
+Kontext "GrafikEinfuegenDlg"
+if GrafikEinfuegenDlg.exists(5) then
+printlog " The Insertgraphics-dialogue showed up correctly."
+sleep (5)
+else
+warnlog " The Insertgraphics-dialogue didn't show up."
+endif
+endif
+next i
+
+GrafikEinfuegenDlg.Close
+
+GetFileList (NewFileDir, "*.*" , FileList() )
+sleep 1
+if (KillFileList (FileList()) <> TRUE) then
+for i = 1 to ListCount (FileList())
+Warnlog "File Not deleted: " + i + ": '" + FileList(i) + "'"
+next i
+endif
+Printlog "The test will exit now."
+Sleep 1
+Call hCloseDocument
endcase 'tContextSaveAsPicture
@@ -819,14 +763,13 @@ testcase Mnemonickey
qaerrorlog "Not yet ready."
goto endsub
- '/// If Enlish: try the same thing with mnemonic-keys: Shift-S ///'
- if iSprache = 01 then
- ExportierenDlg.Close
- hOpenContextMenu
- TypeKeys ("<SHIFT S>")
- kontext "ExportierenDlg"
- if ExportierenDlg.IsVisible then
+ if iSprache = 01 then
+ ExportierenDlg.Close
+ hOpenContextMenu
+ TypeKeys ("<SHIFT S>")
+ kontext "ExportierenDlg"
+ if ExportierenDlg.IsVisible then
Printlog "'Save As Picture' came up correctly when using the Context-menu."
- endif
- endif
+ endif
+ endif
endcase
diff --git a/testautomation/graphics/optional/includes/global/g_shaddow.inc b/testautomation/graphics/optional/includes/global/g_shaddow.inc
index d0cc89f2d0ae..46d32a7559c7 100755
--- a/testautomation/graphics/optional/includes/global/g_shaddow.inc
+++ b/testautomation/graphics/optional/includes/global/g_shaddow.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
@@ -42,476 +42,432 @@
'\*******************************************************************
testcase tiShaddow
- dim sFilter as string
- dim i as integer
- dim t as integer
- dim q as integer
- dim PosX as integer
- dim PosY as integer
- dim e as string
- dim sFileName as string
- dim ImageWidth as string
- dim ImageHeight as string
- dim shadowdistancevalue as string
- dim shadowcolorvalue as string
- dim shadowtransparencyvalue as string
- dim linetype as string
- dim linecolour as string
- dim linewidth as string
- dim cornerstyletype as string
-
- '/// Set the file-extension we'll be using when opening the saved file ///'
+ dim sFilter as string
+ dim i as integer
+ dim t as integer
+ dim q as integer
+ dim PosX as integer
+ dim PosY as integer
+ dim e as string
+ dim sFileName as string
+ dim ImageWidth as string
+ dim ImageHeight as string
+ dim shadowdistancevalue as string
+ dim shadowcolorvalue as string
+ dim shadowtransparencyvalue as string
+ dim linetype as string
+ dim linecolour as string
+ dim linewidth as string
+ dim cornerstyletype as string
+
if (gApplication = "IMPRESS") then
ExtensionString = "odp"
else
ExtensionString = "odg"
end if
- '/// Open application ///'
- Call hNewDocument
- sleep 1
-
- '/// Import picture ///'
- InsertGraphicsFromFile
- sleep 3
- kontext "Active"
- if Active.Exists Then
- Active.OK
- end if
- sleep 5
- Kontext "GrafikEinfuegenDlg"
- sleep 2
- Dateiname.SetText (ConvertPath(gOfficeBasisPath + "share\gallery\bigapple.gif"))
- sleep 2
- Oeffnen.Click
- printlog "Inserted file"
- sleep 2
- '/// Select all ///'
- EditSelectAll
- sleep 3
- '/// Check values and save them ///'
- FormatPositionAndSize
- kontext
- active.SetPage TabPositionAndSize
- kontext "TabPositionAndSize"
- ImageWidth = Width.GetText
- ImageHeight = Height.GetText
- printlog "Got values from position and size"
- '/// Check the "Protect Size"-button. And close dialogue. ///'
- ProtectSize.Check
- TabPositionAndSize.Ok
-
- '/// Add Shaddow via Toolbar-Button ///'
- Kontext "GraphicObjectbar"
- if GraphicObjectbar.Exists = FALSE then
- ViewToolbarsPicture
- endif
- if schatten.GetState(2) <> 0 then '0 = not pressed. 1 = pressed.
- warnlog "Shaddow-button shouldnt have been checked"
- end if
- sleep 1
-
- '/// click button 'Shadow' ///'
- Schatten.Click
-' '/// Check and save Shaddow-values via context-menu ///'
- EditSelectAll
- hOpenContextMenu
- sleep(2)
- if hMenuFindSelect(10142, true, 4) = false then
- Warnlog "Context-Menu-entry `Area` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- endif
- '/// Select Contextmenu entry "Area" ///'
- sleep(2)
- kontext "TabArea"
- '/// Switch to Shaddow-tabpage, do some changes, save them, close dialogue
- Kontext
- active.SetPage TabSchatten
- kontext "TabSchatten"
- if Anzeigen.isVisible(5) AND Anzeigen.Exists(5) then
- if Anzeigen.GetState <> 1 then Warnlog "Anzeigen.GetState should be 1, but is: " + Anzeigen.GetState
- Anzeigen.Check
- else
- Warnlog "'Use Shadow' doesn't exist or isn't visible."
- endif
-
- '/// Change Distance and Transparency-values ///'
- Entfernung.More ',2
- Transparenz.More ',2
- shadowdistancevalue = Entfernung.GetText
- shadowcolorvalue = Farbe.GetSelText
- shadowtransparencyvalue = Transparenz.GetText
- printlog "Got values from TabArea"
- TabSchatten.Ok
-
- '/// Check if it's the same when going over FormatArea ///'
- FormatArea
- sleep 1
- kontext "TabArea"
- '/// Switch to Shaddow-tabpage, do some changes, save them, close dialogue ///'
- Kontext
- active.SetPage TabSchatten
- kontext "TabSchatten"
- if Anzeigen.isVisible(5) AND Anzeigen.Exists(5) then
- if Anzeigen.GetState <> 1 then Warnlog "should be active"
- Anzeigen.Check
- else
- Warnlog "'Use Shadow' doesn't exist or isn't visible."
- endif
- if shadowdistancevalue <> Entfernung.GetText then
- warnlog "Distance value changed. Should be: " + shadowdistancevalue + ". But is: " + Entfernung.gettext
- endif
- if shadowcolorvalue <> Farbe.GetSelText then
- warnlog "Color value changed. Should be: " + shadowcolorvalue + ". But is: " + Farbe.getSeltext
+ Call hNewDocument
+ sleep 1
+
+ InsertGraphicsFromFile
+ sleep 3
+ kontext "Active"
+ if Active.Exists Then
+ Active.OK
+ end if
+ sleep 5
+ Kontext "GrafikEinfuegenDlg"
+ sleep 2
+ Dateiname.SetText (ConvertPath(gOfficeBasisPath + "share\gallery\bigapple.gif"))
+ sleep 2
+ Oeffnen.Click
+ printlog "Inserted file"
+ sleep 2
+ EditSelectAll
+ sleep 3
+ FormatPositionAndSize
+ kontext
+ active.SetPage TabPositionAndSize
+ kontext "TabPositionAndSize"
+ ImageWidth = Width.GetText
+ ImageHeight = Height.GetText
+ printlog "Got values from position and size"
+ ProtectSize.Check
+ TabPositionAndSize.Ok
+
+ Kontext "GraphicObjectbar"
+ if GraphicObjectbar.Exists = FALSE then
+ ViewToolbarsPicture
endif
- if shadowtransparencyvalue <> Transparenz.GetText then
- warnlog "Transparency value changed. Should be: " + shadowtransparencyvalue + ". But is: " + Transparenz.gettext
+ if schatten.GetState(2) <> 0 then '0 = not pressed. 1 = pressed.
+ warnlog "Shaddow-button shouldnt have been checked"
+ end if
+ sleep 1
+
+ Schatten.Click
+ EditSelectAll
+ hOpenContextMenu
+ sleep(2)
+ if hMenuFindSelect(10142, true, 4) = false then
+ Warnlog "Context-Menu-entry `Area` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
endif
- TabSchatten.Ok
-
- '/// Add Cornerstyle via FormatLine ///'
- FormatLine
- Kontext
- Messagebox.SetPage TabLinie
- kontext "TabLinie"
- Stil.Select 2 ' Select Continuously.
- linetype = Stil.GetItemText
- Farbe.Select 2 ' Select Blue
- linecolour = Farbe.GetItemText
- Breite.More 3 ' Set Width to 3
- linewidth = Breite.Gettext
- CornerStyle.Select 4 ' Select number four: Beveled
- cornerstyletype = CornerStyle.GetSelText
- printlog "Cornerstyle is: " + CornerStyle.GetSelText '+ cornerstyletype
- TabLinie.ok
-
- '/// Check values via PositionAndSize via the Contextmenu ///'
- hOpenContextmenu
- sleep(2)
- if hMenuFindSelect(10087, true, 1) = false then
- Warnlog "Context-Menu-entry `Position and Size` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- endif
- 'Select "Position and Size"
- sleep(2)
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- if ImageWidth <> Width.GetText then warnlog "Position X differs. Should be: " + ImageWidth + " But is: " + Width.GetText
- if ImageHeight <> Height.GetText then warnlog "Position Y differs. Should be: " + ImageHeight + " But is: " + Height.GetText
- TabPositionAndSize.OK
-
- '/// Check Cornerstyle via FormatLine ///'
- FormatLine
- Kontext
- Messagebox.SetPage TabLinie
- kontext "TabLinie"
- if linetype <> Stil.GetItemText then warnlog "Linetype should be: " + linetype + " But is: " + Stil.GetItemText
- if linecolour <> Farbe.GetItemText then warnlog "Linecolour should be: " + linetype + " But is: " + Farbe.GetItemText
- if linewidth <> Breite.GetText then warnlog "Linewidth should be: " + linewidth + " But is: " + Breite.GetText
- if cornerstyletype <> CornerStyle.GetSelText then warnlog "CornerStyle should be: " + cornerstyletype + " But is: " + CornerStyle.GetSelText 'ItemText
- TabLinie.ok
-
- '/// Check if the Shaddow-button is activated ///'
- Kontext "GraphicObjectbar"
- if Schatten.GetState(2) <> 1 then
- warnlog "Shaddow-button shouldnt have been checked"
- endif
-
- '/// Save the file. Then close the office and reload the file ///'
- sFileName = ( ConvertPath(gOfficePath + "user\work\shaddow-test"))
- '/// File-Save As with filter as: "user\temp\shaddow-test" ///'
- try
- FileSaveAs
- Kontext "SpeichernDlg"
- Dateiname.SetText sFileName
- printlog "Saving with filter: " + Dateityp.GetSelText
- Speichern.Click
- Kontext "Messagebox"
- if Messagebox.Exists(2) then Messagebox.Yes
- Kontext "AlienWarning"
- if AlienWarning.Exists(2) then AlienWarning.OK
- printlog "Saved as: " + sFileName
- catch
- warnlog "Error when saving file."
- endcatch
-
- '/// Close the office-session ///'
- FileClose
- Kontext "Messagebox"
- if Messagebox.Exists(2) then Messagebox.Yes
- Sleep 3
- '/// Open the saved file ///'
- try
- hFileOpen sFileName + "." + ExtensionString
- Sleep 3
- printlog "opened file successfully"
- catch
- warnlog "Error when opening file."
- endcatch
-
- '/// Select all ///'
- EditSelectAll
- sleep 2
-
- '/// Check if the Shaddow-button still is activated ///'
- kontext "GraphicObjectbar"
- if schatten.Getstate(2) <> 1 then
- warnlog "The Shadow-button should be activated"
- else
- Printlog "Shaddowbutton activated, good."
- endif
-
- '/// Check the attributes for the picture ///'
- hOpenContextmenu
- sleep(2)
- if hMenuFindSelect(10087, true, 1) = false then
- Warnlog "Context-Menu-entry `Position and Size` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- endif
- 'Select "Position and Size"
- sleep(2)
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- if ImageWidth <> Width.GetText then warnlog "Position X differs. Should be: " + ImageWidth + " But is: " + Width.GetText
- if ImageHeight <> Height.GetText then warnlog "Position X differs. Should be: " + ImageHeight + " But is: " + Height.GetText
- TabPositionAndSize.OK
-
- FormatArea
- sleep 1
- kontext "TabArea"
- '/// Switch to Shaddow-tabpage, do some changes, save them, close dialogue ///'
- Kontext
- active.SetPage TabSchatten
- kontext "TabSchatten"
- if Anzeigen.isVisible(5) AND Anzeigen.Exists(5) then
- if Anzeigen.GetState <> 1 then Warnlog "Shaddow-checkbox should be active"
+ sleep(2)
+ kontext "TabArea"
+ Kontext
+ active.SetPage TabSchatten
+ kontext "TabSchatten"
+ if Anzeigen.isVisible(5) AND Anzeigen.Exists(5) then
+ if Anzeigen.GetState <> 1 then Warnlog "Anzeigen.GetState should be 1, but is: " + Anzeigen.GetState
Anzeigen.Check
- else
+ else
Warnlog "'Use Shadow' doesn't exist or isn't visible."
- endif
- if shadowdistancevalue <> Entfernung.GetText then warnlog "Distance value changed. Should be: " + shadowdistancevalue + ". But is: " + Entfernung.gettext
- if shadowcolorvalue <> Farbe.GetSelText then warnlog "Color value changed. Should be: " + shadowcolorvalue + ". But is: " + Farbe.gettext
- if shadowtransparencyvalue <> Transparenz.GetText then warnlog "Transparency value changed. Should be: " + shadowtransparencyvalue + ". But is: " + Transparenz.gettext
-
- '/// Check Transparency ///'
- Kontext
- Active.SetPage TabTransparenz
- kontext "TabTransparenz"
- LineareTransparenz.Check
- shadowtransparencyvalue = MFLinTransparenz.GetText
-
- sleep 2
- Kontext
- active.SetPage TabSchatten
- kontext "TabSchatten"
- TabSchatten.Ok
-
- '/// Check Cornerstyle via FormatLine ///'
- FormatLine
- Kontext
- Messagebox.SetPage TabLinie
- kontext "TabLinie"
- if linetype <> Stil.GetItemText then warnlog "Linetype should be: " + linetype + " But is: " + Stil.GetItemText
- if linecolour <> Farbe.GetItemText then warnlog "Linecolour should be: " + linetype + " But is: " + Farbe.GetItemText
- if linewidth <> Breite.GetText then warnlog "Linewidth should be: " + linewidth + " But is: " + Breite.GetText
- if cornerstyletype <> CornerStyle.GetSelText then warnlog "CornerStyle should be: " + cornerstyletype + " But is: " + CornerStyle.GetSelText 'ItemText
- TabLinie.ok
-
- '/// If Impress: Save as Powerpoint-file. If Draw: Save as usual Draw-file. ///'
- if (gApplication = "IMPRESS") then
- ExtensionString = "ppt"
- else
- ExtensionString = "odg"
- end if
-
- sFileName = ( ConvertPath(gOfficePath + "user\work\shaddow-test"))
-
- FileSaveAs
- Kontext "SpeichernDlg"
- Dateiname.SetText sFileName
- if (gApplication = "IMPRESS") then
- Dateityp.Select 5 ' Powerpoint
- printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(5)
- else
- Dateityp.Select 1
- printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(1)
- endif
- Speichern.Click
- Kontext "Messagebox"
- if Messagebox.Exists(2) then Messagebox.Yes
- Kontext "AlienWarning"
- if AlienWarning.Exists(2) then AlienWarning.OK
- printlog "Saved as: " + sFileName
- Sleep 3
-
- '/// Close the office and reload the file ///'
- FileClose
- Kontext "Messagebox"
- if Messagebox.Exists(2) then Messagebox.Yes
- Sleep 3
- '/// Open the saved file ///'
- hFileOpen (sFileName + "." + ExtensionString)
- printlog "File opened: " + sFileName + "." + ExtensionString
- Sleep 3
- '/// Select all ///'
- EditSelectAll
-
- '/// Check the attributes for the picture ///'
- hOpenContextmenu
- sleep(2)
- if hMenuFindSelect(10087, true, 1) = false then
- Warnlog "Context-Menu-entry `Position and Size` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- endif
- 'Select "Position and Size"
- sleep(2)
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- if ImageWidth <> Width.GetText then warnlog "Position X differs. Should be: " + ImageWidth + " But is: " + Width.GetText
- if ImageHeight <> Height.GetText then warnlog "Position X differs. Should be: " + ImageHeight + " But is: " + Height.GetText
- TabPositionAndSize.OK
-
- '/// Check if transparency has disappeared and if the cornerstyle has changed ///'
- FormatArea
- Kontext
- Messagebox.SetPage TabTransparenz
- kontext "TabTransparenz"
- if (gApplication = "DRAW") then
- if LineareTransparenz.Ischecked = FALSE then
- warnlog "Transparency should have been checked!"
- if MFLinTransparenz.GetText <> shadowtransparencyvalue then warnlog "Transparency-value should NOT have changed"
- KeineTransparenz.Check
- end if
- endif
- if (gApplication = "DRAW") then
- if LineareTransparenz.Ischecked = FALSE then
- warnlog "Transparency should have been checked!"
- if MFLinTransparenz.GetText <> shadowtransparencyvalue then warnlog "Transparency-value should NOT have changed"
- KeineTransparenz.Check
- end if
- endif
- if (gApplication = "IMPRESS") then
- if LineareTransparenz.Ischecked =TRUE then
- printlog "Transparency contained in newer ppt files, ok.!"
- if MFLinTransparenz.GetText <> shadowtransparencyvalue then warnlog "Transparency-value should NOT have changed"
- KeineTransparenz.Check
- end if
- endif
-
- TabTransparenz.Cancel
-
- '/// Check Cornerstyle via FormatLine ///'
- FormatLine
- Kontext
- Messagebox.SetPage TabLinie
- kontext "TabLinie"
- if linetype <> Stil.GetItemText then warnlog "Linetype should be: " + linetype + " But is: " + Stil.GetItemText
- if linecolour <> Farbe.GetItemText then warnlog "Linecolour should be: " + linetype + " But is: " + Farbe.GetItemText
- if linewidth <> Breite.GetText then warnlog "Linewidth should be: " + linewidth + " But is: " + Breite.GetText
- if cornerstyletype <> CornerStyle.GetSelText then warnlog "CornerStyle should be: " + cornerstyletype + " But is: " + CornerStyle.GetSelText 'ItemText
- TabLinie.ok
-
- '/// Remove the Shaddow, Transparency and Cornerstyle ///'
- FormatArea
- Kontext
- Messagebox.SetPage TabTransparenz
- kontext "TabTransparenz"
- KeineTransparenz.Check
- sleep 1
- kontext "TabArea"
- '/// Switch to Shaddow-tabpage, do some changes, save them, close dialogue ///'
- Kontext
- active.SetPage TabSchatten
- kontext "TabSchatten"
- Anzeigen.UnCheck
- TabSchatten.Ok
-
- '/// If Impress: Save as Powerpoint-file. If Draw: Save as usual Draw-file. ///'
- if (gApplication = "IMPRESS") then
- ExtensionString = "ppt"
- else
- ExtensionString = "odg"
- end if
- sFileName = ( ConvertPath(gOfficePath + "user\work\shaddow-test"))
-
- FileSaveAs
- Kontext "SpeichernDlg"
- Dateiname.SetText sFileName
- if (gApplication = "IMPRESS") then
- Dateityp.Select 5 ' Powerpoint
- printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(5)
- else
- Dateityp.Select 1
- printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(1)
- endif
- Speichern.Click
- Kontext "Messagebox"
- if Messagebox.Exists(2) then Messagebox.Yes
- Kontext "AlienWarning"
- if AlienWarning.Exists(2) then AlienWarning.OK
- printlog "Saved as: " + sFileName
- Sleep 3
-
- '/// Close the office-session ///'
- FileClose
- Kontext "Messagebox"
- if Messagebox.Exists(2) then Messagebox.Yes
- Sleep 3
- '/// Open the saved file ///'
- hFileOpen (sFileName + "." + ExtensionString)
- printlog "File opened: " + sFileName + "." + ExtensionString
- Sleep 3
- '/// Select all ///'
- EditSelectAll
-
- '/// Check the attributes for the picture ///'
- hOpenContextmenu
- sleep(2)
- if hMenuFindSelect(10087, true, 1) = false then
- Warnlog "Context-Menu-entry `Position and Size` was not found. Therefore the test ends."
- Call hCloseDocument
- Goto Endsub
- endif
- 'Select "Position and Size"
- sleep(2)
- Kontext
- Active.SetPage TabPositionAndSize
- Kontext "TabPositionAndSize"
- if ImageWidth <> Width.GetText then warnlog "Position X differs. Should be: " + ImageWidth + " But is: " + Width.GetText
- if ImageHeight <> Height.GetText then warnlog "Position X differs. Should be: " + ImageHeight + " But is: " + Height.GetText
- TabPositionAndSize.OK
-
- '/// Check if transparency has disappeared ///'
- FormatArea
- Kontext
- Messagebox.SetPage TabTransparenz
- kontext "TabTransparenz"
- if LineareTransparenz.Ischecked <> FALSE then
- warnlog "Transparency should NOT have been checked!"
- if MFLinTransparenz.GetText <> shadowtransparencyvalue then warnlog "Transparency-value should NOT have changed"
- LineareTransparenz.UnCheck
- end if
- TabTransparenz.Cancel
-
- '/// Check if the cornerstyle has changed via FormatLine ///'
- FormatLine
- Kontext
- Messagebox.SetPage TabLinie
- kontext "TabLinie"
- if linetype <> Stil.GetItemText then warnlog "Linetype should be: " + linetype + " But is: " + Stil.GetItemText
- if linecolour <> Farbe.GetItemText then warnlog "Linecolour should be: " + linetype + " But is: " + Farbe.GetItemText
- if linewidth <> Breite.GetText then warnlog "Linewidth should be: " + linewidth + " But is: " + Breite.GetText
- if cornerstyletype <> CornerStyle.GetSelText then warnlog "CornerStyle should be: " + cornerstyletype + " But is: " + CornerStyle.GetSelText 'ItemText
- TabLinie.ok
-
- '/// Close application ///'
- Call hCloseDocument
- Printlog "Finished Shaddow-test for " + gApplication
+ endif
+
+ Entfernung.More ',2
+ Transparenz.More ',2
+ shadowdistancevalue = Entfernung.GetText
+ shadowcolorvalue = Farbe.GetSelText
+ shadowtransparencyvalue = Transparenz.GetText
+ printlog "Got values from TabArea"
+ TabSchatten.Ok
+
+ FormatArea
+ sleep 1
+ kontext "TabArea"
+ Kontext
+ active.SetPage TabSchatten
+ kontext "TabSchatten"
+ if Anzeigen.isVisible(5) AND Anzeigen.Exists(5) then
+ if Anzeigen.GetState <> 1 then Warnlog "should be active"
+ Anzeigen.Check
+ else
+ Warnlog "'Use Shadow' doesn't exist or isn't visible."
+ endif
+ if shadowdistancevalue <> Entfernung.GetText then
+ warnlog "Distance value changed. Should be: " + shadowdistancevalue + ". But is: " + Entfernung.gettext
+ endif
+ if shadowcolorvalue <> Farbe.GetSelText then
+ warnlog "Color value changed. Should be: " + shadowcolorvalue + ". But is: " + Farbe.getSeltext
+ endif
+ if shadowtransparencyvalue <> Transparenz.GetText then
+ warnlog "Transparency value changed. Should be: " + shadowtransparencyvalue + ". But is: " + Transparenz.gettext
+ endif
+ TabSchatten.Ok
+
+ FormatLine
+ Kontext
+ Messagebox.SetPage TabLinie
+ kontext "TabLinie"
+ Stil.Select 2 ' Select Continuously.
+ linetype = Stil.GetItemText
+ Farbe.Select 2 ' Select Blue
+ linecolour = Farbe.GetItemText
+ Breite.More 3 ' Set Width to 3
+ linewidth = Breite.Gettext
+ CornerStyle.Select 4 ' Select number four: Beveled
+ cornerstyletype = CornerStyle.GetSelText
+ printlog "Cornerstyle is: " + CornerStyle.GetSelText '+ cornerstyletype
+ TabLinie.ok
+
+ hOpenContextmenu
+ sleep(2)
+ if hMenuFindSelect(10087, true, 1) = false then
+ Warnlog "Context-Menu-entry `Position and Size` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ endif
+ 'Select "Position and Size"
+ sleep(2)
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ if ImageWidth <> Width.GetText then warnlog "Position X differs. Should be: " + ImageWidth + " But is: " + Width.GetText
+ if ImageHeight <> Height.GetText then warnlog "Position Y differs. Should be: " + ImageHeight + " But is: " + Height.GetText
+ TabPositionAndSize.OK
+
+ FormatLine
+ Kontext
+ Messagebox.SetPage TabLinie
+ kontext "TabLinie"
+ if linetype <> Stil.GetItemText then warnlog "Linetype should be: " + linetype + " But is: " + Stil.GetItemText
+ if linecolour <> Farbe.GetItemText then warnlog "Linecolour should be: " + linetype + " But is: " + Farbe.GetItemText
+ if linewidth <> Breite.GetText then warnlog "Linewidth should be: " + linewidth + " But is: " + Breite.GetText
+ if cornerstyletype <> CornerStyle.GetSelText then warnlog "CornerStyle should be: " + cornerstyletype + " But is: " + CornerStyle.GetSelText 'ItemText
+ TabLinie.ok
+
+ Kontext "GraphicObjectbar"
+ if Schatten.GetState(2) <> 1 then
+ warnlog "Shaddow-button shouldnt have been checked"
+ endif
+
+ sFileName = ( ConvertPath(gOfficePath + "user\work\shaddow-test"))
+ try
+ FileSaveAs
+ Kontext "SpeichernDlg"
+ Dateiname.SetText sFileName
+ printlog "Saving with filter: " + Dateityp.GetSelText
+ Speichern.Click
+ Kontext "Messagebox"
+ if Messagebox.Exists(2) then Messagebox.Yes
+ Kontext "AlienWarning"
+ if AlienWarning.Exists(2) then AlienWarning.OK
+ printlog "Saved as: " + sFileName
+ catch
+ warnlog "Error when saving file."
+ endcatch
+
+ FileClose
+ Kontext "Messagebox"
+ if Messagebox.Exists(2) then Messagebox.Yes
+ Sleep 3
+ try
+ hFileOpen sFileName + "." + ExtensionString
+ Sleep 3
+ printlog "opened file successfully"
+ catch
+ warnlog "Error when opening file."
+ endcatch
+
+ EditSelectAll
+ sleep 2
+
+ kontext "GraphicObjectbar"
+ if schatten.Getstate(2) <> 1 then
+ warnlog "The Shadow-button should be activated"
+ else
+ Printlog "Shaddowbutton activated, good."
+ endif
+
+ hOpenContextmenu
+ sleep(2)
+ if hMenuFindSelect(10087, true, 1) = false then
+ Warnlog "Context-Menu-entry `Position and Size` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ endif
+ 'Select "Position and Size"
+ sleep(2)
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ if ImageWidth <> Width.GetText then warnlog "Position X differs. Should be: " + ImageWidth + " But is: " + Width.GetText
+ if ImageHeight <> Height.GetText then warnlog "Position X differs. Should be: " + ImageHeight + " But is: " + Height.GetText
+ TabPositionAndSize.OK
+
+ FormatArea
+ sleep 1
+ kontext "TabArea"
+ Kontext
+ active.SetPage TabSchatten
+ kontext "TabSchatten"
+ if Anzeigen.isVisible(5) AND Anzeigen.Exists(5) then
+ if Anzeigen.GetState <> 1 then Warnlog "Shaddow-checkbox should be active"
+ Anzeigen.Check
+ else
+ Warnlog "'Use Shadow' doesn't exist or isn't visible."
+ endif
+ if shadowdistancevalue <> Entfernung.GetText then warnlog "Distance value changed. Should be: " + shadowdistancevalue + ". But is: " + Entfernung.gettext
+ if shadowcolorvalue <> Farbe.GetSelText then warnlog "Color value changed. Should be: " + shadowcolorvalue + ". But is: " + Farbe.gettext
+ if shadowtransparencyvalue <> Transparenz.GetText then warnlog "Transparency value changed. Should be: " + shadowtransparencyvalue + ". But is: " + Transparenz.gettext
+
+ Kontext
+ Active.SetPage TabTransparenz
+ kontext "TabTransparenz"
+ LineareTransparenz.Check
+ shadowtransparencyvalue = MFLinTransparenz.GetText
+
+
+ sleep 2
+ Kontext
+ active.SetPage TabSchatten
+ kontext "TabSchatten"
+ TabSchatten.Ok
+
+ FormatLine
+ Kontext
+ Messagebox.SetPage TabLinie
+ kontext "TabLinie"
+ if linetype <> Stil.GetItemText then warnlog "Linetype should be: " + linetype + " But is: " + Stil.GetItemText
+ if linecolour <> Farbe.GetItemText then warnlog "Linecolour should be: " + linetype + " But is: " + Farbe.GetItemText
+ if linewidth <> Breite.GetText then warnlog "Linewidth should be: " + linewidth + " But is: " + Breite.GetText
+ if cornerstyletype <> CornerStyle.GetSelText then warnlog "CornerStyle should be: " + cornerstyletype + " But is: " + CornerStyle.GetSelText 'ItemText
+ TabLinie.ok
+
+ if (gApplication = "IMPRESS") then
+ ExtensionString = "ppt"
+ else
+ ExtensionString = "odg"
+ end if
+
+ sFileName = ( ConvertPath(gOfficePath + "user\work\shaddow-test"))
+
+ FileSaveAs
+ Kontext "SpeichernDlg"
+ Dateiname.SetText sFileName
+ if (gApplication = "IMPRESS") then
+ Dateityp.Select 5 ' Powerpoint
+ printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(5)
+ else
+ Dateityp.Select 1
+ printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(1)
+ endif
+ Speichern.Click
+ Kontext "Messagebox"
+ if Messagebox.Exists(2) then Messagebox.Yes
+ Kontext "AlienWarning"
+ if AlienWarning.Exists(2) then AlienWarning.OK
+ printlog "Saved as: " + sFileName
+ Sleep 3
+
+ FileClose
+ Kontext "Messagebox"
+ if Messagebox.Exists(2) then Messagebox.Yes
+ Sleep 3
+ hFileOpen (sFileName + "." + ExtensionString)
+ printlog "File opened: " + sFileName + "." + ExtensionString
+ Sleep 3
+ EditSelectAll
+
+ hOpenContextmenu
+ sleep(2)
+ if hMenuFindSelect(10087, true, 1) = false then
+ Warnlog "Context-Menu-entry `Position and Size` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ endif
+ 'Select "Position and Size"
+ sleep(2)
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ if ImageWidth <> Width.GetText then warnlog "Position X differs. Should be: " + ImageWidth + " But is: " + Width.GetText
+ if ImageHeight <> Height.GetText then warnlog "Position X differs. Should be: " + ImageHeight + " But is: " + Height.GetText
+ TabPositionAndSize.OK
+
+ FormatArea
+ Kontext
+ Messagebox.SetPage TabTransparenz
+ kontext "TabTransparenz"
+ if (gApplication = "DRAW") then
+ if LineareTransparenz.Ischecked = FALSE then
+ warnlog "Transparency should have been checked!"
+ if MFLinTransparenz.GetText <> shadowtransparencyvalue then warnlog "Transparency-value should NOT have changed"
+ KeineTransparenz.Check
+ end if
+ endif
+ if (gApplication = "DRAW") then
+ if LineareTransparenz.Ischecked = FALSE then
+ warnlog "Transparency should have been checked!"
+ if MFLinTransparenz.GetText <> shadowtransparencyvalue then warnlog "Transparency-value should NOT have changed"
+ KeineTransparenz.Check
+ end if
+ endif
+ if (gApplication = "IMPRESS") then
+ if LineareTransparenz.Ischecked <> FALSE then
+ warnlog "Transparency should NOT have been checked!"
+ if MFLinTransparenz.GetText <> shadowtransparencyvalue then warnlog "Transparency-value should NOT have changed"
+ KeineTransparenz.Check
+ end if
+ endif
+
+ TabTransparenz.Cancel
+
+ FormatLine
+ Kontext
+ Messagebox.SetPage TabLinie
+ kontext "TabLinie"
+ if linetype <> Stil.GetItemText then warnlog "Linetype should be: " + linetype + " But is: " + Stil.GetItemText
+ if linecolour <> Farbe.GetItemText then warnlog "Linecolour should be: " + linetype + " But is: " + Farbe.GetItemText
+ if linewidth <> Breite.GetText then warnlog "Linewidth should be: " + linewidth + " But is: " + Breite.GetText
+ if cornerstyletype <> CornerStyle.GetSelText then warnlog "CornerStyle should be: " + cornerstyletype + " But is: " + CornerStyle.GetSelText 'ItemText
+ TabLinie.ok
+
+ FormatArea
+ Kontext
+ Messagebox.SetPage TabTransparenz
+ kontext "TabTransparenz"
+ KeineTransparenz.Check
+ sleep 1
+ kontext "TabArea"
+ Kontext
+ active.SetPage TabSchatten
+ kontext "TabSchatten"
+ Anzeigen.UnCheck
+ TabSchatten.Ok
+
+ if (gApplication = "IMPRESS") then
+ ExtensionString = "ppt"
+ else
+ ExtensionString = "odg"
+ end if
+ sFileName = ( ConvertPath(gOfficePath + "user\work\shaddow-test"))
+
+ FileSaveAs
+ Kontext "SpeichernDlg"
+ Dateiname.SetText sFileName
+ if (gApplication = "IMPRESS") then
+ Dateityp.Select 5 ' Powerpoint
+ printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(5)
+ else
+ Dateityp.Select 1
+ printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(1)
+ endif
+ Speichern.Click
+ Kontext "Messagebox"
+ if Messagebox.Exists(2) then Messagebox.Yes
+ Kontext "AlienWarning"
+ if AlienWarning.Exists(2) then AlienWarning.OK
+ printlog "Saved as: " + sFileName
+ Sleep 3
+
+ FileClose
+ Kontext "Messagebox"
+ if Messagebox.Exists(2) then Messagebox.Yes
+ Sleep 3
+ hFileOpen (sFileName + "." + ExtensionString)
+ printlog "File opened: " + sFileName + "." + ExtensionString
+ Sleep 3
+ EditSelectAll
+
+ hOpenContextmenu
+ sleep(2)
+ if hMenuFindSelect(10087, true, 1) = false then
+ Warnlog "Context-Menu-entry `Position and Size` was not found. Therefore the test ends."
+ Call hCloseDocument
+ Goto Endsub
+ endif
+ 'Select "Position and Size"
+ sleep(2)
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ if ImageWidth <> Width.GetText then warnlog "Position X differs. Should be: " + ImageWidth + " But is: " + Width.GetText
+ if ImageHeight <> Height.GetText then warnlog "Position X differs. Should be: " + ImageHeight + " But is: " + Height.GetText
+ TabPositionAndSize.OK
+
+ FormatArea
+ Kontext
+ Messagebox.SetPage TabTransparenz
+ kontext "TabTransparenz"
+ if LineareTransparenz.Ischecked <> FALSE then
+ warnlog "Transparency should NOT have been checked!"
+ if MFLinTransparenz.GetText <> shadowtransparencyvalue then warnlog "Transparency-value should NOT have changed"
+ LineareTransparenz.UnCheck
+ end if
+ TabTransparenz.Cancel
+
+ FormatLine
+ Kontext
+ Messagebox.SetPage TabLinie
+ kontext "TabLinie"
+ if linetype <> Stil.GetItemText then warnlog "Linetype should be: " + linetype + " But is: " + Stil.GetItemText
+ if linecolour <> Farbe.GetItemText then warnlog "Linecolour should be: " + linetype + " But is: " + Farbe.GetItemText
+ if linewidth <> Breite.GetText then warnlog "Linewidth should be: " + linewidth + " But is: " + Breite.GetText
+ if cornerstyletype <> CornerStyle.GetSelText then warnlog "CornerStyle should be: " + cornerstyletype + " But is: " + CornerStyle.GetSelText 'ItemText
+ TabLinie.ok
+
+ Call hCloseDocument
+ Printlog "Finished Shaddow-test for " + gApplication
endcase ' tiShaddow
diff --git a/testautomation/graphics/optional/includes/global/g_slidelayer.inc b/testautomation/graphics/optional/includes/global/g_slidelayer.inc
index 4c70741276e8..dda6cd36679c 100755
--- a/testautomation/graphics/optional/includes/global/g_slidelayer.inc
+++ b/testautomation/graphics/optional/includes/global/g_slidelayer.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
@@ -42,74 +42,57 @@
'\*************************************************************************************
testcase tInsertSlide
- '/// open application ///'
- Call hNewDocument
- '/// Insert->Slide ///'
- InsertSlide
- sleep 2
- hTypekeys "<Pagedown>"
- sleep 2
- try
- '/// Edit->Delete Slide ///'
- EditDeleteSlide
- PrintLog "Slide 2 deleted"
- catch
- sleep 2
- WarnLog "No slide was inserted"
- endcatch
- '/// close application ///'
- hCloseDocument
+ Call hNewDocument
+ InsertSlide
+ sleep 2
+ hTypekeys "<Pagedown>"
+ sleep 2
+ try
+ EditDeleteSlide
+ PrintLog "Slide 2 deleted"
+ catch
+ sleep 2
+ WarnLog "No slide was inserted"
+ endcatch
+ hCloseDocument
endcase
testcase tInsertDuplicateSlide
- '/// open application ///'
- Call hNewDocument
- sleep 2
- '/// create rectangle ///'
- hRechteckErstellen ( 10, 10, 50, 50 )
- sleep 2
- '/// Insert->Duplicate Slide ///'
- InsertDuplicateSlide
- try
- '/// Edit->Select All ///'
- EditSelectAll
- sleep 2
- '/// delete the object with a keystroke: [Delete] ///'
- hTypeKeys "<DELETE>"
- PrintLog "Slide duplicated"
- catch
- Warnlog " Slide not duplicated"
- endcatch
- try
- '/// Edit->Delete Slide ///'
- EditDeleteSlide
- catch
- WarnLog "Error when deleting. Slide is not duplicated ??"
- endcatch
- '/// close application ///'
- hCloseDocument
+ Call hNewDocument
+ sleep 2
+ hRechteckErstellen ( 10, 10, 50, 50 )
+ sleep 2
+ InsertDuplicateSlide
+ try
+ EditSelectAll
+ sleep 2
+ hTypeKeys "<DELETE>"
+ PrintLog "Slide duplicated"
+ catch
+ Warnlog " Slide not duplicated"
+ endcatch
+ try
+ EditDeleteSlide
+ catch
+ WarnLog "Error when deleting. Slide is not duplicated ??"
+ endcatch
+ hCloseDocument
endcase
testcase tInsertLayer
- '/// open application ///'
- Call hNewDocument
- sleep 2
- '/// View->Layer ///'
- ViewLayer
- '/// Edit->Layer->Insert ///'
- InsertLayer
- Kontext "EbeneEinfuegenDlg"
- '/// leave dialog with OK ///'
- EbeneEinfuegenDlg.OK
- sleep 2
- try
- '/// Edit->Layer->Delete ///'
- EditDeleteLayer
- Kontext "Active"
- Active.Yes
- catch
- WarnLog "There is no avaiable additional layer to delete"
- endcatch
- '/// close application ///'
- hCloseDocument
+ Call hNewDocument
+ sleep 2
+ ViewLayer
+ InsertLayer
+ Kontext "EbeneEinfuegenDlg"
+ EbeneEinfuegenDlg.OK
+ sleep 2
+ try
+ EditDeleteLayer
+ Kontext "Active"
+ Active.Yes
+ catch
+ WarnLog "There is no avaiable additional layer to delete"
+ endcatch
+ hCloseDocument
endcase
diff --git a/testautomation/graphics/optional/includes/global/g_spellcheck.inc b/testautomation/graphics/optional/includes/global/g_spellcheck.inc
index 95f95f1b0871..c2ab184675c7 100755
--- a/testautomation/graphics/optional/includes/global/g_spellcheck.inc
+++ b/testautomation/graphics/optional/includes/global/g_spellcheck.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
@@ -56,12 +56,9 @@ testcase tiToolsSpellcheckCorrect
lFiles(0)=0
Printlog "- Checking Dictionary-Files" ' borrowed from w_106.inc
- '/// check if dictionary exists for this EUROPEAN language as file ///'
- '///+ share/dict/$iSprache-hyph.dat ///'
- '///+ print all dictionaries from share/dict/*.dat ///'
select case iSprache
- case 01 : DieDatei = "01-44-hyph.dat"
- case else : DieDatei = "" & iSprache & "-hyph.dat"
+ case 01 : DieDatei = "01-44-hyph.dat"
+ case else : DieDatei = "" & iSprache & "-hyph.dat"
end select
DieDatei = Convertpath(gNetzOfficePath + "share\dict\" + DieDatei)
if gPlatGroup <> "unx" then
@@ -71,9 +68,9 @@ testcase tiToolsSpellcheckCorrect
else
if gNetzInst then
printlog "Dictionary not found : " + DieDatei
- else
+ else
warnlog "Dictionary not found : " + DieDatei
- end if
+ end if
end if
else
Printlog " Dictionary has been installed : " + DieDatei
@@ -84,14 +81,10 @@ testcase tiToolsSpellcheckCorrect
printlog " " + i + ": " + DateiExtract(lFiles(i))
next i
- PrintLog "'/// Spellcheck without text ///'"
- '///+ Open new document ///'
Call hNewDocument
-' sleep 2
- '///+ call 'Tools->Spellcheck->Check' ///'
+ ' sleep 2
ToolsSpellcheck
Kontext "Active"
- '///+ There has to come up only one active: 'Spellcehck of entire document has been completed [OK]' ///'
if Active.Exists(5) then
try
printlog "Message: Finished: Want to continue at the beginning? '" + active.gettext + "'"
@@ -106,35 +99,32 @@ testcase tiToolsSpellcheckCorrect
sleep 2
PrintLog "- Spellcheck with correct text"
- '/// create textbox without a spelling error ///'
select case iSprache
- case 01 : hTextrahmenErstellen ("This is a text without any error.<Return>",10,10,50,20)
- case 33 : hTextrahmenErstellen ("Il nous faut donc un de temps pour examiner avec soin tous les dossiers.<Return>",10,10,70,20)
- case 34 : hTextrahmenErstellen ("Este es un chico muy importante.",10,10,50,20)
- case 36 : hTextrahmenErstellen ("akit a b�r�s�g vagy a szab�lys�rt�si hat�s�g a eltiltott",10,10,70,20)
- case 39 : hTextrahmenErstellen ("La ringraziamo per l'interesse mostrato a collaborare con la firma.<Return>",10,10,70,20)
- case 46 : hTextrahmenErstellen ("Det varierar vad som behandlas och ur vilket perspektiv.<Return>",10,10,50,20)
- case 49 : hTextrahmenErstellen ("Dies ist ein Text ohne Fehler.<Return>",10,10,50,20)
- case 55 : hTextrahmenErstellen ("Esta poderia ser a resposta para suas preces?<Return>",10,10,50,20)
- case else :
- if bAsianLan then
- printlog "For the language " + iSprache +" nothing is prepared yet, but is AsianLan, so OK :-) will use english instaed"
- ' there was smth wrong, try to find out :
- kontext
- if active.exists then
- printlog "ERROR: active: '"+active.gettext+"'"
- active.ok
- end if
- hTextrahmenErstellen ("This is a text without any error.<Return>",10,10,50,20)
- else
- Warnlog "For the language " + iSprache +" nothing is prepared yet: insert text here"
- hTextrahmenErstellen ("This is a text without any error.<Return>",10,10,50,20)
+ case 01 : hTextrahmenErstellen ("This is a text without any error.<Return>",10,10,50,20)
+ case 33 : hTextrahmenErstellen ("Il nous faut donc un de temps pour examiner avec soin tous les dossiers.<Return>",10,10,70,20)
+ case 34 : hTextrahmenErstellen ("Este es un chico muy importante.",10,10,50,20)
+ case 36 : hTextrahmenErstellen ("akit a b�r�s�g vagy a szab�lys�rt�si hat�s�g a eltiltott",10,10,70,20)
+ case 39 : hTextrahmenErstellen ("La ringraziamo per l'interesse mostrato a collaborare con la firma.<Return>",10,10,70,20)
+ case 46 : hTextrahmenErstellen ("Det varierar vad som behandlas och ur vilket perspektiv.<Return>",10,10,50,20)
+ case 49 : hTextrahmenErstellen ("Dies ist ein Text ohne Fehler.<Return>",10,10,50,20)
+ case 55 : hTextrahmenErstellen ("Esta poderia ser a resposta para suas preces?<Return>",10,10,50,20)
+ case else :
+ if bAsianLan then
+ printlog "For the language " + iSprache +" nothing is prepared yet, but is AsianLan, so OK :-) will use english instaed"
+ ' there was smth wrong, try to find out :
+ kontext
+ if active.exists then
+ printlog "ERROR: active: '"+active.gettext+"'"
+ active.ok
end if
+ hTextrahmenErstellen ("This is a text without any error.<Return>",10,10,50,20)
+ else
+ Warnlog "For the language " + iSprache +" nothing is prepared yet: insert text here"
+ hTextrahmenErstellen ("This is a text without any error.<Return>",10,10,50,20)
+ end if
end select
- '///+ call 'Tools->Spellcheck->Check' ///'
ToolsSpellcheck
WaitSlot (2000)
- '///+ There has to come up only one active: 'Spellcheck of entire document has been completed [OK]' ///'
Kontext "Active"
if active.exists(5) then
printlog "Message: spellchecking has finished?: '" + active.gettext + "'"
@@ -150,7 +140,6 @@ testcase tiToolsSpellcheckCorrect
end if
end if
WaitSlot (2000)
- '/// close document ///'
Call hCloseDocument
endcase 'tiToolsSpellcheckCorrect
@@ -170,24 +159,24 @@ testcase tiToolsSpellcheckError
Call hNewDocument
printlog "Selecting language case: " & iSprache
select case iSprache
- case 01 : FehlerText$ = "Thatt is a failure test." : Fehler$ = "Thatt" : Sprachenname$ = "English (US)"
- case 34 : FehlerText$ = "Ezte es un chico muy importante." : Fehler$ = "Ezte" : Sprachenname$ = "Niederlaendisch"
- case 33 : FehlerText$ = "Ler nous faut donc un de temps pour examiner." : Fehler$ = "Ler" : Sprachenname$ = "Franzoesisch"
- case 36 : FehlerText$ = "Boszniai americkai kontingens háromnegyedesek – mintegy négyezer katona – magyarországi telepítése egy éven belül megtörténhet" : Fehler$ = "tellepítésel" : Sprachenname$ = "Ungarisch"
- case 39 : FehlerText$ = "Ringrarziamo per l'interessa mostrato a collaborare con la firma." : Fehler$ = "Ringrarziamo" : Sprachenname$ = "Italienisch"
- case 46 : FehlerText$ = "Detd varierar vad som behandlas och ur vilket perspektiv." : Fehler$ = "Detd" : Sprachenname$ = "Schwedisch"
- case 49 : FehlerText$ = "Diees ist ein Fehler." : Fehler$ = "Diees" : Sprachenname$ = "Deutsch"
- case 55 : FehlerText$ = "Eesta poderia ser a resposta para suas preces?": Fehler$ = "Eesta" : Sprachenname$ = "Portugiesisch"
- case else :
- if bAsianLan then
- printlog "For the language " + iSprache +" nothing is prepared yet, but is AsianLan, so OK :-) using english"
- FehlerText$ = "Thatt is a failure test."
- Fehler$ = "Thatt"
- Sprachenname$ = "English (US)"
- call hSetSpellHypLanguage
- else
- Warnlog "For the language " + iSprache +" nothing is prepared yet: insert text here"
- end if
+ case 01 : FehlerText$ = "Thatt is a failure test." : Fehler$ = "Thatt" : Sprachenname$ = "English (US)"
+ case 34 : FehlerText$ = "Ezte es un chico muy importante." : Fehler$ = "Ezte" : Sprachenname$ = "Niederlaendisch"
+ case 33 : FehlerText$ = "Ler nous faut donc un de temps pour examiner." : Fehler$ = "Ler" : Sprachenname$ = "Franzoesisch"
+ case 36 : FehlerText$ = "Boszniai americkai kontingens háromnegyedesek – mintegy négyezer katona – magyarországi telepítése egy éven belül megtörténhet" : Fehler$ = "tellepítésel" : Sprachenname$ = "Ungarisch"
+ case 39 : FehlerText$ = "Ringrarziamo per l'interessa mostrato a collaborare con la firma." : Fehler$ = "Ringrarziamo" : Sprachenname$ = "Italienisch"
+ case 46 : FehlerText$ = "Detd varierar vad som behandlas och ur vilket perspektiv." : Fehler$ = "Detd" : Sprachenname$ = "Schwedisch"
+ case 49 : FehlerText$ = "Diees ist ein Fehler." : Fehler$ = "Diees" : Sprachenname$ = "Deutsch"
+ case 55 : FehlerText$ = "Eesta poderia ser a resposta para suas preces?": Fehler$ = "Eesta" : Sprachenname$ = "Portugiesisch"
+ case else :
+ if bAsianLan then
+ printlog "For the language " + iSprache +" nothing is prepared yet, but is AsianLan, so OK :-) using english"
+ FehlerText$ = "Thatt is a failure test."
+ Fehler$ = "Thatt"
+ Sprachenname$ = "English (US)"
+ call hSetSpellHypLanguage
+ else
+ Warnlog "For the language " + iSprache +" nothing is prepared yet: insert text here"
+ end if
end select
printlog "Error Text taken for testing is: " & FehlerText$
sleep 2
@@ -206,7 +195,7 @@ testcase tiToolsSpellcheckError
ExtrasOptionenDlg.OK
printlog "Create 1 textbox with 1 spelling error (test replace always)"
hTextrahmenErstellen (FehlerText$,30,30,90,40)
-
+
hTypeKeys "<HOME>"
printlog "Call 'Tools->Spellcheck->Check'"
ToolsSpellcheck
@@ -250,18 +239,18 @@ testcase tiToolsSpellcheckError
Spellcheck.Close
Kontext "Active"
if active.exists(5) then
- Printlog "Spellcheck dialog closed'" + active.gettext + "'"
- Active.OK
+ Printlog "Spellcheck dialog closed'" + active.gettext + "'"
+ Active.OK
else
- Printlog "Spellcheck dialog closed'"
+ Printlog "Spellcheck dialog closed'"
end if
end if
else
Warnlog " Error not recognized by the Spellchecker"
if active.exists(5) then
- Kontext "Active"
- printlog "Message: spellchecking has finished?: '" + active.gettext + "'"
- Active.OK
+ Kontext "Active"
+ printlog "Message: spellchecking has finished?: '" + active.gettext + "'"
+ Active.OK
end if
end if
@@ -274,7 +263,7 @@ testcase tiToolsSpellcheckError
Printlog "Check function Ignore"
hTextrahmenErstellen (FehlerText$,30,30,80,40)
printlog "All 'Tools->Spellcheck->Check'."
-
+
'printlog "Setting Text to english"
'sleep 1
'EditSelectAll
@@ -285,7 +274,7 @@ testcase tiToolsSpellcheckError
'Kontext "TabFont"
'Language.Select 41
'TabFont.OK
-
+
ToolsSpellcheck
Kontext "Spellcheck"
printlog "press button 'Ignore'"
@@ -302,10 +291,10 @@ testcase tiToolsSpellcheckError
Spellcheck.Close
Kontext "Active"
if active.exists(5) then
- Printlog " Spellcheck dialog closed'" + active.gettext + "'"
- Active.OK
+ Printlog " Spellcheck dialog closed'" + active.gettext + "'"
+ Active.OK
else
- Printlog " Spellcheck dialog closed'"
+ Printlog " Spellcheck dialog closed'"
end if
end if
@@ -317,10 +306,10 @@ testcase tiToolsSpellcheckError
Spellcheck.Close
Kontext "Active"
if active.exists(5) then
- Printlog " " + active.gettext + "'"
- Active.OK
+ Printlog " " + active.gettext + "'"
+ Active.OK
else
- Printlog " Spellcheck dialog closed'"
+ Printlog " Spellcheck dialog closed'"
end if
else
Warnlog " Spellcheck ended even we only ignored the error"
@@ -333,7 +322,7 @@ testcase tiToolsSpellcheckError
printlog "create same textbox again (test ALWAYS IGNORE function)."
hTextrahmenErstellen (FehlerText$,30,30,60,40)
-
+
'printlog "Setting Text to english"
'sleep 1
'EditSelectAll
@@ -344,7 +333,7 @@ testcase tiToolsSpellcheckError
'Kontext "TabFont"
'Language.Select 41
'TabFont.OK
-
+
printlog "Call 'Tools->Spellcheck->Check'."
ToolsSpellcheck
Kontext "Spellcheck"
@@ -362,10 +351,10 @@ testcase tiToolsSpellcheckError
Spellcheck.Close
Kontext "Active"
if active.exists(5) then
- Printlog " Spellcheck dialog closed'" + active.gettext + "'"
- Active.OK
+ Printlog " Spellcheck dialog closed'" + active.gettext + "'"
+ Active.OK
else
- Printlog " Spellcheck dialog closed'"
+ Printlog " Spellcheck dialog closed'"
end if
end if
@@ -401,8 +390,8 @@ testcase tiToolsSpellcheckCheck
Dim bFound as boolean
Select Case Ucase(gApplication)
- case "DRAW" : sExt = ".odg"
- case "IMPRESS" : sExt = ".odp"
+ case "DRAW" : sExt = ".odg"
+ case "IMPRESS" : sExt = ".odp"
end select
printlog "Load prepared document containing 4 errors : graphics\\required\\input\\recht_" & iSprache & sExt
@@ -420,14 +409,14 @@ testcase tiToolsSpellcheckCheck
end if
end if
select case iSprache ' sWord(1)=red : sWord(2)=turquoise
- case 01 : sWord(1) = "documente" : sWord(2) = "expriss"
- case 33 : sWord(1) = "intercu" : sWord(2) = "Lees"
- case 34 : sWord(1) = "afekto" : sWord(2) = "fratternal"
- case 36 : sWord(1) = "szeerint" : sWord(2) = "tervvezi"
- case 39 : sWord(1) = "Millano" : sWord(2) = "tarrget"
- case 46 : sWord(1) = "desa" : sWord(2) = "occh"
- case 49 : sWord(1) = "Texxt" : sWord(2) = "reichtt"
- case 55 : sWord(1) = "esktava" : sWord(2) = "noitee"
+ case 01 : sWord(1) = "documente" : sWord(2) = "expriss"
+ case 33 : sWord(1) = "intercu" : sWord(2) = "Lees"
+ case 34 : sWord(1) = "afekto" : sWord(2) = "fratternal"
+ case 36 : sWord(1) = "szeerint" : sWord(2) = "tervvezi"
+ case 39 : sWord(1) = "Millano" : sWord(2) = "tarrget"
+ case 46 : sWord(1) = "desa" : sWord(2) = "occh"
+ case 49 : sWord(1) = "Texxt" : sWord(2) = "reichtt"
+ case 55 : sWord(1) = "esktava" : sWord(2) = "noitee"
case else :
if bAsianLan then
sWord(1) = "documente" : sWord(2) = "expriss"
@@ -459,16 +448,16 @@ testcase tiToolsSpellcheckCheck
for i = 1 to iBooks
Buch.select(i)
printlog "Items in Booklist: " & WordList.getItemCount
- for j = 1 to 2
- Wort.setText sWord(j)
- sleep 1
- if ((not neu.isEnabled) and Loeschen.isEnabled) then
- printlog "If it contains the word, press button 'delete'."
- Loeschen.click
- bWordFound(j) = true
- printlog "Added word WAS in dictionary: '" + Buch.getSelText + "' - '" + sWord(j) + "'"
- end if
- next j
+ for j = 1 to 2
+ Wort.setText sWord(j)
+ sleep 1
+ if ((not neu.isEnabled) and Loeschen.isEnabled) then
+ printlog "If it contains the word, press button 'delete'."
+ Loeschen.click
+ bWordFound(j) = true
+ printlog "Added word WAS in dictionary: '" + Buch.getSelText + "' - '" + sWord(j) + "'"
+ end if
+ next j
next i
if (bWordFound(1) OR bWordFound(2))then
qaErrorLog "Word was found in dictionary - check why it was there. '" + sWord(1) + "': " + bWordFound(1) + " '" + sWord(2) + "': " + bWordFound(2)
@@ -514,10 +503,10 @@ testcase tiToolsSpellcheckCheck
Spellcheck.Close
Kontext "Active"
if active.exists(5) then
- Warnlog " Should not be any message here: " + active.gettext + "'"
- Active.OK
+ Warnlog " Should not be any message here: " + active.gettext + "'"
+ Active.OK
else
- printlog "Spellcheck ended, dialog closed"
+ printlog "Spellcheck ended, dialog closed"
end if
printlog "Select all."
hTypeKeys "<MOD1 A>"
@@ -598,7 +587,7 @@ testcase tiToolsSpellcheckCheck
warnlog "Ignore didn't work? Spellcheck didn't go on"
end if
if (sWord(iWord(1)) <> sWordTwo) then
- Printlog "The errornous word '" + sWord(iWord(1)) + "' would be replaced with: '" + sWordTwo + "'"
+ Printlog "The errornous word '" + sWord(iWord(1)) + "' would be replaced with: '" + sWordTwo + "'"
end if
printlog "********* word found: '" + sWordTwo + "'"
printlog "##### suggestions: "+Suggestions.GetItemCount+"; Language: "+DictionaryLanguage.getSelText ' +" ; dictionary: "+woerterbuch.getSelText
@@ -671,14 +660,14 @@ testcase tiToolsSpellcheckCheck
warnlog "Add didn't work? Spellcheck didn't go on."
end if
if (sWord(iWord(2)) <> sWordTwo) then
- Printlog "The erroneous word '" + sWord(iWord(2)) + "' would be replaced with: '" + sWordTwo + "'"
+ Printlog "The erroneous word '" + sWord(iWord(2)) + "' would be replaced with: '" + sWordTwo + "'"
else
- warnlog "ERROR: SAME WORD in the dictionary as in the text??? Must be wrong."
+ warnlog "ERROR: SAME WORD in the dictionary as in the text??? Must be wrong."
end if
printlog "********* word found: '" + sWordTwo + "'"
printlog "##### suggestions: "+Suggestions.GetItemCount+"; Language: "+DictionaryLanguage.getSelText ' +" ; dictionary: "+DictionaryLanguage.getSelText 'Wort.GetItemCount 'Woerterbuch.GetSelText
if (Suggestions.GetItemCount > 0) then 'Wort.GetItemCount > 0) then
- printlog "----- "+i+": "+Suggestions.GetItemText (1) 'Wort.GetItemText (1)
+ printlog "----- "+i+": "+Suggestions.GetItemText (1) 'Wort.GetItemText (1)
end if
Sleep 1
printlog "Click button 'Always ignore' on dialog."
@@ -771,7 +760,7 @@ testcase tiToolsSpellcheckCheck
Sleep 1
printlog "click button 'Always Replace'."
if (iSuggestions > 0) then
- ChangeAll.click
+ ChangeAll.click
else
qaErrorLog "Please change the text in the file, so the spellchecker can make a suggestion for the word: '" + sWordTwo + "'"
IgnoreOnce.Click
@@ -884,15 +873,11 @@ testcase tToolsSpellcheckAutoSpellcheck
dim iError as long
dim sError as string
- '/// open new document ///'
call hNewDocument
- '/// insert text 'Ein Tipp: Schiffahrt schreibt man nun mit 3f' ///'
call hTextrahmenErstellen ("Ein Tipp: Schiffahrt schreibt man nun mit 3f Tunfisch Amboss a", 10, 10, 90, 50)
- '/// select the whole text ///'
EditSelectAll
- '/// on dialog 'format-character' set language to english ///'
setCharacterLanguage(glLocale(4))
sleep 10
printlog "## check ENGLISH auto spellchecking"
@@ -916,7 +901,7 @@ testcase tToolsSpellcheckAutoSpellcheck
end if
sleep 1
-' call hTypeKeys "<F2>"
+ ' call hTypeKeys "<F2>"
call hTypeKeys "<mod1 end> <Shift mod1 home>"
setCharacterLanguage(glLocale(6))
sleep 10
@@ -939,7 +924,6 @@ testcase tToolsSpellcheckAutoSpellcheck
end if
printlog "-----------------------------------"
- '/// close application ///'
hCloseDocument()
endcase 'tToolsSpellcheckAutoSpellcheck
diff --git a/testautomation/graphics/optional/includes/global/g_stylist.inc b/testautomation/graphics/optional/includes/global/g_stylist.inc
index 356f2cfdc1ab..6933180d20f6 100755
--- a/testautomation/graphics/optional/includes/global/g_stylist.inc
+++ b/testautomation/graphics/optional/includes/global/g_stylist.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
@@ -56,14 +56,11 @@ testcase tFormatStylistFlyer
Dim ySize%
printlog " - Format/Stylist : using all possible things to manipulate the flyer"
- '/// open application ///'
Call hNewDocument
Kontext "Gestalter"
- '/// Check if stylist is there. Expected: not there ///'
if Gestalter.NotExists = false Then
qaErrorLog " - Expected Stylist to be closed; But is Open. Check tests."
else
- hTypekeys "<F11>" '/// open stylist by pressing key [F11] ///'
sleep 1
end if
Kontext "Gestalter"
@@ -71,84 +68,64 @@ testcase tFormatStylistFlyer
Warnlog " No stylist popped up using F11; opening now via slotID"
FormatStylist
end if
- '///+ save stylist position and size ///'
xPos% = Gestalter.GetPosX
yPos% = Gestalter.GetPosY
xSize% = Gestalter.GetSizeX
ySize% = Gestalter.GetSizeY
- '///+ if Stylist is docked; undock ///'
if Gestalter.IsDocked then Gestalter.UnDock
- printlog " - '///move stylist ///"
- '///+ move stylist to 10,10 ///'
- Gestalter.Move 10, 10
- Sleep 1
- '///+ move stylist to 300,400 ///'
- Gestalter.Move 300, 400
- Sleep 1
- '///+ move stylist to 590,790 ///'
- Gestalter.Move 590, 790
- Sleep 1
- '///+ move stylist back to saved start position ///'
- Gestalter.Move xPos%, yPos%
- Sleep 1
-
- printlog " - '///size stylist ///"
- '///+ change size to 200,200 ///'
- Gestalter.Size 200, 200
- Sleep 1
- '///+ change size to 300,400 ///'
- Gestalter.Size 300, 400
- Sleep 1
- '///+ change size to 150,250 ///'
- Gestalter.Size 150, 250
- Sleep 1
- '///+ change size back to saved size ///'
- Gestalter.Size xSize%, ySize%
- Sleep 1
-
- printlog " - Close stylist reopen stylist, check if appearence is same as before"
- '/// save stylist position and size ///'
- xPos% = Gestalter.GetPosX
- yPos% = Gestalter.GetPosY
- xSize% = Gestalter.GetSizeX
- ySize% = Gestalter.GetSizeY
- '/// close stylist Format->Stylist ///'
- FormatStylist
- Sleep 1
- '/// open stylist Format->Stylist ///'
- FormatStylist
- sleep (1)
- if xPos% <> Gestalter.GetPosX then Warnlog "The x-Pos. has changed : Should be -> '"+ xPos% + "' Is -> '"+ Gestalter.GetPosX +"'."
- if yPos% <> Gestalter.GetPosY then Warnlog "The y-Pos. has changed : Should be -> '"+ yPos% + "' Is -> '"+ Gestalter.GetPosY +"'."
- if xSize% <> Gestalter.GetSizeX then Warnlog "The x-Size has changed : Should be -> '"+ xSize% + "' Is -> '"+ Gestalter.GetSizeX +"'."
- if ySize% <> Gestalter.GetSizeY then Warnlog "The y-Size has changed : Should be -> '"+ ySize% + "' Is -> '"+ Gestalter.GetSizeY +"'."
+ Gestalter.Move 10, 10
+ Sleep 1
+ Gestalter.Move 300, 400
+ Sleep 1
+ Gestalter.Move 590, 790
+ Sleep 1
+ Gestalter.Move xPos%, yPos%
+ Sleep 1
- printlog " - dock stylist"
- '/// dock stylist ///'
- Gestalter.Dock
- Sleep 1
- if (NOT Gestalter.IsDocked) then
- warnlog " stylist not docked but should"
- endif
- '/// UNdock stylist ///'
- if (Gestalter.IsDocked) Then
- Gestalter.UnDock
- endif
- Sleep 1
+ Gestalter.Size 200, 200
+ Sleep 1
+ Gestalter.Size 300, 400
+ Sleep 1
+ Gestalter.Size 150, 250
+ Sleep 1
+ Gestalter.Size xSize%, ySize%
+ Sleep 1
- printlog " - maximize/minimize stylist"
- '/// minimize stylist ///'
- Gestalter.Minimize
- Sleep 1
- '/// maximize stylist ///'
- Gestalter.Maximize
- Sleep 1
- if (NOT Gestalter.IsMax) then
- warnlog " The stylist did not return to maximized state"
- endif
- '/// close stylist ///'
- Gestalter.Close
- Call hCloseDocument
+ printlog " - Close stylist reopen stylist, check if appearence is same as before"
+ xPos% = Gestalter.GetPosX
+ yPos% = Gestalter.GetPosY
+ xSize% = Gestalter.GetSizeX
+ ySize% = Gestalter.GetSizeY
+ FormatStylist
+ Sleep 1
+ FormatStylist
+ sleep (1)
+ if xPos% <> Gestalter.GetPosX then Warnlog "The x-Pos. has changed : Should be -> '"+ xPos% + "' Is -> '"+ Gestalter.GetPosX +"'."
+ if yPos% <> Gestalter.GetPosY then Warnlog "The y-Pos. has changed : Should be -> '"+ yPos% + "' Is -> '"+ Gestalter.GetPosY +"'."
+ if xSize% <> Gestalter.GetSizeX then Warnlog "The x-Size has changed : Should be -> '"+ xSize% + "' Is -> '"+ Gestalter.GetSizeX +"'."
+ if ySize% <> Gestalter.GetSizeY then Warnlog "The y-Size has changed : Should be -> '"+ ySize% + "' Is -> '"+ Gestalter.GetSizeY +"'."
+
+ printlog " - dock stylist"
+ Gestalter.Dock
+ Sleep 1
+ if (NOT Gestalter.IsDocked) then
+ warnlog " stylist not docked but should"
+ endif
+ if (Gestalter.IsDocked) Then
+ Gestalter.UnDock
+ endif
+ Sleep 1
+
+ printlog " - maximize/minimize stylist"
+ Gestalter.Minimize
+ Sleep 1
+ Gestalter.Maximize
+ Sleep 1
+ if (NOT Gestalter.IsMax) then
+ warnlog " The stylist did not return to maximized state"
+ endif
+ Gestalter.Close
+ Call hCloseDocument
endcase
testcase tFormatStylistDocuments
@@ -158,12 +135,9 @@ testcase tFormatStylistDocuments
Dim ySize% as Integer
printlog " - Format/Stylist : check methods with more than 1 document"
- '/// open application 1 ///'
Call hNewDocument
printlog " - Open stylist, check stylist in another document"
- '/// Format->Stylist ///'
FormatStylist
- '/// open application 2 ///'
Call hNewDocument
Kontext "Gestalter"
if (Gestalter.NotExists) then
@@ -172,13 +146,10 @@ testcase tFormatStylistDocuments
endif
printlog " - Close all documents, reopen 1"
- '/// File->Close 2 ///'
FileClose
Sleep 2
- '/// File->Close 1 ///'
FileClose
Sleep 2
- '/// open application 1 ///'
hNewDocument
Kontext "Gestalter"
if (Gestalter.NotExists) then
@@ -186,10 +157,8 @@ testcase tFormatStylistDocuments
endif
printlog " - stylist in a document docked, in a new rechecked"
- '/// dock stylist ///'
Gestalter.Dock
Sleep 3
- '/// open application 2 ///'
hNewDocument
sleep 3
Kontext "Gestalter"
@@ -198,14 +167,11 @@ testcase tFormatStylistDocuments
endif
printlog " - Close all documents, reopen one and check the docked stylist"
- '/// File->Close 2 ///'
FileClose
Sleep 2
- '/// File->Close 1 ///'
FileClose
Sleep 2
Kontext "Gestalter"
- '/// open application 1 ///'
hNewDocument
Kontext "Gestalter"
if NOT Gestalter.IsDocked then
@@ -213,17 +179,14 @@ testcase tFormatStylistDocuments
endif
printlog " - Close stylist using F11"
- '/// undock stylist ///'
Gestalter.Undock
Sleep 1
- '/// close stylist with key [F11] ///'
hTypeKeys "<F11>"
Kontext "Gestalter"
if Gestalter.exists then
warnlog " Stylist still exists - closing again"
Gestalter.Close
end if
- '/// close application 1 ///'
Call hCloseDocument
endcase
@@ -232,10 +195,8 @@ testcase tFormatStylistTemplatesUse
Dim save as integer
printlog "- Format/Stylist : use all templates"
- '/// open application ///'
hNewDocument
sleep 1
- '/// Format->Stylist ///'
FormatStylist
sleep 1
Kontext "Gestalter"
@@ -244,34 +205,28 @@ testcase tFormatStylistTemplatesUse
FormatStylist
endif
printlog " - Presentation-templates"
- '/// if application is impress: click on button 'Presentation Styles' ///'
if (Lcase (gApplication) = "IMPRESS") then
TBGestalter.Click Praesentationsvorlagen
endif
- '/// select every item from the list 'Styles' ///'
save = Gruppenliste.GetSelIndex
for i=1 to Gruppenliste.GetItemCount
Gruppenliste.Select i
Sleep 1
next i
- '/// click on button 'Graphics Styles' ///'
TBGestalter.Click Grafikvorlagen
Sleep 2
printlog " - Graphic-templates"
- '/// select every item from the list 'Styles' ///'
for i=1 to Gruppenliste.GetItemCount
Gruppenliste.Select i
Sleep 1
next i
sleep 1
Gruppenliste.Select save
-
- '/// close stylist ///'
+
Gestalter.Close
sleep 3
- '/// close application ///'
Call hCloseDocument
endcase
@@ -281,74 +236,59 @@ testcase tFormatStylistTemplateCreate
dim Zaehler
printlog "- Format/stylist :Create template and use it"
- '/// open application ///'
Call hNewDocument
sleep 3
printlog " - create template for paragraph"
- '/// Format->Styles->Catalog... ///'
FormatStylesCatalog
- Kontext "VorlagenKatalog"
- sleep 2
- printlog " " + Vorlagen.GetItemCount
- '/// select first template ///'
- Vorlagen.Select 1
- sleep 3
- '/// click button 'New...' ///'
- Neu.Click
- sleep 2
- Kontext
- '/// select tabpage 'Organzier' ///'
- Active.SetPage TabVerwalten
- Kontext "TabVerwalten"
- '/// set textfield 'Name' to 'ATesttool' ///'
- VorlagenName.SetText "ATesttool"
- '/// close dialog 'Graphic styles' with OK ///'
- TabVerwalten.OK
- sleep 2
- Kontext "VorlagenKatalog"
- sleep 1
- '/// close dialog 'Style Catalog' ///'
- VorlagenKatalog.Close
+ Kontext "VorlagenKatalog"
+ sleep 2
+ printlog " " + Vorlagen.GetItemCount
+ Vorlagen.Select 1
+ sleep 3
+ Neu.Click
+ sleep 2
+ Kontext
+ Active.SetPage TabVerwalten
+ Kontext "TabVerwalten"
+ VorlagenName.SetText "ATesttool"
+ TabVerwalten.OK
+ sleep 2
+ Kontext "VorlagenKatalog"
+ sleep 1
+ VorlagenKatalog.Close
sleep 1
Printlog " - New created template will be deleted now"
- '/// Format->Styles->Catalog... ///'
FormatStylesCatalog
- sleep 1
- Kontext "Vorlagenkatalog"
- sleep 1
- Vorlagen.Select 1
- sleep 1
- '/// search for the created entry 'ATesttool' ///'
- zaehler=Ansicht.getItemCount
- i=0
- do
- inc i
- loop while ((Ansicht.getItemText(i) <> "ATesttool") AND (i <= zaehler))
- if i>zaehler then
- warnlog " error"
- endif
- '/// select the entry ///'
- Ansicht.Select i
- sleep 1
- Ansicht.TypeKeys "<SPACE>"
- sleep 1
- '/// click button 'Delete...' ///'
- Loeschen.Click
- '/// say YES to 'Do you realy want to delete Style ...' ///'
- Kontext "Active"
- Active.Yes
- sleep 1
- Kontext "Vorlagenkatalog"
- '/// close dialog 'Style Catalog' ///'
- Vorlagenkatalog.Close
sleep 1
- Kontext "DocumentDraw"
- gMouseClick 90,90
+ Kontext "Vorlagenkatalog"
sleep 1
- '/// close application ///'
- Call hCloseDocument
+ Vorlagen.Select 1
sleep 1
+ zaehler=Ansicht.getItemCount
+ i=0
+ do
+ inc i
+loop while ((Ansicht.getItemText(i) <> "ATesttool") AND (i <= zaehler))
+if i>zaehler then
+ warnlog " error"
+endif
+Ansicht.Select i
+sleep 1
+Ansicht.TypeKeys "<SPACE>"
+sleep 1
+Loeschen.Click
+Kontext "Active"
+Active.Yes
+sleep 1
+Kontext "Vorlagenkatalog"
+Vorlagenkatalog.Close
+sleep 1
+Kontext "DocumentDraw"
+gMouseClick 90,90
+sleep 1
+Call hCloseDocument
+sleep 1
endcase
testcase tFormatStylistTemplateSelect
@@ -358,87 +298,74 @@ testcase tFormatStylistTemplateSelect
dim sTemp as string
printlog " - Format/Stylist : select template"
- '/// open application ///'
Call hNewDocument
- '/// insert a textframe with text and select the text ///'
hTextrahmenErstellen ("This is a formatted text <Shift Home>",20,20,80,30)
printlog " - format text"
- '/// Format->Character ///'
FormatCharacter
- Kontext
- '/// select tabpage 'Font' ///'
- Active.SetPage TabFont
- Kontext "TabFont"
- '/// close dialog 'Font' with OK ///'
- TabFont.OK
+ Kontext
+ Active.SetPage TabFont
+ Kontext "TabFont"
+ TabFont.OK
printlog " - choose format using stylist"
- '/// Format->Stylist ///'
FormatStylist
- '/// compare, if every entry can be selected from the list 'templates' ///'
- '///+ if there are double entries, then you can't go throgh the list with just pressin [down], ///'
- '///+ but it works going from the bottom [up] -> count the uniqe entries for both directions and compare! ///'
- Kontext "Gestalter"
- sleep 1
- ' going from bottom to top
- Vorlagenliste.TypeKeys "<End>"
- for i = 1 to 20
- ListAppend(sListUp(), Vorlagenliste.GetText)
- Vorlagenliste.TypeKeys "<Up>"
- next i
- ' going from top to bottom
- Vorlagenliste.TypeKeys "<Home>"
- for i = 1 to 20
- ListAppend(sListDown(), Vorlagenliste.GetText)
- Vorlagenliste.TypeKeys "<Down>"
- next i
- ' delete double entries in both lists (up/down)
- sTemp = sListUp(20)
- for i = 19 to 1 step -1
- if (sListUp(i) = sTemp) then
- printlog i
- ListDelete(sListUp(), i+1)
- endif
- sTemp = sListUp(i)
- next i
- sTemp = sListDown(20)
- for i = 19 to 1 step -1
- if (sListDown(i) = sTemp) then
- ListDelete(sListDown(), i+1)
- endif
- sTemp = sListDown(i)
- next i
- ' if there are double entries...
- if (ListCount(sListUp()) <> ListCount(sListDown())) then
- if (iSprache = 82) then ' WorkAround BUG: #111652#
- warnLog "There are double entries in the list! Up: " + ListCount(sListUp()) + "; Down: " +ListCount(sListDown())
- elseif (iSprache = 07) then
- warnlog "There are missing entries in the list. Will be fixed in CWS the 06.02.2006. - FHA" 'Russian TODO -FHA
- else
- warnlog "There are double entries in the list! Up: " + ListCount(sListUp()) + "; Down: " +ListCount(sListDown())
- endif
- for i = ListCount(sListUp()) to 1 step -1
- printlog "* " + i + ": '" + sListUp(i) + "'"
- next i
+ Kontext "Gestalter"
+ sleep 1
+ ' going from bottom to top
+ Vorlagenliste.TypeKeys "<End>"
+ for i = 1 to 20
+ ListAppend(sListUp(), Vorlagenliste.GetText)
+ Vorlagenliste.TypeKeys "<Up>"
+ next i
+ ' going from top to bottom
+ Vorlagenliste.TypeKeys "<Home>"
+ for i = 1 to 20
+ ListAppend(sListDown(), Vorlagenliste.GetText)
+ Vorlagenliste.TypeKeys "<Down>"
+ next i
+ ' delete double entries in both lists (up/down)
+ sTemp = sListUp(20)
+ for i = 19 to 1 step -1
+ if (sListUp(i) = sTemp) then
+ printlog i
+ ListDelete(sListUp(), i+1)
endif
- '/// doubleclick in list onto the entry 'Default' ///'
- ' here this method has to stay, because it will also find some errors;
- ' the method, that works even with an error in the list is shown in testcase tFormatStylistTemplateNew
- hDoubleClickInList ( Vorlagenliste, glLocale (3) )
- Gestalter.Close
+ sTemp = sListUp(i)
+ next i
+ sTemp = sListDown(20)
+ for i = 19 to 1 step -1
+ if (sListDown(i) = sTemp) then
+ ListDelete(sListDown(), i+1)
+ endif
+ sTemp = sListDown(i)
+ next i
+ ' if there are double entries...
+ if (ListCount(sListUp()) <> ListCount(sListDown())) then
+ if (iSprache = 82) then ' WorkAround BUG: #111652#
+ warnLog "There are double entries in the list! Up: " + ListCount(sListUp()) + "; Down: " +ListCount(sListDown())
+ elseif (iSprache = 07) then
+ warnlog "There are missing entries in the list. Will be fixed in CWS the 06.02.2006. - FHA" 'Russian TODO -FHA
+ else
+ warnlog "There are double entries in the list! Up: " + ListCount(sListUp()) + "; Down: " +ListCount(sListDown())
+ endif
+ for i = ListCount(sListUp()) to 1 step -1
+ printlog "* " + i + ": '" + sListUp(i) + "'"
+ next i
+ endif
+ ' here this method has to stay, because it will also find some errors;
+ ' the method, that works even with an error in the list is shown in testcase tFormatStylistTemplateNew
+ hDoubleClickInList ( Vorlagenliste, glLocale (3) )
+ Gestalter.Close
printlog " - check Format"
- '/// Format->Area ///'
FormatArea
- Kontext
- '/// select tabpage 'Area' ///'
- Active.SetPage TabArea
- Kontext "TabArea"
- 'TODO: TBO check criteria, that right template is used....
- ' ???? if Farbe.IsChecked then Printlog "Standard template is used"
- TabArea.OK
+ Kontext
+ Active.SetPage TabArea
+ Kontext "TabArea"
+ 'TODO: TBO check criteria, that right template is used....
+ ' ???? if Farbe.IsChecked then Printlog "Standard template is used"
+ TabArea.OK
sleep 2
- '/// close application ///'
hCloseDocument
endcase
@@ -449,117 +376,95 @@ testcase tFormatStylistTemplateNew
dim i as integer
printlog "- Format/Stylist : New template from selection"
- '/// open application ///'
Call hNewDocument
- '/// create a textframe with content ///'
hTextrahmenErstellen ("This text will soon be formatted and thereafter made as template",20,20,80,40)
sleep 1
- '/// select some text in the frame ///'
hTypeKeys "<Return><Up><Shift End>"
- '/// call Format->Character ///'
FormatCharacter
Kontext
- '/// select tabpage 'Font' ///'
- Active.SetPage TabFont
- Kontext "TabFont"
- '/// cloce dialog 'character' with OK ///'
- TabFont.OK
+ Active.SetPage TabFont
+ Kontext "TabFont"
+ TabFont.OK
printlog " - Create template from selection"
- '/// call Format->Stylist ///'
FormatStylist
- Kontext "Gestalter"
- '/// click button 'Graphics Styles' ///'
- TBGestalter.Click Grafikvorlagen
- Sleep 1
- '/// Click button 'New from selection' ///'
- TBGestalterRight.Click AusSelektion
- Kontext "VorlageErzeugen"
- '/// in textfield 'Style name' type 'Testtool' ///'
- VorlagenName.SetText "Testtool"
- '/// click button 'OK' on dialog 'Create Style' ///'
- VorlageErzeugen.OK
+ Kontext "Gestalter"
+ TBGestalter.Click Grafikvorlagen
+ Sleep 1
+ TBGestalterRight.Click AusSelektion
+ Kontext "VorlageErzeugen"
+ VorlagenName.SetText "Testtool"
+ VorlageErzeugen.OK
printlog " - assign new graphic template to selected text"
- '/// create a textframe with content ///'
hTextrahmenErstellen ("This is another text",40,40,70,50)
- '/// select some text in the frame ///'
hTypeKeys "<Return><Up><Shift End>"
- Kontext "Gestalter"
- '/// click button 'Graphics Styles' in Stylist///'
- TBGestalter.Click Grafikvorlagen
- sleep 1
- ' test BUG: #111652# ' find illegal double entries in template list
- ' going from bottom to top
- Vorlagenliste.TypeKeys "<End>"
- for i = 1 to 20
- sTemp = Vorlagenliste.GetText
- ListAppend(sListUp(), sTemp)
- Vorlagenliste.TypeKeys "<Up>"
- next i
- ' going from top to bottom
- Vorlagenliste.TypeKeys "<Home>"
- for i = 1 to 20
- ListAppend(sListDown(), Vorlagenliste.GetText)
- Vorlagenliste.TypeKeys "<Down>"
- next i
- ' delete double entries in both lists (up/down)
- sTemp = sListUp(20)
- for i = 19 to 1 step -1
- if (sListUp(i) = sTemp) then
- ListDelete(sListUp(), i+1)
- endif
+ Kontext "Gestalter"
+ TBGestalter.Click Grafikvorlagen
+ sleep 1
+ ' test BUG: #111652# ' find illegal double entries in template list
+ ' going from bottom to top
+ Vorlagenliste.TypeKeys "<End>"
+ for i = 1 to 20
+ sTemp = Vorlagenliste.GetText
+ ListAppend(sListUp(), sTemp)
+ Vorlagenliste.TypeKeys "<Up>"
+ next i
+ ' going from top to bottom
+ Vorlagenliste.TypeKeys "<Home>"
+ for i = 1 to 20
+ ListAppend(sListDown(), Vorlagenliste.GetText)
+ Vorlagenliste.TypeKeys "<Down>"
+ next i
+ ' delete double entries in both lists (up/down)
+ sTemp = sListUp(20)
+ for i = 19 to 1 step -1
+ if (sListUp(i) = sTemp) then
+ ListDelete(sListUp(), i+1)
+ endif
sTemp = sListUp(i)
- next i
- sTemp = sListDown(20)
- for i = 19 to 1 step -1
- if (sListDown(i) = sTemp) then
- ListDelete(sListDown(), i+1)
- endif
+ next i
+ sTemp = sListDown(20)
+ for i = 19 to 1 step -1
+ if (sListDown(i) = sTemp) then
+ ListDelete(sListDown(), i+1)
+ endif
sTemp = sListDown(i)
- next i
- ' if any double entries...
- if (ListCount(sListUp()) <> ListCount(sListDown())) then
- if (iSprache = 82) then ' WorkAround BUG: #111652#
- warnLog "82: There are double entries in the list! Up: " + ListCount(sListUp()) + "; Down: " +ListCount(sListDown())
- elseif (iSprache = 07) then
- warnlog "There are missing entries in the list. Will be fixed in CWS the 06.02.2006. - FHA" 'Russian TODO -FHA
- else
- warnlog "There are double entries in the list! Up: " + ListCount(sListUp()) + "; Down: " +ListCount(sListDown())
- for i = ListCount(sListDown()) to 1 step -1
- printlog " - " + i + " " + sListDown(i)
- next i
- for i = ListCount(sListUp()) to 1 step -1
- printlog " - " + i + " " + sListUp(i)
- next i
- endif
+ next i
+ ' if any double entries...
+ if (ListCount(sListUp()) <> ListCount(sListDown())) then
+ if (iSprache = 82) then ' WorkAround BUG: #111652#
+ warnLog "82: There are double entries in the list! Up: " + ListCount(sListUp()) + "; Down: " +ListCount(sListDown())
+ elseif (iSprache = 07) then
+ warnlog "There are missing entries in the list. Will be fixed in CWS the 06.02.2006. - FHA" 'Russian TODO -FHA
+ else
+ warnlog "There are double entries in the list! Up: " + ListCount(sListUp()) + "; Down: " +ListCount(sListDown())
+ for i = ListCount(sListDown()) to 1 step -1
+ printlog " - " + i + " " + sListDown(i)
+ next i
+ for i = ListCount(sListUp()) to 1 step -1
+ printlog " - " + i + " " + sListUp(i)
+ next i
endif
- '/// go through list again from bottom and stop on the entry 'Testtool' ///'
- Vorlagenliste.TypeKeys "<End>"
- i = 0
- do
- inc i
- sTemp = Vorlagenliste.GetText
- Vorlagenliste.TypeKeys "<Up>"
- loop while (("Testtool" <> sTemp) AND (i<20))
- '/// press key [Return] ///'
- Vorlagenliste.TypeKeys "<Return>"
- Kontext "Gestalter"
- '/// close stylist ///'
- Gestalter.Close
-
- Printlog " - check template"
- '/// call Format->Character ///'
- FormatCharacter
- Kontext
- '/// select tabpage 'Font' ///'
- Active.SetPage TabFont
- Kontext "TabFont"
- '/// close dialog 'character' with OK ///'
- TabFont.OK
- '/// exit textframe by pressing Key 'Escape' two times ///'
- hTypeKeys ("<escape>",2)
- '/// close application ///'
- hCloseDocument
+ endif
+ Vorlagenliste.TypeKeys "<End>"
+ i = 0
+ do
+ inc i
+ sTemp = Vorlagenliste.GetText
+ Vorlagenliste.TypeKeys "<Up>"
+loop while (("Testtool" <> sTemp) AND (i<20))
+Vorlagenliste.TypeKeys "<Return>"
+Kontext "Gestalter"
+Gestalter.Close
+
+Printlog " - check template"
+FormatCharacter
+Kontext
+Active.SetPage TabFont
+Kontext "TabFont"
+TabFont.OK
+hTypeKeys ("<escape>",2)
+hCloseDocument
endcase
testcase tiFormatStylist
@@ -570,35 +475,33 @@ testcase tiFormatStylist
Dim Num5 as integer ' : outline 1 ; where 9 items exist of
select case iSprache
- case 01: Num1 = 3 : Num2 = 1 : Num3 = 2 : Num4 = 3 : Num5 = 4
- case 07: Num1 = 3 : Num2 = 4 : Num3 = 2 : Num4 = 3 : Num5 = 1 'Russian TODO -FHA
- case 31: Num1 = 1 : Num2 = 2 : Num3 = 3 : Num4 = 1 : Num5 = 5
- case 33: Num1 = 3 : Num2 = 1 : Num3 = 3 : Num4 = 2 : Num5 = 5
- case 34: Num1 = 2 : Num2 = 10 : Num3 = 12 : Num4 = 3 : Num5 = 4
- case 36: Num1 = 2 : Num2 = 3 : Num3 = 4 : Num4 = 10 : Num5 = 6
- case 39: Num1 = 2 : Num2 = 3 : Num3 = 2 : Num4 = 1 : Num5 = 5
- case 45: Num1 = 11 : Num2 = 2 : Num3 = 2 : Num4 = 13 : Num5 = 5
- case 46: Num1 = 2 : Num2 = 2 : Num3 = 3 : Num4 = 1 : Num5 = 4
- case 48: Num1 = 11 : Num2 = 13 : Num3 = 11 : Num4 = 1 : Num5 = 5
- case 49: Num1 = 1 : Num2 = 10 : Num3 = 11 : Num4 = 14 : Num5 = 1
- case 55: Num1 = 4 : Num2 = 12 : Num3 = 11 : Num4 = 10 : Num5 = 1
- ' case 81: Num1 = 9 : Num2 = 13 : Num3 = 14 : Num4 = 12 : Num5 = 1 Asian languages not testable, because locale dependant :-(
- ' case 82: Num1 = 6 : Num2 = 11 : Num3 = 12 : Num4 = 10 : Num5 = 1
- ' case 86: Num1 = 15 : Num2 = 13 : Num3 = 14 : Num4 = 12 : Num5 = 2
- ' case 88: Num1 = 4 : Num2 = 13 : Num3 = 14 : Num4 = 3 : Num5 = 4
- case else :
- if (bAsianLan = FALSE) then
- Warnlog "For the language " + iSprache +" nothing is prepared yet: find numbers of entries in stylist and insert here"
- else
- qaErrorLog "The Asian-office-languages aren't supported yet."
- endif
- goto endsub
+ case 01: Num1 = 3 : Num2 = 1 : Num3 = 2 : Num4 = 3 : Num5 = 4
+ case 07: Num1 = 3 : Num2 = 4 : Num3 = 2 : Num4 = 3 : Num5 = 1 'Russian TODO -FHA
+ case 31: Num1 = 1 : Num2 = 2 : Num3 = 3 : Num4 = 1 : Num5 = 5
+ case 33: Num1 = 3 : Num2 = 1 : Num3 = 3 : Num4 = 2 : Num5 = 5
+ case 34: Num1 = 2 : Num2 = 10 : Num3 = 12 : Num4 = 3 : Num5 = 4
+ case 36: Num1 = 2 : Num2 = 3 : Num3 = 4 : Num4 = 10 : Num5 = 6
+ case 39: Num1 = 2 : Num2 = 3 : Num3 = 2 : Num4 = 1 : Num5 = 5
+ case 45: Num1 = 11 : Num2 = 2 : Num3 = 2 : Num4 = 13 : Num5 = 5
+ case 46: Num1 = 2 : Num2 = 2 : Num3 = 3 : Num4 = 1 : Num5 = 4
+ case 48: Num1 = 11 : Num2 = 13 : Num3 = 11 : Num4 = 1 : Num5 = 5
+ case 49: Num1 = 1 : Num2 = 10 : Num3 = 11 : Num4 = 14 : Num5 = 1
+ case 55: Num1 = 4 : Num2 = 12 : Num3 = 11 : Num4 = 10 : Num5 = 1
+ ' case 81: Num1 = 9 : Num2 = 13 : Num3 = 14 : Num4 = 12 : Num5 = 1 Asian languages not testable, because locale dependant :-(
+ ' case 82: Num1 = 6 : Num2 = 11 : Num3 = 12 : Num4 = 10 : Num5 = 1
+ ' case 86: Num1 = 15 : Num2 = 13 : Num3 = 14 : Num4 = 12 : Num5 = 2
+ ' case 88: Num1 = 4 : Num2 = 13 : Num3 = 14 : Num4 = 3 : Num5 = 4
+ case else :
+ if (bAsianLan = FALSE) then
+ Warnlog "For the language " + iSprache +" nothing is prepared yet: find numbers of entries in stylist and insert here"
+ else
+ qaErrorLog "The Asian-office-languages aren't supported yet."
+ endif
+ goto endsub
end select
- '/// open application ///'
Call hNewDocument
sleep 2
- '/// if stylist is open, close it ///'
Kontext "Gestalter"
if Gestalter.Exists Then
Warnlog "- Stylist exists, perhaps not closed last time a Impress doc was open"
@@ -606,169 +509,134 @@ testcase tiFormatStylist
end if
sleep 1
- '/// Format->Stylist ///'
FormatStylist
- Kontext "Gestalter"
- '/// click button 'graphics styles' ///'
- Grafikvorlagen.Click
- sleep 1
- '/// select entry 'First Line Indent' from list ///'
- Vorlagenliste.Select Num1 ' num1
- sleep 1
- Printlog "- open Grafic template Dialogs using the context menue , checking if all resources exist"
- '/// open kontext menue select 2nd entry from top: 'Modify' ///'
- Vorlagenliste.OpenContextMenu
- sleep 1
- hMenuSelectNr (2)
- sleep 1
- '///+ call every tabpage and cklick a little bit -> see 'sub hWalkTheStyles' ///'
- call hWalkTheStyles
- Kontext
- '/// switch to tabpage 'text' ///'
- Messagebox.SetPage TabText
- Kontext "TabText"
- sleep 1
- '///+ cancel dialog 'graphics styles' ///'
- TabText.Cancel
- sleep 1
+ Kontext "Gestalter"
+ Grafikvorlagen.Click
+ sleep 1
+ Vorlagenliste.Select Num1 ' num1
+ sleep 1
+ Printlog "- open Grafic template Dialogs using the context menue , checking if all resources exist"
+ Vorlagenliste.OpenContextMenu
+ sleep 1
+ hMenuSelectNr (2)
+ sleep 1
+ call hWalkTheStyles
+ Kontext
+ Messagebox.SetPage TabText
+ Kontext "TabText"
+ sleep 1
+ TabText.Cancel
+ sleep 1
- '/// if Impress then do the following / in Draw this is not avialable ///'
if (Ucase(gApplication) = "IMPRESS") AND (iSprache <> 07) then 'Russian TODO -FHA
Kontext "Gestalter"
Printlog "- presentation templates"
sleep 1
- '/// click button 'Presentation Styles' in Stylist ///'
Praesentationsvorlagen.Click
- '/// select entry 'Background' from list ///'
Vorlagenliste.Select Num2
sleep 1
- '/// open kontext menue select 1st entry from top: 'Modify' ///'
Vorlagenliste.OpenContextMenu
sleep 1
hMenuSelectNr (1)
- sleep 1
- Kontext
- if Messagebox.exists (5) then
- try
- '/// only one tabpage is avilable : Area ///'
-' Messagebox.SetPage TabArea
- Kontext "TabArea"
- if TabArea.Exists = false then
- warnlog "Where is TabArea?"
- else
- Printlog "TabArea exists, good."
- TabArea.Cancel
- endif
- '/// close dialog 'Background' ///'
- catch
- warnlog "there might be another systemlocale -> I can't select the entries in the stylist via numbers :-("
- endcatch
- else
+ sleep 1
+ Kontext
+ if Messagebox.exists (5) then
+ try
+ ' Messagebox.SetPage TabArea
+ Kontext "TabArea"
+ if TabArea.Exists = false then
+ warnlog "Where is TabArea?"
+ else
+ Printlog "TabArea exists, good."
+ TabArea.Cancel
+ endif
+ catch
+ warnlog "there might be another systemlocale -> I can't select the entries in the stylist via numbers :-("
+ endcatch
+ else
warnlog "tab area/Messagebox doesn't exist :-("
- endif
+ endif
Kontext "Gestalter"
sleep 1
- '/// select entry 'Background objects' from list in Stylist ///'
Vorlagenliste.Select Num3
- '///+ open kontext menue select 1nd entry from top: 'Modify' ///'
sleep 1
Vorlagenliste.OpenContextMenu
sleep 1
hMenuSelectNr (1)
- sleep 1
- '///+ call every tabpage and cklick a little bit -> see 'sub hWalkTheStyles' ///'
- call hWalkTheStyles (1,1)
- Kontext
- Messagebox.SetPage TabEinzuegeUndAbstaende
- Kontext "TabEinzuegeUndAbstaende"
- sleep 1
- '///+ cancel dialog 'Background objects' ///'
- TabEinzuegeUndAbstaende.Cancel
+ sleep 1
+ call hWalkTheStyles (1,1)
+ Kontext
+ Messagebox.SetPage TabEinzuegeUndAbstaende
+ Kontext "TabEinzuegeUndAbstaende"
+ sleep 1
+ TabEinzuegeUndAbstaende.Cancel
sleep 1
Kontext "Gestalter"
sleep 1
- '/// select entry 'Notes' from list in Stylist ///'
Vorlagenliste.Select Num4
sleep 1
- '///+ open kontext menue select 1st entry from top: 'Modify' ///'
Vorlagenliste.OpenContextMenu
sleep 1
hMenuSelectNr (1)
- sleep 1
- Kontext
- '///+ switch to tabpage 'Font' ///'
- Messagebox.SetPage TabFont
- kontext "TabFont"
- Kontext
- '///+ switch to tabpage 'Font Effect' ///'
- Messagebox.SetPage TabFontEffects
- kontext "TabFontEffects"
- Kontext
- '///+ switch to tabpage 'indents & spacing' ///'
- Messagebox.SetPage TabEinzuegeUndAbstaende
- kontext "TabEinzuegeUndAbstaende"
- sleep 1
- '///+ cancel dialog 'Notes' ///'
- TabEinzuegeUndAbstaende.Cancel
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabFont
+ kontext "TabFont"
+ Kontext
+ Messagebox.SetPage TabFontEffects
+ kontext "TabFontEffects"
+ Kontext
+ Messagebox.SetPage TabEinzuegeUndAbstaende
+ kontext "TabEinzuegeUndAbstaende"
+ sleep 1
+ TabEinzuegeUndAbstaende.Cancel
sleep 1
Kontext "Gestalter"
sleep 1
- '/// select entry 'Outline 1' from list in Stylist ///'
Vorlagenliste.Select Num5
- '///+ open kontext menue select 1st entry from top: 'Modify' ///'
sleep 1
Vorlagenliste.OpenContextMenu
sleep 1
hMenuSelectNr (1)
- sleep 1
- Kontext
- '///+ switch to tabpage 'Font' ///'
- Messagebox.SetPage TabFont
- kontext "TabFont"
- Kontext
- '///+ switch to tabpage 'Font Effect' ///'
- Messagebox.SetPage TabFontEffects
- kontext "TabFontEffects"
- Kontext
- '///+ switch to tabpage 'indents & spacing' ///'
- Messagebox.SetPage TabEinzuegeUndAbstaende
- kontext "TabEinzuegeUndAbstaende"
- sleep 1
- Kontext
- '/// switch to tabpage 'Bullets' ///'
- Messagebox.SetPage TabBullet
- Kontext "TabBullet"
- sleep 1
- Kontext
- '/// switch to tabpage 'Numbering Type' ///'
- Messagebox.SetPage TabNumerierungsart
- Kontext "TabNumerierungsart"
- sleep 1
- Kontext
- '/// switch to tabpage 'Graphics' ///'
- Messagebox.SetPage TabGrafiken
- Kontext "TabGrafiken"
- sleep 1
- Kontext
- '/// switch to tabpage 'Customize' ///'
- Messagebox.SetPage TabOptionenNumerierung
- Kontext "TabOptionenNumerierung"
- sleep 1
- '///+ cancel dialog 'Outline 1' ///'
- TabOptionenNumerierung.Cancel
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabFont
+ kontext "TabFont"
+ Kontext
+ Messagebox.SetPage TabFontEffects
+ kontext "TabFontEffects"
+ Kontext
+ Messagebox.SetPage TabEinzuegeUndAbstaende
+ kontext "TabEinzuegeUndAbstaende"
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabBullet
+ Kontext "TabBullet"
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabNumerierungsart
+ Kontext "TabNumerierungsart"
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabGrafiken
+ Kontext "TabGrafiken"
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabOptionenNumerierung
+ Kontext "TabOptionenNumerierung"
+ sleep 1
+ TabOptionenNumerierung.Cancel
sleep 1
endif
- '/// close Stylist with key 'F11' ///'
hTypeKeys "<F11>"
sleep 1
Kontext "Gestalter"
if Gestalter.Exists Then Warnlog "- Stylist could not be closed pressing F11"
- '/// close application ///'
- Call hCloseDocument
+ Call hCloseDocument
endcase
sub hWalkTheStyles (optional a as integer,optional b as integer)
@@ -776,146 +644,114 @@ sub hWalkTheStyles (optional a as integer,optional b as integer)
dim i as integer
if isMissing (a) then a=1
- if isMissing (b) then b=2
- i=1
- if a <= i AND i <= b then
- Kontext
- '/// switch to tabpage 'Line' ///'
- Messagebox.SetPage TabLinie
- kontext "TabLinie"
- Call DialogTest ( TabLinie )
- Kontext
- '/// switch to tabpage 'Area' ///'
- Messagebox.SetPage TabArea
- kontext "TabArea"
- Call DialogTest ( TabArea, 1 )
- '/// select radio button 'none' ///'
- FillOptions.Select 1 ' NoFill.Check
- Call DialogTest ( TabArea, 1 )
- '/// select radio button 'color' ///'
- FillOptions.Select 2
- Call DialogTest ( TabArea, 2 )
- '/// select radio button 'gradient' ///'
- FillOptions.Select 3
- Call DialogTest ( TabArea, 3 )
- '/// select radio button 'hatching' ///'
- FillOptions.Select 4
- Call DialogTest ( TabArea, 4 )
- '/// select radio button 'bitmap' ///'
- FillOptions.Select 5
- Call DialogTest ( TabArea, 5 )
- Kontext
- '/// switch to tabpage 'shadowing' ///'
- Messagebox.SetPage TabSchatten
- kontext "TabSchatten"
- '/// check 'use shadow' ///'
- Anzeigen.check
- Call DialogTest ( TabSchatten )
- Kontext
- '/// switch to tabpage 'Transparency' ///'
- Messagebox.SetPage TabTransparenz
- kontext "TabTransparenz"
- '/// check 'No transparency' ///'
- KeineTransparenz.Check
- '/// check 'Transparency' ///'
- LineareTransparenz.Check
- '/// check 'Gradient' ///'
- Transparenzverlauf.Check
- Kontext
- '/// switch to tabpage 'Font' ///'
- Messagebox.SetPage TabFont
- kontext "TabFont"
- Call DialogTest ( TabFont )
- Kontext
- '/// switch to tabpage 'Font Effect' ///'
- Messagebox.SetPage TabFontEffects
- kontext "TabFontEffects"
- Kontext
- '/// switch to tabpage 'indents & spacing' ///'
- Messagebox.SetPage TabEinzuegeUndAbstaende
- kontext "TabEinzuegeUndAbstaende"
- Call DialogTest ( TabEinzuegeUndAbstaende )
- endif
- i=2
- if a <= i AND i <= b then
- Kontext
- '/// switch to tabpage 'Organize' ///'
- Messagebox.SetPage TabVerwalten
- kontext "TabVerwalten"
- Call DialogTest ( TabVerwalten )
- Kontext
- '/// switch to tabpage 'text' ///'
- Messagebox.SetPage TabText
- Kontext "TabText"
- Call DialogTest ( TabText )
- Kontext
- '/// switch to tabpage 'text animation' ///'
- Messagebox.SetPage TabLauftext
- Kontext "TabLauftext"
- Call DialogTest ( TabLauftext )
- Kontext
- '/// switch to tabpage 'dimension' ///'
- Messagebox.SetPage TabBemassung
- Kontext "TabBemassung"
- Call DialogTest ( TabBemassung )
- Kontext
- '/// switch to tabpage 'connector' ///'
- Messagebox.setpage TabVerbinder
- Kontext "TabVerbinder"
- Call Dialogtest ( TabVerbinder )
- Kontext
- '/// switch to tabpage 'alignment' ///'
- Messagebox.setpage TabAusrichtungAbsatz
- Kontext "TabAusrichtungAbsatz"
- Links.Check
- Rechts.Check
- Zentriert.Check
- Blocksatz.Check
- Kontext
- '/// switch to tabpage 'Tabs' ///'
- Messagebox.setpage TabTabulator
- Kontext "TabTabulator"
- '/// click 'new' ///'
- Neu.click
- '/// ' MAYBE CHECK COUNT OF THIS ?? Position svx:MetricBox:RID_SVXPAGE_TABULATOR:ED_TABPOS ///'
- '/// click 'delete all' ///'
- AlleLoeschen.click
- '/// click 'new' ///'
- Neu.click
- '/// click 'delete' ///'
- Loeschen.click
- endif
- i=3
- if a <= i AND i <= b then
- Kontext
- '/// switch to tabpage 'Bullets' ///'
- Messagebox.SetPage TabBullet
- Kontext "TabBullet"
- sleep 1
- Call DialogTest (TabBullet)
- sleep 1
- Kontext
- '/// switch to tabpage 'Numbering Type' ///'
- Messagebox.SetPage TabNumerierungsart
- Kontext "TabNumerierungsart"
- sleep 1
- Call DialogTest (TabNumerierungsart)
- sleep 1
- Kontext
- '/// switch to tabpage 'Graphics' ///'
- Messagebox.SetPage TabGrafiken
- Kontext "TabGrafiken"
- sleep 1
- Call DialogTest (TabGrafiken)
- sleep 1
- Kontext
- '/// switch to tabpage 'Customize' ///'
- Messagebox.SetPage TabOptionenNumerierung
- Kontext "TabOptionenNumerierung"
- sleep 1
- Call DialogTest (TabOptionenNumerierung)
- sleep 1
- endif
+ if isMissing (b) then b=2
+ i=1
+ if a <= i AND i <= b then
+ Kontext
+ Messagebox.SetPage TabLinie
+ kontext "TabLinie"
+ Call DialogTest ( TabLinie )
+ Kontext
+ Messagebox.SetPage TabArea
+ kontext "TabArea"
+ Call DialogTest ( TabArea, 1 )
+ FillOptions.Select 1 ' NoFill.Check
+ Call DialogTest ( TabArea, 1 )
+ FillOptions.Select 2
+ Call DialogTest ( TabArea, 2 )
+ FillOptions.Select 3
+ Call DialogTest ( TabArea, 3 )
+ FillOptions.Select 4
+ Call DialogTest ( TabArea, 4 )
+ FillOptions.Select 5
+ Call DialogTest ( TabArea, 5 )
+ Kontext
+ Messagebox.SetPage TabSchatten
+ kontext "TabSchatten"
+ Anzeigen.check
+ Call DialogTest ( TabSchatten )
+ Kontext
+ Messagebox.SetPage TabTransparenz
+ kontext "TabTransparenz"
+ KeineTransparenz.Check
+ LineareTransparenz.Check
+ Transparenzverlauf.Check
+ Kontext
+ Messagebox.SetPage TabFont
+ kontext "TabFont"
+ Call DialogTest ( TabFont )
+ Kontext
+ Messagebox.SetPage TabFontEffects
+ kontext "TabFontEffects"
+ Kontext
+ Messagebox.SetPage TabEinzuegeUndAbstaende
+ kontext "TabEinzuegeUndAbstaende"
+ Call DialogTest ( TabEinzuegeUndAbstaende )
+ endif
+ i=2
+ if a <= i AND i <= b then
+ Kontext
+ Messagebox.SetPage TabVerwalten
+ kontext "TabVerwalten"
+ Call DialogTest ( TabVerwalten )
+ Kontext
+ Messagebox.SetPage TabText
+ Kontext "TabText"
+ Call DialogTest ( TabText )
+ Kontext
+ Messagebox.SetPage TabLauftext
+ Kontext "TabLauftext"
+ Call DialogTest ( TabLauftext )
+ Kontext
+ Messagebox.SetPage TabBemassung
+ Kontext "TabBemassung"
+ Call DialogTest ( TabBemassung )
+ Kontext
+ Messagebox.setpage TabVerbinder
+ Kontext "TabVerbinder"
+ Call Dialogtest ( TabVerbinder )
+ Kontext
+ Messagebox.setpage TabAusrichtungAbsatz
+ Kontext "TabAusrichtungAbsatz"
+ Links.Check
+ Rechts.Check
+ Zentriert.Check
+ Blocksatz.Check
+ Kontext
+ Messagebox.setpage TabTabulator
+ Kontext "TabTabulator"
+ Neu.click
+ AlleLoeschen.click
+ Neu.click
+ Loeschen.click
+ endif
+ i=3
+ if a <= i AND i <= b then
+ Kontext
+ Messagebox.SetPage TabBullet
+ Kontext "TabBullet"
+ sleep 1
+ Call DialogTest (TabBullet)
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabNumerierungsart
+ Kontext "TabNumerierungsart"
+ sleep 1
+ Call DialogTest (TabNumerierungsart)
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabGrafiken
+ Kontext "TabGrafiken"
+ sleep 1
+ Call DialogTest (TabGrafiken)
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabOptionenNumerierung
+ Kontext "TabOptionenNumerierung"
+ sleep 1
+ Call DialogTest (TabOptionenNumerierung)
+ sleep 1
+ endif
end sub
testcase tFormatStylist
@@ -924,14 +760,11 @@ testcase tFormatStylist
dim i as integer
dim abctemp
- '/// open application ///'
Call hNewDocument
- '/// create a textframe with content ///'
sleep 5
hTextrahmenErstellen ("I hate mondays...",20,20,80,40)
sleep 1
- '/// open stylist with: Format->Stylist ///'
FormatStylist
sleep 1
Kontext "Stylist"
@@ -943,7 +776,6 @@ testcase tFormatStylist
Vorlagenliste.TypeKeys "<End>"
Vorlagenliste.TypeKeys "<Up>"
Vorlagenliste.TypeKeys "<Up>"
- '/// open kontext menue select 1st entry from top: 'New' ///'
sleep 1
Vorlagenliste.OpenContextMenu
sleep 1
@@ -951,14 +783,12 @@ testcase tFormatStylist
sleep 1
Kontext
if Messagebox.exists (5) then
- '/// switch to tabpage Organizer ///'
Messagebox.SetPage TabVerwalten
Kontext "TabVerwalten"
VorlagenName.SetText "1Newtheme"
sTemp = VorlagenName.getText
VerknuepftMit.getSelText
Bereich.getSelText
- '/// close dialog 'Graphics Styles' ///'
TabVerwalten.OK
endif
sleep 1
@@ -971,87 +801,77 @@ testcase tFormatStylist
sleep 1
Kontext
if Messagebox.exists (5) then
- '/// switch to tabpage Organizer ///'
Messagebox.SetPage TabVerwalten
Kontext "TabVerwalten"
VorlagenName.setText("1Test")
- '/// close dialog 'Graphics Styles' ///'
TabVerwalten.OK
endif
sleep 1
-' hTextrahmenErstellen ("I hate mondays..., too",60,60,80,60)
-' sleep 1
-' FormatArea
-' i = 1
-' kontext "tabArea"
-'' temp = Hatching
-' abctemp = 666666
-' printlog isobject(abctemp)
-' printlog isnumeric(abctemp)
-' sSettings(i,1) = Hatching
-' printlog isobject(sSettings(i,1))
-' printlog isnumeric(sSettings(i,1))
-' sSettings(i,2) = "CheckBox"
-' sSettings(i,3) = True
-' inc (i)
-'' printlog " " + i
-' dim asgc as boolean
-' asgc = true
-'' hWalkTheStyles2(asgc, sSettings(), temp)
-' ' hWalkTheStyles2(abctemp)
-' Kontext "TabArea"
-' TabArea.OK
+ ' hTextrahmenErstellen ("I hate mondays..., too",60,60,80,60)
+ ' sleep 1
+ ' FormatArea
+ ' i = 1
+ ' kontext "tabArea"
+ '' temp = Hatching
+ ' abctemp = 666666
+ ' printlog isobject(abctemp)
+ ' printlog isnumeric(abctemp)
+ ' sSettings(i,1) = Hatching
+ ' printlog isobject(sSettings(i,1))
+ ' printlog isnumeric(sSettings(i,1))
+ ' sSettings(i,2) = "CheckBox"
+ ' sSettings(i,3) = True
+ ' inc (i)
+ '' printlog " " + i
+ ' dim asgc as boolean
+ ' asgc = true
+ '' hWalkTheStyles2(asgc, sSettings(), temp)
+ ' ' hWalkTheStyles2(abctemp)
+ ' Kontext "TabArea"
+ ' TabArea.OK
Kontext "Stylist"
if (Stylist.NotExists) then
- ErrorLog "There is no stylist open, should be."
+ ErrorLog "There is no stylist open, should be."
else
- '/// Closing stylist ///'
- hTypekeys "<F11>"
- Kontext "Stylist"
- if (Stylist.Exists) then
- ErrorLog "The Stylist should be closed now."
- endif
+ hTypekeys "<F11>"
+ Kontext "Stylist"
+ if (Stylist.Exists) then
+ ErrorLog "The Stylist should be closed now."
+ endif
endif
Call hCloseDocument
endcase
function hSelectInList (window, sEntry as String) as Boolean
-'/// alternativ method to 'hDoubleClickInList' (without mouse) ///'
-'///+ window: name of list ///'
-'///+ sEntry: string to find in list ///'
-'///+ ReturnValue: if found: TRUE; else FALSE ///'
Dim i as Integer
Dim sTemp as String
Dim sLastTemp as String
- '/// go through list from bottom and stop on the entry sEntry ///'
window.TypeKeys "<End>"
sTemp = ""
do
- sLastTemp = sTemp
- sTemp = window.GetText
- window.TypeKeys "<Up>"
- loop while ((sEntry <> sTemp) AND (sLastTemp <> sTemp))
- '/// press key [Return] ///'
- if (sEntry = sTemp) then
- window.TypeKeys "<Return>"
- hSelectInList = TRUE
- else
- hSelectInList = FALSE
- endif
+ sLastTemp = sTemp
+ sTemp = window.GetText
+ window.TypeKeys "<Up>"
+loop while ((sEntry <> sTemp) AND (sLastTemp <> sTemp))
+if (sEntry = sTemp) then
+ window.TypeKeys "<Return>"
+ hSelectInList = TRUE
+else
+ hSelectInList = FALSE
+endif
end function
function hWalkTheStyles2 (atemp)
-'function hWalkTheStyles2 (bSet as boolean, aSettings(), atemp as variant) as string
+ 'function hWalkTheStyles2 (bSet as boolean, aSettings(), atemp as variant) as string
dim i as integer
dim x as integer
dim itemp
dim bSet
dim aSettings(5,5)
-' dim atemp
+ ' dim atemp
- '/// Organizer ///'
i=1
Kontext
printlog aSettings(i,3)
@@ -1059,12 +879,12 @@ function hWalkTheStyles2 (atemp)
printlog val(aSettings(i,1))
printlog atemp
Messagebox.SetPage TabArea
- kontext "TabArea"
-'press button standard :-))))))
+ kontext "TabArea"
+ 'press button standard :-))))))
atemp = Hatching
printlog atemp
- if aSettings(i,3) then
+ if aSettings(i,3) then
itemp = val(aSettings(i,1))
printlog isobject(atemp)
printlog isNumeric(atemp)
@@ -1072,115 +892,98 @@ function hWalkTheStyles2 (atemp)
atemp.check
else
-' aSettings(i,1).Uncheck
+ ' aSettings(i,1).Uncheck
endif
-'print "baeh"
+ 'print "baeh"
i=2
Kontext
Messagebox.SetPage TabSchatten
- kontext "TabSchatten"
+ kontext "TabSchatten"
Kontext
Messagebox.SetPage TabVerwalten
- kontext "TabVerwalten"
-'/// Line ///'
+ kontext "TabVerwalten"
i=2
Kontext
Messagebox.SetPage TabLinie
- kontext "TabLinie"
- 'Context: *Line; Line Styles; Arrow Styles
-'/// Area ///'
+ kontext "TabLinie"
+ 'Context: *Line; Line Styles; Arrow Styles
i=3
Kontext
Messagebox.SetPage TabArea
- kontext "TabArea"
- 'Context: *Area; *Shadow; Transparency; Colors; Gradients; Hatching; Bitmaps
-'/// Shadowing ///'
+ kontext "TabArea"
+ 'Context: *Area; *Shadow; Transparency; Colors; Gradients; Hatching; Bitmaps
i=4
Kontext
Messagebox.SetPage TabSchatten
- kontext "TabSchatten"
-'/// Transparency ///'
+ kontext "TabSchatten"
i=5
Kontext
Messagebox.SetPage TabTransparenz
- kontext "TabTransparenz"
-'/// Font ///'
+ kontext "TabTransparenz"
i=6
Kontext
Messagebox.SetPage TabFont
- kontext "TabFont"
- 'Context: *Font; *Font Effect; Position
-'/// Font Effect ///'
+ kontext "TabFont"
+ 'Context: *Font; *Font Effect; Position
i=7
Kontext
Messagebox.SetPage TabFontEffects
- kontext "TabFontEffects"
-'/// Indents & Spacing ///'
+ kontext "TabFontEffects"
i=8
Kontext
Messagebox.SetPage TabEinzuegeUndAbstaende
- kontext "TabEinzuegeUndAbstaende"
- 'Context: *Indents & Spacing; *Alignment; *Tabs
-'/// Text ///'
+ kontext "TabEinzuegeUndAbstaende"
+ 'Context: *Indents & Spacing; *Alignment; *Tabs
i=9
Kontext
Messagebox.SetPage TabText
- Kontext "TabText"
- 'Context: *Text; *Text Animation
-'/// Text Animation ///'
+ Kontext "TabText"
+ 'Context: *Text; *Text Animation
i=10
Kontext
Messagebox.SetPage TabLauftext
- Kontext "TabLauftext"
-'/// Dimensioning ///'
+ Kontext "TabLauftext"
i=11
Kontext
Messagebox.SetPage TabBemassung
- Kontext "TabBemassung"
-'/// Connector ///'
+ Kontext "TabBemassung"
i=12
Kontext
Messagebox.setpage TabVerbinder
- Kontext "TabVerbinder"
-'/// Alignment ///'
+ Kontext "TabVerbinder"
i=13
Kontext
Messagebox.setpage TabAusrichtungAbsatz
- Kontext "TabAusrichtungAbsatz"
-'/// Tabs ///'
+ Kontext "TabAusrichtungAbsatz"
i=14
Kontext
Messagebox.setpage TabTabulator
- Kontext "TabTabulator"
-
-' '/// switch to tabpage 'Bullets' ///'
-' Messagebox.SetPage TabBullet
-' Kontext "TabBullet"
-' sleep 1
-' Call DialogTest (TabBullet)
-' sleep 1
-' Kontext
-' '/// switch to tabpage 'Numbering Type' ///'
-' Messagebox.SetPage TabNumerierungsart
-' Kontext "TabNumerierungsart"
-' sleep 1
-' Call DialogTest (TabNumerierungsart)
-' sleep 1
-' Kontext
-' '/// switch to tabpage 'Graphics' ///'
-' Messagebox.SetPage TabGrafiken
-' Kontext "TabGrafiken"
-' sleep 1
-' Call DialogTest (TabGrafiken)
-' sleep 1
-' Kontext
-' '/// switch to tabpage 'Customize' ///'
-' Messagebox.SetPage TabOptionenNumerierung
-' Kontext "TabOptionenNumerierung"
-' sleep 1
-' Call DialogTest (TabOptionenNumerierung)
-' sleep 1
+ Kontext "TabTabulator"
+
+ ' Messagebox.SetPage TabBullet
+ ' Kontext "TabBullet"
+ ' sleep 1
+ ' Call DialogTest (TabBullet)
+ ' sleep 1
+ ' Kontext
+ ' Messagebox.SetPage TabNumerierungsart
+ ' Kontext "TabNumerierungsart"
+ ' sleep 1
+ ' Call DialogTest (TabNumerierungsart)
+ ' sleep 1
+ ' Kontext
+ ' Messagebox.SetPage TabGrafiken
+ ' Kontext "TabGrafiken"
+ ' sleep 1
+ ' Call DialogTest (TabGrafiken)
+ ' sleep 1
+ ' Kontext
+ ' Messagebox.SetPage TabOptionenNumerierung
+ ' Kontext "TabOptionenNumerierung"
+ ' sleep 1
+ ' Call DialogTest (TabOptionenNumerierung)
+ ' sleep 1
end function
diff --git a/testautomation/graphics/optional/includes/global/g_tables.inc b/testautomation/graphics/optional/includes/global/g_tables.inc
index 04e37acd5008..b018e41f2fd2 100755
--- a/testautomation/graphics/optional/includes/global/g_tables.inc
+++ b/testautomation/graphics/optional/includes/global/g_tables.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
@@ -46,9 +46,9 @@
'Variables:
- dim iItemCount AS integer 'Count variable for combobox
- dim iItemIndex AS integer 'Counter for/next
-
+dim iItemCount AS integer 'Count variable for combobox
+dim iItemIndex AS integer 'Counter for/next
+
'-------------------------------------------------------------------------------
testcase tiInsertTableUsingMenu
@@ -58,7 +58,7 @@ testcase tiInsertTableUsingMenu
DocumentImpress.UseMenu
hMenuSelectNr(4)
hMenuSelectNr(13)
-
+
printlog "Checking if insert Table dialog comes up."
Kontext "InsertTableImpress"
if InsertTableImpress.Exists then
@@ -66,14 +66,14 @@ testcase tiInsertTableUsingMenu
else
warnlog "InsertTableDialog did not come up!"
endif
-
+
printlog "Checking for availability of column and row boxes."
if NumberOfColumns.IsEnabled AND NumberOfRows.IsEnabled then
printlog "Columns and rows boxes available."
else
warnlog "One or both spinboxes not active!"
endif
-
+
printlog "Checking max and min for Columns."
NumberOfColumns.ToMax
if NumberOfColumns.GetText = "75" then
@@ -81,35 +81,35 @@ testcase tiInsertTableUsingMenu
else
warnlog "Max Columns cannot be reached!"
endif
-
+
NumberOfColumns.ToMin
if NumberOfColumns.GetText ="1" then
printlog "Min is 1 column."
else
warnlog "Min column is wrong!"
endif
-
- printlog "Checking max and min for Rows."
+
+ printlog "Checking max and min for Rows."
NumberOfRows.ToMax
if NumberOfRows.GetText = "75" then
printlog "Max is 75 Rows."
else
warnlog "Max Rows cannot be reached!"
endif
-
+
NumberOfRows.ToMin
if NumberOfRows.GetText ="1" then
printlog "Min is 1 Row."
else
warnlog "Min Row is wrong!"
endif
-
+
printlog "Inserting Table now, 5 columns ,2 rows."
NumberOfColumns.SetText "5"
NumberOfRows.SetText "2"
InsertTableImpress.OK
Kontext "DocumentImpress"
-
+
printlog "Checking if table is inserted."
Kontext "TableObjectbar"
if TableObjectbar.Exists(1) then
@@ -118,10 +118,10 @@ testcase tiInsertTableUsingMenu
warnlog " TableObjectBar not up !"
endif
TableObjectbar.Close
-
+
printlog " Close document."
Call hCloseDocument
-
+
endcase 'tiInsertTableUsingMenu
'-------------------------------------------------------------------------------
@@ -132,15 +132,15 @@ testcase tiInsertTableUsingButton
Call hNewDocument
printlog "Open New Document."
kontext "Standardbar"
-
+
printlog "Checking if button is available."
- try
+ try
Table.Click
catch
warnlog "Table button in standardbar is not available!"
endcatch
printlog "Clicking on insert table button in standardbar."
-
+
printlog " Checking if insert Table dialog comes up."
Kontext "InsertTableImpress"
if InsertTableImpress.Exists then
@@ -150,7 +150,7 @@ testcase tiInsertTableUsingButton
endif
printlog "Inserting Table by clicking OK."
InsertTableImpress.OK
-
+
printlog "Checking if table is inserted."
Kontext "TableObjectbar"
if TableObjectbar.Exists(1) then
@@ -161,12 +161,12 @@ testcase tiInsertTableUsingButton
TableObjectbar.Close
printlog " Close document."
Call hCloseDocument
-
+
endcase 'tiInsertTableUsingButton
-
+
'-------------------------------------------------------------------------------
testcase tiInsertTableUsingToolbarbutton
-
+
printlog " Inserting table using the button in table toolbar."
Call hNewDocument
printlog "Clicking on button in toolbar."
@@ -178,7 +178,7 @@ testcase tiInsertTableUsingToolbarbutton
warnlog "TableObjectBar not up!"
endif
Table.Click
-
+
printlog " Checking if insert Table dialog comes up."
Kontext "InsertTableImpress"
if InsertTableImpress.Exists then
@@ -186,10 +186,10 @@ testcase tiInsertTableUsingToolbarbutton
else
warnlog "InsertTableDialog did not come up!"
endif
-
+
printlog "Inserting Table..."
InsertTableImpress.OK
-
+
printlog " Checking if dialog comes up."
Kontext "TableObjectbar"
if TableObjectbar.Exists(1) then
@@ -198,30 +198,30 @@ testcase tiInsertTableUsingToolbarbutton
warnlog " Table Dialog did not came up!"
endif
TableObjectbar.Close
-
+
printlog " Close document."
Call hCloseDocument
-
+
endcase 'tiInsertTableUsingToolbarbutton
'-------------------------------------------------------------------------------
-testcase tiTableObjectBar
+testcase tiTableObjectBar
printlog "Testing TableObjectBar."
Call hNewDocument
kontext "Standardbar"
-
+
printlog "Checking if button is available."
- try
+ try
Table.Click
catch
warnlog "Table button in standardbar is not available!"
endcatch
-
+
Kontext "InsertTableImpress"
printlog "Inserting table."
InsertTableImpress.OK
-
+
Kontext "DocumentImpress"
printlog "Selecting table for geeting the TableObjectBar."
DocumentImpress.TypeKeys "<MOD1 A>"
@@ -233,7 +233,7 @@ testcase tiTableObjectBar
else
warnlog "Table bar is not up!"
endif
-
+
printlog "Checking LinienStil."
LinienStil.TearOff
Kontext "TB_Umrandungsstil"
@@ -245,12 +245,12 @@ testcase tiTableObjectBar
warnlog "LineStyleBox is not up!"
endif
Kontext "TableObjectBar"
-
+
TableObjectBar.Close
Kontext "DocumentImpress"
Call hToolbarSelect ("Table", true)
Kontext "TableObjectBar"
-
+
printlog "Checking LineColorOfTheBorder."
LineColorOfTheBorder.TearOff
Kontext "TB_Farbe"
@@ -261,12 +261,12 @@ testcase tiTableObjectBar
else
warnlog "LineColorOfTheBorder is not up!"
endif
- Kontext "TableObjectBar"
+ Kontext "TableObjectBar"
TableObjectBar.Close
Kontext "DocumentImpress"
Call hToolbarSelect ("Table", true)
Kontext "TableObjectBar"
-
+
printlog "Checking Borderstyle."
Umrandung.TearOff
Kontext "TB_Umrandung"
@@ -277,7 +277,7 @@ testcase tiTableObjectBar
warnlog "BordersTB is not up!"
endif
Kontext "DocumentImpress"
-
+
printlog "Checking merge cells."
printlog "Inserting something into cell and select."
DocumentImpress.TypeKeys ("a")
@@ -285,7 +285,7 @@ testcase tiTableObjectBar
Kontext "TableObjectBar"
ZellenVerbinden.Click
printlog "Cells merged."
-
+
printlog "Checking split cells."
ZelleTeilen.Click
printlog "Cells split."
@@ -310,27 +310,27 @@ testcase tiTableObjectBar
'Kontext "TableObjectBar"
'Optimieren.TearOff
'OptimizeTablebar.Close
-
+
printlog "Checking Alignment."
Kontext "TableObjectBar"
Top.Click
CenterVertical.Click
Bottom.Click
printlog "Alignment buttons checked."
-
+
printlog "Checking inserting and deleting of columns and rows."
ZeileEinfuegen.Click
printlog "Row inserted."
-
+
Zeileloeschen.Click
printlog "Row deleted."
-
+
SpalteEinfuegen.Click
printlog "Column inserted."
-
+
Spalteloeschen.Click
- printlog "Column deleted."
-
+ printlog "Column deleted."
+
printlog "Checking table design button 'ToDo:needs some further examination here!"
tabledesign.Click
kontext "Tasks"
@@ -340,7 +340,7 @@ testcase tiTableObjectBar
else
printlog "Task Pane visible."
endif
-
+
printlog "Checking Properties button."
Kontext "TableObjectBar"
TableProperties.Click
@@ -352,37 +352,37 @@ testcase tiTableObjectBar
printlog "Tabpage Font is up."
endif
kontext "TabFont"
-
+
printlog "Checking Fonts Box."
iItemCount = Font.GetItemCount
printlog "Fontbox has " & iItemCount & " entries."
for iItemIndex = 1 to iItemCount
Font.Select(iItemIndex)
next iItemIndex
-
+
printlog "Checking style box."
iItemCount = Style.GetItemCount
printlog "Stylebox has " & iItemCount & " entries."
for iItemIndex = 1 to iItemCount
Style.Select(iItemIndex)
next iItemIndex
-
- printlog "Checking size box."
+
+ printlog "Checking size box."
iItemCount = Size.GetItemCount
printlog "Sizebox has " & iItemCount & " entries."
for iItemIndex = 1 to iItemCount
Size.Select(iItemIndex)
next iItemIndex
-
+
printlog "Checking language box."
iItemCount = Language.GetItemCount
printlog "Language box has " & iItemCount & " entries."
for iItemIndex = 1 to iItemCount
Language.Select(iItemIndex)
next iItemIndex
-
+
'------------Next Tab-----------------
-
+
printlog "Checking Tabpage FontEffects."
Kontext
active.SetPage TabFontEffects
@@ -392,32 +392,32 @@ testcase tiTableObjectBar
printlog "Tabpage FontEffects is up."
endif
kontext "TabFontEffects"
-
+
printlog "Checking Underlining box."
iItemCount = Underline.GetItemCount
printlog "Underlining has " & iItemCount & " entries."
for iItemIndex = 1 to iItemCount
Underline.Select(iItemIndex)
next iItemIndex
-
+
printlog "Checking StrikeThrough box."
iItemCount = StrikeThrough.GetItemCount
printlog "StrikeThrough has " & iItemCount & " entries."
for iItemIndex = 1 to iItemCount
StrikeThrough.Select(iItemIndex)
next iItemIndex
-
+
printlog "Checking individual words."
IndividualWords.Check
printlog "Individual words checked."
-
+
printlog "Checking Color box."
iItemCount = Color.GetItemCount
printlog "Font color has " & iItemCount & " entries."
for iItemIndex = 1 to iItemCount
Color.Select(iItemIndex)
next iItemIndex
-
+
printlog "Checking Relief."
iItemCount = Relief.GetItemCount
printlog "Relief has " & iItemCount & " entries."
@@ -425,15 +425,15 @@ testcase tiTableObjectBar
Relief.Select(iItemIndex)
next iItemIndex
Relief.Select(1) 'setting back Relief, otherwise Outline is greyed out
-
+
printlog "Checking Outline and Shadow."
Outline.Check
printlog "Outline checked."
Shadow.Check
printlog "Shadow checked."
-
+
'------------Next Tab-----------------
-
+
printlog "Checking Tabpage Borders."
Kontext
active.SetPage TabUmrandung
@@ -449,30 +449,30 @@ testcase tiTableObjectBar
for iItemIndex = 1 to iItemCount
Stil.Select(iItemIndex)
next iItemIndex
-
+
printlog "Checking Color."
iItemCount = StilFarbe.GetItemCount
printlog "Color has " & iItemCount & " entries."
for iItemIndex = 1 to iItemCount
StilFarbe.Select(iItemIndex)
next iItemIndex
-
+
printlog "Un-Checking Synchronize."
Synchronisieren.UnCheck
printlog "Synchronize unchecked."
-
+
printlog "Checking Left."
Links.ToMax
printlog "Maximum Left is " & Links.GetText & "."
Links.ToMin
printlog "Minimum Left is " & Links.GetText & "."
-
+
printlog "Checking Right."
Rechts.ToMax
printlog "Maximum Right is " & Rechts.GetText & "."
Rechts.ToMin
printlog "Minimum Right is " & Rechts.GetText & "."
-
+
printlog "Checking Top."
Oben.ToMax
printlog "Maximum Top is " & Oben.GetText & "."
@@ -484,9 +484,9 @@ testcase tiTableObjectBar
printlog "Maximum Bottom is " & Unten.GetText & "."
Unten.ToMin
printlog "Minimum Bottom is " & Unten.GetText & "."
-
+
'------------Next Tab-----------------
-
+
printlog "Checking Tabpage Background."
Kontext
active.SetPage TabArea
@@ -496,7 +496,7 @@ testcase tiTableObjectBar
printlog "Tabpage Area is up."
endif
kontext "TabArea"
-
+
iItemCount = FillOptions.GetItemCount
for iItemIndex = 2 to iItemCount
FillOptions.Select(iItemIndex)
@@ -505,10 +505,10 @@ testcase tiTableObjectBar
TabArea.Cancel
printlog "Format Cells dialog closed."
printlog "Toolbar tested."
-
+
printlog " Closing doc."
hCloseDocument
-
-endcase 'tiTableObjectBar
+
+endcase 'tiTableObjectBar
'-------------------------------------------------------------------------------
diff --git a/testautomation/graphics/optional/includes/global/g_toolbars.inc b/testautomation/graphics/optional/includes/global/g_toolbars.inc
index e9d50483fb83..747956514ae7 100755
--- a/testautomation/graphics/optional/includes/global/g_toolbars.inc
+++ b/testautomation/graphics/optional/includes/global/g_toolbars.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
@@ -46,350 +46,319 @@
testcase Toolboxen_Rechtecke
Printlog "- Toolbox rectangles"
-Dim i
+ Dim i
- Call hNewDocument '/// New impress document '///
- Printlog "- 1.: Create rectangles, apply shadow and move them around"
+ Printlog "- 1.: Create rectangles, apply shadow and move them around"
- for i = 1 to 4
- select case i
- case 1 : Printlog "- Create Rectangle Filled"
- WL_SD_RechteckVoll '/// create rectangles using the toolbox '///
- sleep 1
- case 2 : Printlog "- Create Rectangle Round-Filled"
- WL_SD_RechteckRundVoll
- sleep 1
- case 3 : Printlog "- Create Quadrat Filled"
- WL_SD_QuadratVoll
- sleep 1
- case 4 : Printlog "Create Quadrat Round-Filled"
- WL_SD_QuadratRundVoll
- sleep 1
- end select
+ for i = 1 to 4
+ select case i
+ case 1 : Printlog "- Create Rectangle Filled"
+ sleep 1
+ case 2 : Printlog "- Create Rectangle Round-Filled"
+ WL_SD_RechteckRundVoll
+ sleep 1
+ case 3 : Printlog "- Create Quadrat Filled"
+ WL_SD_QuadratVoll
+ sleep 1
+ case 4 : Printlog "Create Quadrat Round-Filled"
+ WL_SD_QuadratRundVoll
+ sleep 1
+ end select
- Kontext "DocumentImpress"
- gMouseMove (20,20,60,60) '/// select rectangle '///
- sleep 2
- FormatArea '/// Format Area '///
- Kontext
- Active.SetPage TabSchatten '/// TabSchatten '///
- Kontext "TabSchatten"
- Anzeigen.Click '/// activate shadow '///
- TabSchatten.OK '/// close TabSchatten '///
- sleep 1
- Kontext "DocumentImpress"
- gMouseClick 30,30 '/// deselect rectangle '///
- gMouseMove 30,30,90,90 '/// move rectangle '///
+ Kontext "DocumentImpress"
+ sleep 2
+ Kontext
+ Kontext "TabSchatten"
+ sleep 1
+ Kontext "DocumentImpress"
- gMouseClick 90,90 '/// select rectangle '///
- gMouseMove 90,90,30,30 '/// move rectangle '///
- gMouseClick 30,30
- gMouseMove 30,30,90,90
+ gMouseClick 30,30
+ gMouseMove 30,30,90,90
- gMouseClick 90,90
- gMouseMove 90,90,30,30
+ gMouseClick 90,90
+ gMouseMove 90,90,30,30
- gMouseClick 30,30
- gMouseMove 30,30,90,90
+ gMouseClick 30,30
+ gMouseMove 30,30,90,90
- gMouseClick 90,90
- gMouseMove 90,90,30,30
+ gMouseClick 90,90
+ gMouseMove 90,90,30,30
- hTypeKeys "<DELETE>" '/// delete rectangle '///
- sleep 2
- next i
- Call hCloseDocument '/// close document '///
+ sleep 2
+ next i
endcase
'**********************************************************************
testcase Toolboxen_Kreise
Printlog "- Toolbox Circles"
-Dim i
+ Dim i
- Call hNewDocument '/// New document '///
- Printlog "- Create circles and ellipses"
- for i = 1 to 7
- select case i '/// create all possible circles and ellipses from toolbar '///
- case 1 : WL_SD_Ellipsen
- sleep 1
- Kontext "DocumentImpress"
- gMouseMove 20,20,60,60
- case 2 : WL_SD_EllipseVoll
- sleep 1
- Kontext "DocumentImpress"
- gMouseMove 20,20,60,60
- case 3 : WL_SD_EllipsensegmentVoll
- sleep 1
- kontext "DocumentImpress"
- gMouseMove 20,20,40,40
- gMouseClick 20,30
- gMouseClick 20,28
- case 4 : WL_SD_EllipsenabschnittVoll
- sleep 1
- kontext "DocumentImpress"
- gMouseMove 20,20,40,40
- gMouseClick 20,30
- gMouseClick 20,28
- case 5 : WL_SD_KreisVoll
- sleep 1
- kontext "DocumentImpress"
- gMouseMove 20,20,40,40
- case 6 : WL_SD_KreissegmentVoll
- sleep 1
- kontext "DocumentImpress"
- gMouseMove 20,20,40,40
- gMouseClick 20,30
- gMouseClick 20,28
- case 7 : WL_SD_KreisabschnittVoll
- sleep 1
- kontext "DocumentImpress"
- gMouseMove 20,20,40,40
- gMouseClick 20,30
- gMouseClick 20,28
- end select
+ Printlog "- Create circles and ellipses"
+ for i = 1 to 7
+ case 1 : WL_SD_Ellipsen
+ sleep 1
+ Kontext "DocumentImpress"
+ gMouseMove 20,20,60,60
+ case 2 : WL_SD_EllipseVoll
+ sleep 1
+ Kontext "DocumentImpress"
+ gMouseMove 20,20,60,60
+ case 3 : WL_SD_EllipsensegmentVoll
+ sleep 1
+ kontext "DocumentImpress"
+ gMouseMove 20,20,40,40
+ gMouseClick 20,30
+ gMouseClick 20,28
+ case 4 : WL_SD_EllipsenabschnittVoll
+ sleep 1
+ kontext "DocumentImpress"
+ gMouseMove 20,20,40,40
+ gMouseClick 20,30
+ gMouseClick 20,28
+ case 5 : WL_SD_KreisVoll
+ sleep 1
+ kontext "DocumentImpress"
+ gMouseMove 20,20,40,40
+ case 6 : WL_SD_KreissegmentVoll
+ sleep 1
+ kontext "DocumentImpress"
+ gMouseMove 20,20,40,40
+ gMouseClick 20,30
+ gMouseClick 20,28
+ case 7 : WL_SD_KreisabschnittVoll
+ sleep 1
+ kontext "DocumentImpress"
+ gMouseMove 20,20,40,40
+ gMouseClick 20,30
+ gMouseClick 20,28
+ end select
- FormatArea
- Kontext
- Active.SetPage TabSchatten '/// Activate shadow for the object '///
- Kontext "TabSchatten"
- Anzeigen.Click
- TabSchatten.OK
- sleep 1
- Kontext "DocumentImpress"
- gMouseClick 30,30
- gMouseMove 30,30,90,90 '/// move the object over document '///
+ FormatArea
+ Kontext
+ Kontext "TabSchatten"
+ Anzeigen.Click
+ TabSchatten.OK
+ sleep 1
+ Kontext "DocumentImpress"
+ gMouseClick 30,30
- gMouseClick 90,90
- gMouseMove 90,90,30,30
+ gMouseClick 90,90
+ gMouseMove 90,90,30,30
- gMouseClick 30,30
- gMouseMove 30,30,90,90
+ gMouseClick 30,30
+ gMouseMove 30,30,90,90
- gMouseClick 90,90
- gMouseMove 90,90,30,30
+ gMouseClick 90,90
+ gMouseMove 90,90,30,30
- gMouseClick 30,30
- gMouseMove 30,30,90,90
+ gMouseClick 30,30
+ gMouseMove 30,30,90,90
- gMouseClick 90,90
- gMouseMove 90,90,30,30
+ gMouseClick 90,90
+ gMouseMove 90,90,30,30
- hTypeKeys "<DELETE>" '/// delete object '///
- sleep 2
- next i
- Call hCloseDocument '/// close document '///
+ sleep 2
+next i
endcase
'***********************************************************************************
testcase Toolboxen_3dObjekte
Printlog "- Toolbox 3D objects"
-Dim i
+ Dim i
- Call hNewDocument '/// New document '///
- Printlog "- Create 3D objects"
- for i = 1 to 8
- printlog "doing now: "+i
- select case i
- case 1 : WL_SD_Wuerfel '/// create all 3d objects from toolbox '///
- sleep 1
- Kontext "DocumentImpress"
- gMouseMove 20,20,60,60
- case 2 : WL_SD_Kugel
- sleep 1
- Kontext "DocumentImpress"
- gMouseMove 20,20,60,60
- case 3 : WL_SD_Zylinder
- sleep 1
- kontext "DocumentImpress"
- gMouseMove 20,20,40,40
- case 4 : WL_SD_Kegel
- sleep 1
- kontext "DocumentImpress"
- gMouseMove 20,20,40,40
- case 5 : WL_SD_Pyramide
- sleep 1
- kontext "DocumentImpress"
- gMouseMove 20,20,40,40
- case 6 : WL_SD_Torus
- sleep 1
- kontext "DocumentImpress"
- gMouseMove 20,20,40,40
- case 7 : WL_SD_Schale
- sleep 1
- kontext "DocumentImpress"
- gMouseMove 20,20,40,40
- case 8 : WL_SD_Halbkugel
- end select
- sleep 2
- FormatArea
- sleep 2
- Kontext
- Active.SetPage TabSchatten '/// apply shadow to 3d objects '///
- Kontext "TabSchatten"
- Anzeigen.Click
- TabSchatten.OK
- sleep 1
- Kontext "DocumentImpress"
- gMouseClick 30,30
- gMouseMove 30,30,90,90 '/// move objects in document around '///
- gMouseClick 90,90
- gMouseMove 90,90,30,30
- gMouseClick 30,30
- gMouseMove 30,30,90,90
- gMouseClick 90,90
- gMouseMove 90,90,30,30
- gMouseClick 30,30
- gMouseMove 30,30,90,90
- gMouseClick 90,90
- gMouseMove 90,90,30,30
- hTypeKeys "<DELETE>" '/// delete 3d objects '///
- sleep 2
- next i
- gMouseClick 99,99
- sleep 1
- Printlog "- 3D-body created"
- Call hCloseDocument '/// close document '///
+ Printlog "- Create 3D objects"
+ for i = 1 to 8
+ printlog "doing now: "+i
+ select case i
+ sleep 1
+ Kontext "DocumentImpress"
+ gMouseMove 20,20,60,60
+ case 2 : WL_SD_Kugel
+ sleep 1
+ Kontext "DocumentImpress"
+ gMouseMove 20,20,60,60
+ case 3 : WL_SD_Zylinder
+ sleep 1
+ kontext "DocumentImpress"
+ gMouseMove 20,20,40,40
+ case 4 : WL_SD_Kegel
+ sleep 1
+ kontext "DocumentImpress"
+ gMouseMove 20,20,40,40
+ case 5 : WL_SD_Pyramide
+ sleep 1
+ kontext "DocumentImpress"
+ gMouseMove 20,20,40,40
+ case 6 : WL_SD_Torus
+ sleep 1
+ kontext "DocumentImpress"
+ gMouseMove 20,20,40,40
+ case 7 : WL_SD_Schale
+ sleep 1
+ kontext "DocumentImpress"
+ gMouseMove 20,20,40,40
+ case 8 : WL_SD_Halbkugel
+ end select
+ sleep 2
+ FormatArea
+ sleep 2
+ Kontext
+ Kontext "TabSchatten"
+ Anzeigen.Click
+ TabSchatten.OK
+ sleep 1
+ Kontext "DocumentImpress"
+ gMouseClick 30,30
+ gMouseClick 90,90
+ gMouseMove 90,90,30,30
+ gMouseClick 30,30
+ gMouseMove 30,30,90,90
+ gMouseClick 90,90
+ gMouseMove 90,90,30,30
+ gMouseClick 30,30
+ gMouseMove 30,30,90,90
+ gMouseClick 90,90
+ gMouseMove 90,90,30,30
+ sleep 2
+ next i
+ gMouseClick 99,99
+ sleep 1
+ Printlog "- 3D-body created"
endcase
'******************************************************************************
testcase Toolboxen_Linien
Printlog "- Toolbox Lines "
-Dim i
- Call hNewDocument '/// New document '///
- Printlog "- Create lines and arrows"
- for i = 1 to 10
- select case i
- case 1 : WL_SD_LinieZeichnen '/// create all kind of lines '///
- sleep 1
- Kontext "DocumentImpress"
- gMouseMove 20,20,60,60
- case 2 : WL_SD_LinieMitPfeilende
- sleep 1
- Kontext "DocumentImpress"
- gMouseMove 20,20,60,60
- case 3 : WL_SD_LinieMitPfeilKreisende
- sleep 1
- kontext "DocumentImpress"
- gMouseMove 20,20,40,40
- case 4 : WL_SD_LiniemitPfeilQuadratende
- sleep 1
- kontext "DocumentImpress"
- gMouseMove 20,20,40,40
- case 5 : WL_SD_Liniewinkel
- sleep 1
- kontext "DocumentImpress"
- gMouseMove 20,20,40,40
- case 6 : WL_SD_LinieMitPfeilanfang
- sleep 1
- kontext "DocumentImpress"
- gMouseMove 20,20,40,40
- case 7 : WL_SD_LinieMitKreisPfeilende
- sleep 1
- kontext "DocumentImpress"
- gMouseMove 20,20,40,40
- case 8 : WL_SD_LiniemitPfeilKreisende
+ Dim i
+ Printlog "- Create lines and arrows"
+ for i = 1 to 10
+ select case i
+ sleep 1
+ Kontext "DocumentImpress"
+ gMouseMove 20,20,60,60
+ case 2 : WL_SD_LinieMitPfeilende
+ sleep 1
+ Kontext "DocumentImpress"
+ gMouseMove 20,20,60,60
+ case 3 : WL_SD_LinieMitPfeilKreisende
+ sleep 1
+ kontext "DocumentImpress"
+ gMouseMove 20,20,40,40
+ case 4 : WL_SD_LiniemitPfeilQuadratende
+ sleep 1
+ kontext "DocumentImpress"
+ gMouseMove 20,20,40,40
+ case 5 : WL_SD_Liniewinkel
+ sleep 1
+ kontext "DocumentImpress"
+ gMouseMove 20,20,40,40
+ case 6 : WL_SD_LinieMitPfeilanfang
+ sleep 1
+ kontext "DocumentImpress"
+ gMouseMove 20,20,40,40
+ case 7 : WL_SD_LinieMitKreisPfeilende
+ sleep 1
+ kontext "DocumentImpress"
+ gMouseMove 20,20,40,40
+ case 8 : WL_SD_LiniemitPfeilKreisende
- case 9 : WL_SD_Masslinie
- sleep 1
- kontext "DocumentImpress"
- gMouseMove 20,20,40,40
- case 10 : WL_SD_LinieMitPfeilenden
+ case 9 : WL_SD_Masslinie
+ sleep 1
+ kontext "DocumentImpress"
+ gMouseMove 20,20,40,40
+ case 10 : WL_SD_LinieMitPfeilenden
- end select
- Kontext "DocumentImpress"
- gMouseClick 25,25
- sleep 1
- gMouseMove 25,25,80,80 '/// move created lines around '///
- sleep 1
- gMouseMove 80,80,25,25
- sleep 1
- gMouseMove 25,25,90,90
- sleep 1
- gMouseClick 90,90,25,25
- sleep 1
- gMouseClick 99,99
- sleep 1
- next i
- Call hCloseDocument
+ end select
+ Kontext "DocumentImpress"
+ gMouseClick 25,25
+ sleep 1
+ sleep 1
+ gMouseMove 80,80,25,25
+ sleep 1
+ gMouseMove 25,25,90,90
+ sleep 1
+ gMouseClick 90,90,25,25
+ sleep 1
+ gMouseClick 99,99
+ sleep 1
+ next i
+ Call hCloseDocument
endcase
'********************************************************************
testcase Toolboxen_Kurven
Printlog "- Toolbox curves"
-Dim i
- Call hNewDocument
- sleep 1
- for i = 1 to 8
- select case i
- case 1 : WL_SD_KurveVoll
- sleep 1
- gMouseMove 20,20,60,60
- gMouseClick 70,70
- gMouseMove 70,70,30,30
- gMouseDoubleClick 30,30
- case 2 : WL_SD_KurveLeer
- sleep 1
- gMouseMove 20,20,60,60
- gMouseClick 70,70
- gMouseMove 70,70,30,30
- gMouseDoubleClick 30,30
- case 3 : WL_SD_PolygonVoll
- sleep 1
- gMouseMove 20,20,60,60
- gMouseClick 70,70
- gMouseClick 10,10
- gMouseClick 90,90
- gMouseClick 50,50
- gMouseDoubleClick 50,50
- case 4 : WL_SD_Polygon
- sleep 1
- gMouseMove 20,20,60,60
- gMouseClick 70,70
- gMouseClick 10,10
- gMouseClick 90,90
- gMouseClick 50,50
- gMouseDoubleClick 50,50
- case 5 : WL_SD_PolygonWinkelVoll
- sleep 1
- gMouseMove 20,20,60,60
- gMouseClick 70,70
- gMouseClick 10,10
- gMouseClick 90,90
- gMouseClick 50,50
- gMouseDoubleClick 50,50
- case 6 : WL_SD_PolygonWinkel
- sleep 1
- gMouseMove 20,20,60,60
- gMouseClick 70,70
- gMouseClick 10,10
- gMouseClick 90,90
- gMouseClick 50,50
- gMouseDoubleClick 50,50
- case 7 : WL_SD_FreihandlinieVoll
- sleep 1
- gMouseMove 10,10,70,70
- gMouseMove 20,20,30,80
- case 8 : WL_SD_FreihandlinieLeer
- sleep 1
- gMouseMove 10,10,70,70
- gMouseMove2 70,70,20,20
- gMouseMove 20,20,30,80
- end select
- Kontext "DocumentImpress"
- sleep 1
- EditSelectAll '/// select lines '///
- sleep 1
- try
- EditCut '/// try to cut them out '///
- catch
- Warnlog "- Nothing in the document to cut out"
- endcatch
+ Dim i
+ Call hNewDocument
sleep 1
- next i
- Call hCloseDocument '/// close document '///
+ for i = 1 to 8
+ select case i
+ case 1 : WL_SD_KurveVoll
+ sleep 1
+ gMouseMove 20,20,60,60
+ gMouseClick 70,70
+ gMouseMove 70,70,30,30
+ gMouseDoubleClick 30,30
+ case 2 : WL_SD_KurveLeer
+ sleep 1
+ gMouseMove 20,20,60,60
+ gMouseClick 70,70
+ gMouseMove 70,70,30,30
+ gMouseDoubleClick 30,30
+ case 3 : WL_SD_PolygonVoll
+ sleep 1
+ gMouseMove 20,20,60,60
+ gMouseClick 70,70
+ gMouseClick 10,10
+ gMouseClick 90,90
+ gMouseClick 50,50
+ gMouseDoubleClick 50,50
+ case 4 : WL_SD_Polygon
+ sleep 1
+ gMouseMove 20,20,60,60
+ gMouseClick 70,70
+ gMouseClick 10,10
+ gMouseClick 90,90
+ gMouseClick 50,50
+ gMouseDoubleClick 50,50
+ case 5 : WL_SD_PolygonWinkelVoll
+ sleep 1
+ gMouseMove 20,20,60,60
+ gMouseClick 70,70
+ gMouseClick 10,10
+ gMouseClick 90,90
+ gMouseClick 50,50
+ gMouseDoubleClick 50,50
+ case 6 : WL_SD_PolygonWinkel
+ sleep 1
+ gMouseMove 20,20,60,60
+ gMouseClick 70,70
+ gMouseClick 10,10
+ gMouseClick 90,90
+ gMouseClick 50,50
+ gMouseDoubleClick 50,50
+ case 7 : WL_SD_FreihandlinieVoll
+ sleep 1
+ gMouseMove 10,10,70,70
+ gMouseMove 20,20,30,80
+ case 8 : WL_SD_FreihandlinieLeer
+ sleep 1
+ gMouseMove 10,10,70,70
+ gMouseMove2 70,70,20,20
+ gMouseMove 20,20,30,80
+ end select
+ Kontext "DocumentImpress"
+ sleep 1
+ sleep 1
+ try
+ catch
+ Warnlog "- Nothing in the document to cut out"
+ endcatch
+ sleep 1
+ next i
endcase
diff --git a/testautomation/graphics/optional/includes/global/g_tools.inc b/testautomation/graphics/optional/includes/global/g_tools.inc
index daa7b73231d4..7900466a2915 100755
--- a/testautomation/graphics/optional/includes/global/g_tools.inc
+++ b/testautomation/graphics/optional/includes/global/g_tools.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
@@ -46,83 +46,75 @@
'-------------------------------------------------------------------------------
testcase tiToolsThesaurus
- Dim DasWort$
- Dim ZaehlerBedeutung
+ Dim DasWort$
+ Dim ZaehlerBedeutung
-'/// for normal text, the thesaurus is enabled, if the format->character->language of the word has a thesaurus///'
-'///+ unfortunately in textboxes this doesn't work, you can give the word a langauge, but this is been ignored by///'
-'///+ our thesaurus :-(((///'
-'/// so especially for asian languages you have to set a default language in the options, to be able to use///'
-'///+ the thesaurus there - fallback to englisch, because there is no ? thesaurus for cjk languages ??///'
- '/// First we make sure we test a language where Thesa
- ' As long as OOo has no modules for that, disabled
- if gOOO = True then
- printlog "No spellchecking in OOo"
- goto endsub
- endif
+ ' As long as OOo has no modules for that, disabled
+ if gOOO = True then
+ printlog "No spellchecking in OOo"
+ goto endsub
+ endif
select case iSprache
- case 01 : DasWort$ = "Hello"
- case 03 : DasWort$ = "Alo"
- case 07 : printlog "- No Thesaur for Russian available"
- goto endsub
- case 30 : Printlog "- No Thesaurus available !"
- goto endsub
- case 31 : DasWort$ = "Guiten"
- case 33 : DasWort$ = "Bonjour"
- case 34 : DasWort$ = "Hola"
- case 35 : Printlog "- No Thesaurus available !"
- goto endsub
- case 36 : Printlog "- No Thesaurus available !"
- goto endsub
- case 37 : Printlog "- No Thesaurus available !"
- goto endsub
- case 39 : DasWort$ = "Ciao"
- case 42 : Printlog "- No Thesaurus available !"
- goto endsub
- case 45 : DasWort$ = "Hej"
- case 46 : DasWort$ = "Välkommen"
- case 47 : Printlog "- No Thesaurus available !"
- goto endsub
- case 48 : Printlog "- No Thesaurus in Polish!"
- goto endsub
- case 49 : DasWort$ = "Hallo"
- case 50 : DasWort$ = "Prosojnica"
- case 51 : Printlog "- No Thesaurus available !"
- goto endsub
- case 55 : Printlog "- No Thesaurus in Brazilian!"
- goto endsub
- case 90 : Printlog "- No Thesaurus available !"
- goto endsub
-
- case else : if bAsianLan then
- hSetSpellHypLanguage
- DasWort$ = "Hello"
- else
- Warnlog "For the language " + iSprache +" nothing is prepared yet: insert text here"
- DasWort$ = "Hello"
- endif
- end select
+ case 01 : DasWort$ = "Hello"
+ case 03 : DasWort$ = "Alo"
+ case 07 : printlog "- No Thesaur for Russian available"
+ goto endsub
+ case 30 : Printlog "- No Thesaurus available !"
+ goto endsub
+ case 31 : DasWort$ = "Guiten"
+ case 33 : DasWort$ = "Bonjour"
+ case 34 : DasWort$ = "Hola"
+ case 35 : Printlog "- No Thesaurus available !"
+ goto endsub
+ case 36 : Printlog "- No Thesaurus available !"
+ goto endsub
+ case 37 : Printlog "- No Thesaurus available !"
+ goto endsub
+ case 39 : DasWort$ = "Ciao"
+ case 42 : Printlog "- No Thesaurus available !"
+ goto endsub
+ case 45 : DasWort$ = "Hej"
+ case 46 : DasWort$ = "Välkommen"
+ case 47 : Printlog "- No Thesaurus available !"
+ goto endsub
+ case 48 : Printlog "- No Thesaurus in Polish!"
+ goto endsub
+ case 49 : DasWort$ = "Hallo"
+ case 50 : DasWort$ = "Prosojnica"
+ case 51 : Printlog "- No Thesaurus available !"
+ goto endsub
+ case 55 : Printlog "- No Thesaurus in Brazilian!"
+ goto endsub
+ case 90 : Printlog "- No Thesaurus available !"
+ goto endsub
+
+ case else : if bAsianLan then
+ hSetSpellHypLanguage
+ DasWort$ = "Hello"
+ else
+ Warnlog "For the language " + iSprache +" nothing is prepared yet: insert text here"
+ DasWort$ = "Hello"
+ endif
+end select
- printlog " Thesaurus without any word in the document"
- Call hNewDocument '/// New document ///'
- try
- ExtrasThesaurusDraw '/// try thesaurus in empty document ///'
- Kontext "Thesaurus"
- Thesaurus.Cancel
- WarnLog " If no word is in the document, Thesaurus shouldn't be available"
- catch
- PrintLog " No Thesaurus available"
- endcatch
+printlog " Thesaurus without any word in the document"
+try
+ Kontext "Thesaurus"
+ Thesaurus.Cancel
+ WarnLog " If no word is in the document, Thesaurus shouldn't be available"
+catch
+ PrintLog " No Thesaurus available"
+endcatch
- PrintLog " Thesaurus with 1 word: " + DasWort$
+PrintLog " Thesaurus with 1 word: " + DasWort$
- Call hTextrahmenErstellen (DasWort$,20,20,50,30)
- sleep 1
+Call hTextrahmenErstellen (DasWort$,20,20,50,30)
+sleep 1
- hTypeKeys "<Home><SHIFT END>"
- '------------------------
+hTypeKeys "<Home><SHIFT END>"
+'------------------------
ToolsOptions
Kontext "ExtrasOptionenDlg"
hToolsOptions("LANGUAGESETTINGS","Languages")
@@ -130,179 +122,161 @@ Westlich.Select 32
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
sleep 1
- '------------------------
- try
- ExtrasThesaurusDraw '/// Thesaurus with only 1 word ///'
- Kontext "Thesaurus"
- if Thesaurus.Exists(3) then
+'------------------------
+try
+ Kontext "Thesaurus"
+ if Thesaurus.Exists(3) then
if Wort.GetSelText <> DasWort$ Then WarnLog "marked word should be:" + DasWort$ + " but it is:" + Wort.GetSelText
- if Wort.GetSelText = DasWort$ Then PrintLog " Marked word is correctly changed" '/// Control if word has changed ///'
- ZaehlerBedeutung=Bedeutung.GetItemCount
- if Bedeutung.GetItemCount = 0 Then
- PrintLog " There are no suggestions for this word"
- sleep 1
- else
- if ZaehlerBedeutung=1 Then
- Bedeutung.Select ZaehlerBedeutung
- else
- Bedeutung.Select (ZaehlerBedeutung - 1)
- end if
- sleep 1
- Synonym.Select 1 '/// Select synonym 1///'
- sleep 1
- if Ersetzen.GetText=Synonym.GetSelText Then PrintLog " Meaning transfered into Replace edit field"
- if Ersetzen.GetText<>Synonym.GetSelText Then WarnLog " Replacement should have been: '" + Bedeutung.GetSelText + "' but it is '" + Ersetzen.GetText+"'"
- endif
- Thesaurus.Cancel
- else
- warnlog " thesaurus didn't come up, that's bad :-("
- end if
- catch
- warnLog " No Thesaurus available ??! check if options western has smth selected !! !TL!"
- endcatch
- Call hCloseDocument '/// Close document ///'
+ ZaehlerBedeutung=Bedeutung.GetItemCount
+ if Bedeutung.GetItemCount = 0 Then
+ PrintLog " There are no suggestions for this word"
+ sleep 1
+ else
+ if ZaehlerBedeutung=1 Then
+ Bedeutung.Select ZaehlerBedeutung
+ else
+ Bedeutung.Select (ZaehlerBedeutung - 1)
+ end if
+ sleep 1
+ sleep 1
+ if Ersetzen.GetText=Synonym.GetSelText Then PrintLog " Meaning transfered into Replace edit field"
+ if Ersetzen.GetText<>Synonym.GetSelText Then WarnLog " Replacement should have been: '" + Bedeutung.GetSelText + "' but it is '" + Ersetzen.GetText+"'"
+ endif
+ Thesaurus.Cancel
+ else
+ warnlog " thesaurus didn't come up, that's bad :-("
+ end if
+ catch
+ warnLog " No Thesaurus available ??! check if options western has smth selected !! !TL!"
+ endcatch
endcase 'tiToolsThesaurus
'-------------------------------------------------------------------------------
testcase tiToolsHyphenation1
- printlog " - Hyphenation without any text"
- Call hNewDocument '/// New impress document ///'
- sleep 3
- ExtrasSilbentrennungDraw '/// Try Silbentrennung with empty document ///'
- Kontext "Silbentrennung"
+ printlog " - Hyphenation without any text"
+ sleep 3
+ Kontext "Silbentrennung"
if Silbentrennung.Exists(1) = True Then
- Warnlog " - Dialog ist da"
- Silbentrennung.Cancel
+ Warnlog " - Dialog ist da"
+ Silbentrennung.Cancel
else
- Printlog " - Hyphenation activated"
+ Printlog " - Hyphenation activated"
+ end if
+ ' Kontext "DocumentImpress"
+ printlog " - Hyphenation with text, but without any possibility to break words"
+ select case iSprache
+ case 03 : hTextrahmenErstellen ("Compare a tradu" + Chr(231) + Chr(227) + "o com o original",10,10,40,40)
+ case 07 : qaerrorlog "- No Hypenation for Russian available"
+ goto endsub
+ case 31 : hTextrahmenErstellen ("Het is mijn bedoeling om voor en hulpmiddel.",10,10,40,40)
+ case 33 : hTextrahmenErstellen ("Merci beaucoup pout votre candidature du 13/11/97.",10,10,40,40)
+ case 34 : hTextrahmenErstellen ("This ist a text with no spliting words",10,10,40,40)
+ case 36 : hTextrahmenErstellen ("Semmi karhozattyoc nincz most azoknac, a kic az Iesus Christusban be oltattac",10,10,40,40)
+ case 39 : hTextrahmenErstellen ("Il documento 'Senza nome 1' stato modififcato",10,10,40,40)
+ case 45 : hTextrahmenErstellen ("at du har nok i dit hvis du",10,10,40,40 )
+ case 46 : hTextrahmenErstellen ("Detta är en text utan delade ord",10,10,40,40)
+ case 48 : hTextrahmenErstellen (" Jeoli jednak zechcesz",10,10,40,40)
+ case 49 : hTextrahmenErstellen ("Dies ist ein Text ohne eine Moeglichkeit Woerter zu trennen",10,10,40,40)
+ case 50 : hTextrahmenErstellen ("Zato ves čas iščemo nove člane: sodelujte",10,10,40,40)
+ case 55 : hTextrahmenErstellen ("a Sun tentou adquirir a Apple",10,10,40,40)
+ case else : if bAsianLan then
+ printlog "For the language " + iSprache +" nothing is prepared yet, but is AsianLan, so OK :-)"
+ printlog " :-) will use English instead"
+ hTextrahmenErstellen ("This ist a text with no split words",10,10,40,40)
+ else
+ Warnlog "For the language " + iSprache +" nothing is prepared yet: insert text here"
+ endif
+end select
+hTypeKeys "<Home>"
+Kontext "Silbentrennung"
+if Silbentrennung.Exists =True Then
+ Warnlog "Dialog exists"
+ Silbentrennung.Cancel
+else
+ Kontext "Active"
+ if Active.Exists then Active.OK
end if
-' Kontext "DocumentImpress"
- printlog " - Hyphenation with text, but without any possibility to break words"
- select case iSprache
- case 01 : hTextrahmenErstellen ("This ist a text with no split words",10,10,40,40) '/// Create text without a pssibility to split words///'
- case 03 : hTextrahmenErstellen ("Compare a tradu" + Chr(231) + Chr(227) + "o com o original",10,10,40,40)
- case 07 : qaerrorlog "- No Hypenation for Russian available"
- Call hCloseDocument '/// Close document ///'
- goto endsub
- case 31 : hTextrahmenErstellen ("Het is mijn bedoeling om voor en hulpmiddel.",10,10,40,40)
- case 33 : hTextrahmenErstellen ("Merci beaucoup pout votre candidature du 13/11/97.",10,10,40,40)
- case 34 : hTextrahmenErstellen ("This ist a text with no spliting words",10,10,40,40)
- case 36 : hTextrahmenErstellen ("Semmi karhozattyoc nincz most azoknac, a kic az Iesus Christusban be oltattac",10,10,40,40)
- case 39 : hTextrahmenErstellen ("Il documento 'Senza nome 1' stato modififcato",10,10,40,40)
- case 45 : hTextrahmenErstellen ("at du har nok i dit hvis du",10,10,40,40 )
- case 46 : hTextrahmenErstellen ("Detta är en text utan delade ord",10,10,40,40)
- case 48 : hTextrahmenErstellen (" Jeoli jednak zechcesz",10,10,40,40)
- case 49 : hTextrahmenErstellen ("Dies ist ein Text ohne eine Moeglichkeit Woerter zu trennen",10,10,40,40)
- case 50 : hTextrahmenErstellen ("Zato ves čas iščemo nove člane: sodelujte",10,10,40,40)
- case 55 : hTextrahmenErstellen ("a Sun tentou adquirir a Apple",10,10,40,40)
- case else : if bAsianLan then
- printlog "For the language " + iSprache +" nothing is prepared yet, but is AsianLan, so OK :-)"
- printlog " :-) will use English instead"
- hTextrahmenErstellen ("This ist a text with no split words",10,10,40,40)
- else
- Warnlog "For the language " + iSprache +" nothing is prepared yet: insert text here"
- endif
- end select
- hTypeKeys "<Home>"
- ExtrasSilbentrennungDraw '/// Try Silbentrennung ///'
- Kontext "Silbentrennung"
- if Silbentrennung.Exists =True Then
- Warnlog "Dialog exists"
- Silbentrennung.Cancel
- else
- Kontext "Active"
- if Active.Exists then Active.OK
- end if
-
- Call hCloseDocument '/// Close document ///'
-
+
+
endcase 'tiToolsHyphenation1
'-------------------------------------------------------------------------------
testcase tiToolsHyphenation2
- dim iWaitIndex as integer
- dim sExt as string
- Dim i : Dim DasWort : Dim DasWort2 : Dim DasWort3 : Dim DasWort4 : Dim DasWort5 : Dim DasWort6 : Dim DasWort7
- dim sDraw as string
- dim sFile as string
- PrintLog "- Tools/Hyphenation2"
- Select Case Ucase(gApplication)
- case "DRAW" : sExt = ".odg"
- case "IMPRESS" : sExt = ".odp"
- end select
-
- if ((not bAsianLan) AND (iSprache <> 07)) then
- sFile = gTesttoolpath + "graphics\required\input\silben_"+iSprache+sExt
- Call hFileOpen (sFile)
- endif
-
- select case iSprache '/// Open prepared document ///'
- case 01 :DasWort = "ation" : DasWort2 = "tion" : DasWort3 = "ion" : DasWort4 = "on" '+Chr(34)
- case 07 : qaerrorlog "- No Hypenation for Russian available"
- goto endsub
- case 31 :DasWort = "siteit" : DasWort2 = "iteit" : DasWort3 = "teit" : DasWort4 = "eit"
- case 33 :DasWort = "ture" : DasWort2 = "ure" : DasWort3 = "re" : DasWort4 = "e"
- case 34 :DasWort = "chvo" : DasWort2 = "hvo" : DasWort3 = "vo" : DasWort4 = "o"
- case 36 :DasWort = "zatnal" : DasWort2 = "atnal" : DasWort3 = "tnal" : DasWort4 = "nal"
- case 39 :DasWort = "sentu" : DasWort2 = "entu" : DasWort3 = "ntu" : DasWort4 = "tu"
- case 46 :DasWort = "niska" : DasWort2 = "iska" : DasWort3 = "ska" : DasWort4 = "ka"
- case 48 :DasWort = "nie" : DasWort2 = "ie" : DasWort3 = "e"
- case 49 :DasWort = "nung" : DasWort2 = "ung" : DasWort3 = "ng" : DasWort4 = "g"
- case 50 :DasWort = "nica" : DasWort2 = "ica" : DasWort3 = "ca" : DasWort4 = "a"
- case 55 :DasWort = "gia" : DasWort2 = "ia" : DasWort3 = "a" : DasWort4 = "ogia"
- case else : if bAsianLan then
- printlog "For the language " + iSprache +" nothing is prepared yet, but is AsianLan, so OK :-)"
- printlog " :-) will use English instead"
- Call hFileOpen (gTesttoolpath + "graphics\required\input\silben_"+"1"+sExt)
- DasWort = "ation" : DasWort2 = "tion" : DasWort3 = "ion" : DasWort4 = "on" '+Chr(34)
- else
- Warnlog "For the language " + iSprache +" nothing is prepared yet: insert text here and create file: "+sFile
- hNewDocument
- endif
- end select
-
- Call sMakeReadOnlyDocumentEditable
-
- printlog " - Test hyphenation"
- EditSelectAll '/// Press CTRL + A to select all ///'
- '/// press return to go into the edit mode ///'
- hTypeKeys "<Return>"
-
- sleep 1
- ' WA for draw, or smth else: get text part before hyphenation:
- if iSprache = "1" OR bAsianLan = TRUE then
- hTypeKeys "<MOD1 END><HOME><MOD1 SHIFT RIGHT RIGHT>" '/// Select part of text and compare it with original text at this place ///'
- else
- hTypeKeys "<MOD1 END><HOME><MOD1 SHIFT RIGHT>"
- endif
- EditCopy
- sDraw = GetClipboardText()
- EditSelectAll '/// Select whole text ///'
- ExtrasSilbentrennungDraw '/// Run Hyphenation ///'
- gMouseClick 50,50
- hTypeKeys "<MOD1 END><HOME><MOD1 SHIFT RIGHT>" '/// Select part of text and compare it with original text at this place ///'
- sleep 3
- EditCopy
-printlog GetClipboardText
- select case GetClipboardText
- case DasWort : printlog " - Hyphenation worked"
- case DasWort2 : printlog " - Hyphenation worked"
- case DasWort3 : printlog " - Hyphenation worked"
- case DasWort4 : printlog " - Hyphenation worked"
- case else : warnlog " - Hyphenation didnt work"
+ dim iWaitIndex as integer
+ dim sExt as string
+ Dim i : Dim DasWort : Dim DasWort2 : Dim DasWort3 : Dim DasWort4 : Dim DasWort5 : Dim DasWort6 : Dim DasWort7
+ dim sDraw as string
+ dim sFile as string
+ PrintLog "- Tools/Hyphenation2"
+ Select Case Ucase(gApplication)
+ case "DRAW" : sExt = ".odg"
+ case "IMPRESS" : sExt = ".odp"
end select
- if GetClipboardText <> sDraw then
- Printlog " - WA draw hyphenation did work :-)"
- else
- Warnlog " - Hyphenation did not work"
- Printlog "Expected: '"+DasWort+"'; or something different than: '"+sDraw+"'; But what we got was: '"+GetClipboardText+"'"
- end if
- sleep 1
- Call hCloseDocument '/// Close document ///'
-
+
+ if ((not bAsianLan) AND (iSprache <> 07)) then
+ sFile = gTesttoolpath + "graphics\required\input\silben_"+iSprache+sExt
+ Call hFileOpen (sFile)
+ endif
+
+case 01 :DasWort = "ation" : DasWort2 = "tion" : DasWort3 = "ion" : DasWort4 = "on" '+Chr(34)
+case 07 : qaerrorlog "- No Hypenation for Russian available"
+ goto endsub
+case 31 :DasWort = "siteit" : DasWort2 = "iteit" : DasWort3 = "teit" : DasWort4 = "eit"
+case 33 :DasWort = "ture" : DasWort2 = "ure" : DasWort3 = "re" : DasWort4 = "e"
+case 34 :DasWort = "chvo" : DasWort2 = "hvo" : DasWort3 = "vo" : DasWort4 = "o"
+case 36 :DasWort = "zatnal" : DasWort2 = "atnal" : DasWort3 = "tnal" : DasWort4 = "nal"
+case 39 :DasWort = "sentu" : DasWort2 = "entu" : DasWort3 = "ntu" : DasWort4 = "tu"
+case 46 :DasWort = "niska" : DasWort2 = "iska" : DasWort3 = "ska" : DasWort4 = "ka"
+case 48 :DasWort = "nie" : DasWort2 = "ie" : DasWort3 = "e"
+case 49 :DasWort = "nung" : DasWort2 = "ung" : DasWort3 = "ng" : DasWort4 = "g"
+case 50 :DasWort = "nica" : DasWort2 = "ica" : DasWort3 = "ca" : DasWort4 = "a"
+case 55 :DasWort = "gia" : DasWort2 = "ia" : DasWort3 = "a" : DasWort4 = "ogia"
+case else : if bAsianLan then
+ printlog "For the language " + iSprache +" nothing is prepared yet, but is AsianLan, so OK :-)"
+ printlog " :-) will use English instead"
+ Call hFileOpen (gTesttoolpath + "graphics\required\input\silben_"+"1"+sExt)
+ DasWort = "ation" : DasWort2 = "tion" : DasWort3 = "ion" : DasWort4 = "on" '+Chr(34)
+else
+ Warnlog "For the language " + iSprache +" nothing is prepared yet: insert text here and create file: "+sFile
+ hNewDocument
+endif
+end select
+
+Call sMakeReadOnlyDocumentEditable
+
+printlog " - Test hyphenation"
+hTypeKeys "<Return>"
+
+sleep 1
+' WA for draw, or smth else: get text part before hyphenation:
+if iSprache = "1" OR bAsianLan = TRUE then
+else
+hTypeKeys "<MOD1 END><HOME><MOD1 SHIFT RIGHT>"
+endif
+EditCopy
+sDraw = GetClipboardText()
+gMouseClick 50,50
+sleep 3
+EditCopy
+printlog GetClipboardText
+select case GetClipboardText
+case DasWort : printlog " - Hyphenation worked"
+case DasWort2 : printlog " - Hyphenation worked"
+case DasWort3 : printlog " - Hyphenation worked"
+case DasWort4 : printlog " - Hyphenation worked"
+case else : warnlog " - Hyphenation didnt work"
+end select
+if GetClipboardText <> sDraw then
+Printlog " - WA draw hyphenation did work :-)"
+else
+Warnlog " - Hyphenation did not work"
+Printlog "Expected: '"+DasWort+"'; or something different than: '"+sDraw+"'; But what we got was: '"+GetClipboardText+"'"
+end if
+sleep 1
+
endcase 'tiToolsHyphenation2
'-------------------------------------------------------------------------------
@@ -318,7 +292,6 @@ testcase tToolsMacro
ToolsMacro
Kontext "Makro"
- '/// to get the count of all macros, the list needs to get elapsed-all ///'
for j = 1 to 2
Zaehler=MakroAus.GetItemCount
MakroAus.typeKeys "<end>"
@@ -432,5 +405,5 @@ testcase tToolsMacro
'TODO: organizer testing!
Call hCloseDocument
Call hCloseDocument
-
+
endcase 'tToolsMacro
diff --git a/testautomation/graphics/optional/includes/global/g_zoom.inc b/testautomation/graphics/optional/includes/global/g_zoom.inc
index 023e30b5c826..55c8e86e506d 100755
--- a/testautomation/graphics/optional/includes/global/g_zoom.inc
+++ b/testautomation/graphics/optional/includes/global/g_zoom.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
@@ -40,13 +40,13 @@
'\********************************************************************
testcase tViewZoom
- dim Zaehler as integer
- dim Position1 as integer
- dim Position2 as integer
- Dim Datei$
- Printlog "- view Zoom"
+ dim Zaehler as integer
+ dim Position1 as integer
+ dim Position2 as integer
+ Dim Datei$
+ Printlog "- view Zoom"
- if (gApplication = "IMPRESS") then
+ if (gApplication = "IMPRESS") then
ExtensionString = "odp"
else
ExtensionString = "odg"
@@ -55,85 +55,78 @@ testcase tViewZoom
Datei$ = ConvertPath (gOfficePath + "user\work\test." & ExtensionString)
Printlog "- View-Zoom testing"
- if dir(Datei$) <> "" then app.Kill(Datei$) ' to avoid the anoying overwrite warnlog :-)
- Call hNewDocument '/// new document ///'
- ViewZoom
- Kontext "Massstab"
- Vergroesserung100.Check '/// set zoom to 50% ///'
- Massstab.OK
- '/// create a number of rectangles with different color properties ///'
- Kontext "SD_Farbleiste"
- sleep 1
- if SD_Farbleiste.Exists then
- Printlog "- Color toolbar will be disabled now"
- ViewToolbarsColorBar
- end if
- '/// All rectangles are created with same dimensions but using different zoom settings ///'
- For Zaehler = 1 to 9
- Position1 = 5 * Zaehler - 3
- Position2 = 105 - 5 * Zaehler
- Call hRechteckErstellen (Position1, Position1, Position2, Position2)
- FormatArea
- kontext
- Active.SetPage TabFarben
- Kontext "TabFarben"
- Farbe.Select 5*Zaehler
- TabFarben.OK
- sleep 1
- gMouseClick 50,0
- Next Zaehler
- sleep 2
- hFileSaveAs (Datei$) '/// save document ///'
- sleep 3
- for Zaehler = 1 to 6 '/// changing zoom settings and checking functionality with controlling the color of the selected rectangle ///'
- ViewZoom
- Kontext "Massstab"
- VergroesserungStufenlos.check
- Stufenlos.Settext "45"
- Massstab.OK
- sleep 2
- gMouseClick 50,1
- ViewZoom
- Kontext "Massstab"
- Select Case Zaehler
- Case 1: VergroesserungStufenlos.check
- Stufenlos.Settext "40"
- Case 2: VergroesserungStufenlos.check
- Stufenlos.Settext "50"
- Case 3: VergroesserungStufenlos.check
- Stufenlos.Settext "75"
- Case 4: VergroesserungStufenlos.check
- Stufenlos.Settext "100"
- Case 5: VergroesserungStufenlos.check
- Stufenlos.Settext "150"
- Case 6: VergroesserungStufenlos.check
- Stufenlos.Settext "200"
-
- 'Case 2: Vergroesserung50.check
- 'Case 3: Vergroesserung75.check
- 'Case 4: Vergroesserung100.check
- 'Case 5: Vergroesserung150.check
- 'Case 6: Vergroesserung200.check
- End Select
- Massstab.OK
- sleep 1
- Kontext "DocumentImpress"
- gMouseClick 15,15 'hier soll die Maus ein Rechteck treffen;
- 'die Farbe des Rechtecks sagt uns dann, ob
- FormatArea 'richtig vergroessert oder verkleinert wurde.
- sleep 1
- Kontext
- Active.SetPage TabFarben
- Kontext "TabFarben"
- printlog "Color index ", Farbe.GetSelIndex
- TabFarben.Cancel
- sleep 1
- next Zaehler
+ if dir(Datei$) <> "" then app.Kill(Datei$) ' to avoid the anoying overwrite warnlog :-)
+ ViewZoom
+ Kontext "Massstab"
+ Massstab.OK
+ Kontext "SD_Farbleiste"
+ sleep 1
+ if SD_Farbleiste.Exists then
+ Printlog "- Color toolbar will be disabled now"
+ ViewToolbarsColorBar
+ end if
+ For Zaehler = 1 to 9
+ Position1 = 5 * Zaehler - 3
+ Position2 = 105 - 5 * Zaehler
+ Call hRechteckErstellen (Position1, Position1, Position2, Position2)
+ FormatArea
+ kontext
+ Active.SetPage TabFarben
+ Kontext "TabFarben"
+ Farbe.Select 5*Zaehler
+ TabFarben.OK
+ sleep 1
+ gMouseClick 50,0
+ Next Zaehler
+ sleep 2
+ sleep 3
+ ViewZoom
+ Kontext "Massstab"
+ VergroesserungStufenlos.check
+ Stufenlos.Settext "45"
+ Massstab.OK
+ sleep 2
+ gMouseClick 50,1
+ ViewZoom
+ Kontext "Massstab"
+ Select Case Zaehler
+ Case 1: VergroesserungStufenlos.check
+ Stufenlos.Settext "40"
+ Case 2: VergroesserungStufenlos.check
+ Stufenlos.Settext "50"
+ Case 3: VergroesserungStufenlos.check
+ Stufenlos.Settext "75"
+ Case 4: VergroesserungStufenlos.check
+ Stufenlos.Settext "100"
+ Case 5: VergroesserungStufenlos.check
+ Stufenlos.Settext "150"
+ Case 6: VergroesserungStufenlos.check
+ Stufenlos.Settext "200"
+
+ 'Case 2: Vergroesserung50.check
+ 'Case 3: Vergroesserung75.check
+ 'Case 4: Vergroesserung100.check
+ 'Case 5: Vergroesserung150.check
+ 'Case 6: Vergroesserung200.check
+ End Select
+ Massstab.OK
+ sleep 1
+ Kontext "DocumentImpress"
+ gMouseClick 15,15 'hier soll die Maus ein Rechteck treffen;
+ 'die Farbe des Rechtecks sagt uns dann, ob
+ FormatArea 'richtig vergroessert oder verkleinert wurde.
+ sleep 1
+ Kontext
+ Active.SetPage TabFarben
+ Kontext "TabFarben"
+ printlog "Color index ", Farbe.GetSelIndex
+ TabFarben.Cancel
+ sleep 1
+ next Zaehler
- 'GanzeSeite.push
- 'Optimal.push
- 'Seitenbreite.push
- sleep 2
+ 'GanzeSeite.push
+ 'Optimal.push
+ 'Seitenbreite.push
+ sleep 2
- Call hCloseDocument '/// close document ///'
endcase
diff --git a/testautomation/graphics/optional/includes/global/gallery.inc b/testautomation/graphics/optional/includes/global/gallery.inc
index 9175441e0f64..266ba01f2ec1 100755
--- a/testautomation/graphics/optional/includes/global/gallery.inc
+++ b/testautomation/graphics/optional/includes/global/gallery.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
@@ -50,29 +50,23 @@
'*
'\******************************************************************
testcase tGallery_DialogTest
- '///Open a new Writer document
- '///Tools / Gallery
printlog "- Working with Gallery-Beamer!"
gApplication = "WRITER"
call hNewDocument
call hOpenGallery
Kontext "DocumentWriter"
- '///+Undock the <i>Gallery Beamer</i>
- printlog "- undock the Gallery Beamer"
- Kontext "Gallery"
- Gallery.Undock ( AlignTop )
- sleep(2)
- '///+<ul><li>Move the gallery-window</li></ul>
- printlog " - move the gallery window"
- Gallery.move ( 20, 20 )
- sleep(2)
- '///+Dock the <i>Gallery Beamer</i>
- printlog "- dock the Gallery Beamer"
- Gallery.Dock ( AlignTop )
- sleep(2)
- '///+Close the <i>Gallery Beamer</i> (Tools / Gallery)
- printlog "- close the Gallery Beamer"
- ToolsGallery
+ printlog "- undock the Gallery Beamer"
+ Kontext "Gallery"
+ Gallery.Undock ( AlignTop )
+ sleep(2)
+ printlog " - move the gallery window"
+ Gallery.move ( 20, 20 )
+ sleep(2)
+ printlog "- dock the Gallery Beamer"
+ Gallery.Dock ( AlignTop )
+ sleep(2)
+ printlog "- close the Gallery Beamer"
+ ToolsGallery
call hCloseDocument
endcase
@@ -80,52 +74,48 @@ endcase
testcase tGallery_ActivateAndUpdateAllThemes
Dim iThemeCount as Integer
- Dim i as Integer
+ Dim i as Integer
Dim j as Integer
Dim Gallerytext as string
- '///Activate and update all gallery themes (NET installation: Activate only!)
- '///Open a new Writer document
- '///+Tools / Gallery
- '///+Click on each theme and update it (via context menu)
printlog "activate and update all gallery-themes"
gApplication = "WRITER"
call hNewDocument
Kontext
call hOpenGallery
Kontext "Gallery"
- iThemeCount = Gallerys.GetItemCount
- for i=1 to iThemeCount
- if gNetzInst = FALSE then
- Kontext "Gallery"
- Gallerytext = Gallerys.GetItemText(i)
- printlog "- " + i + ". entry (" & Gallerytext & ")"
- Gallerys.Select i
- Gallerys.MouseMove ( 10, 10 )
- Gallerys.OpenContextMenu
- sleep (3)
- printlog " - update"
- hMenuSelectNr (1)
- sleep (3)
- Kontext "Messagebox"
- if Messagebox.Exists(3) then
- if Messagebox.getRT=304 then
- printlog "- 'MyTheme' is the " & i & "'s entry."
- Messagebox.No
- end if
+ iThemeCount = Gallerys.GetItemCount
+ for i=1 to iThemeCount
+ if gNetzInst = FALSE then
+ Kontext "Gallery"
+ Gallerytext = Gallerys.GetItemText(i)
+ printlog "- " + i + ". entry (" & Gallerytext & ")"
+ Gallerys.Select i
+ Gallerys.MouseMove ( 10, 10 )
+ Gallerys.OpenContextMenu
+ sleep (3)
+ printlog " - update"
+ hMenuSelectNr (1)
+ sleep (3)
+ Kontext "Messagebox"
+ if Messagebox.Exists(3) then
+ if Messagebox.getRT=304 then
+ printlog "- 'MyTheme' is the " & i & "'s entry."
+ Messagebox.No
+ end if
+ else
+ for j = 1 to 800
+ Kontext "AktualisierenGallery"
+ if AktualisierenGallery.Exists then
+ printlog "DEBUG (j): " & j
+ sleep (1)
else
- for j = 1 to 800
- Kontext "AktualisierenGallery"
- if AktualisierenGallery.Exists then
- printlog "DEBUG (j): " & j
- sleep (1)
- else
- printlog "DEBUG: 800 reached!"
- j=801
- end if
- next j
+ printlog "DEBUG: 800 reached!"
+ j=801
end if
+ next j
end if
- next i
+ end if
+ next i
call hCloseDocument
endcase
@@ -140,44 +130,39 @@ testcase tGallery_CheckNames
Dim sFileName as String
Dim iGalleryThemes as integer
- if gOOO = true then
+ if gOOO = true then
sFileName = ConvertPath ( gTesttoolPath + "graphics\required\input\gallery\gal_oo_" + iSprache + ".txt" )
else
sFileName = ConvertPath ( gTesttoolPath + "graphics\required\input\gallery\gal_" + iSprache + ".txt" )
end if
- '///Check the names for the gallery themes
- '///Open a new Writer document
- '///+Tools / Gallery
gApplication = "WRITER"
call hNewDocument
Kontext
call hOpenGallery
- '///+Check the number of gallery themes. For StarOffice: should be 32. For OpenOffice.Org: should be 6.
printlog "- check the number of gallery-themes"
Kontext "Gallery"
- if NOT gOOO then
- if bAsianLan then
- iGalleryThemes = 29 ' Flags are not allowed!
- else
- iGalleryThemes = 30
- end if
+ if NOT gOOO then
+ if bAsianLan then
+ iGalleryThemes = 29 ' Flags are not allowed!
else
- if bAsianLan then
- iGalleryThemes = 6 ' Flags are not allowed!
- else
- iGalleryThemes = 6
- end if
+ iGalleryThemes = 30
end if
- iThemeCount = Gallerys.GetItemCount
- if (iThemeCount <> iGalleryThemes) then
- warnlog "Difference in count of gallery themes; found: '" + iThemeCount + "'; expected: '"+ iGalleryThemes +"'"
+ else
+ if bAsianLan then
+ iGalleryThemes = 6 ' Flags are not allowed!
+ else
+ iGalleryThemes = 6
end if
- for i=1 to iThemeCount
+ end if
+ iThemeCount = Gallerys.GetItemCount
+ if (iThemeCount <> iGalleryThemes) then
+ warnlog "Difference in count of gallery themes; found: '" + iThemeCount + "'; expected: '"+ iGalleryThemes +"'"
+ end if
+ for i=1 to iThemeCount
Gallerys.Select i
ListAppend ( siList(), Gallerys.GetSelText )
next i
- '///+Check all names with a list which depends on language (<i>gTestToolPath</i>/graphics/udpate/input/gallery)
printlog "- check the names of gallery-themes"
if Dir ( sFilename ) = "" then
warnlog "The file for comparison does not exists. The file will be written!"
@@ -199,67 +184,62 @@ testcase tGallery_CheckContextMenuForGalleryThemes
Dim iMenuEntries as Integer
Dim i as Integer
Dim iThemeCount as Integer
- '/// Check the contextmenu for the gallery themes
- '/// Open a new Writer document
- '/// +Tools / Gallery
printlog "check the contextmenu for the gallery-themes"
gApplication = "WRITER"
call hNewDocument
call hOpenGallery
- '/// +Testing <i>rename</i> and <i>properties</i> for each gallery theme (via context-menu)
- '/// +<ul><li>Only the private gallery theme must be deleteable (different 3 entries in the context-menu than the rest)</li></ul>
Kontext "Gallery"
- iThemeCount = Gallerys.GetItemCount
- Gallerys.MouseMove ( 10, 10 )
- for i=1 to iThemeCount
- Kontext "Gallery"
- printlog "- " + i + ". entry"
- sleep 1
- Gallerys.Select 1
- sleep (1)
- Gallerys.Select i
- sleep (1)
- Gallerys.OpenContextMenu
- sleep (2)
- iMenuEntries = hMenuItemGetCount
- if iMenuEntries <> 3 then
- if gNetzInst = FALSE then
- warnlog "There are not 3 entries! => no test on the contextmenu!"
- else
- if iMenuEntries <> 1 then
- warnlog "Net-Inst : There are not 1 entries! => no test on the contextmenu!"
- else
- sleep (3)
- hMenuSelectNr(1)
- Kontext
- if Active.GetPageCount <> 1 then
- warnlog "There are more than 1 Tabpage in Net-Installation ( perhaps no root-installation )!"
- end if
- Active.SetPage TabAllgemeinGallery
- Kontext "TabAllgemeinGallery"
- TabAllgemeinGallery.Cancel
- sleep (1)
- end if
- end if
+ iThemeCount = Gallerys.GetItemCount
+ Gallerys.MouseMove ( 10, 10 )
+ for i=1 to iThemeCount
+ Kontext "Gallery"
+ printlog "- " + i + ". entry"
+ sleep 1
+ Gallerys.Select 1
+ sleep (1)
+ Gallerys.Select i
+ sleep (1)
+ Gallerys.OpenContextMenu
+ sleep (2)
+ iMenuEntries = hMenuItemGetCount
+ if iMenuEntries <> 3 then
+ if gNetzInst = FALSE then
+ warnlog "There are not 3 entries! => no test on the contextmenu!"
+ else
+ if iMenuEntries <> 1 then
+ warnlog "Net-Inst : There are not 1 entries! => no test on the contextmenu!"
else
+ sleep (3)
+ hMenuSelectNr(1)
+ Kontext
+ if Active.GetPageCount <> 1 then
+ warnlog "There are more than 1 Tabpage in Net-Installation ( perhaps no root-installation )!"
+ end if
+ Active.SetPage TabAllgemeinGallery
+ Kontext "TabAllgemeinGallery"
+ TabAllgemeinGallery.Cancel
sleep (1)
- hMenuSelectNr(2)
- Kontext "GalleryNewTitle"
- GalleryNewTitle.Cancel
- sleep(1)
- Kontext "Gallery"
- Gallerys.OpenContextMenu
- sleep (3)
- hMenuSelectNr (3)
- Kontext
- Active.SetPage TabAllgemeinGallery
- Active.SetPage TabDateien
- Kontext "TabDateien"
- TabDateien.Cancel
- sleep(1)
end if
- next i
- ToolsGallery
+ end if
+ else
+ sleep (1)
+ hMenuSelectNr(2)
+ Kontext "GalleryNewTitle"
+ GalleryNewTitle.Cancel
+ sleep(1)
+ Kontext "Gallery"
+ Gallerys.OpenContextMenu
+ sleep (3)
+ hMenuSelectNr (3)
+ Kontext
+ Active.SetPage TabAllgemeinGallery
+ Active.SetPage TabDateien
+ Kontext "TabDateien"
+ TabDateien.Cancel
+ sleep(1)
+ end if
+ next i
+ ToolsGallery
call hCloseDocument
endcase
@@ -322,7 +302,7 @@ testcase tGallery_CreateAndWorkWithANewGalleryThemes
j=101
endif
next j
-
+
sleep (1)
Kontext "TabDateien"
printlog "add the 2nd one"
@@ -356,7 +336,7 @@ testcase tGallery_CreateAndWorkWithANewGalleryThemes
next j
sleep (1)
Kontext "TabDateien"
-
+
if DateiListe.GetItemCount > 1 then
printlog " - 'add all' for the rest of the files"
DateiListe.Select 1
@@ -383,7 +363,7 @@ testcase tGallery_CreateAndWorkWithANewGalleryThemes
call hCloseDocument
else
printlog "make mouseclick to set focus"
- gMouseClick 50,50
+ gMouseClick 50,50
Kontext "Gallery"
Gallerys.Select "TT-theme"
Gallerys.MouseMove ( 10, 10 )
@@ -399,79 +379,79 @@ testcase tGallery_CreateAndWorkWithANewGalleryThemes
end if
do
sleep 1
- loop while AktualisierenGallery.Exists
- Kontext "Gallery"
- Gallerys.Select "TT-theme"
- Gallerys.OpenContextMenu
- printlog "+Update it (1. entry in context menu )"
- sleep (3)
- hMenuSelectNr (1)
- for j=1 to 100
- Kontext "AktualisierenGallery"
- if AktualisierenGallery.Exists <> TRUE then
- j=101
- else
- sleep (1)
- end if
- next j
- printlog " - rename ( 3. entry in context-menu )"
- Kontext "Gallery"
- Gallerys.OpenContextMenu
- sleep (3)
- hMenuSelectNr (3)
- Kontext "GalleryNewTitle"
- Title.SetText "New TT-theme"
- GalleryNewTitle.OK
- Kontext "Gallery"
- Gallerys.Select "New TT-theme"
- printlog " - add new graphics in properties ( 4. entry in context-menu )"
- Kontext "Gallery"
- Gallerys.OpenContextMenu
- sleep (3)
- hMenuSelectNr (4)
- Kontext
- Active.SetPage TabDateien
- Kontext "TabDateien"
- Suche.Click
- Kontext "OeffnenDlg"
- Pfad.SetText ( convertPath ( gTesttoolPath + "global\input\graf_inp" ) )
- Auswaehlen.Click
- sleep (10)
- Kontext "TabDateien"
- DateiListe.Select 1
- Hinzufuegen.Click
- TabDateien.OK
- printlog " - delete the entry ( 2. entry in context-menu )"
- printlog " - messagebox -> no"
- Kontext "Gallery"
- Gallerys.Select "New TT-theme"
- sleep (5)
- Gallerys.OpenContextMenu
- sleep (3)
- hMenuSelectNr (2)
- Kontext "Active"
- sleep (1)
- Active.No
- printlog " - messagebox -> yes"
+ loop while AktualisierenGallery.Exists
+ Kontext "Gallery"
+ Gallerys.Select "TT-theme"
+ Gallerys.OpenContextMenu
+ printlog "+Update it (1. entry in context menu )"
+ sleep (3)
+ hMenuSelectNr (1)
+ for j=1 to 100
+ Kontext "AktualisierenGallery"
+ if AktualisierenGallery.Exists <> TRUE then
+ j=101
+ else
+ sleep (1)
+ end if
+ next j
+ printlog " - rename ( 3. entry in context-menu )"
+ Kontext "Gallery"
+ Gallerys.OpenContextMenu
+ sleep (3)
+ hMenuSelectNr (3)
+ Kontext "GalleryNewTitle"
+ Title.SetText "New TT-theme"
+ GalleryNewTitle.OK
+ Kontext "Gallery"
+ Gallerys.Select "New TT-theme"
+ printlog " - add new graphics in properties ( 4. entry in context-menu )"
+ Kontext "Gallery"
+ Gallerys.OpenContextMenu
+ sleep (3)
+ hMenuSelectNr (4)
+ Kontext
+ Active.SetPage TabDateien
+ Kontext "TabDateien"
+ Suche.Click
+ Kontext "OeffnenDlg"
+ Pfad.SetText ( convertPath ( gTesttoolPath + "global\input\graf_inp" ) )
+ Auswaehlen.Click
+ sleep (10)
+ Kontext "TabDateien"
+ DateiListe.Select 1
+ Hinzufuegen.Click
+ TabDateien.OK
+ printlog " - delete the entry ( 2. entry in context-menu )"
+ printlog " - messagebox -> no"
+ Kontext "Gallery"
+ Gallerys.Select "New TT-theme"
+ sleep (5)
+ Gallerys.OpenContextMenu
+ sleep (3)
+ hMenuSelectNr (2)
+ Kontext "Active"
+ sleep (1)
+ Active.No
+ printlog " - messagebox -> yes"
+ Kontext "Gallery"
+ sleep (1)
+ Gallerys.Select "New TT-theme"
+ sleep (1)
+ Gallerys.OpenContextMenu
+ sleep (3)
+ hMenuSelectNr (2)
+ Kontext "Active"
+ Active.Yes
+ try
Kontext "Gallery"
- sleep (1)
Gallerys.Select "New TT-theme"
- sleep (1)
- Gallerys.OpenContextMenu
- sleep (3)
- hMenuSelectNr (2)
- Kontext "Active"
- Active.Yes
- try
- Kontext "Gallery"
- Gallerys.Select "New TT-theme"
- warnlog "The entry isn't deleted!"
- catch
- endcatch
- end if
- sleep 10
- ToolsGallery
- call hCloseDocument
+ warnlog "The entry isn't deleted!"
+ catch
+ endcatch
+end if
+sleep 10
+ToolsGallery
+call hCloseDocument
endcase
'-------------------------------------------------------------------------
@@ -501,37 +481,34 @@ testcase tGallery_GalleryView_Preview
case 86 : jpeg_bkg = 1 : iAnimation = 9 : iSound = 13
case 88 : jpeg_bkg = 1 : iAnimation = 7 : iSound = 20
case else : jpeg_bkg = 10 : iAnimation = 1 : iSound = 17
- warnlog "Please insert the entrienumbers for 'Backgrounds', 'Sounds' and one with normal files ( Animations )"
+ warnlog "Please insert the entrienumbers for 'Backgrounds', 'Sounds' and one with normal files ( Animations )"
end select
else ' Testing OOO
select case iSprache
- case 01 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2
- case 07 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2
- case 31 : jpeg_bkg = 3 : iAnimation = 1 : iSound = 1
- case 33 : jpeg_bkg = 3 : iAnimation = 1 : iSound = 2
- case 34 : jpeg_bkg = 1 : iAnimation = 1 : iSound = 2
- case 36 : jpeg_bkg = 2 : iAnimation = 1 : iSound = 2
- case 39 : jpeg_bkg = 2 : iAnimation = 1 : iSound = 2
- case 46 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2
- case 48 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2
- case 49 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2
- case 55 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2
- case 81 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2 'FHA TODO: Find out the right numbers for Asian languages.
- case 82 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2
- case 86 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 3
- case 88 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2
- case else : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2
- warnlog "Please insert the entrienumbers for 'Backgrounds', 'Sounds' and one with normal files ( Animations )"
+ case 01 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2
+ case 07 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2
+ case 31 : jpeg_bkg = 3 : iAnimation = 1 : iSound = 1
+ case 33 : jpeg_bkg = 3 : iAnimation = 1 : iSound = 2
+ case 34 : jpeg_bkg = 1 : iAnimation = 1 : iSound = 2
+ case 36 : jpeg_bkg = 2 : iAnimation = 1 : iSound = 2
+ case 39 : jpeg_bkg = 2 : iAnimation = 1 : iSound = 2
+ case 46 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2
+ case 48 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2
+ case 49 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2
+ case 55 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2
+ case 81 : jpeg_bkg = 2 : iAnimation = 5 : iSound = 2 'FHA TODO: Find out the right numbers for Asian languages.
+ case 82 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2
+ case 86 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 3
+ case 88 : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2
+ case else : jpeg_bkg = 1 : iAnimation = 5 : iSound = 2
+ warnlog "Please insert the entrienumbers for 'Backgrounds', 'Sounds' and one with normal files ( Animations )"
end select
end if
- '/// Open a new Writer document
- '/// Tools / Gallery
printlog "open a writer and the gallery"
gApplication = "WRITER"
call hNewDocument
Kontext
call hOpenGallery
- '/// Check the view for Background-pictures (JPEGs), for standard graphic files (Animation) and for <i>Sound</i> objects
for i=1 to 3
if i=1 then
Gallerys.Select jpeg_bkg
@@ -550,21 +527,16 @@ testcase tGallery_GalleryView_Preview
else
iPreview = 2 : iTitle = 0
end if
- '/// Test the list-view
- '/// +Click on List-View-Button in toolbar
printlog "- list-view"
printlog " - open the list-view"
ListView.Click
sleep (1)
printlog " - Press Home + Enter to focus and enter Preview-mode."
- '/// +Double-click on an object (preview has to be visible)
View.TypeKeys "<HOME>"
View.TypeKeys "<RETURN>"
sleep (2)
- '/// +Back to normal view with Enter
View.TypeKeys "<RETURN>"
sleep (2)
- '/// +Preview out of context menu on/off
printlog " - preview out of context menu on/off"
View.TypeKeys "<HOME>"
Sleep (2)
@@ -573,103 +545,94 @@ testcase tGallery_GalleryView_Preview
hMenuSelectNr ( iPreview )
sleep (3)
kontext "Gallery"
- Sleep (2)
- View.OpenContextMenu true
+ Sleep (2)
+ View.OpenContextMenu true
+ sleep (2)
+ hMenuSelectNr ( iPreview )
+ sleep (3)
+ if gNetzInst = FALSE then
+ printlog " - title"
+ Kontext "Gallery"
sleep (2)
- hMenuSelectNr ( iPreview )
- sleep (3)
- '/// +Title (FAT installation only)
- if gNetzInst = FALSE then
- printlog " - title"
- Kontext "Gallery"
- sleep (2)
- View.OpenContextMenu true
- sleep (3)
- hMenuSelectNr ( iTitle )
- Kontext "GalleryNewTitle"
- sleep (1)
- GalleryNewTitle.Cancel
- sleep (1)
- Kontext "Gallery"
- end if
- View.OpenContextMenu true
- sleep (3)
- hMenuSelectNr ( iPreview )
- sleep (3)
- '/// Should now be in Preview-mode. Check if we are. ///'
View.OpenContextMenu true
sleep (3)
- printlog MenuIsItemChecked (MenuGetItemID(iPreview+1))
- if MenuIsItemChecked (MenuGetItemID(iPreview+1)) then
- Printlog " Entered Preview-mode correctly"
- sleep (1)
- else
- Warnlog " Didnt seem to enter preview-mode correctly."
- end if
- MenuSelect (0)
+ hMenuSelectNr ( iTitle )
+ Kontext "GalleryNewTitle"
sleep (1)
- '/// From here, try switching to icon-view ///'
- '///+Click on Icon-View-Button in toolbar
- printlog "- icon-view"
- if IconView.isEnabled then
- IconView.Click
- qaErrorLog "The bug 64543 has been fixed! Please report to FHA."
- end if
+ GalleryNewTitle.Cancel
sleep (1)
- View.TypeKeys "<HOME>"
- printlog " - Enter to get out of Preview-mode"
- '/// +Press Return on an object (preview has to be visible)
- View.TypeKeys "<RETURN>"
- sleep (2)
- '/// +Back to normal view with Return
- View.TypeKeys "<RETURN>"
- sleep (2)
- '/// +Preview out of context menu on/off
- printlog " - preview out of context menu on/off"
- View.TypeKeys "<HOME>"
- sleep (3)
- View.OpenContextMenu true
- sleep (3)
- hMenuSelectNr ( iPreview )
- sleep (3)
- View.OpenContextMenu true
- sleep (3)
- hMenuSelectNr ( iPreview )
- sleep (3)
- '/// +Title (FAT installation only)
- if gNetzInst = FALSE then
- printlog " - title"
- try
- View.OpenContextMenu true
- sleep (3)
- catch
- warnlog "Could not open Contextmenu for Title nr:" +iTitle
- endcatch
- hMenuSelectNr ( iTitle )
- Kontext "GalleryNewTitle"
- GalleryNewTitle.Cancel
- Kontext "Gallery"
- end if
- next i
- sleep 1 ' else crash
- ToolsGallery
+ Kontext "Gallery"
+ end if
+ View.OpenContextMenu true
+ sleep (3)
+ hMenuSelectNr ( iPreview )
+ sleep (3)
+ View.OpenContextMenu true
+ sleep (3)
+ printlog MenuIsItemChecked (MenuGetItemID(iPreview+1))
+ if MenuIsItemChecked (MenuGetItemID(iPreview+1)) then
+ Printlog " Entered Preview-mode correctly"
+ sleep (1)
+ else
+ Warnlog " Didnt seem to enter preview-mode correctly."
+ end if
+ MenuSelect (0)
+ sleep (1)
+ printlog "- icon-view"
+ if IconView.isEnabled then
+ IconView.Click
+ qaErrorLog "The bug 64543 has been fixed! Please report to FHA."
+ end if
+ sleep (1)
+ View.TypeKeys "<HOME>"
+ printlog " - Enter to get out of Preview-mode"
+ View.TypeKeys "<RETURN>"
+ sleep (2)
+ View.TypeKeys "<RETURN>"
+ sleep (2)
+ printlog " - preview out of context menu on/off"
+ View.TypeKeys "<HOME>"
+ sleep (3)
+ View.OpenContextMenu true
+ sleep (3)
+ hMenuSelectNr ( iPreview )
+ sleep (3)
+ View.OpenContextMenu true
+ sleep (3)
+ hMenuSelectNr ( iPreview )
+ sleep (3)
+ if gNetzInst = FALSE then
+ printlog " - title"
+ try
+ View.OpenContextMenu true
+ sleep (3)
+ catch
+ warnlog "Could not open Contextmenu for Title nr:" +iTitle
+ endcatch
+ hMenuSelectNr ( iTitle )
+ Kontext "GalleryNewTitle"
+ GalleryNewTitle.Cancel
+ Kontext "Gallery"
+ end if
+ next i
+ sleep 1 ' else crash
+ ToolsGallery
- '/// If the MediaPlayer exists - close it ///'
kontext "Mplayer"
- if Mplayer.Exists then
- if (gApplication = "IMPRESS") then
- kontext "DocumentImpress"
- else
- kontext "DocumentDraw"
- end if
- ToolsMediaPlayer
+ if Mplayer.Exists then
+ if (gApplication = "IMPRESS") then
+ kontext "DocumentImpress"
else
- if (gApplication = "IMPRESS") then
- kontext "DocumentImpress"
- else
- kontext "DocumentDraw"
- end if
+ kontext "DocumentDraw"
+ end if
+ ToolsMediaPlayer
+ else
+ if (gApplication = "IMPRESS") then
+ kontext "DocumentImpress"
+ else
+ kontext "DocumentDraw"
end if
+ end if
call hCloseDocument
endcase
@@ -682,216 +645,197 @@ testcase tGallery_GalleryView_Insert
Dim i as Integer
Dim j as Integer
Dim k as Integer
- '/// Test gallery-view -> insert gallery-object with context-menu (3D-Object (<i>internal object</i>), Animation (<i>as file</i>))
if NOT gOOO then
select case iSprache
- case 01 : jpeg_bkg = 3 : iAnimation = 1
- case 07 : jpeg_bkg = 29 : iAnimation = 1
- case 31 : jpeg_bkg = 3 : iAnimation = 3
- case 33 : jpeg_bkg = 13 : iAnimation = 1
- case 34 : jpeg_bkg = 7 : iAnimation = 1
- case 36 : jpeg_bkg = 12 : iAnimation = 1
- case 39 : jpeg_bkg = 10 : iAnimation = 1
- case 46 : jpeg_bkg = 1 : iAnimation = 2
- case 48 : jpeg_bkg = 3 : iAnimation = 1
- case 49 : jpeg_bkg = 1 : iAnimation = 2
- case 55 : jpeg_bkg = 8 : iAnimation = 1
- case 81 : jpeg_bkg = 1 : iAnimation = 3
- case 82 : jpeg_bkg = 1 : iAnimation = 17
- case 86 : jpeg_bkg = 17 : iAnimation = 15
- case 88 : jpeg_bkg = 17 : iAnimation = 15
- case else : jpeg_bkg = 1 : iAnimation = 2
- warnlog "Please insert the entrienumbers for 'Backgrounds' and one with normal files ( Animations )"
+ case 01 : jpeg_bkg = 3 : iAnimation = 1
+ case 07 : jpeg_bkg = 29 : iAnimation = 1
+ case 31 : jpeg_bkg = 3 : iAnimation = 3
+ case 33 : jpeg_bkg = 13 : iAnimation = 1
+ case 34 : jpeg_bkg = 7 : iAnimation = 1
+ case 36 : jpeg_bkg = 12 : iAnimation = 1
+ case 39 : jpeg_bkg = 10 : iAnimation = 1
+ case 46 : jpeg_bkg = 1 : iAnimation = 2
+ case 48 : jpeg_bkg = 3 : iAnimation = 1
+ case 49 : jpeg_bkg = 1 : iAnimation = 2
+ case 55 : jpeg_bkg = 8 : iAnimation = 1
+ case 81 : jpeg_bkg = 1 : iAnimation = 3
+ case 82 : jpeg_bkg = 1 : iAnimation = 17
+ case 86 : jpeg_bkg = 17 : iAnimation = 15
+ case 88 : jpeg_bkg = 17 : iAnimation = 15
+ case else : jpeg_bkg = 1 : iAnimation = 2
+ warnlog "Please insert the entrienumbers for 'Backgrounds' and one with normal files ( Animations )"
end select
else ' Testing OOO
select case iSprache
- case 01 : jpeg_bkg = 3 : iAnimation = 1
- case 07 : jpeg_bkg = 5 : iAnimation = 1
- case 31 : jpeg_bkg = 3 : iAnimation = 3
- case 33 : jpeg_bkg = 5 : iAnimation = 1
- case 34 : jpeg_bkg = 6 : iAnimation = 1
- case 36 : jpeg_bkg = 5 : iAnimation = 1
- case 39 : jpeg_bkg = 5 : iAnimation = 1
- case 46 : jpeg_bkg = 1 : iAnimation = 2
- case 48 : jpeg_bkg = 3 : iAnimation = 1
- case 49 : jpeg_bkg = 1 : iAnimation = 2
- case 55 : jpeg_bkg = 6 : iAnimation = 1
- case 81 : jpeg_bkg = 1 : iAnimation = 3
- case 82 : jpeg_bkg = 1 : iAnimation = 1
- case 86 : jpeg_bkg = 5 : iAnimation = 5
- case 88 : jpeg_bkg = 5 : iAnimation = 1
- case else : jpeg_bkg = 1 : iAnimation = 2
- warnlog "Please insert the entrienumbers for 'Backgrounds' and one with normal files ( Animations )"
+ case 01 : jpeg_bkg = 3 : iAnimation = 1
+ case 07 : jpeg_bkg = 5 : iAnimation = 1
+ case 31 : jpeg_bkg = 3 : iAnimation = 3
+ case 33 : jpeg_bkg = 5 : iAnimation = 1
+ case 34 : jpeg_bkg = 6 : iAnimation = 1
+ case 36 : jpeg_bkg = 5 : iAnimation = 1
+ case 39 : jpeg_bkg = 5 : iAnimation = 1
+ case 46 : jpeg_bkg = 1 : iAnimation = 2
+ case 48 : jpeg_bkg = 3 : iAnimation = 1
+ case 49 : jpeg_bkg = 1 : iAnimation = 2
+ case 55 : jpeg_bkg = 6 : iAnimation = 1
+ case 81 : jpeg_bkg = 1 : iAnimation = 3
+ case 82 : jpeg_bkg = 1 : iAnimation = 1
+ case 86 : jpeg_bkg = 5 : iAnimation = 5
+ case 88 : jpeg_bkg = 5 : iAnimation = 1
+ case else : jpeg_bkg = 1 : iAnimation = 2
+ warnlog "Please insert the entrienumbers for 'Backgrounds' and one with normal files ( Animations )"
end select
end if
- '/// Test following for all applications (Writer, Calc, Impress, Draw)
for i=1 to 4 ' each application
if i=1 then gApplication = "WRITER"
- if i=2 then gApplication = "CALC"
- if i=3 then gApplication = "IMPRESS"
- if i=4 then gApplication = "DRAW"
-
- '/// +Open a new document
- '/// +Open the Gallery
- printlog gApplication 'Chr(13)
- call hNewDocument
- call hOpenGallery
- '/// +Select 3D-theme (these are internal objects and not realy files)
- '/// +<ul><li>on context menu there are only 2 entries for insert (copy, link)
- '/// +<li>insert the object per <i>copy</i></li>
- '/// +<li>insert the object per <i>link</i></li></ul>
- '/// +Select Animation theme (these are realy files)
- '/// +<ul><li>On context menu there are only 2 entries for insert (copy, link ) for Calc, Draw Impress</li>
- '/// +<li>On context menu there are only 3 entries for insert (copy, link, background / page, paragraph ) for Writer</li>
- '/// +<li>insert the object per <i>copy</i></li>
- '/// +<li>insert the object per <i>link</i></li>
- '/// +<li>Only for the Writer:<ul>
- '/// +<li>Insert the object per background / page</li>
- '/// +<li>insert the object per background / paragraph</li></ul></li></ul>
- '/// +Close the Gallery
- '/// +Close the document
- '/// Since the GraphicObjectbar could disturb our testing, we close it if it is open ///'
- ' kontext "GraphicObjectbar"
- ' if GraphicObjectbar.Exists then GraphicObjectbar.Close
- for j=1 to 2 ' the two gallery-theme
- if j=1 then
- Gallerys.Select jpeg_bkg
- printlog " selected gallery-theme : Backgrounds"
- end if
-
- if j=2 then
- Gallerys.Select iAnimation
- printlog " selected gallery-theme : Animation"
- end if
-
- if i=1 then ' test for writer
- for k=1 to 2
- if k=1 then
- ListView.Click
- printlog " - insert on list view"
- else
- IconView.Click
- printlog " - insert on icon view"
- end if
-
- sleep (2)
- View.Mousedown ( 5, 18 )
- View.Mouseup ( 5, 18 )
- View.typekeys "<DOWN>,<UP>"
-
- sleep (3)
- View.TypeKeys "<SHIFT F10>" ' OpenContextMenu
- sleep (3)
- hMenuSelectNr ( 1 )
-
- if j=1 then
- printlog " - copy"
- sleep (1)
- hMenuSelectNr ( 1 )
- sleep (2)
- else
- printlog " - copy"
- sleep (1)
- hMenuSelectNr ( 1 )
- sleep (3)
-
- printlog " - link"
- View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
- sleep (1)
- hMenuSelectNr ( 1 )
- hMenuSelectNr ( 2 )
- sleep (3)
-
- printlog " - background -> page"
- View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
- sleep (2)
- hMenuSelectNr ( 1 )
- hMenuSelectNr ( 3 )
- hMenuSelectNr ( 1 )
- sleep (3)
-
- printlog " - background -> paragraph"
- View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
- sleep (2)
- hMenuSelectNr ( 1 )
- hMenuSelectNr ( 3 )
- hMenuSelectNr ( 2 )
- sleep (3)
- end if
-
- kontext "GraphicObjectbar"
- if GraphicObjectbar.Exists then
- if GraphicObjectbar.isDocked = False then
- GraphicObjectbar.Move 900,900
- end if
- end if
- kontext "Gallery"
-
- next k
- else ' test for other applications ( calc, impress, draw )
- kontext "GraphicObjectbar"
- if GraphicObjectbar.Exists then
- if GraphicObjectbar.isDocked = False then
- GraphicObjectbar.Move 900,900
- end if
- end if
- kontext "Gallery"
+ if i=2 then gApplication = "CALC"
+ if i=3 then gApplication = "IMPRESS"
+ if i=4 then gApplication = "DRAW"
+
+ printlog gApplication 'Chr(13)
+ call hNewDocument
+ call hOpenGallery
+ ' kontext "GraphicObjectbar"
+ ' if GraphicObjectbar.Exists then GraphicObjectbar.Close
+ for j=1 to 2 ' the two gallery-theme
+ if j=1 then
+ Gallerys.Select jpeg_bkg
+ printlog " selected gallery-theme : Backgrounds"
+ end if
- kontext "Gluepointsobjectbar"
- if Gluepointsobjectbar.Exists then
- if Gluepointsobjectbar.isDocked = false then
- Gluepointsobjectbar.Move 900,900
- end if
- end if
- kontext "Gallery"
+ if j=2 then
+ Gallerys.Select iAnimation
+ printlog " selected gallery-theme : Animation"
+ end if
- kontext "Optionsbar"
- if Optionsbar.Exists then
- if Optionsbar.isDocked = false then
- Optionsbar.Move 900,900
- end if
- end if
- kontext "Gallery"
+ if i=1 then ' test for writer
+ for k=1 to 2
+ if k=1 then
+ ListView.Click
+ printlog " - insert on list view"
+ else
+ IconView.Click
+ printlog " - insert on icon view"
+ end if
+
+ sleep (2)
+ View.Mousedown ( 5, 18 )
+ View.Mouseup ( 5, 18 )
+ View.typekeys "<DOWN>,<UP>"
+
+ sleep (3)
+ View.TypeKeys "<SHIFT F10>" ' OpenContextMenu
+ sleep (3)
+ hMenuSelectNr ( 1 )
+
+ if j=1 then
+ printlog " - copy"
+ sleep (1)
+ hMenuSelectNr ( 1 )
+ sleep (2)
+ else
+ printlog " - copy"
+ sleep (1)
+ hMenuSelectNr ( 1 )
+ sleep (3)
+
+ printlog " - link"
+ View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
+ sleep (1)
+ hMenuSelectNr ( 1 )
+ hMenuSelectNr ( 2 )
+ sleep (3)
+
+ printlog " - background -> page"
+ View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
+ sleep (2)
+ hMenuSelectNr ( 1 )
+ hMenuSelectNr ( 3 )
+ hMenuSelectNr ( 1 )
+ sleep (3)
+
+ printlog " - background -> paragraph"
+ View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
+ sleep (2)
+ hMenuSelectNr ( 1 )
+ hMenuSelectNr ( 3 )
+ hMenuSelectNr ( 2 )
+ sleep (3)
+ end if
+
+ kontext "GraphicObjectbar"
+ if GraphicObjectbar.Exists then
+ if GraphicObjectbar.isDocked = False then
+ GraphicObjectbar.Move 900,900
+ end if
+ end if
+ kontext "Gallery"
+
+ next k
+ else ' test for other applications ( calc, impress, draw )
+ kontext "GraphicObjectbar"
+ if GraphicObjectbar.Exists then
+ if GraphicObjectbar.isDocked = False then
+ GraphicObjectbar.Move 900,900
+ end if
+ end if
+ kontext "Gallery"
- for k=1 to 2
- if k=1 then
- ListView.Click
- printlog " - insert on list view"
- else
- IconView.Click
- printlog " - insert on icon view"
- end if
+ kontext "Gluepointsobjectbar"
+ if Gluepointsobjectbar.Exists then
+ if Gluepointsobjectbar.isDocked = false then
+ Gluepointsobjectbar.Move 900,900
+ end if
+ end if
+ kontext "Gallery"
- sleep (1)
- View.Mousedown ( 5, 18 )
- View.Mouseup ( 5, 18 )
- View.typekeys "<DOWN>,<UP>"
+ kontext "Optionsbar"
+ if Optionsbar.Exists then
+ if Optionsbar.isDocked = false then
+ Optionsbar.Move 900,900
+ end if
+ end if
+ kontext "Gallery"
- sleep (1)
- View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
- printlog " - copy"
- sleep (3)
- hMenuSelectNr ( 1 )
- hMenuSelectNr ( 1 )
- sleep (3)
+ for k=1 to 2
+ if k=1 then
+ ListView.Click
+ printlog " - insert on list view"
+ else
+ IconView.Click
+ printlog " - insert on icon view"
+ end if
- if j=2 then
- View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
- printlog " - link"
- sleep (3)
- hMenuSelectNr ( 1 )
- hMenuSelectNr ( 2 )
- sleep (2)
- end if
+ sleep (1)
+ View.Mousedown ( 5, 18 )
+ View.Mouseup ( 5, 18 )
+ View.typekeys "<DOWN>,<UP>"
- next k
- end if
- next j
- ToolsGallery
- WaitSlot (2000)
- call hCloseDocument
- WaitSlot (2000)
- next i
+ sleep (1)
+ View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
+ printlog " - copy"
+ sleep (3)
+ hMenuSelectNr ( 1 )
+ hMenuSelectNr ( 1 )
+ sleep (3)
+
+ if j=2 then
+ View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
+ printlog " - link"
+ sleep (3)
+ hMenuSelectNr ( 1 )
+ hMenuSelectNr ( 2 )
+ sleep (2)
+ end if
+
+ next k
+ end if
+ next j
+ ToolsGallery
+ WaitSlot (2000)
+ call hCloseDocument
+ WaitSlot (2000)
+ next i
endcase
'-------------------------------------------------------------------------
@@ -911,77 +855,73 @@ testcase tGallery_GalleryView_Delete
Goto NotForNetInst
end if
- '/// Test gallery view -> delete objects with context-menu ( Backgrounds (<i>internal object</i>), Animation (<i>file</i>), Sound (<i>file</i>))
select case iSprache
- case 01 : jpeg_bkg = 1 : iAnimation = 2 : iSound = 28
- case 07 : jpeg_bkg = 29 : iAnimation = 1 : iSound = 6
- case 31 : jpeg_bkg = 1 : iAnimation = 2 : iSound = 28
- case 33 : jpeg_bkg = 13 : iAnimation = 1 : iSound = 29
- case 34 : jpeg_bkg = 7 : iAnimation = 1 : iSound = 28
- case 36 : jpeg_bkg = 12 : iAnimation = 1 : iSound = 10
- case 39 : jpeg_bkg = 10 : iAnimation = 1 : iSound = 27
- case 46 : jpeg_bkg = 1 : iAnimation = 2 : iSound = 18
- case 49 : jpeg_bkg = 1 : iAnimation = 2 : iSound = 17
- case 55 : jpeg_bkg = 8 : iAnimation = 1 : iSound = 30
- case 81 : jpeg_bkg = 1 : iAnimation = 3 : iSound = 10
- case 82 : jpeg_bkg = 1 : iAnimation = 17 : iSound = 12
- case 86 : jpeg_bkg = 1 : iAnimation = 9 : iSound = 13
- case 88 : jpeg_bkg = 1 : iAnimation = 7 : iSound = 20
- case else : jpeg_bkg = 1 : iAnimation = 2 : iSound = 17
- warnlog "Please insert the entrienumbers for '3D-graphics', 'Sounds' and one with normal files ( Animations )"
+ case 01 : jpeg_bkg = 1 : iAnimation = 2 : iSound = 28
+ case 07 : jpeg_bkg = 29 : iAnimation = 1 : iSound = 6
+ case 31 : jpeg_bkg = 1 : iAnimation = 2 : iSound = 28
+ case 33 : jpeg_bkg = 13 : iAnimation = 1 : iSound = 29
+ case 34 : jpeg_bkg = 7 : iAnimation = 1 : iSound = 28
+ case 36 : jpeg_bkg = 12 : iAnimation = 1 : iSound = 10
+ case 39 : jpeg_bkg = 10 : iAnimation = 1 : iSound = 27
+ case 46 : jpeg_bkg = 1 : iAnimation = 2 : iSound = 18
+ case 49 : jpeg_bkg = 1 : iAnimation = 2 : iSound = 17
+ case 55 : jpeg_bkg = 8 : iAnimation = 1 : iSound = 30
+ case 81 : jpeg_bkg = 1 : iAnimation = 3 : iSound = 10
+ case 82 : jpeg_bkg = 1 : iAnimation = 17 : iSound = 12
+ case 86 : jpeg_bkg = 1 : iAnimation = 9 : iSound = 13
+ case 88 : jpeg_bkg = 1 : iAnimation = 7 : iSound = 20
+ case else : jpeg_bkg = 1 : iAnimation = 2 : iSound = 17
+ warnlog "Please insert the entrienumbers for '3D-graphics', 'Sounds' and one with normal files ( Animations )"
end select
- '/// Open a new writer-doc
- '/// Tools / Gallery
gApplication = "WRITER"
call hNewDocument
call hOpenGallery
- '/// Delete one object in list-view and icon-view for 3D, Animation and Sound
for i=1 to 3
Kontext "Gallery"
- if i=1 then
- Gallerys.Select jpeg_bkg
- printlog " selected gallery-theme : Backgrounds"
- end if
+ if i=1 then
+ Gallerys.Select jpeg_bkg
+ printlog " selected gallery-theme : Backgrounds"
+ end if
- if i=2 then
- Gallerys.Select iAnimation
- printlog " selected gallery-theme : Animation"
- end if
+ if i=2 then
+ Gallerys.Select iAnimation
+ printlog " selected gallery-theme : Animation"
+ end if
- if i=3 then
- Gallerys.Select iSound
- printlog " selected gallery-theme : Sound"
+ if i=3 then
+ Gallerys.Select iSound
+ printlog " selected gallery-theme : Sound"
+ end if
+
+ for j=1 to 2
+ Kontext "Gallery"
+ if j=1 then
+ IconView.Click
+ printlog " Icon view"
+ sleep 1
+ end if
+ if j=2 then
+ ListView.Click
+ printlog " List view"
end if
- for j=1 to 2
+ for k=1 to 2
Kontext "Gallery"
- if j=1 then
- IconView.Click
- printlog " Icon view"
- sleep 1
- end if
- if j=2 then
- ListView.Click
- printlog " List view"
- end if
-
- for k=1 to 2
- Kontext "Gallery"
- sleep (1)
- View.MouseMove ( 5, 15 )
- View.TypeKeys "<SHIFT F10>" 'OpenContextMenu true
- hMenuSelectNr ( 4 )
- kontext "Active"
- if k=1 then
- Active.No
- printlog " delete one object => no"
- else
- Active.Yes
- printlog " delete one object => yes"
- end if
- next k
- next j
+ sleep (1)
+ View.MouseMove ( 5, 15 )
+ View.TypeKeys "<SHIFT F10>" 'OpenContextMenu true
+ hMenuSelectNr ( 4 )
+ kontext "Active"
+ if k=1 then
+ Active.No
+ printlog " delete one object => no"
+ else
+ Active.Yes
+ printlog " delete one object => yes"
+ end if
+ next k
+ next j
next i
ToolsGallery
call hCloseDocument
@@ -992,17 +932,13 @@ endcase
'-------------------------------------------------------------------------
testcase tGallery_Quick_check
- '/// Short check, if at least 2 files exist in the gallery, and if they are > 0 in size ///'
- '/// One in the gallery folder itself and the other one in a subfolder. ///'
dim sFile(1) as string
dim i as integer
sFile(0) = ConvertPath ( gOfficeBasisPath + "share/gallery/apples.gif" ) '
sFile(1) = ConvertPath ( gOfficeBasisPath + "share/gallery/bullets/coffee_1.gif" ) '
- '/// Open a new document
call hNewDocument
for i = 0 to 1
- '/// Click to deselect any selected objects ///'
gMouseclick 1, 50
if FileExists(sFile(i)) then
if (FileLen(sFile(i)) > 0 ) then
@@ -1014,7 +950,6 @@ testcase tGallery_Quick_check
warnlog "File doesn't exist: '" + sFile(i) + "'"
end if
next i
- '///close the document
call hCloseDocument
endcase
diff --git a/testautomation/graphics/optional/includes/global/gallery2.inc b/testautomation/graphics/optional/includes/global/gallery2.inc
index 98c8b3448da0..92bd5fe5dbc9 100755
--- a/testautomation/graphics/optional/includes/global/gallery2.inc
+++ b/testautomation/graphics/optional/includes/global/gallery2.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
@@ -60,14 +60,13 @@ testcase tSettingsToCM
iSaveSetting = Masseinheit.GetSelIndex
Masseinheit.Select 2
Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
+ ExtrasOptionenDlg.OK
Call hCloseDocument
-
+
endcase
'-------------------------------------------------------------------------
testcase tLoad100GalleryGraphicFiles
- '/// Inserting all gallery graphics in a Writer document and checking the sizes.
Dim lsFiles (3000) as String
Dim lsGraphics (3000) as String
Dim i as Integer
@@ -77,7 +76,6 @@ testcase tLoad100GalleryGraphicFiles
Dim corLoad as Boolean
Dim x as boolean
- '/// Geting all installed gallery objects out of the installation in a list.
if gNetzInst = TRUE then
GetAllFileList ( ConvertPath ( gOfficeBasisPath + "share\gallery\" ), "*.*", lsFiles () )
else
@@ -86,7 +84,6 @@ testcase tLoad100GalleryGraphicFiles
call GetOnlyGraphics ( lsFiles (), lsGraphics() )
iCount = ListCount ( lsGraphics() )
printlog " We have " + iCount + " graphics in the gallery."
- '/// + Open a new document
call hNewDocument
for i = 1 to 100
@@ -100,13 +97,6 @@ testcase tLoad100GalleryGraphicFiles
corLoad = FALSE
try
- '/// <i>Loop begin</i>
- '/// + Inserting all gallery files and checking the sizes
- '/// +- Iinsert / graphic / from file
- '/// +- Check the size in 'format / graphics' on the <i>Type</i> tabpage
- '/// +-- The size should noz be smaler than 17*25cm / photos 21*25cm
- '/// + Deleting the graphic with &lt;delete&gt; of the keyboard
- '/// <i>Loop ends</i>
x = LoadGraphic ( lsGraphics(t), corLoad )
printlog
catch
@@ -122,17 +112,14 @@ testcase tLoad100GalleryGraphicFiles
end if
next i
- '/// Close the gallery ///'
ToolsGallery
WaitSlot (2000)
- '/// Close the document ///'
call hCloseDocument
endcase 'tLoadAllGalleryGraphicFiles
'-------------------------------------------------------------------------
testcase tCheckAllGalleryGraphicFiles
-'/// Checking the filesize of all gallery graphics.
Dim lsFiles (3000) as String
Dim lsGraphics (3000) as String
Dim i as Integer
@@ -142,7 +129,6 @@ testcase tCheckAllGalleryGraphicFiles
Dim corLoad as Boolean
Dim x as boolean
- '/// Geting all installed gallery objects out of the installation in a list.
if gNetzInst = TRUE then
GetAllFileList ( ConvertPath ( gOfficeBasisPath + "share\gallery\" ), "*.*", lsFiles () )
else
@@ -151,19 +137,11 @@ testcase tCheckAllGalleryGraphicFiles
call GetOnlyGraphics ( lsFiles (), lsGraphics() )
iCount = ListCount ( lsGraphics() )
printlog " We have " + iCount + " graphics in the gallery."
- '/// Open a new document
call hNewDocument
for i=1 to iCount
corLoad = FALSE
try
- '/// <i>Loop begin</i>
- '///+ Inserting all gallery files and checking the sizes
- '///+- Iinsert / graphic / from file
- '///+- Check the size in 'format / graphics' on the <i>Type</i> tabpage
- '///+-- The size should noz be smaler than 17*25cm / photos 21*25cm
- '///+ Deleting the graphic with &lt;delete&gt; of the keyboard
- '/// <i>Loop ends</i>
x = CheckGraphic ( lsGraphics(i), corLoad )
catch
ExceptLog
@@ -177,10 +155,8 @@ testcase tCheckAllGalleryGraphicFiles
printlog " Tested nr: " + i + " : " + lsGraphics(i)
end if
next i
- '/// Close the gallery ///'
ToolsGallery
WaitSlot (2000)
- '/// Close the document ///'
call hCloseDocument
endcase 'tLoadAllGalleryGraphicFiles
@@ -199,84 +175,76 @@ testcase tInsertGalleryObjects
Dim iCount as Integer
Dim corLoad, x as Boolean
- '/// 1. Select theme ///'
call hNewDocument
call hOpenGallery
kontext "Gallery"
- CountOfThemes = Gallerys.GetItemCount
- for ct = 1 to CountOfThemes
- Gallerys.Select ct
- printlog " Selected Gallery-Theme nr: " + ct + ": " + Gallerys.GetSelText
- kontext "Gallery"
- CountOfItems = View.GetItemCount()
- '/// 2. Choose if we should test 3,4 or 5 objects. ///'
- for d = 1 to 1
- randomize
- HowManyItems=Int((5*Rnd)+(3*Rnd))
- if CountOfItems = 0 then
- QaErrorLog " There were no objects in the the gallery-theme on position: " + ct
- else
- if (HowManyItems<3) then 'just so we get it between 3 and 5.
- d = d - 1
- else
- printlog " Will now select and copy " + HowManyItems + " items from this Theme."
+ CountOfThemes = Gallerys.GetItemCount
+ for ct = 1 to CountOfThemes
+ Gallerys.Select ct
+ printlog " Selected Gallery-Theme nr: " + ct + ": " + Gallerys.GetSelText
+ kontext "Gallery"
+ CountOfItems = View.GetItemCount()
+ for d = 1 to 1
+ randomize
+ HowManyItems=Int((5*Rnd)+(3*Rnd))
+ if CountOfItems = 0 then
+ QaErrorLog " There were no objects in the the gallery-theme on position: " + ct
+ else
+ if (HowManyItems<3) then 'just so we get it between 3 and 5.
+ d = d - 1
+ else
+ printlog " Will now select and copy " + HowManyItems + " items from this Theme."
+ end if
+ for i = 1 to HowManyItems
+ for x = 1 to 1
+ randomize
+ WhichOne=Int(CountOfItems*RND) '(5*Rnd)+(CountOfItems*Rnd))
+ if (WhichOne<1) then 'just so we get it between 1 and the amount of items. '>(CountOfItems + 1)) OR (WhichOne<1) then '
+ x = x - 1
end if
- for i = 1 to HowManyItems
- '/// 3. Select the objects ///'
- for x = 1 to 1
- randomize
- WhichOne=Int(CountOfItems*RND) '(5*Rnd)+(CountOfItems*Rnd))
- if (WhichOne<1) then 'just so we get it between 1 and the amount of items. '>(CountOfItems + 1)) OR (WhichOne<1) then '
- x = x - 1
- end if
- next x
- printlog " Will copy object nr: " + WhichOne
- View.Mousemove (1,1)
- View.TypeKeys "<HOME>"
- View.TypeKeys "<RIGHT>", (WhichOne)
- kontext "GraphicObjectBar"
- if GraphicObjectBar.Exists then
- if GraphicObjectBar.IsDocked = False then GraphicObjectBar.Dock
- end if
- kontext "Gallery"
- sleep (1)
- View.TypeKeys("<shift f10>")
+ next x
+ printlog " Will copy object nr: " + WhichOne
+ View.Mousemove (1,1)
+ View.TypeKeys "<HOME>"
+ View.TypeKeys "<RIGHT>", (WhichOne)
+ kontext "GraphicObjectBar"
+ if GraphicObjectBar.Exists then
+ if GraphicObjectBar.IsDocked = False then GraphicObjectBar.Dock
+ end if
+ kontext "Gallery"
+ sleep (1)
+ View.TypeKeys("<shift f10>")
+ sleep (1)
+ try
+ dim number as integer
+ number = MenuGetItemCount
+ if (number > 2) AND (number < 10) then
+ hMenuSelectNr (1) 'Insert
+ hMenuSelectNr (1) 'As Copy
sleep (1)
- try
- dim number as integer
- number = MenuGetItemCount
- if (number > 2) AND (number < 10) then
- '/// 4. Copy the selected item into our document. ///'
- hMenuSelectNr (1) 'Insert
- hMenuSelectNr (1) 'As Copy
- sleep (1)
- else
- Warnlog " The contextmenu came up, but the number of entries were strange."
- printlog " Number of entries:" + number
- MenuSelect(0)
- end if
- catch
- warnlog " A contextmenu didnt come up for the gallery-theme on position: " + ct
- i = HowManyItems
- endcatch
- '/// 5. Repeat 3.-5. until 2. is fulfilled. ///'
- next i
- end if 'if the theme didnt have any objects, we landed here.
- next d
- '/// 6. Change Theme. ///'
- '/// 7. Repeat 2. - 8. until all themes are done. ///'
- next ct
+ else
+ Warnlog " The contextmenu came up, but the number of entries were strange."
+ printlog " Number of entries:" + number
+ MenuSelect(0)
+ end if
+ catch
+ warnlog " A contextmenu didnt come up for the gallery-theme on position: " + ct
+ i = HowManyItems
+ endcatch
+ next i
+ end if 'if the theme didnt have any objects, we landed here.
+ next d
+ next ct
- Kontext "Gallery"
+ Kontext "Gallery"
if Gallery.Exists(2) then
ToolsGallery
WaitSlot (2000)
end if
-
- '/// Remove the last copied object. ///'
- hTypeKeys "<DELETE>"
- call hCloseDocument
-
+
+ hTypeKeys "<DELETE>"
+ call hCloseDocument
+
endcase 'tInsertGalleryObjects
'-------------------------------------------------------------------------
@@ -289,8 +257,8 @@ testcase tResetSettings
hToolsOptions ( "WRITER", "General" )
Masseinheit.Select iSaveSetting
Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK
+ ExtrasOptionenDlg.OK
call hCloseDocument
-
+
endcase 'tResetSettings
'-------------------------------------------------------------------------
diff --git a/testautomation/graphics/optional/includes/global/id_001.inc b/testautomation/graphics/optional/includes/global/id_001.inc
index ebd5f1ca8159..a92daf05c2e2 100755
--- a/testautomation/graphics/optional/includes/global/id_001.inc
+++ b/testautomation/graphics/optional/includes/global/id_001.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
@@ -52,13 +52,11 @@
' #1 tmFilePrinterSetting
'\**********************************************************************************
-'/// used Documents ///'
-'///"graphics\required\input\tbo_alf_.od?" ///
testcase tiFileSaveAs
dim sFileName as string ' test document & new created doc
-' dim sFormula as string ' container for formula to create document with
+ ' dim sFormula as string ' container for formula to create document with
dim sTemp as string
dim sFilter (50) as string
dim i as integer
@@ -68,14 +66,13 @@ testcase tiFileSaveAs
dim sFile as string ' filename to export
dim sPath as string ' filename to export
- if (gApplication = "IMPRESS") then
+ if (gApplication = "IMPRESS") then
ExtensionString = "odp"
else
ExtensionString = "odg"
end if
sFilter (0) = 0 ' initalize ;-)...
- '/// used document: "graphics\required\input\tbo_alf_.od?" ///
sFileName = "graphics\required\input\tbo_alf_." + ExtensionString ' this is the file with all features
sFile = "isas_" ' this is the filename of the export files
@@ -84,7 +81,6 @@ testcase tiFileSaveAs
app.mkdir (sPath)
end if
- Printlog "'/// deleting all files in output directory: \\user\\work\\graphics\\required\\gApplication gPlatform isas_* ///'"
if gSamePC = TRUE then ' delete export directory
GetFileList ( sPath, sFile+"*", Exlist() )
if KillFileList ( Exlist() ) <> TRUE then
@@ -95,477 +91,408 @@ testcase tiFileSaveAs
end if
end if
- '/// load a sample presentation file ///'
Call hFileOpen ( ConvertPath(gTesttoolPath + sFileName) )
WaitSlot (3000)
-'/// start loop 5 times for: ///'
-'/// - StarImpress 5.0 ///
-'/// - StarOffice 6.0 Presentation ///
-'/// - StarOffice 6.0 Presentation Template ///
-'/// - Microsoft PowerPoint 97/2000/XP Template ///
-'/// - StarOffice 6.0 Drawing (StarOffice Impress) ///
-'/// to be language independant, select first, second last,... and last filter from list -> but trie to check the names :-) ///'
-
-' to use the helper fileSaveAs functions i get alll available filters...
- FileSaveAs
- WaitSlot (2000)
- Kontext "SpeichernDlg"
- for i = 0 to 5
- if i=0 then x = Dateityp.GetItemCount
- if (i) then ' set border, whenm start from beginning/end
- y = i ' set filter from beginning
- else
- y = x-3 ' set filter from end
- end if
- ListAppend(sFilter(), Dateityp.GetItemText (y))
- next i
- SpeichernDlg.Cancel
- y = ListCount(sFilter())
-
- if gtSYSName = "Linux" then y=y-1
- '#i45961# - last part of filter-list deactivated due to BUG - FHA
- 'TODO: JSI->FHA please verify if this special handling needed after the issue has been fixed.
-
- for i = 1 to y
- sFileName = sPath + sFile + (i)
- hFileSaveAsWithFilter (sFileName, sFilter(i), TRUE )
- '/// file save with filter as: "graphics\required\output\\math\\fsas_[0,1,2,...]" ///'
- kontext
- if messagebox.exists then
- messagebox.Yes ' to go on ....
- end if
- printlog " saved with filter ("+i+"/"+y+"): "+ sFilter(i)
- next i
-' TODO TBO: small check, if correct filter was used!
- WaitSlot (3000)
- fileclose
- WaitSlot (3000)
- kontext "Messagebox"
- if Messagebox.exists then
- printlog "Messagebox about informationloss... :-) that's OK: 'Text in the messagebox: "+Messagebox.GetText+"'"
- Messagebox.YES
- end if
-
-'-----------------------------------------------------------------
-'/// Load all saved files ///'
- hNewDocument
-
-'/// a small loop, to load all files previous saved ///'
-
- sFilter (0) = 0
-'///load documents from "graphics\required\output\\impress\\fsas_*" ///
- sFileName = sPath
- GetFileList ( sFileName, sFile + "*", sFilter() )
-
-' call hNewDocument
- x = ListCount ( sFilter() )
- for i = 1 to x
- printlog "("+i+"/"+x+"): "+sFilter(i)
- hFileOpen ( sFilter(i) )
- WaitSlot (3000)
- If hIsNamedDocLoaded (sFilter(i), true) Then
- printlog " used filter: " + hGetUsedFilter()
- else
- sTemp = left(right(sFilter(i),2),1)
- if ( (sTemp = "t") OR (sTemp = "o") ) then
- printlog "document is --- TEMPLATE?! --- "
- else
- qaErrorlog "#116563# document didn't get loaded "
- end if
- end if
- hCloseDocument
- WaitSlot (2000)
- next i
-' Call hCloseDocument
+
+ ' to use the helper fileSaveAs functions i get alll available filters...
+ FileSaveAs
+ WaitSlot (2000)
+ Kontext "SpeichernDlg"
+ for i = 0 to 5
+ if i=0 then x = Dateityp.GetItemCount
+ if (i) then ' set border, whenm start from beginning/end
+ y = i ' set filter from beginning
+ else
+ y = x-3 ' set filter from end
+ end if
+ ListAppend(sFilter(), Dateityp.GetItemText (y))
+ next i
+ SpeichernDlg.Cancel
+ y = ListCount(sFilter())
+
+ if gtSYSName = "Linux" then y=y-1
+ '#i45961# - last part of filter-list deactivated due to BUG - FHA
+ 'TODO: JSI->FHA please verify if this special handling needed after the issue has been fixed.
+
+ for i = 1 to y
+ sFileName = sPath + sFile + (i)
+ hFileSaveAsWithFilter (sFileName, sFilter(i), TRUE )
+ kontext
+ if messagebox.exists then
+ messagebox.Yes ' to go on ....
+ end if
+ printlog " saved with filter ("+i+"/"+y+"): "+ sFilter(i)
+ next i
+ ' TODO TBO: small check, if correct filter was used!
+ WaitSlot (3000)
+ fileclose
+ WaitSlot (3000)
+ kontext "Messagebox"
+ if Messagebox.exists then
+ printlog "Messagebox about informationloss... :-) that's OK: 'Text in the messagebox: "+Messagebox.GetText+"'"
+ Messagebox.YES
+ end if
+
+ '-----------------------------------------------------------------
+ hNewDocument
+
+
+ sFilter (0) = 0
+ sFileName = sPath
+ GetFileList ( sFileName, sFile + "*", sFilter() )
+
+ ' call hNewDocument
+ x = ListCount ( sFilter() )
+ for i = 1 to x
+ printlog "("+i+"/"+x+"): "+sFilter(i)
+ hFileOpen ( sFilter(i) )
+ WaitSlot (3000)
+ If hIsNamedDocLoaded (sFilter(i), true) Then
+ printlog " used filter: " + hGetUsedFilter()
+ else
+ sTemp = left(right(sFilter(i),2),1)
+ if ( (sTemp = "t") OR (sTemp = "o") ) then
+ printlog "document is --- TEMPLATE?! --- "
+ else
+ qaErrorlog "#116563# document didn't get loaded "
+ end if
+ end if
+ hCloseDocument
+ WaitSlot (2000)
+ next i
+ ' Call hCloseDocument
endcase
testcase tiFileReload
- Dim DokumentPfad$
- Dim Datei$
+ Dim DokumentPfad$
+ Dim Datei$
- if (gApplication = "IMPRESS") then
+ if (gApplication = "IMPRESS") then
ExtensionString = "odp"
else
ExtensionString = "odg"
end if
- Datei$= (ConvertPath (gOfficePath + "user/work/graphics/required/version1." + ExtensionString))
-
- if app.dir(ConvertPath (gOfficePath + "user/work/graphics/required/")) = "" then
- app.mkdir (ConvertPath (gOfficePath + "user/work/graphics/required/"))
- end if
-'/// open application ///'
- Call hNewDocument
- WaitSlot (2000)
-'/// save document "..." ///'
- Call hFileSaveAsKill (Datei$)
- WaitSlot (2000)
-'/// close document ///'
- Call hCloseDocument
-
-'/// load document again ///'
- Call hFileOpen (Datei$)
- WaitSlot (2000)
-'/// type something in document ///'
- call hTBOtypeInDoc
- WaitSlot (2000)
-'/// File->Reload ///'
- FileReload
- WaitSlot (2000)
-'/// Messagebox has to come up; say NO ///'
- Kontext "Messagebox"
- sleep 2
- Messagebox.No
- WaitSlot (2000)
-
-'/// File->Reload ///'
- FileReload
- WaitSlot (2000)
- Kontext "Messagebox"
- sleep 2
-'/// Messagebox has to come up; say YES ///'
- Messagebox.Yes
- WaitSlot (1000)
-
-'/// close document ///'
- Call hCloseDocument
-'/// delete document ///'
- if Dir (Datei$) <> "" AND gSamePC = TRUE then kill Datei$
+ Datei$= (ConvertPath (gOfficePath + "user/work/graphics/required/version1." + ExtensionString))
+
+ if app.dir(ConvertPath (gOfficePath + "user/work/graphics/required/")) = "" then
+ app.mkdir (ConvertPath (gOfficePath + "user/work/graphics/required/"))
+ end if
+ Call hNewDocument
+ WaitSlot (2000)
+ Call hFileSaveAsKill (Datei$)
+ WaitSlot (2000)
+ Call hCloseDocument
+
+ Call hFileOpen (Datei$)
+ WaitSlot (2000)
+ call hTBOtypeInDoc
+ WaitSlot (2000)
+ FileReload
+ WaitSlot (2000)
+ Kontext "Messagebox"
+ sleep 2
+ Messagebox.No
+ WaitSlot (2000)
+
+ FileReload
+ WaitSlot (2000)
+ Kontext "Messagebox"
+ sleep 2
+ Messagebox.Yes
+ WaitSlot (1000)
+
+ Call hCloseDocument
+ if Dir (Datei$) <> "" AND gSamePC = TRUE then kill Datei$
endcase
testcase tiFileVersion
- Dim DokumentPfad$
- Dim Datei$
+ Dim DokumentPfad$
+ Dim Datei$
- if (gApplication = "IMPRESS") then
+ if (gApplication = "IMPRESS") then
ExtensionString = "odp"
else
ExtensionString = "odg"
end if
- Datei$= (ConvertPath (gOfficePath + "user/work/graphics/required/erwin." + ExtensionString))
- 'if dir (ConvertPath (gOfficePath + "user/work/graphics/required/")) = "" then
- if dir (Datei$) = "" then app.mkdir (ConvertPath (gOfficePath + "user/work/graphics/required/"))
-'/// open application ///'
- Call hNewDocument
- WaitSlot (1000)
-'/// save document as "..." ///'
- Call hFileSaveAsKill (Datei$)
- WaitSlot (1000)
-'/// close document ///'
- Call hCloseDocument
-
-'/// open document again ///'
- Call hFileOpen (Datei$)
- WaitSlot (1000)
-'/// type something in document ///'
- call hTBOtypeInDoc
- WaitSlot (1000)
-'/// File->Versions ///'
- try
- FileVersions
- catch
- Warnlog "- File / Versions not accessible!"
- goto endsub
- endcatch
-
- Kontext "Versionen"
- Call DialogTest ( Versionen )
-'/// in Versions dialog press "save" ///'
- Speichern.Click
-'/// type a comment ///'
- Kontext "VersionskommentarEingeben"
- Call DialogTest ( VersionskommentarEingeben )
-'/// exit comment dialog with cancel ///'
- VersionskommentarEingeben.Cancel
- Kontext "Versionen"
-'/// close version dialog ///'
- Versionen.Close
-'/// close document ///'
- Call hCloseDocument
-' if Dir (Datei$) <> "" AND gSamePC = TRUE then kill Datei$
+ Datei$= (ConvertPath (gOfficePath + "user/work/graphics/required/erwin." + ExtensionString))
+ 'if dir (ConvertPath (gOfficePath + "user/work/graphics/required/")) = "" then
+ if dir (Datei$) = "" then app.mkdir (ConvertPath (gOfficePath + "user/work/graphics/required/"))
+ Call hNewDocument
+ WaitSlot (1000)
+ Call hFileSaveAsKill (Datei$)
+ WaitSlot (1000)
+ Call hCloseDocument
+
+ Call hFileOpen (Datei$)
+ WaitSlot (1000)
+ call hTBOtypeInDoc
+ WaitSlot (1000)
+ try
+ FileVersions
+ catch
+ Warnlog "- File / Versions not accessible!"
+ goto endsub
+ endcatch
+
+ Kontext "Versionen"
+ Call DialogTest ( Versionen )
+ Speichern.Click
+ Kontext "VersionskommentarEingeben"
+ Call DialogTest ( VersionskommentarEingeben )
+ VersionskommentarEingeben.Cancel
+ Kontext "Versionen"
+ Versionen.Close
+ Call hCloseDocument
+ ' if Dir (Datei$) <> "" AND gSamePC = TRUE then kill Datei$
endcase
testcase tiFilePassword
goto endsub
- Dim DokumentPfad$
- Dim Datei$
- dim sFileName as string ' test document & new created doc
-' dim sFormula as string ' container for formula to create document with
- dim e as string
- dim sTemp as string
- dim sFilter (50) as string
- dim i as integer
- dim x as integer
- dim y as integer
- dim Exlist(100) as string ' files to be deleted
- dim sFileIn as string ' filename to import
- dim sFile as string ' filename to export
- dim sPath as string ' and path to export
-
- if (gApplication = "IMPRESS") then
+ Dim DokumentPfad$
+ Dim Datei$
+ dim sFileName as string ' test document & new created doc
+ ' dim sFormula as string ' container for formula to create document with
+ dim e as string
+ dim sTemp as string
+ dim sFilter (50) as string
+ dim i as integer
+ dim x as integer
+ dim y as integer
+ dim Exlist(100) as string ' files to be deleted
+ dim sFileIn as string ' filename to import
+ dim sFile as string ' filename to export
+ dim sPath as string ' and path to export
+
+ if (gApplication = "IMPRESS") then
ExtensionString = "odp"
else
ExtensionString = "odg"
end if
-'/// save file to: "graphics\required\output\"+gApplication+"\"+ gPlatform+"\"isp__" ///'
- sFile = "isp__" ' this is the filename of the export files
- sPath = ConvertPath ( gOfficePath + "user/work/graphics/required/"+gApplication+"\"+ gPlatform+"\") ' this is the export path
- mkdir (sPath)
- if dir (sPath) = "" then app.mkdir (sPath)
- sFileIn = (sPath + sFile + "." + ExtensionString)
- Printlog "'/// deleting all files in output directory: \\graphics\required\output\\impress\\ gPlatform isp_* ///'"
- if gSamePC = TRUE then ' delete export directory
- GetFileList ( sPath, sFile+"*", Exlist() )
- if KillFileList ( Exlist() ) <> TRUE then
- Warnlog "Couldnt delete all Files in Output-Export-Directory, the followings are still there:"
- for i=1 to ListCount ( Exlist() )
- printlog " <> " + Exlist(i)
- next i
- end if
- end if
-
-'/// open application ///'
- Call hNewDocument
- WaitSlot (1000)
-'/// File->SaveAs ///'
- FileSaveAs
- Kontext "SpeichernDlg"
- Datei$ = ConvertPath ( sFileIn )
- printlog " will use the file: "+Datei$
- if Dir (Datei$) <> "" then
- kill Datei$
- end if
- '/// check 'password' ///'
- Passwort.Check
- '/// set 'filename' ///'
- Dateiname.SetText Datei$
- '/// press 'save' ///'
- Speichern.Click
- WaitSlot (2000)
- Kontext "Passwort"
- '/// type password "12345", confirm password: "54321" -> WRONG ///'
- PasswortName.SetText "12345"
- PasswortBestaetigen.Settext "54321"
- Passwort.OK
- WaitSlot (2000)
- Kontext "Messagebox"
- '/// messagebox has to show up, say OK, if messagebox doesnt come up -> ERROR ///'
- if Messagebox.Exists(1) then
- Messagebox.OK
- else
- Warnlog "- Wrong password not recognized"
- end if
- Kontext "Passwort"
- '/// type password "12345", confirm password: "12345" -> RIGHT ///'
- PasswortName.SetText "12345"
- PasswortBestaetigen.SetText "12345"
- Passwort.OK
- '/// close document ///'
- sleep 2
- FileClose
- sleep 2
-
- '/// open document ///'
- FileOpen
- Kontext "OeffnenDlg"
- WaitSlot (2000)
- Dateiname.SetText Datei$
- Oeffnen.Click
- WaitSlot (2000)
- Kontext "PasswordFileOpen"
- '/// type password: "34567" -> WRONG ///'
- PasswortName.SetText "34567"
- try
- PasswordFileOpen.OK
- catch
- Printlog "- Wrong password not accepted"
- endcatch
- Kontext
- '/// messagebox has to show up, say OK, if messagebox doesn't come up -> ERROR ///'
- if Not Messagebox.Exists(1) then
- Warnlog "Wrong password while loading not recognized"
- else
- Messagebox.OK
- printlog "Wrong password on loading ok - recogniced"
- end if
- WaitSlot (3000)
- Kontext "PasswordFileOpen"
- '/// type password: "12345" -> RIGHT ///'
- PasswortName.SetText "12345"
- PasswordFileOpen.OK
- WaitSlot (5000)
- '/// File->SaveAs ///'
- FileSaveAs
- Kontext "SpeichernDlg"
- Dateiname.SetText Datei$
- if (Passwort.IsChecked <> TRUE) then
- Warnlog "Password has to be checked! :-("
- end if
- '/// press 'save', without changing any checkbox! -> file has to be saved WITH password protection ///'
- Speichern.Click
- WaitSlot (1000)
- Kontext "Messagebox"
- '/// (if messagebox comes up, say YES) ///'
- if Messagebox.Exists(5) then
- Messagebox.Yes
- end if
- '/// password dialog has to show up! ///'
- Kontext "Passwort"
- if (Passwort.Exists(5) = FALSE)then
- Warnlog "- Password dialog Didn't pop up after pressing save"
- else
- Kontext "Passwort"
- '/// type password "a12345", confirm password: "a12345" -> RIGHT ///'
- WaitSlot (1000)
- PasswortName.SetText "a12345"
- PasswortBestaetigen.SetText "a12345"
- Passwort.OK
- WaitSlot (1000)
- '/// close document ///'
- FileClose
- WaitSlot (1000)
- end if
- '/// open document ///'
- FileOpen
- WaitSlot (2000)
- Kontext "OeffnenDlg"
- Dateiname.SetText Datei$
- Oeffnen.Click
- Kontext "PasswordFileOpen"
- WaitSlot (1000)
- '/// type password: "a12345" -> RIGHT ///'
- PasswortName.SetText "a12345"
- PasswordFileOpen.OK
- WaitSlot (5000)
- '/// File->SaveAs ///'
- FileSaveAs
- Kontext "SpeichernDlg"
- Dateiname.SetText Datei$
- if (Passwort.IsChecked <> TRUE) then
- Warnlog "Password has to be checked! :-("
- end if
- Passwort.UnCheck
- '/// press 'save', without changing any checkbox! -> file has to be saved WITH password protection ///'
- Speichern.Click
- Kontext "Messagebox"
- '/// (if messagebox comes up, say YES) ///'
- if Messagebox.Exists(5) then Messagebox.Yes
- '/// password dialog needn't to show up! ///'
- Kontext "Passwort"
- if (Passwort.Exists(5))then
- Warnlog "- Password dialog didn't pop up after pressing save"
- Kontext "Passwort"
- password.cancel
- '/// close document ///'
- FileClose
- else
- '/// close document ///'
- hCloseDocument
- end if
+ sFile = "isp__" ' this is the filename of the export files
+ sPath = ConvertPath ( gOfficePath + "user/work/graphics/required/"+gApplication+"\"+ gPlatform+"\") ' this is the export path
+ mkdir (sPath)
+ if dir (sPath) = "" then app.mkdir (sPath)
+ sFileIn = (sPath + sFile + "." + ExtensionString)
+ if gSamePC = TRUE then ' delete export directory
+ GetFileList ( sPath, sFile+"*", Exlist() )
+ if KillFileList ( Exlist() ) <> TRUE then
+ Warnlog "Couldnt delete all Files in Output-Export-Directory, the followings are still there:"
+ for i=1 to ListCount ( Exlist() )
+ printlog " <> " + Exlist(i)
+ next i
+ end if
+ end if
+
+ Call hNewDocument
+ WaitSlot (1000)
+ FileSaveAs
+ Kontext "SpeichernDlg"
+ Datei$ = ConvertPath ( sFileIn )
+ printlog " will use the file: "+Datei$
+ if Dir (Datei$) <> "" then
+ kill Datei$
+ end if
+ Passwort.Check
+ Dateiname.SetText Datei$
+ Speichern.Click
+ WaitSlot (2000)
+ Kontext "Passwort"
+ PasswortName.SetText "12345"
+ PasswortBestaetigen.Settext "54321"
+ Passwort.OK
+ WaitSlot (2000)
+ Kontext "Messagebox"
+ if Messagebox.Exists(1) then
+ Messagebox.OK
+ else
+ Warnlog "- Wrong password not recognized"
+ end if
+ Kontext "Passwort"
+ PasswortName.SetText "12345"
+ PasswortBestaetigen.SetText "12345"
+ Passwort.OK
+ sleep 2
+ FileClose
+ sleep 2
+
+ FileOpen
+ Kontext "OeffnenDlg"
+ WaitSlot (2000)
+ Dateiname.SetText Datei$
+ Oeffnen.Click
+ WaitSlot (2000)
+ Kontext "PasswordFileOpen"
+ PasswortName.SetText "34567"
+ try
+ PasswordFileOpen.OK
+ catch
+ Printlog "- Wrong password not accepted"
+ endcatch
+ Kontext
+ if Not Messagebox.Exists(1) then
+ Warnlog "Wrong password while loading not recognized"
+ else
+ Messagebox.OK
+ printlog "Wrong password on loading ok - recogniced"
+ end if
+ WaitSlot (3000)
+ Kontext "PasswordFileOpen"
+ PasswortName.SetText "12345"
+ PasswordFileOpen.OK
+ WaitSlot (5000)
+ FileSaveAs
+ Kontext "SpeichernDlg"
+ Dateiname.SetText Datei$
+ if (Passwort.IsChecked <> TRUE) then
+ Warnlog "Password has to be checked! :-("
+ end if
+ Speichern.Click
+ WaitSlot (1000)
+ Kontext "Messagebox"
+ if Messagebox.Exists(5) then
+ Messagebox.Yes
+ end if
+ Kontext "Passwort"
+ if (Passwort.Exists(5) = FALSE)then
+ Warnlog "- Password dialog Didn't pop up after pressing save"
+ else
+ Kontext "Passwort"
+ WaitSlot (1000)
+ PasswortName.SetText "a12345"
+ PasswortBestaetigen.SetText "a12345"
+ Passwort.OK
+ WaitSlot (1000)
+ FileClose
+ WaitSlot (1000)
+ end if
+ FileOpen
+ WaitSlot (2000)
+ Kontext "OeffnenDlg"
+ Dateiname.SetText Datei$
+ Oeffnen.Click
+ Kontext "PasswordFileOpen"
+ WaitSlot (1000)
+ PasswortName.SetText "a12345"
+ PasswordFileOpen.OK
+ WaitSlot (5000)
+ FileSaveAs
+ Kontext "SpeichernDlg"
+ Dateiname.SetText Datei$
+ if (Passwort.IsChecked <> TRUE) then
+ Warnlog "Password has to be checked! :-("
+ end if
+ Passwort.UnCheck
+ Speichern.Click
+ Kontext "Messagebox"
+ if Messagebox.Exists(5) then Messagebox.Yes
+ Kontext "Passwort"
+ if (Passwort.Exists(5))then
+ Warnlog "- Password dialog didn't pop up after pressing save"
+ Kontext "Passwort"
+ password.cancel
+ FileClose
+ else
+ hCloseDocument
+ end if
endcase
testcase tiFileTemplates
- Call hNewDocument
-
- FileTemplatesOrganize
- Kontext "DVVerwalten"
- WaitSlot (1000)
- Call DialogTest (DVVerwalten)
- sleep 1
- PopuplisteLinks.Select 2
- WaitSlot (1000)
- PopuplisteRechts.Select 2
- WaitSlot (1000)
- WelcheDatei.Click
- WaitSlot (1000)
- Kontext "Oeffnendlg"
- Call DialogTest (OeffnenDlg)
- sleep 1
- OeffnenDlg.Cancel
- WaitSlot (2000)
- Kontext "DVVerwalten"
- DVVerwalten.Close
-
-if gtSYSName = "Solaris x86" then
- qaErrorLog "#i62423# - FileTemplatesAddressBookSource outcommented under x86. - FHA"
-else
- FileTemplatesAddressBookSource
- Printlog "- AddressBookAssignment"
- kontext "AddressBookSource"
- Call DialogTest (AddressBookSource)
- Administrate.Click
- kontext "AddressSourceAutopilot"
- AddressSourceAutopilot.Cancel
- kontext "AddressBookSource"
- AddressBookSource.Cancel
-end if
-
- FileTemplatesSave
- Printlog "- Save template"
- WaitSlot (1000)
- Kontext "Dokumentvorlagen"
- sleep 1
- Call DialogTest (Dokumentvorlagen)
- WaitSlot (1000)
- Verwalten.Click
- WaitSlot (2000)
- Kontext "DVVerwalten"
- Call DialogTest (DVVerwalten)
- WaitSlot (3000)
- DVVerwalten.Close
- WaitSlot (1000)
- Kontext "Dokumentvorlagen"
- sleep 1
- Dokumentvorlagen.Cancel
- WaitSlot (1000)
-
- try
- FileTemplatesEdit
- Printlog "- Edit template"
- WaitSlot (1000)
- Kontext "OeffnenDlg"
- sleep 1
- Call DialogTest (OeffnenDlg)
- WaitSlot (1000)
- OeffnenDlg.Cancel
- catch
- Warnlog "- There are problems with File-Template-Save"
- endcatch
- WaitSlot (1000)
- Call hCloseDocument
+ Call hNewDocument
+
+ FileTemplatesOrganize
+ Kontext "DVVerwalten"
+ WaitSlot (1000)
+ Call DialogTest (DVVerwalten)
+ sleep 1
+ PopuplisteLinks.Select 2
+ WaitSlot (1000)
+ PopuplisteRechts.Select 2
+ WaitSlot (1000)
+ WelcheDatei.Click
+ WaitSlot (1000)
+ Kontext "Oeffnendlg"
+ Call DialogTest (OeffnenDlg)
+ sleep 1
+ OeffnenDlg.Cancel
+ WaitSlot (2000)
+ Kontext "DVVerwalten"
+ DVVerwalten.Close
+
+ if gtSYSName = "Solaris x86" then
+ qaErrorLog "#i62423# - FileTemplatesAddressBookSource outcommented under x86. - FHA"
+ else
+ FileTemplatesAddressBookSource
+ Printlog "- AddressBookAssignment"
+ kontext "AddressBookSource"
+ Call DialogTest (AddressBookSource)
+ Administrate.Click
+ kontext "AddressSourceAutopilot"
+ AddressSourceAutopilot.Cancel
+ kontext "AddressBookSource"
+ AddressBookSource.Cancel
+ end if
+
+ FileTemplatesSave
+ Printlog "- Save template"
+ WaitSlot (1000)
+ Kontext "Dokumentvorlagen"
+ sleep 1
+ Call DialogTest (Dokumentvorlagen)
+ WaitSlot (1000)
+ Verwalten.Click
+ WaitSlot (2000)
+ Kontext "DVVerwalten"
+ Call DialogTest (DVVerwalten)
+ WaitSlot (3000)
+ DVVerwalten.Close
+ WaitSlot (1000)
+ Kontext "Dokumentvorlagen"
+ sleep 1
+ Dokumentvorlagen.Cancel
+ WaitSlot (1000)
+
+ try
+ FileTemplatesEdit
+ Printlog "- Edit template"
+ WaitSlot (1000)
+ Kontext "OeffnenDlg"
+ sleep 1
+ Call DialogTest (OeffnenDlg)
+ WaitSlot (1000)
+ OeffnenDlg.Cancel
+ catch
+ Warnlog "- There are problems with File-Template-Save"
+ endcatch
+ WaitSlot (1000)
+ Call hCloseDocument
endcase
testcase tiFilePrint
- Call hNewDocument
-'/// open application ///'
-'/// File->Print ///'
- FilePrint
- WaitSlot (1000)
- kontext
- if active.exists(5) then
- active.ok
- qaerrorlog "There is no printer available - please install one on your system!"
- end if
- WaitSlot (2000)
- Kontext "DruckenDlg"
- Call DialogTest (DruckenDlg)
- '/// click 'options' ///'
- WaitSlot (2000)
- Zusaetze.Click
-
- Kontext "DruckerZusaetzeDraw"
- Call DialogTest (DruckerZusaetzeDraw)
- DruckerZusaetzeDraw.Cancel
- '/// close options dialog with 'cancel' ///'
- Kontext "DruckenDlg"
- '/// close print dialog with 'cancel' ///'
- DruckenDlg.Cancel
- WaitSlot (2000)
-'/// close application ///'
- Call hCloseDocument
+ Call hNewDocument
+ FilePrint
+ WaitSlot (1000)
+ kontext
+ if active.exists(5) then
+ active.ok
+ qaerrorlog "There is no printer available - please install one on your system!"
+ end if
+ WaitSlot (2000)
+ Kontext "DruckenDlg"
+ Call DialogTest (DruckenDlg)
+ WaitSlot (2000)
+ Zusaetze.Click
+
+ Kontext "DruckerZusaetzeDraw"
+ Call DialogTest (DruckerZusaetzeDraw)
+ DruckerZusaetzeDraw.Cancel
+ Kontext "DruckenDlg"
+ DruckenDlg.Cancel
+ WaitSlot (2000)
+ Call hCloseDocument
endcase
@@ -575,275 +502,269 @@ endcase
testcase tmFileNewFromTemplate
- Call hNewDocument
- FileNewFromTemplate
- '/// Open dialog with File / New / From Template ///
- WaitSlot (5000)
- Kontext "TemplateAndDocuments"
- '/// Check if dialog has been opened ///
- if TemplateAndDocuments.NotExists then
- Warnlog "Dialog Templates and Documents are not up!"
- goto endsub
- end if
- Call DialogTest (TemplateAndDocuments)
- WaitSlot (5000)
- try
- TemplateAndDocuments.Cancel
- catch
- endcatch
- WaitSlot (5000)
- Call hCloseDocument
+ Call hNewDocument
+ FileNewFromTemplate
+ WaitSlot (5000)
+ Kontext "TemplateAndDocuments"
+ if TemplateAndDocuments.NotExists then
+ Warnlog "Dialog Templates and Documents are not up!"
+ goto endsub
+ end if
+ Call DialogTest (TemplateAndDocuments)
+ WaitSlot (5000)
+ try
+ TemplateAndDocuments.Cancel
+ catch
+ endcatch
+ WaitSlot (5000)
+ Call hCloseDocument
endcase
testcase tmFileOpen
- call hNewDocument
- FileOpen
- Kontext "OeffnenDlg"
- UebergeordneterOrdner.Click
- Standard.Click
- NurLesen.check
- Call DialogTest ( OeffnenDlg )
- OeffnenDlg.Cancel
- WaitSlot (2000)
- Call hCloseDocument
+ call hNewDocument
+ FileOpen
+ Kontext "OeffnenDlg"
+ UebergeordneterOrdner.Click
+ Standard.Click
+ NurLesen.check
+ Call DialogTest ( OeffnenDlg )
+ OeffnenDlg.Cancel
+ WaitSlot (2000)
+ Call hCloseDocument
endcase
testcase tmFileClose
- printlog "- File Close"
- hNewDocument ' just for the records: I open ONE document
- call hTBOtypeInDoc
- WaitSlot (2000)
- FileClose
- Kontext ' Expecting "Modified, do you want to close?"
- if active.exists (5) then
- printlog " Ok, active came up: " + active.gettext
- Active.Cancel ' No, not this time
- else
- warnlog "active missing (1)"
- end if
- WaitSlot (2000)
-
- FileClose
- Kontext
- Active.Yes ' but now - records: this document is closed
- WaitSlot (2000)
-
- Kontext "SpeichernDlg"
- Call DialogTest ( SpeichernDlg )
- SpeichernDlg.Cancel
- WaitSlot (2000)
-
- FileClose ' now the office gets closed! (if there were no modifications!)
- Kontext
- Active.No
- WaitSlot (2000)
+ printlog "- File Close"
+ hNewDocument ' just for the records: I open ONE document
+ call hTBOtypeInDoc
+ WaitSlot (2000)
+ FileClose
+ Kontext ' Expecting "Modified, do you want to close?"
+ if active.exists (5) then
+ printlog " Ok, active came up: " + active.gettext
+ Active.Cancel ' No, not this time
+ else
+ warnlog "active missing (1)"
+ end if
+ WaitSlot (2000)
+
+ FileClose
+ Kontext
+ Active.Yes ' but now - records: this document is closed
+ WaitSlot (2000)
+
+ Kontext "SpeichernDlg"
+ Call DialogTest ( SpeichernDlg )
+ SpeichernDlg.Cancel
+ WaitSlot (2000)
+
+ FileClose ' now the office gets closed! (if there were no modifications!)
+ Kontext
+ Active.No
+ WaitSlot (2000)
endcase
'-----------------------------------------------------------
testcase tmFileSave
- hNewDocument
- call hTBOtypeInDoc
-
- FileSave
- WaitSlot (2000)
- Kontext "SpeichernDlg"
- UebergeordneterOrdner.click
- Standard.Click
- Call DialogTest (SpeichernDlg)
- Kontext "SpeichernDlg"
- Standard.Click
- SpeichernDlg.Cancel
- WaitSlot (2000)
- Call hCloseDocument
+ hNewDocument
+ call hTBOtypeInDoc
+
+ FileSave
+ WaitSlot (2000)
+ Kontext "SpeichernDlg"
+ UebergeordneterOrdner.click
+ Standard.Click
+ Call DialogTest (SpeichernDlg)
+ Kontext "SpeichernDlg"
+ Standard.Click
+ SpeichernDlg.Cancel
+ WaitSlot (2000)
+ Call hCloseDocument
endcase
testcase tmFileSaveAs
- hNewDocument
- WaitSlot (2000)
- call hTBOtypeInDoc
-
- FileSaveAs
- WaitSlot (2000)
- Kontext "SpeichernDlg"
- if (SpeichernDlg.exists (5) = FALSE) then
- warnlog "FileSaveAs dialog is not visible"
- end if
- WaitSlot (2000)
- Passwort.check
- Passwort.uncheck
- UebergeordneterOrdner.click
- Standard.Click
-
- NeuerOrdner.click
- kontext "NeuerOrdner"
- neuerordner.cancel
- Kontext "SpeichernDlg"
-
- Call DialogTest (SpeichernDlg)
-
- Kontext "SpeichernDlg"
- SpeichernDlg.Cancel
- WaitSlot (2000)
- Call hCloseDocument
+ hNewDocument
+ WaitSlot (2000)
+ call hTBOtypeInDoc
+
+ FileSaveAs
+ WaitSlot (2000)
+ Kontext "SpeichernDlg"
+ if (SpeichernDlg.exists (5) = FALSE) then
+ warnlog "FileSaveAs dialog is not visible"
+ end if
+ WaitSlot (2000)
+ Passwort.check
+ Passwort.uncheck
+ UebergeordneterOrdner.click
+ Standard.Click
+
+ NeuerOrdner.click
+ kontext "NeuerOrdner"
+ neuerordner.cancel
+ Kontext "SpeichernDlg"
+
+ Call DialogTest (SpeichernDlg)
+
+ Kontext "SpeichernDlg"
+ SpeichernDlg.Cancel
+ WaitSlot (2000)
+ Call hCloseDocument
endcase
testcase tmFileSaveAll
- printlog "- File SaveAll"
-
- hNewDocument
- call hTBOtypeInDoc
-
- Printlog " open 2. window"
- hNewDocument
- call hTBOtypeInDoc
-
- Printlog " call save all"
- FileSaveAll
- Printlog " cancel 1. save"
- Kontext "SpeichernDlg"
- SpeichernDlg.Cancel
-
- Printlog " cancel 2. save"
- WaitSlot (2000)
- Kontext "SpeichernDlg"
- SpeichernDlg.Cancel
- WaitSlot (2000)
-
- try
- Kontext "SpeichernDlg"
- SpeichernDlg.Cancel
- printlog "smth had been typed in the starting window (just a hint ;-) )"
- catch
- printlog "--------- no other window wants to get saved. :-)"
- endcatch
-
- WaitSlot (2000)
- Printlog " hCloseDocument both"
- Call hCloseDocument
- sleep 2
- Printlog " first closed"
- Call hCloseDocument
- WaitSlot (2000)
- Printlog " second closed"
- WaitSlot (5000)
+ printlog "- File SaveAll"
+
+ hNewDocument
+ call hTBOtypeInDoc
+
+ Printlog " open 2. window"
+ hNewDocument
+ call hTBOtypeInDoc
+
+ Printlog " call save all"
+ FileSaveAll
+ Printlog " cancel 1. save"
+ Kontext "SpeichernDlg"
+ SpeichernDlg.Cancel
+
+ Printlog " cancel 2. save"
+ WaitSlot (2000)
+ Kontext "SpeichernDlg"
+ SpeichernDlg.Cancel
+ WaitSlot (2000)
+
+ try
+ Kontext "SpeichernDlg"
+ SpeichernDlg.Cancel
+ printlog "smth had been typed in the starting window (just a hint ;-) )"
+ catch
+ printlog "--------- no other window wants to get saved. :-)"
+ endcatch
+
+ WaitSlot (2000)
+ Printlog " hCloseDocument both"
+ Call hCloseDocument
+ sleep 2
+ Printlog " first closed"
+ Call hCloseDocument
+ WaitSlot (2000)
+ Printlog " second closed"
+ WaitSlot (5000)
endcase
testcase tmFileProperties
- printlog "- File Properties"
-
- Call hNewDocument
- FileProperties
-
- Kontext
- active.SetPage TabDokument
- Kontext "TabDokument"
- Call DialogTest ( TabDokument )
-
- Kontext
- active.SetPage TabDokumentInfo
- Kontext "TabDokumentInfo"
- Call DialogTest ( TabDokumentInfo )
-
- 'Deactivating this part because of #i95523#:
- 'Kontext
- 'active.SetPage TabBenutzer
- 'Kontext "TabBenutzer"
- 'Call DialogTest ( TabBenutzer )
- 'Infofelder.Click
- ' Kontext "InfonamenBearbeiten"
- ' Call DialogTest (InfonamenBearbeiten)
- 'InfonamenBearbeiten.Cancel
-
- Kontext
- active.SetPage TabInternet
- Kontext "TabInternet"
- Call DialogTest (TabInternet)
- TabInternet.Cancel
-
- Call hCloseDocument
+ printlog "- File Properties"
+
+ Call hNewDocument
+ FileProperties
+
+ Kontext
+ active.SetPage TabDokument
+ Kontext "TabDokument"
+ Call DialogTest ( TabDokument )
+
+ Kontext
+ active.SetPage TabDokumentInfo
+ Kontext "TabDokumentInfo"
+ Call DialogTest ( TabDokumentInfo )
+
+ 'Deactivating this part because of #i95523#:
+ 'Kontext
+ 'active.SetPage TabBenutzer
+ 'Kontext "TabBenutzer"
+ 'Call DialogTest ( TabBenutzer )
+ 'Infofelder.Click
+ ' Kontext "InfonamenBearbeiten"
+ ' Call DialogTest (InfonamenBearbeiten)
+ 'InfonamenBearbeiten.Cancel
+
+ Kontext
+ active.SetPage TabInternet
+ Kontext "TabInternet"
+ Call DialogTest (TabInternet)
+ TabInternet.Cancel
+
+ Call hCloseDocument
endcase
testcase tmFilePrinterSetting
- printlog "- File Printersettings"
- Call hNewDocument
- WaitSlot (3000)
- FilePrintersettings
- kontext
- if active.exists(5) then
- active.ok
- qaerrorlog "There is no printer available - please install one on your system!"
- end if
- WaitSlot (2000)
- Kontext "DruckerEinrichten"
- Call DialogTest (DruckerEinrichten)
- sleep 2
- DruckerEinrichten.Cancel
- WaitSlot (2000)
- Call hCloseDocument
+ printlog "- File Printersettings"
+ Call hNewDocument
+ WaitSlot (3000)
+ FilePrintersettings
+ kontext
+ if active.exists(5) then
+ active.ok
+ qaerrorlog "There is no printer available - please install one on your system!"
+ end if
+ WaitSlot (2000)
+ Kontext "DruckerEinrichten"
+ Call DialogTest (DruckerEinrichten)
+ sleep 2
+ DruckerEinrichten.Cancel
+ WaitSlot (2000)
+ Call hCloseDocument
endcase
testcase tdFileExport
goto endsub
- dim x as integer
-'/// just call File->Export and exit ///'
- Call hNewDocument
- WaitSlot (3000)
- FileExport
- Kontext "ExportierenDlg"
- Call DialogTest ( ExportierenDlg )
- UebergeordneterOrdner.Click
- Kontext "SpeichernDlg"
- '/// check number of available export filters. it has to be 17 ///'
- '///+ this is also done in the 'first test', I provide it just as an additional info here.///'
- '///+ testcase: ExFilterCountCompare ///'
- x=Dateityp.getitemcount
- if x <> 18 then warnlog "the number of filters is not 18, it is: " + x
- SpeichernDlg.Cancel
- WaitSlot (2000)
- Call hCloseDocument
- WaitSlot (2000)
+ dim x as integer
+ Call hNewDocument
+ WaitSlot (3000)
+ FileExport
+ Kontext "ExportierenDlg"
+ Call DialogTest ( ExportierenDlg )
+ UebergeordneterOrdner.Click
+ Kontext "SpeichernDlg"
+ x=Dateityp.getitemcount
+ if x <> 18 then warnlog "the number of filters is not 18, it is: " + x
+ SpeichernDlg.Cancel
+ WaitSlot (2000)
+ Call hCloseDocument
+ WaitSlot (2000)
endcase
testcase tmFileExit
- goto endsub
- printlog "- File Close"
- Call hNewDocument
- WaitSlot (2000)
- try
- FileExit "SynchronMode", TRUE
- WaitSlot (2000)
- Kontext
- WaitSlot (2000)
- Kontext "MessageBox"
- if MessageBox.Exists(1) then ' this is the messagebox from the first window!
- Printlog MessageBox.GetText
- try
- MessageBox.OK
- catch
- MessageBox.No
- endcatch
- end if
- Kontext "MessageBox"
- if MessageBox.Exists(1) then
- Warnlog "MsgBox popped up and there were no changes in the document"
- Printlog MessageBox.GetText
- try
- MessageBox.OK
- catch
- MessageBox.No
- endcatch
- end if
- catch
- printlog "this exit is wanted :-)"
- endcatch
- try
- WaitSlot (20000)
- call hStartTheOffice ' from master.inc
- catch
- printlog "catch AGAIN"
- endcatch
- Kontext "SD_Praesentation"
- if SD_Praesentation.exists (2) then
- ViewToolbarsPresentation
- end if
+ goto endsub
+ printlog "- File Close"
+ Call hNewDocument
+ WaitSlot (2000)
+ try
+ FileExit "SynchronMode", TRUE
+ WaitSlot (2000)
+ Kontext
+ WaitSlot (2000)
+ Kontext "MessageBox"
+ if MessageBox.Exists(1) then ' this is the messagebox from the first window!
+ Printlog MessageBox.GetText
+ try
+ MessageBox.OK
+ catch
+ MessageBox.No
+ endcatch
+ end if
+ Kontext "MessageBox"
+ if MessageBox.Exists(1) then
+ Warnlog "MsgBox popped up and there were no changes in the document"
+ Printlog MessageBox.GetText
+ try
+ MessageBox.OK
+ catch
+ MessageBox.No
+ endcatch
+ end if
+ catch
+ printlog "this exit is wanted :-)"
+ endcatch
+ try
+ WaitSlot (20000)
+ call hStartTheOffice ' from master.inc
+ catch
+ printlog "catch AGAIN"
+ endcatch
+ Kontext "SD_Praesentation"
+ if SD_Praesentation.exists (2) then
+ ViewToolbarsPresentation
+ end if
endcase
diff --git a/testautomation/graphics/optional/includes/global/id_002.inc b/testautomation/graphics/optional/includes/global/id_002.inc
index 75bee17d8b94..57163cedd72d 100755
--- a/testautomation/graphics/optional/includes/global/id_002.inc
+++ b/testautomation/graphics/optional/includes/global/id_002.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
@@ -55,9 +55,6 @@
testcase tiEditUndoRedo
- '/// open application ///'
- '/// Type a sentence into the document and do : ///'
- '/// Edit / Undo and Edit / Redo ///
hNewDocument
call hTBOtypeInDoc
@@ -65,16 +62,13 @@ testcase tiEditUndoRedo
WaitSlot (2000)
EditRedo
WaitSlot (2000)
- '/// close application ///'
Call hCloseDocument
endcase
testcase tiEditRepeat
goto endsub 'Quaste, ask FHA
- '/// open application ///'
Call hNewDocument
-'/// create 3 rectangles ///'
gMouseClick 50,50
Call hRechteckErstellen ( 30, 10, 70, 30 )
WaitSlot (1000)
@@ -82,24 +76,18 @@ testcase tiEditRepeat
WaitSlot (1000)
Call hRechteckErstellen ( 80, 50, 40, 20 )
WaitSlot (1000)
- '/// [Modify | ContextMenu]->Arrange->SendBackward ///'
ContextArrangeBringBackward
WaitSlot (2000)
- '/// Edit->Repeat ///'
try
EditRepeat
catch
Warnlog " Menu entry is disabled #i26129#"
endcatch
- '/// close application ///'
Call hCloseDocument
endcase
testcase tiEditCutPasteCopySelectall
- '/// open application ///'
- '/// Type a sentence into the dokument and do : ///'
- '/// edit-> (Cut | Paste | Copy | SelectAll | Cut | Paste | DeleteContents) ///'
Call hNewDocument
call hTBOtypeInDoc
@@ -120,105 +108,74 @@ testcase tiEditCutPasteCopySelectall
WaitSlot (2000)
EditDeleteContents
WaitSlot (2000)
- '/// close application ///'
Call hCloseDocument
endcase
testcase tiEditPasteSpecial
- '/// open application ///'
Call hNewDocument
- '/// put some words into the clipboard ///'
SetClipboard "This is a Text in the Clipboard"
- '/// Edit->PasteSpecial ///'
EditPasteSpecial
WaitSlot (1000)
Kontext "InhaltEinfuegen"
- DialogTest ( InhaltEinfuegen )
+ DialogTest ( InhaltEinfuegen )
- '/// close the dialog without inserting something ///'
- InhaltEinfuegen.Cancel
+ InhaltEinfuegen.Cancel
WaitSlot (1000)
- '/// close application ///'
Call hCloseDocument
endcase
testcase tiEditSearchAndReplace
- '/// open application ///'
Call hNewDocument
try
- '/// Edit->Find & Replace ///'
EditSearchAndReplace
WaitSlot (1000)
Kontext "FindAndReplace"
- DialogTest ( FindAndReplace )
-
- '/// click on "More Options" ///'
- More.Click
- '/// check 'similarity search' ///'
- SimilaritySearch.Check ' culprint for errors if not resetted !
- WaitSlot (1000)
- '/// click '...' :-) ///'
- SimilaritySearchFor.Click
- Kontext "Aehnlichkeitssuche"
- DialogTest (Aehnlichkeitssuche )
- Aehnlichkeitssuche.Cancel
- '/// close dialog 'similarity search' ///'
+ DialogTest ( FindAndReplace )
+
+ More.Click
+ SimilaritySearch.Check ' culprint for errors if not resetted !
+ WaitSlot (1000)
+ SimilaritySearchFor.Click
+ Kontext "Aehnlichkeitssuche"
+ DialogTest (Aehnlichkeitssuche )
+ Aehnlichkeitssuche.Cancel
Kontext "FindAndReplace"
- '/// UNcheck 'similarity search' ///'
- SimilaritySearch.UnCheck
- '/// click on "More Options" ///'
- More.Click
- '/// close dialog 'Find & Replace' ///'
- FindAndReplace.Close
+ SimilaritySearch.UnCheck
+ More.Click
+ FindAndReplace.Close
catch
Warnlog "EditSearchAndReplace caused an error"
endcatch
- '/// close application ///'
Call hCloseDocument
endcase
testcase tiEditDuplicate
- '/// open application ///'
Call hNewDocument
- '/// create a rectangle ///'
call hTBOtypeInDoc
- '/// 'Edit->Select All' ///'
EditSelectAll
- '/// Edit->Duplicate ///'
EditDuplicate
Kontext "Duplizieren"
- Call DialogTest ( Duplizieren )
- '/// cancel dialog 'duplicate' ///'
- Duplizieren.Cancel
+ Call DialogTest ( Duplizieren )
+ Duplizieren.Cancel
Call hCloseDocument
- '/// close application ///'
endcase
testcase tEditPoints
- '/// open application ///'
Call hNewDocument
- '/// create a rectangle ///'
call hTBOtypeInDoc
- '/// 'Edit->Points' ///'
FormatEditPoints
- '/// 'Edit->Glue Points' ///'
EditGluePoints
- '/// close application ///'
Call hCloseDocument
endcase
testcase tiEditFields
- '/// open application ///'
Call hNewDocument
WaitSlot (2000)
- '/// insert something to be able to use this function ///'
- '///+ Insert->Fields->Date (fixed) ///'
- '///+ deselect object, select, editmode ///'
InsertFieldsDateFix
WaitSlot (1000)
gMouseDoubleClick 10,10
@@ -229,30 +186,23 @@ testcase tiEditFields
hTypeKeys "<Home>" ' Here we enter Edit-Mode and therefore also the right place
try
- '/// Edit->Fields ///'
EditFieldsDraw
Kontext "FeldbefehlBearbeitenDraw"
- Call DialogTest ( FeldbefehlBearbeitenDraw )
- '/// cancel dialog 'Edit->Field' ///'
- FeldbefehlBearbeitenDraw.Close
+ Call DialogTest ( FeldbefehlBearbeitenDraw )
+ FeldbefehlBearbeitenDraw.Close
catch
Warnlog "- Slot could not be accessed"
endcatch
-'/// close application ///'
Call hCloseDocument
endcase
testcase tdEditDeleteSlide
-'/// open application ///'
Call hNewDocument
-'/// Insert->Slide ///'
InsertSlide
WaitSlot (2000)
hTypekeys "<Pagedown>"
WaitSlot (2000)
- '/// check with navigator, if slide is inserted ///'
- '/// check state of navigator ! expected: closed ///'
Kontext "Navigator"
sleep (2)
if Navigator.exists then
@@ -271,165 +221,136 @@ testcase tdEditDeleteSlide
goto endsub
else
Liste.Select 2
- Liste.Typekeys "<RETURN>" '/// Press Return to go to the selected slide ///'
Kontext "Navigator"
Navigator.Close
end if
WaitSlot (2000)
- '/// Edit->Delete Slide ///'
EditDeleteSlide
WaitSlot (2000)
- '/// close application ///'
Call hCloseDocument
endcase
testcase tiEditLinks
- '/// open application ///'
Call hNewDocument
- '/// Insert a linked graphic : "global\input\graf_inp\stabler.tif" ///'
InsertGraphicsFromFile
Kontext "GrafikEinfuegenDlg"
- try
- if Link.Exists then
- Link.Check
- else
- Warnlog "- Link in Insert graphic is not working"
- end if
- Dateiname.settext Convertpath (gTesttoolPath + "global\input\graf_inp\stabler.tif")
- Oeffnen.Click
- Kontext "Messagebox"
- if Messagebox.Exists=True Then
- Warnlog Messagebox.GetText
- Messagebox.Ok
- end if
- InsertGraphicsFromFile
- Kontext "GrafikEinfuegenDlg"
- Link.Check
- '/// Insert a linked graphic : "global\input\graf_inp\desp.bmp" ///'
- Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
- Oeffnen.Click
- sleep 2
- kontext "Messagebox"
- if Messagebox.Exists then
- Warnlog Messagebox.GetText
- Messagebox.OK
- sleep 1
- end if
- catch
- Warnlog "Insert graphic caused errors"
- endcatch
+ try
+ if Link.Exists then
+ Link.Check
+ else
+ Warnlog "- Link in Insert graphic is not working"
+ end if
+ Dateiname.settext Convertpath (gTesttoolPath + "global\input\graf_inp\stabler.tif")
+ Oeffnen.Click
+ Kontext "Messagebox"
+ if Messagebox.Exists=True Then
+ Warnlog Messagebox.GetText
+ Messagebox.Ok
+ end if
+ InsertGraphicsFromFile
+ Kontext "GrafikEinfuegenDlg"
+ Link.Check
+ Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
+ Oeffnen.Click
+ sleep 2
+ kontext "Messagebox"
+ if Messagebox.Exists then
+ Warnlog Messagebox.GetText
+ Messagebox.OK
+ sleep 1
+ end if
+ catch
+ Warnlog "Insert graphic caused errors"
+ endcatch
- WaitSlot (2000)
+ WaitSlot (2000)
try
- '/// Edit->Links ///'
EditLinksDraw
WaitSlot (2000)
Kontext "VerknuepfungenBearbeiten"
- Call DialogTest ( VerknuepfungenBearbeiten )
- '/// close dialog 'Edit Links' ///'
- VerknuepfungenBearbeiten.Close
- WaitSlot (1000)
+ Call DialogTest ( VerknuepfungenBearbeiten )
+ VerknuepfungenBearbeiten.Close
+ WaitSlot (1000)
catch
Warnlog "- EditLinks could not be executed, could be the graphic was not imported"
endcatch
- '/// close application ///'
Call hCloseDocument
endcase
testcase tiEditImageMap
- '/// open application ///'
Call hNewDocument
- '/// Edit->Image Map ///'
EditImageMap
Kontext "ImageMapEditor"
- sleep (1)
- if ImageMapEditor.Exists (2) then
- printlog "- ImageMap exists"
- DialogTest ( ImageMapEditor )
- try
- '/// Close dialog 'Image Map Editor' ///'
- ImageMapEditor.Close
- Printlog "ImageMap closed using the close button"
- catch
- EditImageMap
- Printlog "ImageMap closed using menue 'edit-imagemap'"
- endcatch
- else
- warnlog "ImageMap didn't come up!"
- end if
- '/// close application ///'
+ sleep (1)
+ if ImageMapEditor.Exists (2) then
+ printlog "- ImageMap exists"
+ DialogTest ( ImageMapEditor )
+ try
+ ImageMapEditor.Close
+ Printlog "ImageMap closed using the close button"
+ catch
+ EditImageMap
+ Printlog "ImageMap closed using menue 'edit-imagemap'"
+ endcatch
+ else
+ warnlog "ImageMap didn't come up!"
+ end if
Call hCloseDocument
endcase
testcase tiEditObjectProperties
dim i as integer
- '/// for every object, there are several edit options: ///'
- '///+ starting with FloatingFrame->Properties ///'
- '///+ file used for input in frame: global\input\graf_inp\desp.bmp ///
- '/// open application ///'
Call hNewDocument
- '/// Insert->Floating Frame ///'
InsertFloatingFrame
WaitSlot (2000)
Kontext "TabEigenschaften"
- FrameName.SetText "Hello"
- '/// insert an picture into the frame (embedded into draw application :-)) ///'
- Inhalt.SetText ConvertPath ( gTesttoolpath + "global\input\graf_inp\desp.bmp" )
- WaitSlot (2000)
- TabEigenschaften.OK
- WaitSlot (2000)
+ FrameName.SetText "Hello"
+ Inhalt.SetText ConvertPath ( gTesttoolpath + "global\input\graf_inp\desp.bmp" )
+ WaitSlot (2000)
+ TabEigenschaften.OK
+ WaitSlot (2000)
gMouseDoubleClick 1,1
- '/// select frame ///'
hTypekeys "<tab>"
- '/// Edit->Object->Properties ///'
kontext
WaitSlot (2000)
EditObjectProperties
WaitSlot (1000)
Kontext "TabEigenschaften"
- DialogTest ( TabEigenschaften )
- '/// open Contents File Dialog ///'
- sleep(1)
- Oeffnen.Click
- Kontext "OeffnenDlg"
- Call DialogTest ( OeffnenDlg )
- '/// Cancel 'Select File for Floating Frame' ///'
- OeffnenDlg.Cancel
+ DialogTest ( TabEigenschaften )
+ sleep(1)
+ Oeffnen.Click
+ Kontext "OeffnenDlg"
+ Call DialogTest ( OeffnenDlg )
+ OeffnenDlg.Cancel
Kontext "TabEigenschaften"
- TabEigenschaften.Cancel
+ TabEigenschaften.Cancel
- '/// close application ///'
Call hCloseDocument
endcase
testcase tiEditObjectEdit
- '/// OLE: edit & save copy as... ///'
- '/// open application ///'
dim i as integer
Call hNewDocument
- '/// Insert->Object->OLE Object; select the first one in list, usually: 'StarOffice 6.0 Spreadsheet' ///'
InsertObjectOLEObject
WaitSlot (1000)
Kontext "OLEObjektEinfuegen"
- ObjektTyp.Select 1
- OLEObjektEinfuegen.OK
- WaitSlot (1000)
+ ObjektTyp.Select 1
+ OLEObjektEinfuegen.OK
+ WaitSlot (1000)
gMouseClick 20,1
- '/// select object ///'
hTypekeys "<tab>"
- '/// Edit->Object->Edit ///'
EditObjectEdit
' try EditObjectEdit again, to see, if it is in edit mode !
WaitSlot (2000)
@@ -438,114 +359,97 @@ testcase tiEditObjectEdit
warnlog " Couldn't get into edit mode!"
catch
printlog "Reached edit mode - ok :-)"
- '/// exit edit mode, by clicking outside the object ///'
gMouseClick 20,1
endcatch
- '/// select object ///'
EditSelectAll
- '/// Edit->Object->Save Copy As ///'
EditObjectSaveCopyAs
Kontext "SpeichernDlg"
- Call DialogTest ( SpeichernDlg )
- '/// cancel dialog 'Save As' ///'
- SpeichernDlg.Cancel
- WaitSlot (2000)
- Kontext "Active"
- if Active.Exists(2) then Active.No
- '/// close application ///'
- Call hCloseDocument
+ Call DialogTest ( SpeichernDlg )
+ SpeichernDlg.Cancel
+ WaitSlot (2000)
+ Kontext "Active"
+ if Active.Exists(2) then Active.No
+ Call hCloseDocument
endcase
testcase tiEditPlugIn
- '/// open application ///'
Call hNewDocument
- '/// Insert->Object->Plugin ///'
InsertObjectPlugin
Kontext "PlugInEinfuegen"
' DialogTest ( PlugInEinfuegen)
- Durchsuchen.click
- Kontext "OeffnenDlg"
- ' Call DialogTest ( OeffnenDlg )
- if OeffnenDlg.exists (5) then
- OeffnenDlg.Cancel
- else
- warnlog "Open file dialog didn't come up"
- end if
- WaitSlot (5000)
+ Durchsuchen.click
+ Kontext "OeffnenDlg"
+ ' Call DialogTest ( OeffnenDlg )
+ if OeffnenDlg.exists (5) then
+ OeffnenDlg.Cancel
+ else
+ warnlog "Open file dialog didn't come up"
+ end if
+ WaitSlot (5000)
Kontext "PlugInEinfuegen"
- if PlugInEinfuegen.exists then
- '/// insert a '.mov' file : "graphics\required\input\sample.mov" ///'
- DateiUrl.SetText (ConvertPath ( gTesttoolpath + "graphics\required\input\sample.mov" ))
- '/// Type something into the option field, and delete it - quite usefull, heh ?! ///'
-
- Optionen.SetText "Fiddler's Green"
- Optionen.TypeKeys "<HOME>"
- Optionen.TypeKeys "<SHIFT><END>"
- Optionen.TypeKeys "<delete>"
- PlugInEinfuegen.Ok
- else
- warnlog "Insert plugin isn't visible"
- end if
+ if PlugInEinfuegen.exists then
+ DateiUrl.SetText (ConvertPath ( gTesttoolpath + "graphics\required\input\sample.mov" ))
+
+ Optionen.SetText "Fiddler's Green"
+ Optionen.TypeKeys "<HOME>"
+ Optionen.TypeKeys "<SHIFT><END>"
+ Optionen.TypeKeys "<delete>"
+ PlugInEinfuegen.Ok
+ else
+ warnlog "Insert plugin isn't visible"
+ end if
WaitSlot (5000)
kontext "Messagebox"
- if Messagebox.exists (5) then
- warnlog "Messagebox: " + Messagebox.gettext
- Messagebox.ok
- end if
- '/// Edit->Plugin ///'
+ if Messagebox.exists (5) then
+ warnlog "Messagebox: " + Messagebox.gettext
+ Messagebox.ok
+ end if
EditPlugIn
printlog "Editplugin works!"
- '/// close application ///'
Call hCloseDocument
endcase
testcase tiEditHyperlink
- '/// open application ///'
hNewDocument
- '/// Insert->Hyperlink ///'
InsertHyperlink
WaitSlot (5000)
Kontext "Hyperlink"
- 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 'Just to make sure the radio-button is addressable.
- ZielUrl.Settext "http://www.liegerad-fahrer.de"
+ 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 'Just to make sure the radio-button is addressable.
+ ZielUrl.Settext "http://www.liegerad-fahrer.de"
Kontext "Hyperlink"
- Uebernehmen.Click
- Hyperlink.Close
- '/// presupposition to enable edit->hyperlink: <TAB><F2><STRG+a>///'
- hTypeKeys "<TAB><F2>"
+ Uebernehmen.Click
+ Hyperlink.Close
+ hTypeKeys "<TAB><F2>"
EditSelectAll
try
- '/// Edit->Hyperlink ///'
EditHyperlinkDraw
Kontext "Hyperlink"
- if Hyperlink.Exists then
- '/// close dialog 'Hyperlink' ///'
- Hyperlink.Close
- else
- Warnlog "- Hyperlinkdialog not up"
- end if
+ if Hyperlink.Exists then
+ Hyperlink.Close
+ else
+ Warnlog "- Hyperlinkdialog not up"
+ end if
catch
Warnlog "- Not able to edit Hyperlink!"
endcatch
- '/// close application ///'
Call hCloseDocument
endcase
diff --git a/testautomation/graphics/optional/includes/global/id_003.inc b/testautomation/graphics/optional/includes/global/id_003.inc
index 258ae7504340..13f61c45d791 100755
--- a/testautomation/graphics/optional/includes/global/id_003.inc
+++ b/testautomation/graphics/optional/includes/global/id_003.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
@@ -46,188 +46,140 @@
'\**********************************************************************************
testcase tiViewNavigator
- '/// open application ///'
Call hNewDocument
Kontext "NavigatorDraw"
- '/// if 'Navigator' isn't already open, open it (View->Navigator)///'
- if Not NavigatorDraw.Exists Then
- ViewNavigator
- end if
+ if Not NavigatorDraw.Exists Then
+ ViewNavigator
+ end if
Kontext "NavigatorDraw"
- Call DialogTest ( NavigatorDraw )
-
- try
- Kontext "Navigator"
- '/// close 'Navigator' ///'
- Navigator.Close
- catch
- Errorlog " Navigator wasn't closed, second try with Menu"
- ViewNavigator
- endcatch
- '/// close application ///'
+ Call DialogTest ( NavigatorDraw )
+
+ try
+ Kontext "Navigator"
+ Navigator.Close
+ catch
+ Errorlog " Navigator wasn't closed, second try with Menu"
+ ViewNavigator
+ endcatch
Call hCloseDocument
endcase
'-------------------------------------------------------------------------
testcase tiViewZoom
-'/// open application ///'
- Call hNewDocument
- UseBindings
- ViewZoom
- Kontext "Massstab"
- DialogTest ( Massstab )
- Massstab.Cancel
-'/// close application ///'
- Call hCloseDocument
+ Call hNewDocument
+ UseBindings
+ ViewZoom
+ Kontext "Massstab"
+ DialogTest ( Massstab )
+ Massstab.Cancel
+ Call hCloseDocument
endcase
'-------------------------------------------------------------------------
testcase tiViewToolbar
-'/// including ruler & statusbar ///'
-'/// open application ///'
- Call hNewDocument
+ Call hNewDocument
-'/// View->Toolbars->ThreeDSettings ///'
ViewToolbarsThreeDSettings
WaitSlot (1000)
-'/// View->Toolbars->ThreeDSettings ///'
ViewToolbarsThreeDSettings
WaitSlot (1000)
-'/// View->Toolbars->Align ///'
ViewToolbarsAlign
WaitSlot (1000)
-'/// View->Toolbars->Align ///'
ViewToolbarsAlign
WaitSlot (1000)
-'/// View->Toolbars->Tools ///'
ViewToolbarsTools
WaitSlot (1000)
-'/// View->Toolbars->Tools ///'
ViewToolbarsTools
WaitSlot (1000)
-'/// View->Toolbars->Bezier ///'
ViewToolbarsBezier
WaitSlot (1000)
-'/// View->Toolbars->Bezier ///'
ViewToolbarsBezier
WaitSlot (1000)
-'/// View->Toolbars->Fontwork ///'
ViewToolbarsFontwork
WaitSlot (1000)
-'/// View->Toolbars->Fontwork ///'
ViewToolbarsFontwork
WaitSlot (1000)
' if gApplication = "IMPRESS" then
- '/// View->Toolbars->Presentation ///'
' ViewToolbarsPresentation ' only in impress, not draw
- '/// View->Toolbars->Presentation ///'
' ViewToolbarsPresentation
' endif
-'/// View->Toolbars->Form Controls ///'
ViewToolbarsFormControls
WaitSlot (1000)
-'/// View->Toolbars->Form Controls ///'
ViewToolbarsFormControls
WaitSlot (1000)
-'-----------------
-'/// View->Toolbars->Form Design ///'
+ '-----------------
ViewToolbarsFormDesign
WaitSlot (1000)
-'/// View->Toolbars->Form Design ///'
ViewToolbarsFormDesign
WaitSlot (1000)
-'/// View->Toolbars->FormNavigation ///'
ViewToolbarsFormNavigation
WaitSlot (1000)
-'/// View->Toolbars->FormNavigation ///'
ViewToolbarsFormNavigation
WaitSlot (1000)
-'/// View->Toolbars->Gluepoints ///'
ViewToolbarsGluepoints
WaitSlot (1000)
-'/// View->Toolbars->Gluepoints ///'
ViewToolbarsGluepoints
WaitSlot (1000)
-'/// View->Toolbars->Insert ///'
ViewToolbarsInsert
WaitSlot (1000)
-'/// View->Toolbars->Insert ///'
ViewToolbarsInsert
WaitSlot (1000)
-'/// View->Toolbars->Graphic ///'
ViewToolbarsGraphic
WaitSlot (1000)
-'/// View->Toolbars->Graphic ///'
ViewToolbarsGraphic
WaitSlot (1000)
-'/// View->Toolbars->MediaPlayback ///'
ViewToolbarsMediaPlayback
WaitSlot (1000)
-'/// View->Toolbars->MediaPlayback ///'
ViewToolbarsMediaPlayback
WaitSlot (1000)
-'/// View->Toolbars->Optionbar ///'
ViewToolbarsOptionbar
WaitSlot (1000)
-'/// View->Toolbars->Optionbar ///'
ViewToolbarsOptionbar
WaitSlot (1000)
-'/// View->Toolbars->Picture ///'
ViewToolbarsPicture
WaitSlot (1000)
-'/// View->Toolbars->Picture ///'
ViewToolbarsPicture
WaitSlot (1000)
-'/// View->Toolbars->Standard ///'
ViewToolbarsStandard
WaitSlot (1000)
-'/// View->Toolbars->Standard ///'
ViewToolbarsStandard
WaitSlot (1000)
-'/// View->Toolbars->Standard View ///'
ViewToolbarsStandardView
WaitSlot (1000)
-'/// View->Toolbars->Standard View ///'
ViewToolbarsStandardView
WaitSlot (1000)
-'/// View->Toolbars->Hyperlinkbar ///'
ViewToolbarsHyperlinkbar
WaitSlot (1000)
-'/// View->Toolbars->Hyperlinkbar ///'
ViewToolbarsHyperlinkbar
WaitSlot (1000)
-'/// View->Toolbars->ColorBar ///'
ViewToolbarsColorBar
WaitSlot (1000)
-'/// View->Toolbars->ColorBar ///'
ViewToolbarsColorBar
WaitSlot (1000)
-'/// View->Toolbars->Customize ///'
ViewToolbarsCustomize
WaitSlot (1000)
Kontext
- '/// switch to tabpage 'Menus' ///'
try
Messagebox.SetPage TabCustomizeMenu ' 1 ------------------
catch
@@ -239,13 +191,10 @@ testcase tiViewToolbar
Menu.typeKeys("<down>")
Entries.typeKeys("<down>")
sleep 2
- '/// click button 'new' ///'
BtnNew.Click
sleep 1
- '/// Dialog 'New Menu' comes up ///'
Kontext "MenuOrganiser"
Call DialogTest ( MenuOrganiser )
- '/// Cancel dialog 'New Menu' ///'
MenuOrganiser.cancel
sleep 1
Kontext "TabCustomizeMenu"
@@ -253,21 +202,17 @@ testcase tiViewToolbar
end if
sleep (1)
-'/// close application ///'
- Call hCloseDocument
+ Call hCloseDocument
endcase
'-------------------------------------------------------------------------
testcase tiViewDisplayQuality
- '/// open application ///'
Call hNewDocument
- '/// create a rectangle ///'
Call hRechteckErstellen 20,20,40,40
try
- '/// View->Display Quality->Black and White ///'
ViewQualityBlackWhite
Printlog "- Quality set to black and white"
catch
@@ -275,7 +220,6 @@ testcase tiViewDisplayQuality
endcatch
WaitSlot (1000)
try
- '/// View->Display Quality->Greyscale ///'
ViewQualityGreyscale
Printlog "- View quality set to greyscale"
catch
@@ -283,75 +227,52 @@ testcase tiViewDisplayQuality
endcatch
WaitSlot (1000)
try
- '/// View->Display Quality->Colour ///'
ViewQualityColour
Printlog "- View quality set to colour"
catch
Warnlog "- View quality colour could not be accessed"
endcatch
- '/// close application ///'
Call hClosedocument
endcase
'-------------------------------------------------------------------------
testcase tiViewLayer
- '/// open application ///'
Call hNewDocument
- '/// Insert->Layer / in impress: ???? ///'
- '/// View->Layer ///'
ViewLayer
WaitSlot (1000)
- '/// View->Layer ///'
ViewLayer
- '/// close application ///'
Call hCloseDocument
endcase
'-------------------------------------------------------------------------
testcase tViewGrid
- '/// open application ///'
Call hNewDocument
- '/// View->Grid-> ///'
ViewGridVisible
- '/// View->Grid-> ///'
ViewGridUse
- '/// View->Grid-> ///'
ViewGridFront
- '/// View->Grid-> ///'
ViewGridVisible
- '/// View->Grid-> ///'
ViewGridUse
- '/// View->Grid-> ///'
ViewGridFront
WaitSlot (1000)
- '/// close application ///'
Call hCloseDocument
endcase
'-------------------------------------------------------------------------
testcase tViewSnapLines
- '/// open application ///'
Call hNewDocument
- '/// View->Snap Lines-> ///'
ViewSnapLinesVisible
- '/// View->Snap Lines-> ///'
ViewSnapLinesUse
- '/// View->Snap Lines-> ///'
ViewSnapLinesFront
- '/// View->Snap Lines-> ///'
ViewSnapLinesVisible
- '/// View->Snap Lines-> ///'
ViewSnapLinesUse
- '/// View->Snap Lines-> ///'
ViewSnapLinesFront
WaitSlot (1000)
- '/// close application ///'
Call hCloseDocument
endcase
diff --git a/testautomation/graphics/optional/includes/global/id_004.inc b/testautomation/graphics/optional/includes/global/id_004.inc
index f74d3f8b7228..606ccbefaac5 100755
--- a/testautomation/graphics/optional/includes/global/id_004.inc
+++ b/testautomation/graphics/optional/includes/global/id_004.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
@@ -56,437 +56,339 @@
' #1 tdInsertLayer
'\**********************************************************************************
-'/// Dateiname.settext Convertpath (gTesttoolPath + "global\input\graf_inp\stabler.tif") ///'
testcase tiInsertSlide
- '/// open application ///'
Call hNewDocument
- '/// Insert->Slide ///'
InsertSlide
WaitSlot (2000)
hTypekeys "<Pagedown>"
WaitSlot (2000) 'sleep 2
- '/// close application ///'
Call hCloseDocument
endcase
testcase tiInsertDuplicateSlide
- '/// open application ///'
Call hNewDocument
- '/// create rectangle ///'
Call hRechteckErstellen ( 30, 40, 40, 50 )
- '/// Insert->Duplicate Slide ///'
InsertDuplicateSlide
WaitSlot (2000)
- '/// close application ///'
Call hCloseDocument
endcase
testcase tiInsertField
- '/// open application ///'
Call hNewDocument
- '/// Insert->Fields->Time (fixed) ///'
InsertFieldsTimeFix
WaitSlot (1000)
printlog "OK Time Fix"
- '/// delete it with EditSelectAll + <Delete> ///'
EditSelectAll
hTypekeys "<Delete>"
sleep 1
- '/// Insert->Fields->Date (fixed) ///'
InsertFieldsDateFix
WaitSlot (1000)
printlog "OK Date Fix"
- '/// delete it with EditSelectAll + <Delete> ///'
EditSelectAll
hTypekeys "<Delete>"
sleep 1
- '/// Insert->Fields->Time (variable) ///'
InsertFieldsTimeVariable
WaitSlot (1000)
printlog "OK Time Variabel"
- '/// delete it with EditSelectAll + <Delete> ///'
EditSelectAll
hTypekeys "<Delete>"
sleep 1
- '/// Insert->Fields->Date (variable) ///'
InsertFieldsDateVariable
WaitSlot (1000)
printlog "OK Date Variabel"
- '/// delete it with EditSelectAll + <Delete> ///'
EditSelectAll
hTypekeys "<Delete>"
sleep 1
- '/// Insert->Fields->Author ///'
InsertFieldsAuthorDraw
WaitSlot (1000)
printlog "OK Author"
- '/// delete it with EditSelectAll + <Delete> ///'
EditSelectAll
hTypekeys "<Delete>"
sleep 1
- '/// Insert->Fields->Page Numbers///'
InsertFieldsPageNumberDraw
WaitSlot (1000)
printlog "OK Page number"
- '/// delete it with EditSelectAll + <Delete> ///'
EditSelectAll
hTypekeys "<Delete>"
sleep 1
- '/// Insert->Fields->Filename ///'
InsertFieldsFileName
WaitSlot (1000) 'sleep 1
printlog "OK File name"
- '/// delete it with EditSelectAll + <Delete> ///'
EditSelectAll
hTypekeys "<Delete>"
sleep 2
- '/// close application ///'
Call hCloseDocument
endcase
testcase tiInsertSpecialCharacter
- '/// open application ///'
Call hNewDocument
- '/// insert text ///'
hTextrahmenErstellen ("This is a testtext",30,40,60,50)
sleep 2
- '/// Insert->SpecialCharacter ///'
InsertSpecialCharacterDraw
WaitSlot (2000)
Kontext "Sonderzeichen"
- Call DialogTest (Sonderzeichen)
- '/// cancel dialog 'Special Characters' ///'
- Sonderzeichen.Cancel
- sleep 2
- '/// close application ///'
+ Call DialogTest (Sonderzeichen)
+ Sonderzeichen.Cancel
+ sleep 2
Call hCloseDocument
endcase
testcase tiInsertHyperlink
- '/// open application ///'
Call hNewDocument
- '/// Insert->Hyperlink ///'
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
- '/// close application ///'
+ 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
- '/// open application ///'
Call hNewDocument
- '/// Insert->Graphics ///'
InsertGraphicsFromFile
WaitSlot (2000) '
try
Kontext "GrafikEinfuegenDlg"
- '/// if checkbox 'link' is available, check it; if not available: ERROR ///'
- if Link.exists then
- Link.Check
- else
- Warnlog "Linking grafik doesn't work :-("
- end if
- '/// if checkbox 'Preview' is available, check it; if not available: ERROR ///'
- if Preview.exists then
- Preview.Check
- else
- Warnlog "Preview of graphic doesn't work :-("
- end if
- DialogTest (GrafikEinfuegenDlg)
-
- '/// use file: "global\input\graf_inp\stabler.tif") ///'
- Dateiname.settext Convertpath (gTesttoolPath + "global\input\graf_inp\stabler.tif")
- '/// click 'open' ///'
- Oeffnen.click
+ 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
- '/// close application ///'
Call hCloseDocument
endcase
testcase tiInsertObjectSound
goto endsub ' disabled for final, because always wrong (TZ 01/2002)
'TODO: TBO: enhance!
- '/// open application ///'
Call hNewDocument
try
- '/// Insert->Object->Sound ///'
InsertObjectSound
WaitSlot (1000)
Kontext "OeffnenDlg"
- ' Call Dialogtest (OeffnenDlg) ' just be sure to check one pth and one open dialog : TZ 28.11.201
+ ' Call Dialogtest (OeffnenDlg) ' just be sure to check one pth and one open dialog : TZ 28.11.201
- '/// cancel file open dialog ///'
- OeffnenDlg.Cancel
+ OeffnenDlg.Cancel
catch
printlog "'Insert -> Object -> Sound' not available. TestDevelopmentInProgress (TDIP) ;-)"
endcatch
- '/// close application ///'
Call hCloseDocument
endcase
testcase tiInsertObjectVideo
goto endsub
'TODO: TBO: enhance!
- '/// open application ///'
Call hNewDocument
try
- '/// Insert->Object->Video ///'
InsertObjectVideo
Kontext "OeffnenDlg"
- ' Call Dialogtest (OeffnenDlg)
- WaitSlot (1000)
- '/// cancel file open dialog ///'
- OeffnenDlg.Cancel
+ ' Call Dialogtest (OeffnenDlg)
+ WaitSlot (1000)
+ OeffnenDlg.Cancel
catch
printlog "'Insert -> Object -> Video' not available. (TDIP) ;-)"
endcatch
- '/// close application ///'
Call hCloseDocument
endcase
testcase tiInsertChart
- '/// open application ///'
Call hNewDocument
- '/// Insert->Chart ///'
InsertChart
WaitSlot (2000)
Kontext "Messagebox"
- if Messagebox.Exists then
- Warnlog Messagebox.GetText
- Messagebox.OK
- sleep 1
- end if
+ if Messagebox.Exists then
+ Warnlog Messagebox.GetText
+ Messagebox.OK
+ sleep 1
+ end if
gMouseClick 1,1
sleep 2
- '/// close application ///'
Call hCloseDocument
endcase
testcase tiInsertObjectOLEObjects
- '/// open application ///'
hNewDocument
- '/// Insert->Object->OLEObjekts ///'
InsertObjectOLEObject
Kontext "OLEObjektEinfuegen"
- ' Call Dialogtest ( OLEObjektEinfuegen )
- ' NeuErstellen.Check ' is default value
- Call DialogTest (OLEObjektEinfuegen, 1)
- '/// check 'Create from file' ///'
- AusDateiErstellen.Check
- Call DialogTest (OLEObjektEinfuegen, 2)
- '/// click 'Search...' ///'
- Durchsuchen.click
- Kontext "OeffnenDlG"
- '/// cancel file open dialog ///'
- OeffnenDLG.Cancel
+ ' 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"
- '/// cancel dialog 'insert OLE Object' ///'
- OLEObjektEinfuegen.Cancel
- sleep 1
- '/// close application ///'
+ OLEObjektEinfuegen.Cancel
+ sleep 1
Call hCloseDocument
endcase
testcase tiInsertSpreadsheet
if gtSYSName = "Linux" then
printlog "Linux = wont test tiInsertSpreadsheet"
- goto endsub
-endif
+ goto endsub
+ endif
-'/// open application ///'
Call hNewDocument
WaitSlot (2000)
- '/// Insert->Spreadsheet ///'
InsertSpreadsheetDraw
WaitSlot (2000)
Kontext "Messagebox"
- if Messagebox.Exists (5) then
- Warnlog Messagebox.GetText
- Messagebox.OK
- end if
- sleep 2
- '/// click somewhere out of the object, to deselect it ///'
- gMouseClick 1,1
- sleep 1
- '/// select and delete object with keys: <Tab><Delete> ///'
- hTypekeys "<Tab><Delete>"
- sleep 2
- '/// close application ///'
+ 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
- '/// open application ///'
Call hNewDocument
- '/// Insert->Object->Formula ///'
InsertObjectFormulaDraw
WaitSlot (2000)
Kontext "Messagebox"
- if Messagebox.Exists then
- Warnlog Messagebox.GetText
- Messagebox.OK
- sleep 1
- end if
- '/// click somewhere out of the object, to deselect it ///'
- gMouseClick 1,1
+ if Messagebox.Exists then
+ Warnlog Messagebox.GetText
+ Messagebox.OK
sleep 1
- '/// select and delete object with keys: <Tab><Delete> ///'
- hTypekeys "<Tab><Delete>"
- '/// close application ///'
+ end if
+ gMouseClick 1,1
+ sleep 1
+ hTypekeys "<Tab><Delete>"
Call hCloseDocument
endcase
testcase tiInsertFloatingFrame
- '/// open application ///'
Call hNewDocument
- '/// Insert->Floating Frame ///'
InsertFloatingFrame
WaitSlot (2000)
Kontext "TabEigenschaften"
- Dialogtest (TabEigenschaften)
- '/// click '...' ///'
- Oeffnen.Click
- Kontext "OeffnenDlg"
- sleep 1
- '/// cancel file open dialog ///'
- OeffnenDlg.Cancel
+ Dialogtest (TabEigenschaften)
+ Oeffnen.Click
+ Kontext "OeffnenDlg"
+ sleep 1
+ OeffnenDlg.Cancel
Kontext "TabEigenschaften"
- '/// cancel dialog 'Floating Frame Properties' ///'
- TabEigenschaften.Cancel
- '/// close application ///'
+ TabEigenschaften.Cancel
Call hCloseDocument
endcase
testcase tiInsertFile
- '/// open application ///'
Call hNewDocument
WaitSlot (1000)
- '/// Insert->File ///'
InsertFileDraw
WaitSlot (1000)
Kontext "OeffnenDLG"
- ' Call Dialogtest ( OeffnenDLG )
- '/// cancel file open dialog ///'
- OeffnenDLG.Cancel
- '/// close application ///'
+ ' Call Dialogtest ( OeffnenDLG )
+ OeffnenDLG.Cancel
Call hCloseDocument
endcase
testcase tiInsertPlugin
- '/// open application ///'
call hNewDocument
- '/// Insert->Object->PlugIn ///'
InsertObjectPlugIn
Kontext "PluginEinfuegen"
- if PluginEinfuegen.exists (5) then
- call Dialogtest (PluginEinfuegen)
- '/// click 'browse' ///'
- Durchsuchen.Click
+ 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
- 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
- '/// cancel file open dialog ///'
- OeffnenDLG.Cancel
- end if
- Kontext "PluginEinfuegen"
- '/// cancel dialog 'Insert Plug-in' ///'
+ OeffnenDLG.Cancel
+ end if
+ Kontext "PluginEinfuegen"
if PluginEinfuegen.exists (5) then PluginEinfuegen.Cancel
else
warnlog "Insert Plugin does not work :-("
end if
- '/// close application ///'
- Call hCloseDocument
+ Call hCloseDocument
endcase
testcase tiInsertScan
goto endsub
- '/// DISABLED because not able to make automatic :-( ///'
- '/// open application ///'
Call hNewDocument
- '/// Insert->Scan->Request ///'
InsertScanRequest ' as long as there is no scanner available, nothing happens
WaitSlot (1000)
- '/// Insert->Scan->SelectSource ///'
InsertScanSelectSource
WaitSlot (1000)
printlog "Not testable, not translatable, just callable, because of systemdialog :-("
- '/// close application ///'
Call hCloseDocument
endcase
testcase tiInsertSnappointLine
- '/// open application ///'
Call hNewDocument
- '/// DRAW : Insert->Snap Point/Line ///'
- '/// + IMPRESS: available via Kontext menu: Insert->Snap Point/Line ///'
InsertSnapPointLine
Kontext "NeuesFangobjekt"
- DialogTest ( NeuesFangobjekt )
- '/// Cancel dialog 'New Snap Object' ///'
- NeuesFangobjekt.Cancel
- sleep 2
- '/// close application ///'
+ DialogTest ( NeuesFangobjekt )
+ NeuesFangobjekt.Cancel
+ sleep 2
Call hCloseDocument
endcase
testcase tdInsertLayer
- '/// open application ///'
Call hNewDocument
WaitSlot (1000)
- '/// View->Layer ///'
ViewLayer
- '/// Insert->Layer ///'
InsertLayer
Kontext "EbeneEinfuegenDlg"
- DialogTest ( EbeneEinfuegenDlg )
- '/// cancel dialog 'Insert Layer' ///'
- EbeneEinfuegenDlg.Cancel
- '/// close application ///'
+ DialogTest ( EbeneEinfuegenDlg )
+ EbeneEinfuegenDlg.Cancel
Call hCloseDocument
endcase
diff --git a/testautomation/graphics/optional/includes/global/id_005.inc b/testautomation/graphics/optional/includes/global/id_005.inc
index cbc49ca9ea23..f40f7ac80d18 100755
--- a/testautomation/graphics/optional/includes/global/id_005.inc
+++ b/testautomation/graphics/optional/includes/global/id_005.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
@@ -59,768 +59,586 @@
testcase tiFormatDefault
- '/// open application ///'
Call hNewDocument
- '/// create rectangle ///'
gMouseClick 50,50
Call hRechteckErstellen ( 10, 10, 20, 40 )
- '/// Format->Default ///'
FormatStandardDraw
- '/// close application ///'
Call hCloseDocument
endcase
testcase tiFormatLine
- '/// open application ///'
hNewDocument
- '/// create rectangle ///'
gMouseClick 50,50
Call hRechteckErstellen ( 10, 10, 20, 40 )
- '/// Format->Line ///'
FormatLine
- '/// switch to tabpage 'Line' ///'
Kontext
Messagebox.SetPage TabLinie
kontext "TabLinie"
Call DialogTest ( TabLinie )
- '/// switch to tabpage 'Line Styles' ///'
Kontext
Messagebox.SetPage TabLinienstile
kontext "TabLinienstile"
Call DialogTest ( TabLinienstile )
- '/// click 'add...' ///'
Hinzufuegen.click
Kontext "NameDLG"
- Call DialogTest ( NameDlg )
- '/// cancel dialog 'name' ///'
- NameDlg.Cancel
+ Call DialogTest ( NameDlg )
+ NameDlg.Cancel
kontext "TabLinienstile"
- '/// click 'modify...' ///'
- Aendern.Click
- Kontext "NameDlg"
- Call DialogTest ( NameDlg )
- '/// cancel dialog 'name' ///'
- NameDlg.Cancel
+ Aendern.Click
+ Kontext "NameDlg"
+ Call DialogTest ( NameDlg )
+ NameDlg.Cancel
kontext "TabLinienstile"
- '/// click 'delete...' ///'
- Loeschen.Click
- '/// say NO to messagebox ///'
- Kontext "Messagebox"
- Messagebox.no
+ Loeschen.Click
+ Kontext "Messagebox"
+ Messagebox.no
kontext "TabLinienstile"
- '/// click 'load line styles' ///'
- Oeffnen.click
- Kontext "OeffnenDLG"
- call Dialogtest (OeffnenDLG)
- '/// cancel dialog 'open' ///'
- OeffnenDLG.Cancel
+ Oeffnen.click
+ Kontext "OeffnenDLG"
+ call Dialogtest (OeffnenDLG)
+ OeffnenDLG.Cancel
kontext "TabLinienstile"
- '/// click 'save line styles' ///'
- Speichern.click
- Kontext "SpeichernDLG"
- call Dialogtest (SpeichernDLG)
- '/// cancel dialog 'save' ///'
- SpeichernDLG.Cancel
- '/// switch to tabpage 'Arrow Styles' ///'
- Kontext
- Messagebox.SetPage TabLinienenden
- kontext "TabLinienenden"
- Call DialogTest ( TabLinienenden )
- '/// click 'add...' ///'
- Hinzufuegen.Click
- Kontext "NameDLG"
- Call DialogTest ( NameDlg )
- '/// cancel dialog 'name' ///'
- NameDlg.Cancel
-
- kontext "TabLinienenden"
- '/// click 'modify...' ///'
- Aendern.Click
- Kontext "Messagebox"
- try
- '/// say OK to messagebox ///'
- Messagebox.OK
- catch
- 'print "TabLinienenden"
- endcatch
-
- kontext "NameDlg"
- Call DialogTest ( NameDlg )
- '/// cancel dialog 'name' ///'
- NameDlg.Cancel
+ Speichern.click
+ Kontext "SpeichernDLG"
+ call Dialogtest (SpeichernDLG)
+ SpeichernDLG.Cancel
+ Kontext
+ Messagebox.SetPage TabLinienenden
+ kontext "TabLinienenden"
+ Call DialogTest ( TabLinienenden )
+ Hinzufuegen.Click
+ Kontext "NameDLG"
+ Call DialogTest ( NameDlg )
+ NameDlg.Cancel
kontext "TabLinienenden"
- '/// click 'delete...' ///'
- Loeschen.Click
- Kontext "Messagebox"
- '/// say NO to messagebox ///'
- Messagebox.no
+ Aendern.Click
+ Kontext "Messagebox"
+ try
+ Messagebox.OK
+ catch
+ 'print "TabLinienenden"
+ endcatch
+
+ kontext "NameDlg"
+ Call DialogTest ( NameDlg )
+ NameDlg.Cancel
+
+ kontext "TabLinienenden"
+ Loeschen.Click
+ Kontext "Messagebox"
+ Messagebox.no
kontext "TabLinienenden"
- '/// click 'load arrow styles' ///'
- Oeffnen.click
- Kontext "OeffnenDLG"
- call Dialogtest (OeffnenDLG)
- '/// cancel dialog 'open' ///'
- OeffnenDLG.Cancel
- kontext "TabLinienenden"
- '/// click 'save arrow styles' ///'
- Speichern.click
- Kontext "SpeichernDLG"
- call Dialogtest (SpeichernDLG)
- '/// cancel dialog 'save' ///'
- SpeichernDlg.Cancel
- kontext "TabLinienenden"
- '/// cancel dialog 'line' ///'
- TabLinienenden.cancel
- '/// close application ///'
+ Oeffnen.click
+ Kontext "OeffnenDLG"
+ call Dialogtest (OeffnenDLG)
+ OeffnenDLG.Cancel
+ kontext "TabLinienenden"
+ Speichern.click
+ Kontext "SpeichernDLG"
+ call Dialogtest (SpeichernDLG)
+ SpeichernDlg.Cancel
+ kontext "TabLinienenden"
+ TabLinienenden.cancel
Call hCloseDocument
endcase
testcase tdFormatArea
- '/// open application ///'
Call hNewDocument
- '/// create rectangle ///'
gMouseClick 50,50
Call hRechteckErstellen (15,15,65,65)
gMouseClick 30,30
- '/// Format->Area ///'
FormatArea
WaitSlot (1000)
Kontext
- '/// switch to tabpage 'Area' ///'
Messagebox.SetPage TabArea
Kontext "TabArea"
- Call DialogTest ( TabArea )
- Kontext
- '/// switch to tabpage 'Shadow' ///'
- Messagebox.SetPage TabSchatten
+ Call DialogTest ( TabArea )
+ Kontext
+ Messagebox.SetPage TabSchatten
kontext "TabSchatten"
- Anzeigen.Check
- Call DialogTest ( TabSchatten )
- '/// switch to tabpage 'Transparency' ///'
+ Anzeigen.Check
+ Call DialogTest ( TabSchatten )
Kontext
- '/// switch to tabpage 'Colors' ///'
Messagebox.SetPage TabFarben
kontext "TabFarben"
- '/// select the 1st 'color' in the listbox ///'
- Farbe.select 1
- '/// select the 1st 'color model' in the listbox ///'
- Farbmodell.Select 1
- Call DialogTest ( TabFarben,1 )
- '/// select the 2nd 'color model' in the listbox ///'
- Farbmodell.Select 2
- Call DialogTest ( TabFarben,2 )
-
- '/// click button 'Add' ///'
- Hinzufuegen.click
- Kontext "Messagebox"
- '/// say OK to the messagebox: the name already exists ///'
- Messagebox.OK
- kontext "NameDlg"
- Call DialogTest ( NameDlg )
- '/// cancel dialog 'Name' ///'
- NameDlg.Cancel
+ Farbe.select 1
+ Farbmodell.Select 1
+ Call DialogTest ( TabFarben,1 )
+ Farbmodell.Select 2
+ Call DialogTest ( TabFarben,2 )
+
+ Hinzufuegen.click
+ Kontext "Messagebox"
+ Messagebox.OK
+ kontext "NameDlg"
+ Call DialogTest ( NameDlg )
+ NameDlg.Cancel
kontext "TabFarben"
- '/// click button 'Delete' ///'
- Loeschen.click
+ Loeschen.click
Kontext "Messagebox"
- '/// say NO to the messagebox: realy delete? ///'
- Messagebox.no
+ Messagebox.no
kontext "TabFarben"
- sleep 1
- '/// click button 'Save color List' ///'
- Speichern.click
- Kontext "SpeichernDLG"
- call Dialogtest (SpeichernDLG)
- '/// cancel dialog 'save as' ///'
- SpeichernDlg.Cancel
- sleep 1
+ sleep 1
+ Speichern.click
+ Kontext "SpeichernDLG"
+ call Dialogtest (SpeichernDLG)
+ SpeichernDlg.Cancel
+ sleep 1
kontext "TabFarben"
- '/// click button 'Load color List' ///'
- Oeffnen.click
- Kontext "OeffnenDLG"
- call Dialogtest (OeffnenDLG)
- '/// cancel dialog 'open' ///'
- OeffnenDLG.Cancel
+ Oeffnen.click
+ Kontext "OeffnenDLG"
+ call Dialogtest (OeffnenDLG)
+ OeffnenDLG.Cancel
Kontext "TabFarben"
Kontext
- '/// switch to tabpage 'Gradients' ///'
Messagebox.SetPage TabFarbverlaeufe
kontext "TabFarbverlaeufe"
- Call DialogTest ( TabFarbverlaeufe )
+ Call DialogTest ( TabFarbverlaeufe )
- '/// click button 'Add' ///'
- Hinzufuegen.click
- Kontext "NameDlg"
- Call DialogTest ( NameDlg )
- '/// cancel dialog 'Name' ///'
- NameDlg.Cancel
+ Hinzufuegen.click
+ Kontext "NameDlg"
+ Call DialogTest ( NameDlg )
+ NameDlg.Cancel
- kontext "TabFarbverlaeufe"
- '/// click button 'Mofify' ///'
- Aendern.Click
- Kontext "NameDlg"
- Call DialogTest ( NameDlg )
- '/// cancel dialog 'Name' ///'
- NameDlg.Cancel
+ kontext "TabFarbverlaeufe"
+ Aendern.Click
+ Kontext "NameDlg"
+ Call DialogTest ( NameDlg )
+ NameDlg.Cancel
kontext "TabFarbverlaeufe"
- '/// click button 'Delete' ///'
loeschen.click
try
kontext "Messagebox"
- '/// say NO to the messagebox: realy delete? ///'
Messagebox.no
catch
warnlog "nobody cares about deleting a gradient :-("
endcatch
kontext "TabFarbverlaeufe"
- '/// click button 'Load gradients List' ///'
- Oeffnen.click
- Kontext "OeffnenDLG"
- call Dialogtest (OeffnenDLG)
- '/// cancel dialog 'open' ///'
- OeffnenDLG.Cancel
- kontext "TabFarbverlaeufe"
- '/// click button 'Save gradients List' ///'
- Speichern.click
- Kontext "SpeichernDLG"
- call Dialogtest (SpeichernDLG)
- '/// cancel dialog 'save as' ///'
- SpeichernDLG.Cancel
+ Oeffnen.click
+ Kontext "OeffnenDLG"
+ call Dialogtest (OeffnenDLG)
+ OeffnenDLG.Cancel
+ kontext "TabFarbverlaeufe"
+ Speichern.click
+ Kontext "SpeichernDLG"
+ call Dialogtest (SpeichernDLG)
+ SpeichernDLG.Cancel
Kontext
- '/// switch to tabpage 'Hatching' - <Gesundheit!> ;-) ///'
Messagebox.SetPage TabSchraffuren
- kontext "TabSchraffuren"
- Call DialogTest ( TabSchraffuren)
+ kontext "TabSchraffuren"
+ Call DialogTest ( TabSchraffuren)
- '/// click button 'Add' ///'
- Hinzufuegen.click
- Kontext "NameDlg"
- Call DialogTest ( NameDlg )
- '/// cancel dialog 'Name' ///'
- NameDlg.Cancel
+ Hinzufuegen.click
+ Kontext "NameDlg"
+ Call DialogTest ( NameDlg )
+ NameDlg.Cancel
kontext "TabSchraffuren"
- '/// click button 'Modify' ///'
Aendern.Click
Kontext "NameDlg"
- Call DialogTest ( NameDlg )
- '/// cancel dialog 'Name' ///'
- NameDlg.Cancel
+ Call DialogTest ( NameDlg )
+ NameDlg.Cancel
kontext "TabSchraffuren"
- '/// click button 'Delete' ///'
- Loeschen.click
- kontext "Messagebox"
- '/// say NO to the messagebox: realy delete? ///'
- Messagebox.no
+ Loeschen.click
+ kontext "Messagebox"
+ Messagebox.no
kontext "TabSchraffuren"
- '/// click button 'Load hatches List' ///'
- Oeffnen.click
- Kontext "OeffnenDLG"
- call Dialogtest (OeffnenDLG)
- '/// cancel dialog 'open' ///'
- OeffnenDLG.Cancel
+ Oeffnen.click
+ Kontext "OeffnenDLG"
+ call Dialogtest (OeffnenDLG)
+ OeffnenDLG.Cancel
kontext "TabSchraffuren"
- '/// click button 'Save hatches List' ///'
- Speichern.click
- Kontext "SpeichernDLG"
- call Dialogtest (SpeichernDLG)
- '/// cancel dialog 'save as' ///'
- SpeichernDLG.Cancel
+ Speichern.click
+ Kontext "SpeichernDLG"
+ call Dialogtest (SpeichernDLG)
+ SpeichernDLG.Cancel
Kontext
- '/// switch to tabpage 'Bitmaps' ///'
Messagebox.SetPage TabBitmap
kontext "TabBitmap"
- Call DialogTest ( TabBitmap )
- '/// click button 'Reset' ///'
- zurueck.click
- sleep 1
- '/// click button 'Add' ///'
- hinzufuegen.click
- Kontext "NameDlg"
- Call DialogTest ( NameDlg )
- '/// cancel dialog 'Name' ///'
- NameDlg.cancel
+ Call DialogTest ( TabBitmap )
+ zurueck.click
+ sleep 1
+ hinzufuegen.click
+ Kontext "NameDlg"
+ Call DialogTest ( NameDlg )
+ NameDlg.cancel
kontext "TabBitmap"
try
- '/// click button 'Modify' ///'
Aendern.Click
Kontext "NameDlg"
- Call DialogTest ( NameDlg )
- '/// cancel dialog 'Name' ///'
- NameDlg.cancel
+ Call DialogTest ( NameDlg )
+ NameDlg.cancel
catch
WarnLog "Control is disabled - modify bitmap"
endcatch
kontext "TabBitmap"
- '/// click button 'Import' ///'
- Import.Click
- try
- Kontext "GrafikEinfuegenDlg"
- Call DialogTest ( GrafikEinfuegenDlg )
- Kontext "GrafikEinfuegenDlg"
- '/// cancel dialog 'Import' ///'
- GrafikEinfuegenDlg.Cancel
- catch
- Warnlog "Insert graphic does not work"
- endcatch
+ Import.Click
+ try
+ Kontext "GrafikEinfuegenDlg"
+ Call DialogTest ( GrafikEinfuegenDlg )
+ Kontext "GrafikEinfuegenDlg"
+ GrafikEinfuegenDlg.Cancel
+ catch
+ Warnlog "Insert graphic does not work"
+ endcatch
kontext "TabBitmap"
- '/// click button 'Delete' ///'
- loeschen.click
- kontext "Messagebox"
- '/// say NO to the messagebox: realy delete? ///'
- Messagebox.no
+ loeschen.click
+ kontext "Messagebox"
+ Messagebox.no
kontext "TabBitmap"
- '/// click button 'Load Bitmap List' ///'
- Oeffnen.click
- Kontext "OeffnenDLG"
- call Dialogtest (OeffnenDLG)
- '/// cancel dialog 'open' ///'
- OeffnenDLG.Cancel
+ Oeffnen.click
+ Kontext "OeffnenDLG"
+ call Dialogtest (OeffnenDLG)
+ OeffnenDLG.Cancel
kontext "TabBitmap"
- '/// click button 'Save Bitmap List' ///'
- Speichern.click
- Kontext "SpeichernDLG"
- call Dialogtest (SpeichernDLG)
- '/// cancel dialog 'save as' ///'
- SpeichernDLG.Cancel
+ Speichern.click
+ Kontext "SpeichernDLG"
+ call Dialogtest (SpeichernDLG)
+ SpeichernDLG.Cancel
kontext "TabBitmap"
- '/// cancel dialog 'Area' ///'
- TabBitmap.Cancel
- '/// close application ///'
+ TabBitmap.Cancel
Call hCloseDocument
endcase
testcase tiFormatText
- '/// open application ///'
Call hNewDocument
- '/// Format->Text ///'
FormatTextDraw
Kontext
- '/// switch to tabpage 'Text' ///'
Messagebox.SetPage TabText
Kontext "TabText"
- DialogTest ( TabText )
- Kontext
- '/// switch to tabpage 'Text Animation' ///'
+ DialogTest ( TabText )
+ Kontext
Messagebox.SetPage TabLauftext
Kontext "TabLauftext"
- DialogTest ( TabLauftext )
- '/// cancel dialog 'text' ///'
- TabLauftext.Cancel
- '/// close application ///'
+ DialogTest ( TabLauftext )
+ TabLauftext.Cancel
Call hCloseDocument
endcase
testcase tiFormatPositionAndSize
- '/// open application ///'
Call hNewDocument
- '/// create rectangle ///'
Call hRechteckErstellen ( 10, 10, 20, 40 )
- '/// Format->Position And Size ///'
ContextPositionAndSize
Kontext
- '/// switch to tabpage 'Position' ///'
Messagebox.setpage TabPositionAndSize
Kontext "TabPositionAndSize"
- call Dialogtest ( TabPositionAndSize )
- '/// Type <right> two times in Position : Base Point ///'
- kontext "PositionPosition"
- PositionPosition.TypeKeys ("<right>", 2)
- '/// Type <down> two times in Size : Base Point ///'
- kontext "SizePosition"
- SizePosition.TypeKeys ("<down>", 2)
- Kontext
- '/// switch to tabpage 'Rotation' ///'
+ call Dialogtest ( TabPositionAndSize )
+ kontext "PositionPosition"
+ PositionPosition.TypeKeys ("<right>", 2)
+ kontext "SizePosition"
+ SizePosition.TypeKeys ("<down>", 2)
+ Kontext
Messagebox.setPage TabDrehung
Kontext "TabDrehung"
- call Dialogtest ( TabDrehung )
- Kontext
- '/// switch to tabpage 'Slant & Corner Radius' ///'
+ call Dialogtest ( TabDrehung )
+ Kontext
Messagebox.setpage TabSchraegstellen
Kontext "TabSchraegstellen"
- call Dialogtest ( TabSchraegstellen )
- '/// cancel dialog 'Position and Size' ///'
- TabSchraegstellen.cancel
- '/// close application ///'
+ call Dialogtest ( TabSchraegstellen )
+ TabSchraegstellen.cancel
Call hCloseDocument
endcase
testcase tiFormatCharacter
-'/// open application ///'
- Call hNewDocument
-'/// Format->Character ///'
+ Call hNewDocument
FormatCharacter
WaitSlot (1000)
Kontext
-'/// switch to tabpage 'Font' ///'
- Messagebox.SetPage TabFont
- kontext "TabFont"
- sleep 1
- Call DialogTest ( TabFont )
- Kontext
-'/// switch to tabpage 'Font Effects' ///'
- Messagebox.SetPage TabFontEffects
- kontext "TabFontEffects"
- sleep 1
- Call DialogTest ( TabFontEffects )
- sleep 1
- Kontext
-'/// switch to tabpage 'Position' ///'
- Messagebox.SetPage TabFontPosition
- Kontext "TabFontPosition"
- sleep 1
- Call DialogTest ( TabFontPosition )
- sleep 2
-'/// cancel dialog 'Character' ///'
- TabFontPosition.Cancel
-'/// close application ///'
- Call hCloseDocument
+ Messagebox.SetPage TabFont
+ kontext "TabFont"
+ sleep 1
+ Call DialogTest ( TabFont )
+ Kontext
+ Messagebox.SetPage TabFontEffects
+ kontext "TabFontEffects"
+ sleep 1
+ Call DialogTest ( TabFontEffects )
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabFontPosition
+ Kontext "TabFontPosition"
+ sleep 1
+ Call DialogTest ( TabFontPosition )
+ sleep 2
+ TabFontPosition.Cancel
+ Call hCloseDocument
endcase
testcase tiFormatControlForm
- '/// testcase: check if controls are available
printlog "testcase: check if controls are available"
-
- '/// open new document
+
printlog "open new document"
Call hNewDocument
-
+
'click in the document to get the focus into the document
if ( UCase(gApplication) = "DRAW" ) then
Kontext "DocumentDraw"
- DocumentDraw.MouseDown(50,50)
- DocumentDraw.MouseUp(50,50)
+ DocumentDraw.MouseDown(50,50)
+ DocumentDraw.MouseUp(50,50)
else 'Impress
Kontext "DocumentImpress"
- DocumentImpress.MouseDown(50,50)
- DocumentImpress.MouseUp(50,50)
+ DocumentImpress.MouseDown(50,50)
+ DocumentImpress.MouseUp(50,50)
endif
-
- '/// open the form controls toolbar
+
printlog "open the form controls toolbar"
call hToolbarSelect("FormControls",true)
-
- kontext "FormControls"
- '/// insert a PushButton
+
+ kontext "FormControls"
printlog "insert a PushButton"
Pushbutton.Click
Sleep 1
gMouseMove (50, 20,70, 40)
- '/// open the control properties dialog
printlog "open the control properties dialog"
FormatControl
-
+
Kontext "ControlPropertiesDialog"
WaitSlot (1000)
- '/// close the control properties dialog
printlog "close the control properties dialog"
ControlPropertiesDialog.Close
-
- '/// open the form properties dialog
+
printlog "open the form properties dialog"
FormatForm
Kontext "ControlPropertiesDialog"
WaitSlot (1000)
- '/// close the form properties dialog
printlog "close the form properties dialog"
ControlPropertiesDialog.Close
- '/// close the form control toolbar
printlog "close the form control toolbar"
call hToolbarSelect("FormControls",false)
- '/// close application
printlog "close application"
Call hCloseDocument
-
+
endcase
testcase tiFormatDimensions
-'/// open application ///'
- Call hNewDocument
-'/// Format->Dimensions ///'
- FormatDimensioning
- Kontext "Bemassung"
- DialogTest ( Bemassung )
-'/// cancel dialog 'Dimensioning' ///'
- Bemassung.Cancel
-'/// close application ///'
- Call hCloseDocument
+ Call hNewDocument
+ FormatDimensioning
+ Kontext "Bemassung"
+ DialogTest ( Bemassung )
+ Bemassung.Cancel
+ Call hCloseDocument
endcase
testcase tiFormatConnector
-'/// open application ///'
- Call hNewDocument
-'/// Format->Connector ///'
- FormatConnector
- Kontext "Verbinder"
- DialogTest ( Verbinder )
-'/// cancel dialog 'Connector' ///'
- Verbinder.Cancel
-'/// close application ///'
- Call hCloseDocument
+ Call hNewDocument
+ FormatConnector
+ Kontext "Verbinder"
+ DialogTest ( Verbinder )
+ Verbinder.Cancel
+ Call hCloseDocument
endcase
testcase tiFormat3D_Effects
-'/// open application ///'
- Call hNewDocument
-'/// Format->3D_Effects ///'
+ Call hNewDocument
Format3D_Effects
- Kontext "Drei_D_Effekte"
- Call DialogTest ( Drei_D_Effekte,1 )
-'/// click button 'Geometry' ///'
- Geometrie.Click
- Call DialogTest ( Drei_D_Effekte,2 )
- '/// click button 'Shading' ///'
- Darstellung.Click
- Call DialogTest ( Drei_D_Effekte,3 )
- '/// click button 'Illumination' ///'
- Beleuchtung.Click
- Call DialogTest ( Drei_D_Effekte,4 )
- '/// click button 'Textures' ///'
- Texturen.Click
- Call DialogTest ( Drei_D_Effekte,5 )
- '/// click button 'Material' ///'
- Material.Click
- Call DialogTest ( Drei_D_Effekte,6 )
- Kontext "Drei_D_Effekte"
- '/// close dialog '3D Effects' ///'
- Drei_D_Effekte.Close
- '/// close application ///'
- Call hCloseDocument
+ Kontext "Drei_D_Effekte"
+ Call DialogTest ( Drei_D_Effekte,1 )
+ Geometrie.Click
+ Call DialogTest ( Drei_D_Effekte,2 )
+ Darstellung.Click
+ Call DialogTest ( Drei_D_Effekte,3 )
+ Beleuchtung.Click
+ Call DialogTest ( Drei_D_Effekte,4 )
+ Texturen.Click
+ Call DialogTest ( Drei_D_Effekte,5 )
+ Material.Click
+ Call DialogTest ( Drei_D_Effekte,6 )
+ Kontext "Drei_D_Effekte"
+ Drei_D_Effekte.Close
+ Call hCloseDocument
endcase
'---------------------------------------------------------------------------------------
testcase tiFormatNumberingBullets
- '/// open application ///'
- Call hNewDocument
+ Call hNewDocument
WaitSlot (2000)
- '/// Format->Numbering/Bullets ///'
FormatNumberingBulletsDraw
WaitSlot (2000)
- '/// switch to tabpage 'Bullets' ///'
Kontext
Messagebox.SetPage TabBullet
Kontext "TabBullet"
Call DialogTest ( TabBullet )
Kontext
- '/// switch to tabpage 'Numbering Type' ///'
Messagebox.SetPage TabNumerierungsart
Kontext "TabNumerierungsart"
Call DialogTest ( TabNumerierungsart )
Kontext
- '/// switch to tabpage 'Graphics' ///'
Messagebox.SetPage TabGrafiken
Kontext "TabGrafiken"
Call DialogTest ( TabGrafiken )
Kontext
- '/// switch to tabpage 'Position' ///'
Messagebox.SetPage TabPositionNumerierung
Kontext "TabPositionNumerierung"
Call DialogTest ( TabPositionNumerierung )
Kontext
- '/// switch to tabpage 'Customize' ///'
Messagebox.SetPage TabOptionenNumerierung
Kontext "TabOptionenNumerierung"
Call DialogTest ( TabOptionenNumerierung )
- '/// select 7th entry from the top in the listbox 'Numbering' ///'
Numerierung.Select 9 ' last one always ? -> graphics
- '/// click button graphics 'select' ///'
- TabOptionenNumerierung.MouseDown 50,60
- TabOptionenNumerierung.MouseUp 50,60
- Auswahl.TypeKeys "<SPACE>"
- '/// select 'From file' ///'
- hMenuSelectNr (1)
- sleep 3
- '/// dialog 'link' with an grayed out & selected link checkbox ///'
- Kontext "OeffnenDlg"
- '/// cancel dialog 'link' ///'
- OeffnenDlg.Cancel
- sleep 1
- sleep 1
- Kontext
- '/// switch to tabpage 'Customize' ///'
- Messagebox.SetPage TabOptionenNumerierung
- Kontext "TabOptionenNumerierung"
- sleep 1
- try
- '/// click button graphics 'select' ///'
- Auswahl.TypeKeys "<SPACE>"
- '/// select 'Gallery' ///'
- hMenuSelectNr (2)
- '/// select 3rd element from the top 'blusquare.gif' ///'
- hMenuSelectNr (3)
- Sleep 2
- catch
- warnlog "couldn't do something :-) (1)"
- Exceptlog
- Call hMenuClose
- endcatch
- '/// cancel dialog 'Numbering/Bullets' ///'
- TabOptionenNumerierung.Cancel
- sleep 1
- '/// close application ///'
- Call hCloseDocument
+ TabOptionenNumerierung.MouseDown 50,60
+ TabOptionenNumerierung.MouseUp 50,60
+ Auswahl.TypeKeys "<SPACE>"
+ hMenuSelectNr (1)
+ sleep 3
+ Kontext "OeffnenDlg"
+ OeffnenDlg.Cancel
+ sleep 1
+ sleep 1
+ Kontext
+ Messagebox.SetPage TabOptionenNumerierung
+ Kontext "TabOptionenNumerierung"
+ sleep 1
+ try
+ Auswahl.TypeKeys "<SPACE>"
+ hMenuSelectNr (2)
+ hMenuSelectNr (3)
+ Sleep 2
+ catch
+ warnlog "couldn't do something :-) (1)"
+ Exceptlog
+ Call hMenuClose
+ endcatch
+ TabOptionenNumerierung.Cancel
+ sleep 1
+ Call hCloseDocument
endcase
'---------------------------------------------------------------------------------------
testcase tiFormatCaseCharacter
- '/// open application ///'
- Call hNewDocument
- '/// create textbox with text ///'
- Call hTextrahmenErstellen ("testit",20,20,50,30)
- sleep 1
- '/// move curser 1 time to the left ///'
- hTypeKeys "<left>"
-
- '/// Format->Case/Characters->Uppercase ///'
+ Call hNewDocument
+ Call hTextrahmenErstellen ("testit",20,20,50,30)
+ sleep 1
+ hTypeKeys "<left>"
+
FormatChangeCaseUpper
WaitSlot (1000)
- '/// Format->Case/Characters->Lowercase ///'
FormatChangeCaseLower
WaitSlot (2000)
if bAsianLan then
if not gAsianSup then
qaerrorlog "This is an asian language-office, but asian support was disabled in a previous test?"
end if
- '/// if asian language (81/82/86/88): ///'
try
- '///+ Format->Case/Characters->Half-width ///'
FormatChangeCaseHalfWidth
catch
Warnlog "Format / Change Case / Half Width does not work."
endcatch
WaitSlot (1000)
try
- '///+ Format->Case/Characters->Full-width ///'
FormatChangeCaseFullWidth
catch
Warnlog "Format / Change Case / Full Width does not work!"
endcatch
sleep 1
try
- '///+ Format->Case/Characters->Hiragana ///'
FormatChangeCaseHiragana
catch
Warnlog "Format / Change Case / Hiragana does not work."
endcatch
sleep 1
try
- '///+ Format->Case/Characters->Katatana ///'
FormatChangeCaseKatagana
catch
Warnlog "Format / Change Case / Katagana does not work."
endcatch
end if
- '/// close application ///'
- Call hCloseDocument
+ Call hCloseDocument
endcase
'---------------------------------------------------------------------------------------
testcase tiFormatParagraph
- '/// open application ///'
- Call hNewDocument
- '/// Format->Paragraph ///'
- FormatParagraph
- Kontext
- '/// switch to tabpage 'Indents & Spacing' ///'
- Messagebox.SetPage TabEinzuegeUndAbstaende
- kontext "TabEinzuegeUndAbstaende"
- Call DialogTest ( TabEinzuegeUndAbstaende )
- Kontext
- '/// switch to tabpage 'Alignment' ///'
- Messagebox.SetPage TabAusrichtungAbsatz
- Kontext "TabAusrichtungAbsatz"
- Call DialogTest ( TabAusrichtungAbsatz )
- Kontext
- '/// switch to tabpage 'Tabs' ///'
- Messagebox.SetPage TabTabulator
- kontext "TabTabulator"
- Call DialogTest ( TabTabulator )
- '/// cancel dialog 'Paragraph' ///'
- TabTabulator.Cancel
- '/// close application ///'
- Call hCloseDocument
+ Call hNewDocument
+ FormatParagraph
+ Kontext
+ Messagebox.SetPage TabEinzuegeUndAbstaende
+ kontext "TabEinzuegeUndAbstaende"
+ Call DialogTest ( TabEinzuegeUndAbstaende )
+ Kontext
+ Messagebox.SetPage TabAusrichtungAbsatz
+ Kontext "TabAusrichtungAbsatz"
+ Call DialogTest ( TabAusrichtungAbsatz )
+ Kontext
+ Messagebox.SetPage TabTabulator
+ kontext "TabTabulator"
+ Call DialogTest ( TabTabulator )
+ TabTabulator.Cancel
+ Call hCloseDocument
endcase
'---------------------------------------------------------------------------------------
testcase tiFormatPage
- '/// open application ///'
- Call hNewDocument
- '/// Format->Page ///'
- FormatSlideDraw
- kontext
- if Messagebox.exists (5) then
- '/// switch to tabpage 'Page' ///'
- Messagebox.SetPage TabSeite
- Kontext "TabSeite"
- if TabSeite.exists (5) then
- Call Dialogtest (TabSeite)
- else
- warnlog "nope :-(1"
- endif
- sleep 1
- kontext
- '/// switch to tabpage 'Background' ///'
- Messagebox.SetPage TabArea
- sleep 1
- kontext
- if messagebox.GetRT = 304 then
- printlog "active about pagesize != printersettings, will say NO: " + Messagebox.GetText
- try
- Messagebox.No
- catch
- warnlog messagebox.getText
- Messagebox.ok ' should be Error loading BASIC of document ##?
- kontext
- if messagebox.GetRT = 304 then
- try
- warnlog messagebox.getText
- Messagebox.ok
- catch
- printlog "not expected state."
- endcatch
- endif
- endcatch
- endif
- sleep 1
- kontext
- Messagebox.SetPage TabArea
- Kontext "TabArea"
- if TabArea.exists (5) then
- Call Dialogtest (TabArea)
- endif
- sleep 1
- '/// cancel dialog 'Page Setup' ///'
- TabArea.Cancel
- else
- warnlog "FormatPage doesn't come up with dialog :-("
- endif
- '/// close application ///'
- Call hCloseDocument
+ Call hNewDocument
+ FormatSlideDraw
+ kontext
+ if Messagebox.exists (5) then
+ Messagebox.SetPage TabSeite
+ Kontext "TabSeite"
+ if TabSeite.exists (5) then
+ Call Dialogtest (TabSeite)
+ else
+ warnlog "nope :-(1"
+ endif
+ sleep 1
+ kontext
+ Messagebox.SetPage TabArea
+ sleep 1
+ kontext
+ if messagebox.GetRT = 304 then
+ printlog "active about pagesize != printersettings, will say NO: " + Messagebox.GetText
+ try
+ Messagebox.No
+ catch
+ warnlog messagebox.getText
+ Messagebox.ok ' should be Error loading BASIC of document ##?
+ kontext
+ if messagebox.GetRT = 304 then
+ try
+ warnlog messagebox.getText
+ Messagebox.ok
+ catch
+ printlog "not expected state."
+ endcatch
+ endif
+ endcatch
+ endif
+ sleep 1
+ kontext
+ Messagebox.SetPage TabArea
+ Kontext "TabArea"
+ if TabArea.exists (5) then
+ Call Dialogtest (TabArea)
+ endif
+ sleep 1
+ TabArea.Cancel
+ else
+ warnlog "FormatPage doesn't come up with dialog :-("
+ endif
+ Call hCloseDocument
endcase
'---------------------------------------------------------------------------------------
@@ -831,9 +649,7 @@ testcase tiFormatStylesAndFormatting
dim i as integer
dim abctemp
- '/// Open Application ///'
Call hNewDocument
- '/// Create a Textframe with content ///'
sleep 5
hTextrahmenErstellen ("I love Wednesdays...",20,20,80,40)
@@ -841,7 +657,7 @@ testcase tiFormatStylesAndFormatting
printlog "Checking if TextObjectBar is up"
Kontext "TextObjectbar"
if TextObjectbar.Exists Then
- printlog "TextObjectbar.Exists = " + TextObjectbar.Exists
+ printlog "TextObjectbar.Exists = " + TextObjectbar.Exists
else
ViewToolbarsTextFormatting
endif
@@ -849,23 +665,21 @@ testcase tiFormatStylesAndFormatting
WaitSlot (1000)
Kontext "Stylist"
if (Stylist.NotExists) then
- qaErrorLog "There is no stylist open, trying again now"
- FormatStylist
+ qaErrorLog "There is no stylist open, trying again now"
+ FormatStylist
end if
WaitSlot (1000)
Vorlagenliste.TypeKeys "<End>"
Vorlagenliste.TypeKeys "<Up>"
Vorlagenliste.TypeKeys "<Up>"
sleep 1
- '/// open context menu, select first entry from top: 'New' ///'
Vorlagenliste.OpenContextMenu
sleep 1
hMenuSelectNr (1)
sleep 1
-
+
Kontext
if Messagebox.exists (5) then
- '/// switch to tabpage Organizer ///'
try
Messagebox.SetPage TabVerwalten
Kontext "TabVerwalten"
@@ -874,7 +688,6 @@ testcase tiFormatStylesAndFormatting
sTemp = VorlagenName.getText
VerknuepftMit.getSelText
Bereich.getSelText
- '/// close dialog 'Graphics Styles' ///'
TabVerwalten.OK
catch
warnlog "Under Gnome we have a focus problem here."
@@ -890,41 +703,37 @@ testcase tiFormatStylesAndFormatting
sleep 1
Kontext
if Messagebox.exists (5) then
- '/// switch to tabpage Organizer ///'
try
Messagebox.SetPage TabVerwalten
Kontext "TabVerwalten"
VorlagenName.setText("2Test")
- '/// close dialog 'Graphics Styles' ///'
TabVerwalten.OK
catch
warnlog "Under Gnome we have a focus problem here."
endcatch
end if
-
+
sleep 3
Kontext "Stylist"
- '/// Delete the style we created. ///'
Vorlagenliste.TypeKeys "<Home>" 'to go to the style we've created ourselves.
sleep 1
try
- Vorlagenliste.TypeKeys "<Delete>" 'To delete the style.
- Kontext "Active" 'do you really wish to delete?
- Active.YES
- sleep 2
+ Vorlagenliste.TypeKeys "<Delete>" 'To delete the style.
+ Kontext "Active" 'do you really wish to delete?
+ Active.YES
+ sleep 2
catch
- Warnlog "Couldnt delete the new Style, or maybe wrong position?"
+ Warnlog "Couldnt delete the new Style, or maybe wrong position?"
endcatch
Kontext "Stylist"
if (Stylist.NotExists) then
- ErrorLog "There was no Stylist open, should be."
+ ErrorLog "There was no Stylist open, should be."
else
- '/// Close Stylist ///'
- hTypekeys "<F11>"
- Kontext "Stylist"
- if (Stylist.Exists) then
- ErrorLog "The Stylist should be closed now."
- endif
+ hTypekeys "<F11>"
+ Kontext "Stylist"
+ if (Stylist.Exists) then
+ ErrorLog "The Stylist should be closed now."
+ endif
endif
Call hCloseDocument
endcase
@@ -932,94 +741,70 @@ endcase
'---------------------------------------------------------------------------------------
testcase tiFormatFontwork
-'/// open application ///'
- Call hNewDocument
-'/// create a textframe with text ///'
- Call hTextrahmenErstellen ("Flightplanning via www.aua.com is hard!",20,20,50,30)
- sleep 1
-'/// Format->Fontwork ///'
- FormatFontwork
- Kontext "FontWork"
- if FontWork.exists (5) then
- DialogTest ( FontWork )
- sleep 1
- '/// close dialog 'Fontwork' ///'
- FontWork.Close
- else
- warnlog "FontWork didn't came up :-("
- endif
-'/// close application ///'
- Call hCloseDocument
+ Call hNewDocument
+ Call hTextrahmenErstellen ("Flightplanning via www.aua.com is hard!",20,20,50,30)
+ sleep 1
+ FormatFontwork
+ Kontext "FontWork"
+ if FontWork.exists (5) then
+ DialogTest ( FontWork )
+ sleep 1
+ FontWork.Close
+ else
+ warnlog "FontWork didn't came up :-("
+ endif
+ Call hCloseDocument
endcase
'---------------------------------------------------------------------------------------
testcase tiFormatGroup
-'/// open application ///'
- Call hNewDocument
-'/// create 2 rectangles ///'
- hRechteckErstellen ( 10, 10, 20, 20 )
- hRechteckErstellen ( 30, 30, 40, 40 )
-'/// select both objects with keys [strg]+[a] ///'
- EditSelectAll
-'/// DRAW: in Modify menu ///'
-'///+ Impress in Format menu ///'
-'///+ Format->Group / Modify->Group ///'
- FormatGroupDraw
+ Call hNewDocument
+ hRechteckErstellen ( 10, 10, 20, 20 )
+ hRechteckErstellen ( 30, 30, 40, 40 )
+ EditSelectAll
+ FormatGroupDraw
WaitSlot (1000)
-'/// Format->Edit Group / Modify->Enter Group ///'
- FormatEditGroupDraw
+ FormatEditGroupDraw
WaitSlot (1000)
-'/// Format->Exit Group / Modify->Exit Group ///'
- FormatExitGroupDraw
+ FormatExitGroupDraw
WaitSlot (1000)
-'/// Format->Ungroup Group / Modify->Ungroup Group ///'
- FormatUngroupDraw
+ FormatUngroupDraw
WaitSlot (1000)
-'/// close application ///'
- Call hCloseDocument
+ Call hCloseDocument
endcase
'---------------------------------------------------------------------------------------
testcase tiFormatStylesSlideDesign
-' create recktanglr; click outside ?
-'/// open application ///'
- Call hNewDocument
+ ' create recktanglr; click outside ?
+ Call hNewDocument
WaitSlot (3000)
-'/// Format->Styles->Slide Design ///'
- FormatModifyLayout ' is OK : Format->Styles->Slide Design; 27064; SID_PRESENTATION_LAYOUT
+ FormatModifyLayout ' is OK : Format->Styles->Slide Design; 27064; SID_PRESENTATION_LAYOUT
WaitSlot (1000)
- Kontext "Seitenvorlage"
- Call DialogTest ( Seitenvorlage )
-'/// check the checkboxes: ExchangeBackgroundPages and DeleteUnusedBackgrounds ///'
- HintergrundseiteAustauschen.check
- DeleteUnusedBackgrounds.check
-'/// click button 'Load...' ///'
- Laden.Click
- kontext "Neu"
-'/// click button 'more' ///'
- Zusaetze.click
- sleep 1
- kontext "Neu"
-'/// check checkbox 'Preview' ///'
- try
- Vorschau.check
+ Kontext "Seitenvorlage"
+ Call DialogTest ( Seitenvorlage )
+ HintergrundseiteAustauschen.check
+ DeleteUnusedBackgrounds.check
+ Laden.Click
+ kontext "Neu"
+ Zusaetze.click
+ sleep 1
+ kontext "Neu"
+ try
+ Vorschau.check
catch
- printlog "Preview wasn't checkable :-( hopfully now:"
- Zusaetze.click
- sleep 1
- Vorschau.check
- printlog "... OK :-)"
+ printlog "Preview wasn't checkable :-( hopfully now:"
+ Zusaetze.click
+ sleep 1
+ Vorschau.check
+ printlog "... OK :-)"
endcatch
-'/// cancel dialog 'Load Slide Design' ///'
- Neu.cancel
- Kontext "Seitenvorlage"
-'/// cancel dialog 'Slide Design' ///'
- Seitenvorlage.Cancel
+ Neu.cancel
+ Kontext "Seitenvorlage"
+ Seitenvorlage.Cancel
sleep 2
-'/// close application ///'
- Call hCloseDocument
+ Call hCloseDocument
endcase
'---------------------------------------------------------------------------------------
diff --git a/testautomation/graphics/optional/includes/global/id_006.inc b/testautomation/graphics/optional/includes/global/id_006.inc
index 31ca3e0dce43..fb774c22acb2 100755
--- a/testautomation/graphics/optional/includes/global/id_006.inc
+++ b/testautomation/graphics/optional/includes/global/id_006.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
@@ -52,42 +52,35 @@
testcase tiToolsSpellchecking
if not gOOO then ' Spellcheck doesn't work in OOo builds.
- '/// open application ///'
- Call hNewDocument
- WaitSlot (2000) 'sleep 2
- '/// call subroutine 'hSetSpellHypLanguage' for setting the default language in th eoptions, to enable it for languages, which don't provide a dictionary (usually asian ones) ///'
- call hSetSpellHypLanguage
- '/// create textframe with content ///'
- Call hTextrahmenErstellen ("Whaaaat", 10, 10, 30, 40)
- sleep 1
- '/// Tools->Spellcheck->Check ///'
- ToolsSpellCheck
- WaitSlot (1000) 'sleep 1
- Kontext "MessageBox"
- if MessageBox.exists(2) then
- qaerrorlog "Messagebox : " + MessageBox.gettext() + " appear."
- qaerrorlog "Maybe no spellchecking for this languages is available."
- MessageBox.OK
- else
- Kontext "Rechtschreibung"
- if Rechtschreibung.exists then
- Call DialogTest ( Rechtschreibung )
- '/// close dialog 'Spellcheck' ///'
- Rechtschreibung.Close
- else
- warnlog " Spellcheck dialog didn't came up :-("
- end if
- end if
- sleep 1
- '/// say OK to messagebox about 'Spellcheck has been completed' ///'
- Kontext "Messagebox"
- if Messagebox.exists (5) then
- warnlog "Shouldn't be any messagebox after pressing close in spellchecker"
- Messagebox.OK
- sleep (2)
- Kontext
- end if
- '/// close application ///'
+ Call hNewDocument
+ WaitSlot (2000) 'sleep 2
+ call hSetSpellHypLanguage
+ Call hTextrahmenErstellen ("Whaaaat", 10, 10, 30, 40)
+ sleep 1
+ ToolsSpellCheck
+ WaitSlot (1000) 'sleep 1
+ Kontext "MessageBox"
+ if MessageBox.exists(2) then
+ qaerrorlog "Messagebox : " + MessageBox.gettext() + " appear."
+ qaerrorlog "Maybe no spellchecking for this languages is available."
+ MessageBox.OK
+ else
+ Kontext "Rechtschreibung"
+ if Rechtschreibung.exists then
+ Call DialogTest ( Rechtschreibung )
+ Rechtschreibung.Close
+ else
+ warnlog " Spellcheck dialog didn't came up :-("
+ end if
+ end if
+ sleep 1
+ Kontext "Messagebox"
+ if Messagebox.exists (5) then
+ warnlog "Shouldn't be any messagebox after pressing close in spellchecker"
+ Messagebox.OK
+ sleep (2)
+ Kontext
+ end if
Call hCloseDocument
else goto endsub
endif
@@ -96,16 +89,11 @@ endcase
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
testcase tiToolsSpellcheckingAutomatic
- '/// open application ///'
Call hNewDocument
- '/// Tools->Spellcheck->AutoSpellcheck ///'
ToolsSpellcheckAutoSpellcheck
- '/// create textframe with text ///'
Call hTextrahmenErstellen ("What", 10, 10, 30, 40)
sleep 2
- '/// Tools->Spellcheck->AutoSpellcheck ///'
ToolsSpellcheckAutoSpellcheck
- '/// close application ///'
Call hCloseDocument
endcase
@@ -115,10 +103,8 @@ testcase tiToolsThesaurus
if not gOOO then ' Thesaurus doesn't work in OOo builds.
dim sFileName as String
-
- '/// call subroutine 'hSetSpellHypLanguage' for setting the default language in the options, to enable it for languages, which don't provide a dictionary (usually asian ones) ///'
+
call hSetSpellHypLanguage
- '/// open application-specific document which contains an American-formatted textframe with text. And select the text ///'
if (gApplication = "IMPRESS") then
sFileName = (ConvertPath (gTesttoolPath + "graphics\required\input\engtext.odp"))
else
@@ -130,40 +116,33 @@ testcase tiToolsThesaurus
end if
Call hFileOpen (sFileName)
sleep (2)
-
+
hTypeKeys "<TAB><RETURN>"
hTypeKeys "<END><SHIFT HOME>"
-
+
' Call hTextrahmenErstellen ("SimpleTest" + "<Mod1 Shift left>", 10, 10, 30, 40)
try
- '/// Tools->Thesaurus ///'
ExtrasThesaurusDraw
Kontext "Thesaurus"
- Call DialogTest ( Thesaurus )
- '/// click button 'language' ///'
- Sprache.Click
- Kontext "SpracheAuswaehlen"
- Call DialogTest ( SpracheAuswaehlen )
- '/// cancel dialog 'select language' ///'
- SpracheAuswaehlen.cancel
+ Call DialogTest ( Thesaurus )
+ Sprache.Click
+ Kontext "SpracheAuswaehlen"
+ Call DialogTest ( SpracheAuswaehlen )
+ SpracheAuswaehlen.cancel
+ Kontext "Thesaurus"
+ Nachschlagen.Click
+ kontext
+ if Messagebox.exists (5) then
+ printlog "Messagebox: word not in thesaurus: '"+Messagebox.gettext+"'"
+ Messagebox.ok
+ end if
+ sleep 1
Kontext "Thesaurus"
- '/// click button 'search' ///'
- Nachschlagen.Click
- kontext
- '/// if messagebox exist, say OK; (word not found) ///'
- if Messagebox.exists (5) then
- printlog "Messagebox: word not in thesaurus: '"+Messagebox.gettext+"'"
- Messagebox.ok
- end if
- sleep 1
- Kontext "Thesaurus"
- '/// cancel dialog 'Thesaurus' ///'
- Thesaurus.Cancel
+ Thesaurus.Cancel
catch
warnlog "Thesaurus didn't work :-("
endcatch
sleep 1
- '/// close application ///'
Call hCloseDocument
else goto endsub
endif
@@ -172,126 +151,83 @@ endcase
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
testcase tiToolsHyphenation
- '/// open application ///'
Call hNewDocument
- '/// Tools->Hyphenation ///'
ExtrasSilbentrennungDraw
WaitSlot (2000) 'sleep 2
- '/// Tools->Hyphenation ///'
ExtrasSilbentrennungDraw
- '/// close application ///'
Call hCloseDocument
endcase
testcase tiToolsAutoCorrect
dim iLanguage as integer ' for resetting the language
- '/// open application ///'
Call hNewDocument
WaitSlot (1000) 'sleep 1
- '/// Tools->Autocorrect ///'
ToolsAutocorrect
WaitSlot (2000) 'sleep 1
Kontext
- '/// select tabpage 'Replace' ///'
Messagebox.SetPage TabErsetzung
Kontext "TabErsetzung"
- Call DialogTest ( TabErsetzung )
- '/// remember the language, that is selected in the 'Replacements and exceptions for Language' Listbox ///'
- iLanguage = WelcheSprache.GetSelIndex
- '///+ change the language to the 1st from the top ///'
- WelcheSprache.Select 1 ' select language with empty list
- '///+ type something into the field 'replace' ///'
- Kuerzel.SetText "a"
- '///+ type something into the field 'with' ///'
- ErsetzenDurch.SetText "b"
- '///+ click button 'new' ///'
- Neu.Click
- sleep 1
- '///+ click button 'delete' ///'
+ Call DialogTest ( TabErsetzung )
+ iLanguage = WelcheSprache.GetSelIndex
+ WelcheSprache.Select 1 ' select language with empty list
+ Kuerzel.SetText "a"
+ ErsetzenDurch.SetText "b"
+ Neu.Click
+ sleep 1
+ Loeschen.Click
+ sleep 1
+ try
Loeschen.Click
- sleep 1
- try
- '///+ click button 'delete' again ///'
- Loeschen.Click
- catch
- printlog "ok was CRASH before" '#
- endcatch
- '///+ if nothing happens it is ok, was a Crash before :-( ///'
- '///+ restore cthe remembered language ///'
- WelcheSprache.select (iLanguage)
- Kontext
- '/// select tabpage 'Exception' ///'
- Messagebox.SetPage TabAusnahmen
- Kontext "TabAusnahmen"
- Call DialogTest ( TabAusnahmen )
- '/// type something into the field 'Abbreviations' ///'
- Abkuerzungen.settext "Lala"
- '///+ click button 'new' in 'Abbreviations' ///'
- AbkuerzungenNeu.click
- '///+ click button 'delete' in 'Abbreviations' ///'
- AbkuerzungenLoeschen.click
- '/// type something into the field 'Word with TWo INitial CApitals' ///'
- Woerter.settext "LALA"
- '///+ check the checkbox 'AutoInclude' in 'Word with TWo INitial CApitals' ///'
- WoerterAutomatisch.Check
- '///+ click button 'new' in 'Word with TWo INitial CApitals' ///'
- WoerterNeu.click
- '///+ click button 'delete' in 'Word with TWo INitial CApitals' ///'
- WoerterLoeschen.click
- '///+ UNcheck the checkbox 'AutoInclude' in 'Word with TWo INitial CApitals' ///'
- WoerterAutomatisch.UnCheck
- Kontext
- '/// select tabpage 'Options' ///'
- Messagebox.SetPage TabOptionen
- Kontext "TabOptionen"
- Call DialogTest ( TabOptionen )
- Kontext
- '/// select tabpage 'Custom Quotes' ///'
- Messagebox.SetPage TabTypografisch
- Kontext "TabTypografisch" ' 1a
- '/// in the part of 'single quotes': ///'
- '///+ check 'replace' ///'
- '///+ click 'start quote' ///'
- EinfacheErsetzen.Check
- EinfachWortAnfang.Click
- Kontext "Sonderzeichen"
- Call DialogTest ( Sonderzeichen, 1 )
- '///+ cancel dialog 'start quote' ///'
- Sonderzeichen.Cancel
- Kontext "TabTypografisch" ' 1b
- '///+ click 'end quote' ///'
- EinfachWortEnde.Click
- Kontext "Sonderzeichen"
- Call DialogTest ( Sonderzeichen, 2 )
- '///+ cancel dialog 'end quote' ///'
- Sonderzeichen.Cancel
- Kontext "TabTypografisch" ' 1s
- '///+ click button 'default' ///'
- EinfachStandard.Click
-
- Kontext "TabTypografisch" ' 2a
- '/// in the part of 'double quotes': ///'
- '///+ click 'start quote' ///'
- DoppeltWortAnfang.Click
- Kontext "Sonderzeichen"
- Call DialogTest ( Sonderzeichen, 3 )
- '///+ cancel dialog 'start quote' ///'
- Sonderzeichen.Cancel
- Kontext "TabTypografisch" ' 2b
- '///+ click 'end quote' ///'
- DoppeltWortEnde.Click
- Kontext "Sonderzeichen"
- Call DialogTest ( Sonderzeichen, 4 )
- '///+ cancel dialog 'end quote' ///'
- Sonderzeichen.Cancel
- Kontext "TabTypografisch" ' 2s
- '///+ click button 'default' ///'
- DoppeltStandard.Click
- '///+ UNcheck 'replace' ///'
- EinfacheErsetzen.UnCheck
- '/// cancel dialog 'AtorCorrect' ///'
- TabTypografisch.cancel
- '/// close application ///'
+ catch
+ printlog "ok was CRASH before" '#
+ endcatch
+ WelcheSprache.select (iLanguage)
+ Kontext
+ Messagebox.SetPage TabAusnahmen
+ Kontext "TabAusnahmen"
+ Call DialogTest ( TabAusnahmen )
+ Abkuerzungen.settext "Lala"
+ AbkuerzungenNeu.click
+ AbkuerzungenLoeschen.click
+ Woerter.settext "LALA"
+ WoerterAutomatisch.Check
+ WoerterNeu.click
+ WoerterLoeschen.click
+ WoerterAutomatisch.UnCheck
+ Kontext
+ Messagebox.SetPage TabOptionen
+ Kontext "TabOptionen"
+ Call DialogTest ( TabOptionen )
+ Kontext
+ Messagebox.SetPage TabTypografisch
+ Kontext "TabTypografisch" ' 1a
+ EinfacheErsetzen.Check
+ EinfachWortAnfang.Click
+ Kontext "Sonderzeichen"
+ Call DialogTest ( Sonderzeichen, 1 )
+ Sonderzeichen.Cancel
+ Kontext "TabTypografisch" ' 1b
+ EinfachWortEnde.Click
+ Kontext "Sonderzeichen"
+ Call DialogTest ( Sonderzeichen, 2 )
+ Sonderzeichen.Cancel
+ Kontext "TabTypografisch" ' 1s
+ EinfachStandard.Click
+
+ Kontext "TabTypografisch" ' 2a
+ DoppeltWortAnfang.Click
+ Kontext "Sonderzeichen"
+ Call DialogTest ( Sonderzeichen, 3 )
+ Sonderzeichen.Cancel
+ Kontext "TabTypografisch" ' 2b
+ DoppeltWortEnde.Click
+ Kontext "Sonderzeichen"
+ Call DialogTest ( Sonderzeichen, 4 )
+ Sonderzeichen.Cancel
+ Kontext "TabTypografisch" ' 2s
+ DoppeltStandard.Click
+ EinfacheErsetzen.UnCheck
+ TabTypografisch.cancel
Call hCloseDocument
endcase
@@ -301,7 +237,7 @@ testcase tChineseTranslation
qaerrorlog( "#i89634# - Chinese Translation dialog does not close" )
goto endsub
-
+
dim sFileName as string
dim bSavedAsianSupport as boolean
@@ -311,160 +247,121 @@ testcase tChineseTranslation
sFileName = "graphics\required\input\tchinese.odg"
end if
- '/// Open application ///'
Call hNewDocument
WaitSlot (2000) 'sleep 1
- '/// Save old state and Activate Support for Asian language ///'
bSavedAsianSupport = ActiveDeactivateAsianSupport(TRUE)
- '/// Open Document ///'
Call hFileOpen ( ConvertPath(gTesttoolPath + sFileName) )
- '/// If write-protected - open as Temp-file ///'
sleep (2)
Kontext "Standardbar"
- if Bearbeiten.GetState(2) <> 1 then
- Bearbeiten.Click '0 = not pressed. 1 = pressed.
- Kontext
- if Active.Exists(1) then
- Active.Yes
- else
- warnlog "No messagebox after making document editable? - Test canceled here"
- goto endsub
- end if
+ if Bearbeiten.GetState(2) <> 1 then
+ Bearbeiten.Click '0 = not pressed. 1 = pressed.
+ Kontext
+ if Active.Exists(1) then
+ Active.Yes
+ else
+ warnlog "No messagebox after making document editable? - Test canceled here"
+ goto endsub
end if
+ end if
if uCase(gApplication) = "IMPRESS" then
Kontext "DocumentImpress"
else
Kontext "DocumentDraw"
end if
- '/// Select all, Press RETURN to enter text in Editmode ///'
- '/// Move marker to top of the text, go two steps right, mark two characters ///'
EditSelectAll
hTypeKeys "<RETURN>"
hTypeKeys "<MOD1 HOME><RIGHT><RIGHT><SHIFT RIGHT RIGHT>"
- '/// Open Chinesetranslation ///'
ToolsChineseTranslation
WaitSlot (2000) 'sleep 1
kontext "ChineseTranslation"
- '/// Check if everything is there ///'
- Call DialogTest ( ChineseTranslation )
- '/// Click on EditTerms ///'
- EditTerms.Click
- kontext "ChineseDictionary"
- '/// Check if everything is there ///'
- Call DialogTest ( ChineseDictionary )
- '/// Close dialog 'ChineseDictionary' with 'OK' ///'
- ChineseDictionary.Ok
+ Call DialogTest ( ChineseTranslation )
+ EditTerms.Click
+ kontext "ChineseDictionary"
+ Call DialogTest ( ChineseDictionary )
+ ChineseDictionary.Ok
kontext "ChineseTranslation"
- '/// Close dialog 'Chinese' with 'OK' ///'
- ChineseTranslation.OK
+ ChineseTranslation.OK
kontext
- '/// if messagebox exist, say OK; ('Spellcheck completed' or 'Word not found') ///'
- if Messagebox.exists (5) then
- printlog "Messagebox: "+Messagebox.gettext+"'"
- Messagebox.ok
- end if
- '/// Restore old state for Asian language ///'
+ if Messagebox.exists (5) then
+ printlog "Messagebox: "+Messagebox.gettext+"'"
+ Messagebox.ok
+ end if
ActiveDeactivateAsianSupport(bSavedAsianSupport)
- '/// Close application ///'
Call hCloseDocument
endcase
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
testcase tiToolsMacro
- '/// open application ///'
Call hNewDocument
WaitSlot (2000) 'sleep 2
- '/// Tools->Macro ///'
ToolsMacro
Kontext "Makro"
- Call DialogTest ( Makro )
- '/// click button 'organizer...' ///'
- Verwalten.Click
+ Call DialogTest ( Makro )
+ Verwalten.Click
Kontext
- '/// switch to tabpage 'Modules' ///'
- Messagebox.SetPage TabModule
- Kontext "TabModule"
- Call DialogTest ( TabModule )
+ Messagebox.SetPage TabModule
+ Kontext "TabModule"
+ Call DialogTest ( TabModule )
Kontext
- '/// switch to tabpage 'Libraries' ///'
- Messagebox.SetPage TabBibliotheken
- Kontext "TabBibliotheken"
- Call DialogTest ( TabBibliotheken )
- '/// click lbutton 'append' ///'
- Hinzufuegen.Click
- Kontext "Messagebox"
- if Messagebox.Exists (5) then
- if Messagebox.GetRT = 304 then
- Warnlog Messagebox.Gettext
- Messagebox.Ok
- end if
- end if
- Kontext "OeffnenDlg"
- '/// cancel dialog 'append libraries' ///'
- OeffnenDlg.Cancel
- Kontext "TabBibliotheken"
- '/// click button 'new' ///'
- Neu.Click
- kontext "NeueBibliothek"
- sleep 1 'Bibliotheksname
- '/// cancel dialog 'new library' ///'
- NeueBibliothek.cancel
- Kontext "TabBibliotheken"
- '/// close dialog 'macro organizer' ///'
- TabBibliotheken.Close
+ Messagebox.SetPage TabBibliotheken
+ Kontext "TabBibliotheken"
+ Call DialogTest ( TabBibliotheken )
+ Hinzufuegen.Click
+ Kontext "Messagebox"
+ if Messagebox.Exists (5) then
+ if Messagebox.GetRT = 304 then
+ Warnlog Messagebox.Gettext
+ Messagebox.Ok
+ end if
+ end if
+ Kontext "OeffnenDlg"
+ OeffnenDlg.Cancel
+ Kontext "TabBibliotheken"
+ Neu.Click
+ kontext "NeueBibliothek"
+ sleep 1 'Bibliotheksname
+ NeueBibliothek.cancel
+ Kontext "TabBibliotheken"
+ TabBibliotheken.Close
Kontext "Makro"
- '/// close dialog 'macro' ///'
- Makro.Cancel
- '/// close application ///'
+ Makro.Cancel
Call hCloseDocument
endcase
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
testcase tiToolsGallery
- '/// open application ///'
Call hNewDocument
- '/// Tools->Gallery ///'
ToolsGallery
WaitSlot (2000) 'sleep 1
- '/// Tools->Gallery ///'
ToolsGallery
- '/// close application ///'
Call hCloseDocument
endcase
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
testcase tiToolsEyedropper
- '/// open application ///'
Call hNewDocument
- '/// Tools->Eyedropper ///'
ToolsEyedropper
Kontext "Pipette"
- Call DialogTest (Pipette)
- '/// close dialog 'Eyedropper' ///'
- Pipette.Close
- sleep 1
- '/// close application ///'
+ Call DialogTest (Pipette)
+ Pipette.Close
+ sleep 1
Call hCloseDocument
endcase
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
testcase tiToolsOptions
- '/// open application ///'
Call hNewDocument
- '/// Tools->Options ///'
ToolsOptions
WaitSlot (2000) 'sleep 1
kontext "OptionenDlg"
- '/// close dialog 'Options' ///'
- OptionenDlg.Close
- '/// close application ///'
+ OptionenDlg.Close
Call hCloseDocument
endcase
diff --git a/testautomation/graphics/optional/includes/global/id_007.inc b/testautomation/graphics/optional/includes/global/id_007.inc
index 97130d44568e..98dbc49d0a90 100755
--- a/testautomation/graphics/optional/includes/global/id_007.inc
+++ b/testautomation/graphics/optional/includes/global/id_007.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
@@ -58,57 +58,42 @@
testcase tdModifyFlipVertikal
- '/// open application ///'
Call hNewDocument ' imp: contextmenue same SID!
sleep 1
- '/// create rectangle ///'
Call hRechteckErstellen ( 10, 10, 20, 40 )
try
- '/// imp: Kontextmenu: Flip->Vertically ///'
- '///+ Modify->Flip->Vertically ///'
ContextFlipVerticalDraw
Printlog "- Flip-vertical is working"
catch
- Warnlog "- Flip-Vertical does not work"
+ Warnlog "- Flip-Vertical does not work"
endcatch
sleep 1
- '/// close application ///'
Call hCloseDocument
endcase
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdModifyFlipHorizontal
- '/// open application ///'
Call hNewDocument ' imp: contextmenue same SID!
WaitSlot (1000)
- '/// create rectangle ///'
Call hRechteckErstellen ( 10, 10, 20, 40 )
try
- '/// imp: Kontextmenu: Flip->Horizontally ///'
- '///+ Modify->Flip->Horizontally ///'
ContextFlipHorizontalDraw
Printlog "- Flip-horizontal is working"
catch
- Warnlog "- Flip-horizontal does not work"
+ Warnlog "- Flip-horizontal does not work"
endcatch
sleep 1
- '/// close application ///'
Call hCloseDocument
endcase
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextConvertIntoCurve
- '/// open application ///'
Call hNewDocument
- '/// create rectangle ///'
Call hRechteckErstellen ( 10, 10, 20, 40 )
- '/// Modify->Convert->To Curve ///'
- '///+ Modify->Convert->To Curve ///'
ContextConvertIntoCurve
WaitSlot (2000)
- '/// close application ///'
Call hCloseDocument
endcase
@@ -116,424 +101,298 @@ endcase
testcase tdContextConvertIntoPolygon
dim iWaitIndex as integer
- '/// open application ///'
Call hNewDocument ' imp: contextmenue same SID!
InsertGraphicsFromFile
Kontext "GrafikEinfuegenDlg"
- '/// Check if the dialogue is there. If not - wait for maximum 10 seconds)
- iWaitIndex = 0
- do while NOT GrafikEinfuegenDlg.Exists AND iWaitIndex < 10
- sleep(1)
- iWaitIndex = iWaitIndex + 1
- loop
- if NOT GrafikEinfuegenDlg.Exists AND iWaitIndex = 10 then
- warnlog "Dialogue Insert Graphics didnt work. Ending testcase."
- Call hCloseDocument
- goto endsub
- end if
- '/// insert graphic: "global\input\graf_inp\enter.bmp" ///'
- Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
- Oeffnen.Click
- sleep 3
- '/// Modify->Convert->To Polygon ///'
- '/// Modify->Convert->To Polygon ///'
- ContextConvertIntoPolygon
- Kontext "InPolygonUmwandeln"
- Call DialogTest (InPolygonUmwandeln)
- '/// check checkbox: 'Fill holes' ///'
- LoecherFuellen.Check
- '/// click more in number field: 'Number of colors' ///'
- Farbanzahl.More
- '/// click more in number field: 'Point reductionn' ///'
- Punktreduktion.More
- '/// click more in number field: 'Tile size' ///'
- Kachelgroesse.More
- '/// click button 'Preview' ///'
- Vorschau.Click
- sleep 10
- '/// cancel dialog 'Convert to Polygon' ///'
- InPolygonUmwandeln.Cancel
- sleep (2)
- '/// close application ///'
+ iWaitIndex = 0
+ do while NOT GrafikEinfuegenDlg.Exists AND iWaitIndex < 10
+ sleep(1)
+ iWaitIndex = iWaitIndex + 1
+ loop
+ if NOT GrafikEinfuegenDlg.Exists AND iWaitIndex = 10 then
+ warnlog "Dialogue Insert Graphics didnt work. Ending testcase."
+ Call hCloseDocument
+ goto endsub
+ end if
+ Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
+ Oeffnen.Click
+ sleep 3
+ ContextConvertIntoPolygon
+ Kontext "InPolygonUmwandeln"
+ Call DialogTest (InPolygonUmwandeln)
+ LoecherFuellen.Check
+ Farbanzahl.More
+ Punktreduktion.More
+ Kachelgroesse.More
+ Vorschau.Click
+ sleep 10
+ InPolygonUmwandeln.Cancel
+ sleep (2)
Call hCloseDocument
endcase
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextConvertIntoContour
- '/// open application ///'
Call hNewDocument
- '/// create rectangle ///'
Call hRechteckErstellen ( 10, 10, 20, 40 )
- '/// Modify->Convert->To Contour ///'
- '/// Modify->Convert->To Contour ///'
ContextConvertIntoContour
WaitSlot (1000)
- '/// close application ///'
Call hCloseDocument
endcase
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextConvertInto3D
- '/// open application ///'
Call hNewDocument
- '/// create rectangle ///'
Call hRechteckErstellen ( 10, 10, 20, 40 )
- '/// Modify->Convert->To 3D ///'
- '/// Modify->Convert->To 3D ///'
ContextConvertInto3D
WaitSlot (1000)
- '/// close application ///'
Call hCloseDocument
endcase
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextConvertIntoRotationObject
- '/// open application ///'
Call hNewDocument
WaitSlot (1000)
- '/// create rectangle ///'
Call hRechteckErstellen (20,20,50,50)
- sleep 2
- '/// Modify->Convert->To 3D Rotation Object ///'
- '/// Modify->Convert->To 3D Rotation Object ///'
- ContextConvertInto3DRotationObject
- WaitSlot (1000)
- '/// close application ///'
- Call hCloseDocument
+ sleep 2
+ ContextConvertInto3DRotationObject
+ WaitSlot (1000)
+ Call hCloseDocument
endcase
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextConvertIntoBitmap
- '/// open application ///'
Call hNewDocument
WaitSlot (3000)
InsertGraphicsFromFile
WaitSlot (3000)
Kontext "GrafikEinfuegenDlg"
- sleep 2
- '/// insert graphic: "global\input\graf_inp\columbia.dxf" ///'
- Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\columbia.dxf")
- sleep 2
- Oeffnen.Click
- sleep 2
- try
- '/// Modify->Convert->To Bitmap ///'
- ContextConvertIntoBitmap
- Printlog "- Convert into bitmap is working"
- catch
- Warnlog "- Convert into bitmap does not work"
- endcatch
- '/// close application ///'
+ sleep 2
+ Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\columbia.dxf")
+ sleep 2
+ Oeffnen.Click
+ sleep 2
+ try
+ ContextConvertIntoBitmap
+ Printlog "- Convert into bitmap is working"
+ catch
+ Warnlog "- Convert into bitmap does not work"
+ endcatch
Call hCloseDocument
endcase
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextConvertIntoMetaFile
- '/// open application ///'
Call hNewDocument
WaitSlot (3000)
InsertGraphicsFromFile
WaitSlot (1000)
kontext "Messagebox"
- if Messagebox.Exists (5) Then Messagebox.OK
- sleep 1
- Kontext "GrafikEinfuegenDlg"
- '/// insert graphic: "global\input\graf_inp\desp.bmp" ///'
- sleep 2
- Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
- sleep 2
- Preview.Click
- sleep 3
- Oeffnen.Click
- sleep 5
- try
- '/// Modify->Convert->To Metafile ///'
- '/// Modify->Convert->To Metafile ///'
- ContextConvertIntoMetafile
- Printlog "- convert into meta file does work"
- catch
- Warnlog "- convert into meta file does not work"
- endcatch
- '/// close application ///'
- Call hCloseDocument
+ if Messagebox.Exists (5) Then Messagebox.OK
+ sleep 1
+ Kontext "GrafikEinfuegenDlg"
+ sleep 2
+ Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
+ sleep 2
+ Preview.Click
+ sleep 3
+ Oeffnen.Click
+ sleep 5
+ try
+ ContextConvertIntoMetafile
+ Printlog "- convert into meta file does work"
+ catch
+ Warnlog "- convert into meta file does not work"
+ endcatch
+ Call hCloseDocument
endcase
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdModifyArrange
- '/// open application ///'
Call hNewDocument
- '/// create two rectangles ///'
Call hRechteckErstellen ( 10, 10, 20, 40 )
hTypeKeys("<escape>")
Call hRechteckErstellen ( 30, 30, 50, 60 )
- '/// Modify->Arrange->Bring to Front ///'
- '///+ Modify->Arrange->Bring to Front ///'
FormatArrangeBringToFront
WaitSlot (1000)
- '/// Modify->Arrange->Bring Forward ///'
- '///+ Modify->Arrange->Bring Forward ///'
ContextArrangeBringForward
WaitSlot (1000)
- '/// Modify->Arrange->Send Backward ///'
- '///+ Modify->Arrange->Send Backward ///'
ContextArrangeBringBackward
WaitSlot (1000)
- '/// Modify->Arrange->Send to Back ///'
- '///+ Modify->Arrange->Send to Back ///'
FormatArrangeSendToBack
WaitSlot (1000)
- '/// Edit->Select All ///'
EditSelectAll
- '/// Modify->Arrange->Reverse ///'
- '///+ Modify->Arrange->Reverse ///'
ContextArrangeReverse
WaitSlot (1000)
- '/// close application ///'
Call hCloseDocument
endcase
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdModifyArrangeObjects
- '/// open application ///'
Call hNewDocument
WaitSlot (1000)
- '/// create two rectangles ///'
Call hRechteckErstellen ( 20, 20, 30, 50 )
hTypeKeys("<escape>")
Call hRechteckErstellen ( 30,30,50,50 )
- '/// Modify->Arrange->In Front of Object ///'
- '///+ Modify->Arrange->In Front of Object ///'
ContextArrangeInFrontOfObject
- '/// click on the upper left rectangle ///'
gMouseClick 11,11
- '/// Modify->Arrange->Behind Object ///'
- '///+ Modify->Arrange->Behind Object ///'
ContextArrangeBehindObject
- '/// click on the lower right rectangle ///'
gMouseClick 45,45
sleep 1
- '/// close application ///'
Call hCloseDocument
endcase
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdModifyAlignment
- '/// open application ///'
Call hNewDocument
WaitSlot (1000)
- '/// create rectangle ///'
Call hRechteckErstellen ( 20, 20, 30, 50 )
- '/// Modify->Alignment->Left ///'
- '///+ Modify->Alignment->Left ///'
ContextAlignmentLeft
WaitSlot (1000)
- '/// Modify->Alignment->Centered ///'
- '///+ Modify->Alignment->Centered ///'
ContextAlignmentCentered
WaitSlot (1000)
- '/// Modify->Alignment->Right ///'
- '///+ Modify->Alignment->Right ///'
ContextAlignmentRight
WaitSlot (1000)
- '/// Modify->Alignment->Top ///'
- '///+ Modify->Alignment->Top ///'
ContextAlignmentTop
WaitSlot (1000)
- '/// Modify->Alignment->Center ///'
- '///+ Modify->Alignment->Center ///'
ContextAlignmentBottom
WaitSlot (1000)
- '/// Modify->Alignment->Bottom ///'
- '///+ Modify->Alignment->Bottom ///'
ContextAlignmentCenter
WaitSlot (1000)
- '/// close application ///'
Call hCloseDocument
endcase
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextDistribution
- '/// open application ///'
Call hNewDocument
WaitSlot (3000)
- '/// create 3 rectangles ///'
Call hRechteckErstellen (20,20,30,30)
Call hRechteckErstellen (40,40,50,50)
Call hRechteckErstellen (60,60,70,70)
sleep 1
- '/// select all with keyboard: <STRG>+ <A> ///'
EditSelectAll
sleep 1
- '/// Modify->Distibution... ///'
- '///+ Modify->Distibution... ///'
ContextDistribution
Kontext "VerteilenDlg"
- sleep 1
- Call DialogTest (VerteilenDlg)
- sleep 1
- '/// check radiobutton horizontal 'Left' ///'
- Links.Check
- '///+ check radiobutton 'Center' ///'
- MitteHorizontal.Check
- '///+ check radiobutton 'spacing' ///'
- AbstandHorizontal.Check
- '///+ check radiobutton 'right' ///'
- Rechts.Check
- '///+ check radiobutton 'none' ///'
- KeineHorizontal.Check
- '/// check radiobutton vertical 'top' ///'
- Oben.Check
- '///+ check radiobutton 'center' ///'
- MitteVertikal.Check
- '///+ check radiobutton 'spacing' ///'
- AbstandVertikal.Check
- '///+ check radiobutton 'bottom' ///'
- Unten.Check
- '///+ check radiobutton 'none' ///'
- KeineVertikal.Check
- '/// cancel dialog 'Distribution' ///'
- VerteilenDlg.Cancel
- sleep 2
- '/// close application ///'
+ sleep 1
+ Call DialogTest (VerteilenDlg)
+ sleep 1
+ Links.Check
+ MitteHorizontal.Check
+ AbstandHorizontal.Check
+ Rechts.Check
+ KeineHorizontal.Check
+ Oben.Check
+ MitteVertikal.Check
+ AbstandVertikal.Check
+ Unten.Check
+ KeineVertikal.Check
+ VerteilenDlg.Cancel
+ sleep 2
Call hCloseDocument
endcase
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextDescriptionObject
- '/// Open application ///'
Call hNewDocument
WaitSlot (1000)
- '/// create rectangle ///'
Call hRechteckErstellen ( 10, 10, 20, 40 )
ContextDescriptionObject
Kontext "DescriptionObject"
- Call DialogTest (DescriptionObject)
- '/// Cancel dialog 'DescriptionObject' ///'
- DescriptionObject.Cancel
- '/// Close application ///'
+ Call DialogTest (DescriptionObject)
+ DescriptionObject.Cancel
Call hCloseDocument
endcase
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdContextNameObject
- '/// open application ///'
Call hNewDocument
WaitSlot (1000)
- '/// create two rectangles ///'
Call hRechteckErstellen ( 20, 20, 30, 50 )
hTypeKeys("<escape>")
Call hRechteckErstellen ( 30, 40, 50, 60 )
sleep 1
- '/// select both by spanning a selection with the mouse ///'
gMouseMove 1,1,95,95
sleep 1
- '/// Modify->Group ///'
- '///+ Modify->Group ///'
FormatGroupGroup
WaitSlot (1000)
- '/// Modify->Name Object ///'
- '///+ Modify->Name Object ///'
ContextNameObject
Kontext "NameDlgObject"
- Call DialogTest (NameDlgObject)
- '/// cancel dialog 'name' ///'
- NameDlgObject.Cancel
- '/// Modify->UnGroup ///'
- '///+ Modify->UnGroup ///'
- FormatUngroupDraw
- '/// close application ///'
+ Call DialogTest (NameDlgObject)
+ NameDlgObject.Cancel
+ FormatUngroupDraw
Call hCloseDocument
endcase
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdModifyConnectBreak
- '/// open application ///'
Call hNewDocument
sleep 1
- '/// create two rectangles ///'
Call hRechteckErstellen (10,10,30,30)
Call hRechteckErstellen (35,35,50,50)
sleep 1
- '/// Edit->Select All ///'
EditSelectAll
- '/// Modify->Connect ///'
- '///+ Modify->Connect ///'
ContextConnect
sleep 1
try
- '/// Modify->Break ///'
- '///+ Modify->Break ///'
ContextBreak
catch
- Warnlog "- Modify-Break does not work"
+ Warnlog "- Modify-Break does not work"
endcatch
sleep 1
- '/// close application ///'
Call hCloseDocument
endcase
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdModifyShapes
- '/// open application ///'
Call hNewDocument
sleep 1
- '/// create two rectangles ///'
gMouseClick 50,50
Call hRechteckErstellen (30,30,50,50)
Call hRechteckErstellen (60,60,80,80)
sleep 1
- '/// Edit->Select All ///'
EditSelectAll
sleep 1
try
- '/// Modify->Shapes->Merge ///'
- '///+ Modify->Shapes->Merge ///'
- ModifyShapesMerge ' 1
+ ModifyShapesMerge ' 1
WaitSlot (1000) 'sleep 1
- Printlog "- Modify-Shape merge is working"
+ Printlog "- Modify-Shape merge is working"
catch
- Warnlog "- Modify-shape merge is not working"
+ Warnlog "- Modify-shape merge is not working"
endcatch
- '/// select all and delete it ///'
EditSelectAll
sleep 1
hTypeKeys "<DELETE>"
sleep 1
- '/// create two rectangles ///'
Call hRechteckErstellen (30,30,50,50)
Call hRechteckErstellen (60,60,80,80)
sleep 1
- '/// Edit->Select All ///'
EditSelectAll
sleep 1
try
- '/// Modify->Shapes->Substract ///'
- '///+ Modify->Shapes->Substract ///'
- ModifyShapesSubstract ' 2
- Printlog "- Modify-shape-substract is working"
+ ModifyShapesSubstract ' 2
+ Printlog "- Modify-shape-substract is working"
catch
- Warnlog "- Modify-shape substract is not working"
+ Warnlog "- Modify-shape substract is not working"
endcatch
sleep 1
- '/// select all and delete it ///'
EditSelectAll
sleep 1
hTypeKeys "<DELETE>"
sleep 1
- '/// create two rectangles ///'
Call hRechteckErstellen (30,30,50,50)
sleep 1
Call hRechteckErstellen (60,60,80,80)
@@ -541,43 +400,32 @@ testcase tdModifyShapes
EditSelectall
sleep 1
try
- '/// Modify->Shapes->Intersect ///'
- '///+ Modify->Shapes->Intersect ///'
- ModifyShapesIntersect ' 3
- Printlog "- Modify-shape intersect is working"
+ ModifyShapesIntersect ' 3
+ Printlog "- Modify-shape intersect is working"
catch
- Warnlog "- Modify-Shape intersect is not working"
+ Warnlog "- Modify-Shape intersect is not working"
endcatch
- '/// close application ///'
Call hCloseDocument
endcase
'------------------------------------------------------------------------------------------------------------------------------------------------
testcase tdModifyCombineSplit
- '/// open application ///'
Call hNewDocument
sleep 1
- '/// create two rectangles ///'
Call hRechteckErstellen (30,30,50,50)
Call hRechteckErstellen (60,60,80,80)
sleep 1
- '/// Edit->Select All ///'
EditSelectAll
sleep 1
try
- '/// Modify->Shapes->Combine ///'
- '///+ Modify->Shapes->Combine ///'
- ContextCombine
- Printlog "- Modify combine is working"
- '/// Modify->Shapes->Split ///'
- '///+ Modify->Shapes->Split ///'
- ContextSplit
- Printlog "- Modify-split is working"
+ ContextCombine
+ Printlog "- Modify combine is working"
+ ContextSplit
+ Printlog "- Modify-split is working"
catch
- Warnlog "- Modify-combine and split are not working"
+ Warnlog "- Modify-combine and split are not working"
endcatch
- '/// close application ///'
Call hCloseDocument
endcase
diff --git a/testautomation/graphics/optional/includes/global/id_008.inc b/testautomation/graphics/optional/includes/global/id_008.inc
index cb56f464730c..ef238ee0c8f7 100755
--- a/testautomation/graphics/optional/includes/global/id_008.inc
+++ b/testautomation/graphics/optional/includes/global/id_008.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
@@ -42,43 +42,36 @@
testcase tiWindowNewWindow
- '/// open application ///'
Call hNewDocument
- '/// create rectangle ///'
Call hRechteckErstellen ( 10, 10, 20, 40 )
- '/// Window->New Window ///'
WindowNewWindow
WaitSlot (2000)
- '/// close application ///'
Call hCloseDocument
endcase
testcase tidWindow123
goto endsub '' testing TBO: 29.03.2002
dim iMenues as integer
- '/// open application ///'
Call hNewDocument
- '/// create rectangle ///'
Call hRechteckErstellen ( 10, 10, 20, 40 )
Kontext "DocumentImpress"
- DocumentImpress.UseMenu
- iMenues = MenuGetItemCount
- warnlog "---- Number of Main menus: " & iMenues
- MenuSelect(Menugetitemid(8))
- sleep 1
- iMenues = MenuGetItemCount
- printlog "---- Number of Main menus: " & iMenues
- ' MenuSelect(Menugetitemid(14))
- sleep 1
- i=1
- printlog "count: " + i + "; of submenu: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";"
- i=2
- printlog "count: " + i + "; of submenu: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";"
- warnlog "Dynamic entries not accessible ? :-((((("
- ' i=3
- ' printlog "count: " + i + "; of submenue: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";"
- '/// close application ///'
+ DocumentImpress.UseMenu
+ iMenues = MenuGetItemCount
+ warnlog "---- Number of Main menus: " & iMenues
+ MenuSelect(Menugetitemid(8))
+ sleep 1
+ iMenues = MenuGetItemCount
+ printlog "---- Number of Main menus: " & iMenues
+ ' MenuSelect(Menugetitemid(14))
+ sleep 1
+ i=1
+ printlog "count: " + i + "; of submenu: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";"
+ i=2
+ printlog "count: " + i + "; of submenu: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";"
+ warnlog "Dynamic entries not accessible ? :-((((("
+ ' i=3
+ ' printlog "count: " + i + "; of submenue: " + MenuGetItemCount + "; SID: " + MenuGetItemId (i) + "; Text: " + MenuGetItemText (Menugetitemid(i)) + "; Command: " + MenuGetItemCommand(Menugetitemid(i)) + "; Seperator?: " + MenuIsSeperator(i) + "; Enabled: " + MenuIsItemEnabled(Menugetitemid(i)) + "; Checked: " + MenuIsItemChecked(Menugetitemid(i)) + ";"
Call hCloseDocument
endcase
diff --git a/testautomation/graphics/optional/includes/global/id_009.inc b/testautomation/graphics/optional/includes/global/id_009.inc
index 1f9106a42c04..bfbaf6861c36 100755
--- a/testautomation/graphics/optional/includes/global/id_009.inc
+++ b/testautomation/graphics/optional/includes/global/id_009.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
@@ -60,236 +60,190 @@ endcase
'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---.......
testcase tmHelpTips
- Call hNewDocument
- hTBOtypeInDoc
+ Call hNewDocument
+ hTBOtypeInDoc
- HelpTips
- Sleep 2
- HelpTips
+ HelpTips
+ Sleep 2
+ HelpTips
- Call hCloseDocument
+ Call hCloseDocument
endcase
'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---.......
testcase tmHelpExtendedTips
- Call hNewDocument
- hTBOtypeInDoc
+ Call hNewDocument
+ hTBOtypeInDoc
- HelpEntendedHelp
- Sleep (2)
- HelpEntendedHelp
+ HelpEntendedHelp
+ Sleep (2)
+ HelpEntendedHelp
- Call hCloseDocument
+ Call hCloseDocument
endcase
'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---.......
testcase tmHelpAboutStarOffice
- Call hNewDocument
- hTBOtypeInDoc
+ Call hNewDocument
+ hTBOtypeInDoc
- HelpAboutStarOffice
- Kontext "UeberStarMath"
- DialogTest (UeberStarMath)
- UeberStarMath.OK
+ HelpAboutStarOffice
+ Kontext "UeberStarMath"
+ DialogTest (UeberStarMath)
+ UeberStarMath.OK
- Call hCloseDocument
+ Call hCloseDocument
endcase
'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---.......
testcase tmHelpContents
goto endsub '"#i84486# - tmHelpContents outcommented due to crash."
- dim i as integer
+ dim i as integer
- '/// open application ///'
- Call hNewDocument
- '/// Help->Contents ///'
- HelpContents
- sleep(8)
- kontext "StarOfficeHelp"
- if Not StarOfficeHelp.Exists then
- Warnlog "Help is not up!"
- else
- '/// get the number of entries in the listbox 'select Help modul' ///'
- Printlog "HelpAbout: '" + HelpAbout.GetItemCount +"'"
- '################ left half ################
- '/// on the left half of the dialog: ///'
- '///+ change to the tabpage 'Contents' ///'
- TabControl.SetPage ContentPage
- '///+ get the number of entries in the listbox 'MAin help themes' ///'
- Printlog "SearchContent: '" + SearchContent.GetItemCount + "'"
- '///+ change to the tabpage 'Index' ///'
- TabControl.SetPage IndexPage
- '///+ get the number of entries in the listbox 'Search term' ///'
- Printlog "SearchIndex: '" + SearchIndex.GetItemCount + "'"
- sleep 5
- '///+ click on button 'Display' ///'
- DisplayIndex.Click
- sleep 5
- '///+ change to the tabpage 'Find' ///'
- TabControl.SetPage FindPage
- '///+ get the number of entries in the listbox 'Search term' ///'
- Printlog "SearchFind: '" + SearchFind.GetItemCount + "'"
- '/// If the Search-Text-Field is empty - Check that the Find-button is deactivated ///'
- if SearchFind.GetSelText = "" then
- if FindButton.IsEnabled then
- warnlog " The Find-Button should have been inactive, but was active."
- endif
- else
- warnlog " The Search-Text-Field shouldn't contain any text. But contained: " + SearchFind.GetSelText
- endif
- '/// Insert some irrelevant text to get 0 results from the search. ///'
- SearchFind.SetText "Doobbidedooo"
- '///+ click on button 'Find' ///'
- FindButton.Click
- kontext
- '///+ Messagebox comes up about: 'No topics found.' say OK ///'
- if (active.exists (2) )then
- Printlog "active came up: '" + active.gettext + "'"
- active.ok
+ Call hNewDocument
+ HelpContents
+ sleep(8)
+ kontext "StarOfficeHelp"
+ if Not StarOfficeHelp.Exists then
+ Warnlog "Help is not up!"
+ else
+ Printlog "HelpAbout: '" + HelpAbout.GetItemCount +"'"
+ '################ left half ################
+ TabControl.SetPage ContentPage
+ Printlog "SearchContent: '" + SearchContent.GetItemCount + "'"
+ TabControl.SetPage IndexPage
+ Printlog "SearchIndex: '" + SearchIndex.GetItemCount + "'"
+ sleep 5
+ DisplayIndex.Click
+ sleep 5
+ TabControl.SetPage FindPage
+ Printlog "SearchFind: '" + SearchFind.GetItemCount + "'"
+ if SearchFind.GetSelText = "" then
+ if FindButton.IsEnabled then
+ warnlog " The Find-Button should have been inactive, but was active."
endif
- kontext "StarOfficeHelp"
- '///+ check checkbox 'Complete words only' ///'
- FindFullWords.Check
- '///+ check checkbox 'Find in headings only' ///'
- FindInHeadingsOnly.Check
- '///+ get the number of entries in the listbox 'List of headings' ///'
- Printlog "Result: '" + Result.GetItemCount + "'"
- '///+ click on button 'Display' ///'
- DisplayFind.Click
- '///+ change to the tabpage 'Bookmarks' ///'
- TabControl.SetPage BookmarksPage
- '///+ get the number of entries in the listbox 'Bookmark list' ///'
- Printlog "Bookmarks: '" + Bookmarks.GetItemCount + "'"
- '///+ click on button 'Display' ///'
- DisplayBookmarks.Click
- '################ right half ################
- '/// on the right half of teh dialog: ///'
- '################ toolbar ################
- Kontext "TB_Help"
- '///+ click on button 'Hide/Show Navigation Pane' ///'
- Index.Click
+ else
+ warnlog " The Search-Text-Field shouldn't contain any text. But contained: " + SearchFind.GetSelText
+ endif
+ SearchFind.SetText "Doobbidedooo"
+ FindButton.Click
+ kontext
+ if (active.exists (2) )then
+ Printlog "active came up: '" + active.gettext + "'"
+ active.ok
+ endif
+ kontext "StarOfficeHelp"
+ FindFullWords.Check
+ FindInHeadingsOnly.Check
+ Printlog "Result: '" + Result.GetItemCount + "'"
+ DisplayFind.Click
+ TabControl.SetPage BookmarksPage
+ Printlog "Bookmarks: '" + Bookmarks.GetItemCount + "'"
+ DisplayBookmarks.Click
+ '################ right half ################
+ '################ toolbar ################
+ Kontext "TB_Help"
+ Index.Click
+ sleep 1
+ Index.Click
+ sleep 1
+ GoToStart.Click
+ sleep 1
+ Backward.Click
+ sleep 1
+ Forward.Click
+ sleep 1
+ PrintButton.Click
+ sleep (1)
+
+ kontext "Active"
+ if Active.Exists( 2 ) then
+ qaerrorlog "No default printer defined: " & Active.GetText
+ Active.Ok
+ end if
+
+ kontext "DruckenDLG"
+ if DruckenDLG.Exists then
+ DruckenDLG.cancel
+ else
+ warnlog "the Print-Dialogue didnt appear."
+ end if
+ Kontext "TB_Help"
+ sleep 1
+ SetBookmarks.Click
+ sleep 1
+ Kontext "AddBookmark"
+ Printlog "Bookmarkname: '" + Bookmarkname.GetText + "'"
+ AddBookmark.Cancel
+ sleep 1
+ '################ help display ################
+ kontext "HelpContent"
+ HelpContent.OpenContextMenu
+
+ sleep 1
+ Printlog " i: " + hMenuItemGetCount
+ hMenuClose()
+ '################ right scroolbar ################
+ kontext "HelpContent"
+ if HelpContentUP.IsVisible then
+ HelpContentUP.Click
sleep 1
- '///+ click on button 'Hide/Show Navigation Pane' ///'
- Index.Click
- sleep 1
- '///+ click on button 'First Page' ///'
- GoToStart.Click
- sleep 1
- '///+ click on button 'Previous Page' ///'
- Backward.Click
- sleep 1
- '///+ click on button 'Next Page' ///'
- Forward.Click
- sleep 1
- '///+ click on button 'Print ...' ///'
- PrintButton.Click
- sleep (1)
-
- kontext "Active"
- if Active.Exists( 2 ) then
- qaerrorlog "No default printer defined: " & Active.GetText
- Active.Ok
- end if
-
- kontext "DruckenDLG"
- if DruckenDLG.Exists then
- '/// In the dialog 'Print' press the button 'Cancel' ///'
- DruckenDLG.cancel
- else
- warnlog "the Print-Dialogue didnt appear."
- end if
- Kontext "TB_Help"
- '///+ click on button 'Add to Bookmarks ...' ///'
- sleep 1
- SetBookmarks.Click
- sleep 1
- Kontext "AddBookmark"
- '///+ on the dialog 'Add to Bookmarks ...' get the text from the editfield 'Bookmark' and press button 'Cancel' ///'
- Printlog "Bookmarkname: '" + Bookmarkname.GetText + "'"
- AddBookmark.Cancel
- sleep 1
- '################ help display ################
- kontext "HelpContent"
- '///+ open the Context Menu of the Frame 'Help Content' and count the entries ///'
- HelpContent.OpenContextMenu
-
- sleep 1
- Printlog " i: " + hMenuItemGetCount
- hMenuClose()
- '################ right scroolbar ################
- kontext "HelpContent"
- '///+ click on button 'Previous Page' ///'
- if HelpContentUP.IsVisible then
- HelpContentUP.Click
- sleep 1
- endif
- '///+ click on button 'Navigation' ///'
- if HelpContentNAVIGATION.IsVisible then
- HelpContentNAVIGATION.Click
- sleep 1
- endif
- kontext "NavigationsFenster"
- '/// on the toolbox 'Navigation' press the window close button 'X' ///'
- NavigationsFenster.Close
- sleep 1
- kontext "HelpContent"
- '///+ click on button 'Next Page' ///'
- if HelpContentDOWN.IsVisible then
- HelpContentDOWN.Click
- sleep 1
- endif
- kontext "StarOfficeHelp"
- '/// close the help with the keys [strg]+[F4] ///'
- Printlog "trying to close the help now"
- try
- StarOfficeHelp.TypeKeys "<Mod1 F4>" ' strg F4 supported since bug #103586#
- catch
- Warnlog "failed to close the help window :-("
- endcatch
- kontext "StarOfficeHelp"
- if StarOfficeHelp.Exists then
- warnlog "Help still up!"
- endif
- endif
- '/// close application ///'
- Call hCloseDocument
+ endif
+ if HelpContentNAVIGATION.IsVisible then
+ HelpContentNAVIGATION.Click
+ sleep 1
+ endif
+ kontext "NavigationsFenster"
+ NavigationsFenster.Close
+ sleep 1
+ kontext "HelpContent"
+ if HelpContentDOWN.IsVisible then
+ HelpContentDOWN.Click
+ sleep 1
+ endif
+ kontext "StarOfficeHelp"
+ Printlog "trying to close the help now"
+ try
+ StarOfficeHelp.TypeKeys "<Mod1 F4>" ' strg F4 supported since bug #103586#
+ catch
+ Warnlog "failed to close the help window :-("
+ endcatch
+ kontext "StarOfficeHelp"
+ if StarOfficeHelp.Exists then
+ warnlog "Help still up!"
+ endif
+ endif
+ Call hCloseDocument
endcase
'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---.......
testcase tCheckIfTheHelpExists
- '/// open application ///'
- Call hNewDocument
- '/// Bring up the help-window ///'
- HelpContents
- kontext "HelpContent"
- sleep (5)
- '/// Press "CTRL A" and "CTRL C" to select all and then copy it. ///'
- HelpContent.TypeKeys "<MOD1 A>"
- sleep (1)
- HelpContent.TypeKeys "<MOD1 C>"
- '/// If the clipboard now is empty, then nothing were copied, which means we have a bug. ///'
- if GetClipBoard = "" then
- Warnlog " No content in the Help-Content -view."
- else
- Printlog " The Help-Content -view contained content. Good."
- endif
- kontext "StarOfficeHelp"
- '/// Press "CTRL F4" to close the help-window. ///'
- try
- StarOfficeHelp.TypeKeys "<MOD1 F4>"
- catch
- Warnlog " Failed to close the help window :-("
- endcatch
- kontext "StarOfficeHelp"
- if StarOfficeHelp.Exists then
- warnlog "Help was still visible!"
- endif
- '/// And a dot into the main window. Making sure kontext and focus is right. ///'
- hTypeKeys "."
- '/// Close Application ///'
- Call hCloseDocument
+ Call hNewDocument
+ HelpContents
+ kontext "HelpContent"
+ sleep (5)
+ HelpContent.TypeKeys "<MOD1 A>"
+ sleep (1)
+ HelpContent.TypeKeys "<MOD1 C>"
+ if GetClipBoard = "" then
+ Warnlog " No content in the Help-Content -view."
+ else
+ Printlog " The Help-Content -view contained content. Good."
+ endif
+ kontext "StarOfficeHelp"
+ try
+ StarOfficeHelp.TypeKeys "<MOD1 F4>"
+ catch
+ Warnlog " Failed to close the help window :-("
+ endcatch
+ kontext "StarOfficeHelp"
+ if StarOfficeHelp.Exists then
+ warnlog "Help was still visible!"
+ endif
+ hTypeKeys "."
+ Call hCloseDocument
endcase 'tCheckIfTheHelpExists
diff --git a/testautomation/graphics/optional/includes/global/id_011.inc b/testautomation/graphics/optional/includes/global/id_011.inc
index 3a17c098ba1a..12c3796d1cf8 100755
--- a/testautomation/graphics/optional/includes/global/id_011.inc
+++ b/testautomation/graphics/optional/includes/global/id_011.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
@@ -29,19 +29,13 @@
'* <http://www.openoffice.org/license.html>
'* for a copy of the LGPLv3 License.
'*
-'/************************************************************************
+'/******************************************************************************
'*
'* Owner : wolfram.garten@sun.com
'*
'* short description :
'*
-'***********************************************************************************
-' #1 tiTextToolbar
-' #1 tiDrawObjectBar
-' #1 tiGraphicsObjectBar
-' #1 tiGluepointToolbar
-' #1 tdBezierToolbar
-'\**********************************************************************************
+'\******************************************************************************
testcase tiTextToolbar
@@ -49,351 +43,314 @@ testcase tiTextToolbar
Dim Zufall as integer
Dim i as integer
- '/// open application ///'
Call hNewDocument
- '/// create a textframe with text ///'
hTextrahmenErstellen ("This is a Text, which will be formatted in several ways", 20,20,40,80)
- '/// The 'Object Toolbar' now changes ///'
sleep 2
- '/// select of the text with <STRG> + <A> ///'
EditSelectAll
sleep 2
- '/// Call the textobjectbar from the View-Toolbars-menu ///'
Kontext "TextObjectbar"
- if TextObjectbar.Exists <> TRUE then 'isVisible
- ViewToolbarsTextFormatting
- end if
- WaitSlot (3000) 'sleep (3)
+ if TextObjectbar.Exists <> TRUE then 'isVisible
+ ViewToolbarsTextFormatting
+ endif
+ WaitSlot (3000) 'sleep (3)
Kontext "TextObjectbar"
- Printlog "- choose random font"
- randomize
- Zufall=((2*Rnd)+1) ' wird nicht auf den verfuegbaren bereich getreckt :-( TODO TBO!
- Schriftart.GetItemcount
- Schriftart.GetSelText
- Schriftart.Select (Zufall)
- '/// select any font you like in the listbox 'Font' on 'Object Toolbar' ///'
- Printlog Schriftart.GetSelText + " chosen"
+ Printlog "- choose random font"
+ randomize
+ Zufall=((2*Rnd)+1) ' wird nicht auf den verfuegbaren bereich getreckt :-( TODO TBO!
+ Schriftart.GetItemcount
+ Schriftart.GetSelText
+ Schriftart.Select (Zufall)
+ Printlog Schriftart.GetSelText + " chosen"
Kontext "TextObjectbar"
- sleep 2
- Printlog "- Change size of font"
- '/// select any font you like in the listbox 'Size' on 'Object Toolbar' ///'
- Schriftgroesse.Select (Zufall)
- Printlog Schriftgroesse.GetSelText + " chosen"
+ sleep 2
+ Printlog "- Change size of font"
+ Schriftgroesse.Select (Zufall)
+ Printlog Schriftgroesse.GetSelText + " chosen"
Kontext "TextObjectbar"
- Printlog "- Font attribute bold"
- '/// click button 'Bold' ///'
- Fett.Click
- sleep 2
+ Printlog "- Font attribute bold"
+ Fett.Click
+ sleep 2
Kontext "TextObjectbar"
- Printlog "- Font attribute cursive"
- '/// click button 'Italic' ///'
- Kursiv.Click
- sleep 2
+ Printlog "- Font attribute cursive"
+ Kursiv.Click
+ sleep 2
Kontext "TextObjectbar"
- Printlog "- Font attribute cursiv"
- '/// click button 'Underline' ///'
- Unterstrichen.Click
- sleep 2
+ Printlog "- Font attribute cursiv"
+ Unterstrichen.Click
+ sleep 2
Kontext "TextObjectbar"
- Printlog "- font attribute color"
- '/// click button 'Font Color' and tearoff the box ///'
- sleep 3
- FontColorGraphics.TearOff
- Kontext "TB_Farbe"
- TB_Farbe.Move 20, 20
- Sleep 2
- '/// double click in the middle of the box ///'
- TB_Farbe.MouseDoubleClick 50, 50
- Sleep 2
- '/// close box 'Font Color' ///'
- TB_Farbe.Close
+ Printlog "- font attribute color"
+ sleep 3
+ FontColorGraphics.TearOff
+ Kontext "TB_Farbe"
+ TB_Farbe.Move 20, 20
+ Sleep 2
+ TB_Farbe.MouseDoubleClick 50, 50
+ Sleep 2
+ TB_Farbe.Close
Kontext "TextObjectbar"
- Printlog "- Allign text left"
- '/// click button 'Left' ///'
- Linksbuendig.Click
- sleep 2
+ Printlog "- Allign text left"
+ Linksbuendig.Click
+ sleep 2
Kontext "TextObjectbar"
- Printlog "- Allign text centered"
- '/// click button 'Centered' ///'
- Zentriert.Click
- sleep 2
+ Printlog "- Allign text centered"
+ Zentriert.Click
+ sleep 2
Kontext "TextObjectbar"
- Printlog "- align text to right"
- '/// click button 'Right' ///'
- Rechtsbuendig.Click
- sleep 2
+ Printlog "- align text to right"
+ Rechtsbuendig.Click
+ sleep 2
Kontext "TextObjectbar"
- Printlog "- Justified"
- '/// click button 'Justified' ///'
- Blocksatz.Click
- sleep 2
+ Printlog "- Justified"
+ Blocksatz.Click
+ sleep 2
Kontext "TextObjectbar"
- if TextObjectbar.isEnabled <> TRUE then
- warnlog "Couldn't access TextObjectbar - known bug with bars - FHA"
- ViewToolbarsTextFormatting
- end if
- WaitSlot (2000) 'sleep 2
- Printlog "- Raising Font spacing"
- '/// click button 'Increase Spacing' ///'
+ if TextObjectbar.isEnabled <> TRUE then
+ warnlog "Couldn't access TextObjectbar - known bug with bars - FHA"
+ ViewToolbarsTextFormatting
+ endif
+ WaitSlot (2000) 'sleep 2
+ Printlog "- Raising Font spacing"
kontext "TextObjectbar"
- sleep 1
- '/// Check if the bar is there. If not - wait for maximum 10 seconds)
- iWaitIndex = 0
- do while NOT TextObjectbar.isEnabled AND iWaitIndex < 10
- sleep(1)
- iWaitIndex = iWaitIndex + 1
- loop
- if NOT TextObjectbar.isEnabled AND iWaitIndex = 10 then
- warnlog "Dialogue TextObjectbar didnt work. Ending testcase."
- Call hCloseDocument
- goto endsub
- end if
- '/// Activate the Font spacing-buttons ///'
- TextObjectbar.OpenContextMenu
- sleep 2
- hMenuselectNr (1)
- sleep 2
- hMenuItemCheck (13)
- sleep 2
- TextObjectbar.OpenContextMenu
- sleep 2
- hMenuselectNr (1)
- sleep 2
- hMenuItemCheck (14)
- sleep 2
- ZeilenabstandErhoehen.Click
- sleep 2
+ sleep 1
+ iWaitIndex = 0
+ do while NOT TextObjectbar.isEnabled AND iWaitIndex < 10
+ sleep(1)
+ iWaitIndex = iWaitIndex + 1
+ loop
+ if NOT TextObjectbar.isEnabled AND iWaitIndex = 10 then
+ warnlog "Dialogue TextObjectbar didnt work. Ending testcase."
+ Call hCloseDocument
+ goto endsub
+ endif
+ TextObjectbar.OpenContextMenu
+ sleep 2
+ hMenuselectNr (1)
+ sleep 2
+ hMenuItemCheck (13)
+ sleep 2
+ TextObjectbar.OpenContextMenu
+ sleep 2
+ hMenuselectNr (1)
+ sleep 2
+ hMenuItemCheck (14)
+ sleep 2
+ ZeilenabstandErhoehen.Click
+ sleep 2
Kontext "TextObjectbar"
- Printlog "- Decrease Spacing"
- '/// click button 'Decrease Spacing' ///'
- ZeilenabstandVerringern.Click
- sleep 2
+ Printlog "- Decrease Spacing"
+ ZeilenabstandVerringern.Click
+ sleep 2
Kontext "TextObjectbar"
- Printlog "- Numbering and Bullets"
- sleep 2
- '/// click button 'Bullets On/Off' ///'
- BulletsOnOff.Click
- sleep 2
- '/// click button 'Bullets On/Off' ///'
- BulletsOnOff.Click
- '-----------------------------------------------------------------------
+ Printlog "- Numbering and Bullets"
+ sleep 2
+ BulletsOnOff.Click
+ sleep 2
+ BulletsOnOff.Click
+
Kontext "TextObjectBar"
- Printlog "- Increase Font /Reduce Font"
- sleep 2
- printlog "Click on Increase Font"
- IncreaseFont.Click
- sleep 2
- printlog "Click on Reduce Font"
- ReduceFont.Click
- '-----------------------------------------------------------------------
+ Printlog "- Increase Font /Reduce Font"
+ sleep 2
+ printlog "Click on Increase Font"
+ IncreaseFont.Click
+ sleep 2
+ printlog "Click on Reduce Font"
+ ReduceFont.Click
+
Kontext "TextObjectbar"
- Printlog "- Text direction from left to right"
- sleep 2
- Printlog "- click button 'Text direction from left to right
- try
- TextdirectionLeftToRight.Click
- printlog "hor does work :-)"
- if (gAsianSup = FALSE) then
- warnlog " this doesn't have to work if asian lang support is disabled :-)"
- end if
- catch
- if (gAsianSup = TRUE) then
- warnlog "hor does NOT work :-("
- end if
- endcatch
- Printlog "- click button 'Text direction from top to bottom"
- try
- TextdirectionTopToBottom.Click
- printlog "ver does work :-)"
- if (gAsianSup = FALSE) then
- warnlog " this doesnt have to work if asian lang support is disabled :-)"
- end if
- catch
- if (gAsianSup = TRUE) then
- warnlog "ver does NOT work :-( , AsianLanguage support is enabled !"
- end if
- endcatch
+ Printlog "- Text direction from left to right"
+ sleep 2
+ Printlog "- click button 'Text direction from left to right
+ try
+ TextdirectionLeftToRight.Click
+ printlog "hor does work :-)"
+ if (NOT gAsianSup) then
+ warnlog " this doesn't have to work if asian lang support is disabled :-)"
+ endif
+ catch
+ if (gAsianSup) then
+ warnlog "hor does NOT work :-("
+ endif
+ endcatch
+ Printlog "- click button 'Text direction from top to bottom"
+ try
+ TextdirectionTopToBottom.Click
+ printlog "ver does work :-)"
+ if (gAsianSup = FALSE) then
+ warnlog " this doesnt have to work if asian lang support is disabled :-)"
+ endif
+ catch
+ if (gAsianSup = TRUE) then
+ warnlog "ver does NOT work :-( , AsianLanguage support is enabled !"
+ endif
+ endcatch
Printlog "- open character dialog"
Kontext "TextObjectbar"
- sleep 2
- '/// click button 'Character' ///'
- Zeichenformat.Click
- sleep 2
- Kontext
- Active.SetPage TabFont
- Kontext "TabFont"
- sleep 2
- if TabFont.Exists Then
- '/// close dialog 'character' ///'
- TabFont.Cancel
- Printlog "- Tabfont exists"
- else
- Warnlog "- No dialog exists "
- end if
+ sleep 2
+ Zeichenformat.Click
+ sleep 2
+
+ Kontext
+ Active.SetPage TabFont
+
+ Kontext "TabFont"
+ sleep 2
+ if TabFont.Exists Then
+ TabFont.Cancel
+ Printlog "- Tabfont exists"
+ else
+ Warnlog "- No dialog exists "
+ endif
Kontext "TextObjectbar"
- sleep 2
- Printlog "- call properties for paragraph using text object toolbar"
- '/// click button 'Paragraph' ///'
- Absatzformat.Click
- sleep 2
- Kontext
- Active.SetPage TabTabulator
- Kontext "TabTabulator"
- if TabTabulator.Exists Then
- Printlog "- TabTabulator exists"
- '/// close dialog 'Paragraph' ///'
- TabTabulator.Cancel
- else
- Warnlog "- TabTabulator does not exist"
- end if
+ sleep 2
+ Printlog "- call properties for paragraph using text object toolbar"
+ Absatzformat.Click
+ sleep 2
+
+ Kontext
+ Active.SetPage TabTabulator
+
+ Kontext "TabTabulator"
+ if TabTabulator.Exists Then
+ Printlog "- TabTabulator exists"
+ TabTabulator.Cancel
+ else
+ Warnlog "- TabTabulator does not exist"
+ endif
- if (UCase(gApplication)) = "IMPRESS" then ' IMPRESS only
- '/// if the Application is Impress: ///'
+ if ( gApplication = "IMPRESS" ) then ' IMPRESS only
Kontext "TextObjectbar"
- '/// click button 'Numbering Symbols' ///'
- OutlineBullet.Click
- kontext
- if active.exists (5) then
- messagebox.SetPage TabOptionenNumerierung
- kontext "TabOptionenNumerierung"
- '/// cancel dialog 'Numbering/Bullets' ///'
- if (TabOptionenNumerierung.exists (5) ) then
- Printlog "Numbering/Bullets window came up :-)"
- sleep 2
- TabOptionenNumerierung.cancel
- else
- warnlog "no Numbering/Bullets window came up :-("
- end if
- sleep 2
+ OutlineBullet.Click
+ kontext
+ if active.exists (5) then
+ messagebox.SetPage TabOptionenNumerierung
+
+ kontext "TabOptionenNumerierung"
+ if (TabOptionenNumerierung.exists (5) ) then
+ Printlog "Numbering/Bullets window came up :-)"
+ TabOptionenNumerierung.cancel
else
- warnlog "no Numbering/Bullets window came up :-( 2"
- end if
-
- Printlog "-change order of outline points"
- sleep 3
- '/// View->Master View->Outline View ///'
- ViewWorkspaceOutlineView
- WaitSlot (2000) 'sleep (3)
- Kontext "DocumentImpressOutlineView"
- sleep 1
- '/// type something ///'
- DocumentImpressOutlineView.TypeKeys "Bla bla bla <RETURN><TAB>bla bla bla bla bla <MOD1 SHIFT LEFT>"
- sleep 1
- Kontext "TextObjectbar"
- '/// click button 'Promote' ///'
- HierachieRunter.Click
- sleep 1
- Printlog "- Move back down"
- '/// click button 'Denote' ///'
- HierachieHoch.Click
- sleep 1
- '/// click button 'Denote' ///'
- HierachieHoch.Click
- sleep 1
- Printlog "- Move paragraph up"
- '/// click button 'Move Up', twice to get two slides ///'
- AbsatzHoch.Click
- sleep 1
- Printlog "- move paragraph back down and switch to drawing view"
- '/// click button 'Move Down' ///'
- AbsatzRunter.Click
- sleep 1
+ warnlog "no Numbering/Bullets window came up :-("
+ endif
+ else
+ warnlog "no Numbering/Bullets window came up :-( 2"
+ endif
+
+ Printlog "-change order of outline points"
+ sleep 3
+ ViewWorkspaceOutlineView
+ WaitSlot (2000) 'sleep (3)
+
+ Kontext "DocumentImpressOutlineView"
+ sleep 1
+ DocumentImpressOutlineView.TypeKeys "Bla bla bla <RETURN><TAB>bla bla bla bla bla <MOD1 SHIFT LEFT>"
+ sleep 1
+
+ Kontext "TextObjectbar"
+ HierachieRunter.Click
+ sleep 1
+ Printlog "- Move back down"
+ HierachieHoch.Click
+ sleep 1
+ HierachieHoch.Click
+ sleep 1
+ Printlog "- Move paragraph up"
+ AbsatzHoch.Click
+ sleep 1
+ Printlog "- move paragraph back down and switch to drawing view"
+ AbsatzRunter.Click
+ sleep 1
Kontext "Vorschau"
if Vorschau.Exists then
printlog "- - - - preview window is open, hope there is no problem"
' Vorschau.Close
- end if
-
+ endif
+
else ' DRAW only
Kontext "TextObjectbar"
- Printlog "- Double"
- '/// click button 'Double' ///'
- LineSpacing2.Click
- sleep 2
+ Printlog "- Double"
+ LineSpacing2.Click
+ sleep 2
Kontext "TextObjectbar"
- Printlog "- 1.5 lines"
- '/// click button '1.5 lines' ///'
- LineSpacing15.Click
- sleep 2
+ Printlog "- 1.5 lines"
+ LineSpacing15.Click
+ sleep 2
Kontext "TextObjectbar"
- Printlog "- Single"
- '/// click button 'Single' ///'
- LineSpacing1.Click
- sleep 2
- end if
+ Printlog "- Single"
+ LineSpacing1.Click
+ sleep 2
+ endif
- '/// Check if the bar is there. If not - wait for maximum 10 seconds)
iWaitIndex = 0
+
Kontext "TextObjectbar"
- do while TextObjectbar.isEnabled = FALSE AND iWaitIndex < 10
- sleep(1)
- iWaitIndex = iWaitIndex + 1
- loop
- if TextObjectbar.isEnabled = FALSE AND iWaitIndex = 10 then
- warnlog "Dialogue TextObjectbar didnt work. Ending testcase."
- Call hCloseDocument
- goto endsub
- end if
- '/// Reset the original value of the Font spacing-buttons ///'
- sleep 2
+ do while TextObjectbar.isEnabled = FALSE AND iWaitIndex < 10
+ sleep(1)
+ iWaitIndex = iWaitIndex + 1
+ loop
+ if TextObjectbar.isEnabled = FALSE AND iWaitIndex = 10 then
+ warnlog "Dialogue TextObjectbar didnt work. Ending testcase."
+ Call hCloseDocument
+ goto endsub
+ endif
+ sleep 2
+
Kontext "TextObjectbar"
- TextObjectbar.OpenContextMenu
- sleep 2
- hMenuselectNr (1)
- sleep 2
- hMenuItemUnCheck (13)
- sleep 2
- TextObjectbar.OpenContextMenu
- sleep 2
- hMenuselectNr (1)
- sleep 2
- hMenuItemUnCheck (14)
- sleep 2
- '/// Close the TextFormatting Toolbar ///'
- ViewToolbarsTextFormatting
- WaitSlot (2000) 'sleep 1
- '/// Clear the document from content ///'
- if (gApplication = "IMPRESS") then
+ TextObjectbar.OpenContextMenu
+ sleep 2
+ hMenuselectNr (1)
+ sleep 2
+ hMenuItemUnCheck (13)
+ sleep 2
+ TextObjectbar.OpenContextMenu
+ sleep 2
+ hMenuselectNr (1)
+ sleep 2
+ hMenuItemUnCheck (14)
+ sleep 2
+ ViewToolbarsTextFormatting
+ WaitSlot (2000) 'sleep 1
+ if ( gApplication = "IMPRESS" ) then
Kontext "DocumentImpressOutlineView"
- DocumentImpressOutlineView.TypeKeys "<ESCAPE>"
- EditSelectAll
- DocumentImpressOutlineView.TypeKeys "<DELETE>"
- sleep (3)
- ViewWorkspaceDrawingView
+ DocumentImpressOutlineView.TypeKeys "<ESCAPE>"
+ hUseAsyncSlot( "EditSelectAll" )
+ DocumentImpressOutlineView.TypeKeys "<DELETE>"
+ sleep (3)
+ ViewWorkspaceDrawingView
+
Kontext "DocumentImpress"
- WaitSlot (2000) 'sleep 1
- DocumentImpress.TypeKeys "<ESCAPE>"
- EditSelectAll
- DocumentImpress.TypeKeys "<DELETE>"
+ WaitSlot (2000) 'sleep 1
+ DocumentImpress.TypeKeys "<ESCAPE>"
+ hUseAsyncSlot( "EditSelectAll" )
+ DocumentImpress.TypeKeys "<DELETE>"
else
Kontext "DocumentDraw"
- DocumentDraw.TypeKeys "<ESCAPE>"
- EditSelectAll
- DocumentDraw.TypeKeys "<DELETE>"
- end if
+ DocumentDraw.TypeKeys "<ESCAPE>"
+ hUseAsyncSlot( "EditSelectAll" )
+ DocumentDraw.TypeKeys "<DELETE>"
+ endif
Printlog "Test ended."
- '/// close application ///'
Call hCloseDocument
endcase
@@ -405,174 +362,153 @@ testcase tiDrawObjectBar
Dim i as integer
Dim x as integer
- '/// open application ///'
Call hNewDocument
- '/// create rectangle to test the part for draw objects ///'
Call hRechteckErstellen (20,20,70,70)
sleep 1
'--------------------------- format line ------------------------
Printlog "- call format line using graphic object toolbar"
Kontext "DrawingObjectbar"
- '/// Check if the Graphic-Toolbar is there. Which it should be. ///'
- '/// If it's not - then we call it from the View-Toolbars ///'
- if DrawingObjectbar.Exists = FALSE then
- ViewToolbarsGraphic
- end if
- if DrawingObjectbar.Exists = FALSE then
- warnlog "Drawing-Objectbar should have been opened, but wasnt"
- ViewToolbarsGraphic
- end if
-
- sleep 3
- '/// click button 'line' on 'Object Toolbar' ///'
- Linie.Click
- sleep 2
- Kontext
- Active.SetPage TabLinie
- Kontext "TabLinie"
- if TabLinie.Exists Then
- '/// cancel dialog 'line' ///'
- TabLinie.Cancel
- Printlog "- TabLinie exists "
- else
- Warnlog "- TabLinie does not exist"
- end if
+ if DrawingObjectbar.Exists = FALSE then
+ ViewToolbarsGraphic
+ endif
+ if DrawingObjectbar.Exists = FALSE then
+ warnlog "Drawing-Objectbar should have been opened, but wasnt"
+ ViewToolbarsGraphic
+ endif
+
+ sleep 3
+ Linie.Click
+ sleep 2
+ Kontext
+ Active.SetPage TabLinie
+ Kontext "TabLinie"
+ if TabLinie.Exists Then
+ TabLinie.Cancel
+ Printlog "- TabLinie exists "
+ else
+ Warnlog "- TabLinie does not exist"
+ endif
'--------------------------- Linienendenstil --------------------
Printlog "- Style of line ends"
Kontext "DrawingObjectbar"
- sleep 1
- '/// click button 'Arrow Style' and tearoff the box ///'
- Linienendenstil.TearOff
- sleep 2
- Kontext "Linienenden"
- if Linienenden.Exists Then
- Printlog "- dialog exists"
- '/// close toolbox 'arrowheads' ///'
- Linienenden.Close
- else
- Warnlog "- Arrowheads does not exist"
- end if
+ sleep 1
+ Linienendenstil.TearOff
+ sleep 2
+ Kontext "Linienenden"
+ if Linienenden.Exists Then
+ Printlog "- dialog exists"
+ Linienenden.Close
+ else
+ Warnlog "- Arrowheads does not exist"
+ endif
'--------------------------- Linienstil -------------------------
Printlog "- choose style of lines using graphic object toolbar"
Kontext "DrawingObjectbar"
- sleep 1
- '/// select 2nd entry from the top in listbox 'Line Style' ///'
- Linienstil.Select 2
- Printlog Linienstil.GetSelText + " chosen"
- '/// select last entry in listbox 'Line Style' ///'
- Linienstil.Select Linienstil.GetItemCount
- Printlog Linienstil.GetSelText + " chosen"
- sleep 2
+ sleep 1
+ Linienstil.Select 2
+ Printlog Linienstil.GetSelText + " chosen"
+ Linienstil.Select Linienstil.GetItemCount
+ Printlog Linienstil.GetSelText + " chosen"
+ sleep 2
'--------------------------- Linienbreite------------------------
Printlog "- check style of lines using graphic object toolbar"
Kontext "DrawingObjectbar"
- sleep 1
- a = Linienbreite.GetText
- SetClipboard a
- sleep 1
- '/// set 'Line Width' to "0,5" ///'
- Linienbreite.SetText "0,5"
- sleep 2
- '/// check if the value is accepted or not ///'
- if Linienbreite.GetText = a Then
- Warnlog "- changes in edit field did not happen; is: '"+Linienbreite.GetText+"', should be : '"+"0,5"+"'"
- else
- Printlog "- Width of lines changed"
- end if
+ sleep 1
+ a = Linienbreite.GetText
+ SetClipboard a
+ sleep 1
+ Linienbreite.SetText "0,5"
+ sleep 2
+ if Linienbreite.GetText = a Then
+ Warnlog "- changes in edit field did not happen; is: '"+Linienbreite.GetText+"', should be : '"+"0,5"+"'"
+ else
+ Printlog "- Width of lines changed"
+ endif
'--------------------------- Linienfarbe ------------------------
Printlog "- change line color"
Kontext "DrawingObjectbar"
- sleep 1
- Zaehler = Linienfarbe.GetItemCount
- randomize
- i = Int(Zaehler*Rnd+1)
- '/// select some entry in the listbox 'Line Color' ///'
- Linienfarbe.Select i
- Printlog Linienfarbe.GetSelText + " chosen"
+ sleep 1
+ Zaehler = Linienfarbe.GetItemCount
+ randomize
+ i = Int(Zaehler*Rnd+1)
+ Linienfarbe.Select i
+ Printlog Linienfarbe.GetSelText + " chosen"
'--------------------------- Flaechenformatierung ---------------
Printlog "- Call Format area using graphic object toolbar"
Kontext "DrawingObjectbar"
- sleep 1
- '/// click button 'Area' ///'
- try
- Flaeche.Click
- catch
- printlog "clicking on area took ages :-("
- endcatch
- sleep 5
- Kontext
- Active.SetPage TabArea
- Kontext "TabArea"
- if TabArea.Exists Then
- Printlog "- TabArea exists "
- '/// cancel dialog 'Area' ///'
- TabArea.Cancel
- else
- Warnlog "- TabArea does not exist"
- end if
+ sleep 1
+ try
+ Flaeche.Click
+ catch
+ printlog "clicking on area took ages :-("
+ endcatch
+ sleep 5
+ Kontext
+ Active.SetPage TabArea
+ Kontext "TabArea"
+ if TabArea.Exists Then
+ Printlog "- TabArea exists "
+ TabArea.Cancel
+ else
+ Warnlog "- TabArea does not exist"
+ endif
'---
sleep 1
Kontext "DrawingObjectbar"
+ sleep 1
+ x = AreaStyle.GetItemCount
+ i = 1
+ for i = i to x
+ AreaStyle.Select i
+ Printlog "Area Style: (" + i + "/" + x + ") - " + AreaStyle.GetSelText
sleep 1
- x = AreaStyle.GetItemCount
- i = 1
- for i = i to x
- AreaStyle.Select i
- Printlog "Area Style: (" + i + "/" + x + ") - " + AreaStyle.GetSelText
- sleep 1
- '/// for every item in the listbox 'Area Style' select the last item in the listbox 'Area Filling' ///'
- if AreaStyle.GetSelIndex > 1 then
- Printlog " Area Filling " + AreaFilling.GetSelIndex + " - " + AreaFilling.GetItemCount
- if (i <> 1) AND (AreaFilling.GetItemCount <> 0) then
- if (AreaFilling.GetSelIndex = 0) AND (AreaFilling.GetItemCount > 0) then
- printlog "default item is 0 => means nothing; NO BUG! 100909"
- end if
- AreaFilling.Select (AreaFilling.GetItemCount)
- Printlog " Selected: " + AreaFilling.GetSelIndex + " - " + AreaFilling.GetSelText
- end if
- end if
- next i
+ if AreaStyle.GetSelIndex > 1 then
+ Printlog " Area Filling " + AreaFilling.GetSelIndex + " - " + AreaFilling.GetItemCount
+ if (i <> 1) AND (AreaFilling.GetItemCount <> 0) then
+ if (AreaFilling.GetSelIndex = 0) AND (AreaFilling.GetItemCount > 0) then
+ printlog "default item is 0 => means nothing; NO BUG! 100909"
+ endif
+ AreaFilling.Select (AreaFilling.GetItemCount)
+ Printlog " Selected: " + AreaFilling.GetSelIndex + " - " + AreaFilling.GetSelText
+ endif
+ endif
+ next i
'---------------------------- Schatten --------------------------
Printlog "- Assign shadow using graphic object toolbar"
Kontext "DrawingObjectbar"
- sleep 1
- '/// click button 'Shadow' ///'
- Schatten.Click
- sleep 1
- Printlog "- shadow assigned"
-
- '---------------------------- Praesentationsflyer ---------------
- '/// if Application is Impress: ///'
- if (UCase(gApplication)) = "IMPRESS" then ' IMPRESS only
- Printlog "- Call presentation flyer"
- Kontext "CommonTaskbar" ' first check , if presentation flyer is up! if not -> make it up :-)
- '///+ if 'Presentation Box' is not visible, click button 'Presentation Box on/off' ///'
- if CommonTaskbar.Exists Then
- printlog "- flyer is already visible :-)"
- else
- printlog "- flyer wasn't visible :-( -will be now!"
- Kontext "DrawingObjectbar"
- sleep 1
- ViewToolbarsPresentation ' put it up again!
- end if
- end if
- '/// Make sure the Graphics-Toolbar is visible ///'
- if ((UCase(gApplication)) = "IMPRESS") then ' IMPRESS only
+ sleep 1
+ Schatten.Click
+ sleep 1
+ Printlog "- shadow assigned"
+
+ '---------------------------- Praesentationsflyer ---------------
+ if ( gApplication = "IMPRESS" ) then ' IMPRESS only
+ Printlog "- Call presentation flyer"
+ Kontext "CommonTaskbar" ' first check , if presentation flyer is up! if not -> make it up :-)
+ if CommonTaskbar.Exists Then
+ printlog "- flyer is already visible :-)"
+ else
+ printlog "- flyer wasn't visible :-( -will be now!"
Kontext "DrawingObjectbar"
- if DrawingObjectbar.isVisible = FALSE then
- ViewToolbarsGraphic
- end if
- end if
- '/// close application ///'
+ sleep 1
+ ViewToolbarsPresentation ' put it up again!
+ endif
+ endif
+ if ((UCase(gApplication)) = "IMPRESS") then ' IMPRESS only
+ Kontext "DrawingObjectbar"
+ if DrawingObjectbar.isVisible = FALSE then
+ ViewToolbarsGraphic
+ endif
+ endif
Call hCloseDocument
endcase
@@ -580,584 +516,485 @@ endcase
testcase tiGraphicsObjectBar
dim i as integer
- '/// open application ///'
Call hNewDocument
- '/// insert a graphic "global\input\graf_inp\desp.bmp" ///'
- hGrafikeinfuegen ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
+ hGrafikeinfuegen ConvertPath (gTesttoolPath & "global\input\graf_inp\desp.bmp")
+ sleep 1
+ Kontext "GraphicObjectbar"
+ if ( NOT GraphicObjectbar.Exists() ) then
+ ViewToolbarsPicture
+ endif
+ sleep 1
+ Filter.TearOff
+ sleep 1
+ Kontext "GraphicFilterBar"
+ sleep 1
+ Printlog "invert"
+ Invert.Click
+ sleep 3
+ Printlog "smooth"
+ Smooth.Click
+ sleep 3
+ Printlog "sharpen"
+ Sharpen.Click
+ sleep 3
+ Printlog "remove noise"
+ Remove.Click
+ sleep 3
+ Printlog "solarization"
+ Solarization.Click
+ sleep 3
+ Kontext "Solarization"
+ if Solarization.exists (5) then
sleep 1
- Kontext "GraphicObjectbar"
- if GraphicObjectbar.Exists = FALSE then
- ViewToolbarsPicture
- end if
- sleep 1
- '/// click button 'Filter' and tearoff the box in the Objectbar///'
- Filter.TearOff
- sleep 1
- Kontext "GraphicFilterBar"
- sleep 1
- Printlog "invert"
- '/// click button 'Invert' in window 'Filters' ///'
- Invert.Click
- sleep 3
- Printlog "smooth"
- '/// click button 'Smooth' in window 'Filters' ///'
- Smooth.Click
- sleep 3
- Printlog "sharpen"
- '/// click button 'Sharpen' in window 'Filters' ///'
- Sharpen.Click
- sleep 3
- Printlog "remove noise"
- '/// click button 'RemoveNoise' in window 'Filters' ///'
- Remove.Click
- sleep 3
- Printlog "solarization"
- '/// click button 'Solarization' in window 'Filters' ///'
- Solarization.Click
- sleep 3
- Kontext "Solarization"
- if Solarization.exists (5) then
- sleep 1
- Call Dialogtest ( Solarization )
- sleep 1
- '/// press 'more' and 'less' in field 'Trashold Value' on dialog 'Solarization' ///'
- Value.More
- Value.Less
- '/// check checkbox 'Invert' on dialog 'Solarization' ///'
- Invert.Check
- '/// close dialog 'Solarization' with OK ///'
- Solarization.OK
- else
- warnlog "solarization didn't came up :-("
- end if
- sleep 1
- Kontext "GraphicFilterBar"
- sleep 1
- Printlog "aging"
- '/// click button 'Aging' in window 'Filters' ///'
- Aging.Click
- Kontext "Aging"
- sleep 1
- Call Dialogtest ( Aging )
- '/// press 'more' and 'less' in field 'Aging degree' on dialog 'Aging' ///'
- AgingDegree.More
- AgingDegree.Less
- sleep 1
- '/// close dialog 'Aging' with OK ///'
- Aging.OK
- sleep 1
- Kontext "GraphicFilterBar"
- sleep 1
- Printlog "poster"
- '/// click button 'Posterize' in window 'Filters' ///'
- Posterize.Click
- sleep 1
- Kontext "Posterize"
- sleep 1
- Call Dialogtest ( Posterize )
- '/// press 'more' and 'less' in field 'Aging degree' on dialog 'Posterize' ///'
- PosterColors.More
- PosterColors.Less
- sleep 1
- '/// close dialog 'Posterize' with OK ///'
- Posterize.OK
- sleep 2
- kontext "GraphicFilterBar"
- sleep 1
- Printlog "pop"
- '/// click button 'PopArt' in window 'Filters' ///'
- Art.Click
- sleep 3
- Printlog "charcoal"
- '/// click button 'CharcoalSketch' in window 'Filters' ///'
- CharcoalSketch.Click
- sleep 3
- Printlog "relief"
- '/// click button 'Relief' in window 'Filters' ///'
- Relief.Click
- Kontext "Relief"
- sleep 1
- Call Dialogtest ( Relief )
- LightSource.TypeKeys "<left><up>"
- '/// close dialog 'Relief' with OK ///'
- Relief.OK
- sleep 3
- Kontext "GraphicFilterBar"
- Printlog "mos"
- '/// click button 'Mosaic' in window 'Filters' ///'
- Mosaic.Click
- sleep 1
- Kontext "Mosaic"
- sleep 1
- Call Dialogtest ( Mosaic )
- '/// press 'more' and 'less' in field 'Width' on dialog 'Mosaic' ///'
- Width.More
- Width.Less
- '/// press 'more' and 'less' in field 'Height' on dialog 'Mosaic' ///'
- Height.More
- Height.Less
- '/// check checkbox 'Enhance Edges' on dialog 'Mosaic' ///'
- EnhanceEdges.Check
- '/// close dialog 'Mosaic' with OK ///'
- Mosaic.OK
- sleep 3
- Kontext "GraphicFilterBar"
- '/// close dialog 'Filters' ///'
- GraphicFilterBar.Close
-
- Kontext "GraphicObjectbar"
- if GraphicObjectbar.Exists = FALSE then ViewToolbarsPicture
- sleep 1
- '/// select every entry in the listbox 'Graphics mode' ///'
- for i = 1 to Grafikmodus.GetItemCount
- Grafikmodus.select i
- sleep 1
- next i
-
- '/// Click on the icon for 'ColorSettings' to open the colorbar ///'
- ColorSettings.Click
- Kontext "ColorBar"
-
- '/// press 'more' and 'less' in field 'Red' on colorbar ///'
- try
- Rotanteil.More
- Rotanteil.Less
- catch
- warnlog "not working from testtool redvalue "+ rotanteil.GetRT
- endcatch
- '/// press 'more' and 'less' in field 'Green' on colorbar ///'
- try
- Gruenanteil.More
- Gruenanteil.Less
- catch
- warnlog "not working from testtool Greenvalue."
- endcatch
- '/// press 'more' and 'less' in field 'Blue' on colorbar ///'
- try
- Blauanteil.More
- Blauanteil.Less
- catch
- warnlog "not working from testtool Bluevalue."
- endcatch
- '/// press 'more' and 'less' in field 'Brightness' on colorbar ///'
- try
- Helligkeit.More
- Helligkeit.Less
- catch
- warnlog "not working from testtool Brightness."
- endcatch
- '/// press 'more' and 'less' in field 'Contrast' on colorbar ///'
- try
- Kontrast.More
- Kontrast.Less
- catch
- warnlog "not working from testtool Contrast."
- endcatch
- '/// press 'more' and 'less' in field 'Gamma' on colorbar ///'
- try
- Gamma.More
- Gamma.Less
- catch
- warnlog "not working from testtool Gamma."
- endcatch
-
- ColorBar.Close
- Kontext "GraphicObjectbar"
-
- '/// press 'more' and 'less' in field 'Transparency' on objectbar ///'
- try
- Transparenz.More
- Transparenz.Less
- catch
- warnlog "Not working from testtool Transparency."
- endcatch
-
- '/// press button 'Crop' on objectbar ///'
- Crop.click
- '/// Opening Dialog via Slot
- FormatCropPicture
-
- kontext "TabZuschneiden"
- '/// check radiobutton 'Keep scale' on dialog 'Crop' ///'
- GroesseBeibehalten.Check
- '/// check radiobutton 'Keep Image Size' on dialog 'Crop' ///'
- MassstabBeibehalten.Check
- '/// press 'more' and 'less' in field 'Left' in section 'Crop' on dialog 'Crop' ///'
- Links.More
- Links.Less
- '/// press 'more' and 'less' in field 'Right' in section 'Crop' on dialog 'Crop' ///'
- Rechts.More
- Rechts.Less
- '/// press 'more' and 'less' in field 'Top' in section 'Crop' on dialog 'Crop' ///'
- Oben.More
- Oben.Less
- '/// press 'more' and 'less' in field 'Bottom' in section 'Crop' on dialog 'Crop' ///'
- Unten.More
- Unten.Less
- '/// press 'more' and 'less' in field 'Width' in section 'Scale' on dialog 'Crop' ///'
- MassstabBreite.More
- MassstabBreite.Less
- '/// press 'more' and 'less' in field 'Height' in section 'Scale' on dialog 'Crop' ///'
- MassstabHoehe.More
- MassstabHoehe.Less
- '/// press 'more' and 'less' in field 'Width' in section 'Image size' on dialog 'Crop' ///'
- GroesseBreite.More
- GroesseBreite.Less
- '/// press 'more' and 'less' in field 'Height' in section 'Image size' on dialog 'Crop' ///'
- GroesseHoehe.More
- GroesseHoehe.Less
- '/// click button 'Original Size' on dialog 'Crop' ///'
- Originalgroesse.Click
- '/// cancel dialog 'Crop' ///'
- TabZuschneiden.Cancel
-
- '/// close application ///'
+ Call Dialogtest ( Solarization )
+ sleep 1
+ Value.More
+ Value.Less
+ Invert.Check
+ Solarization.OK
+ else
+ warnlog "solarization didn't came up :-("
+ endif
+ sleep 1
+ Kontext "GraphicFilterBar"
+ sleep 1
+ Printlog "aging"
+ Aging.Click
+ Kontext "Aging"
+ sleep 1
+ Call Dialogtest ( Aging )
+ AgingDegree.More
+ AgingDegree.Less
+ sleep 1
+ Aging.OK
+ sleep 1
+ Kontext "GraphicFilterBar"
+ sleep 1
+ Printlog "poster"
+ Posterize.Click
+ sleep 1
+ Kontext "Posterize"
+ sleep 1
+ Call Dialogtest ( Posterize )
+ PosterColors.More
+ PosterColors.Less
+ sleep 1
+ Posterize.OK
+ sleep 2
+ kontext "GraphicFilterBar"
+ sleep 1
+ Printlog "pop"
+ Art.Click
+ sleep 3
+ Printlog "charcoal"
+ CharcoalSketch.Click
+ sleep 3
+ Printlog "relief"
+ Relief.Click
+ Kontext "Relief"
+ sleep 1
+ Call Dialogtest ( Relief )
+ LightSource.TypeKeys "<left><up>"
+ Relief.OK
+ sleep 3
+ Kontext "GraphicFilterBar"
+ Printlog "mos"
+ Mosaic.Click
+ sleep 1
+ Kontext "Mosaic"
+ sleep 1
+ Call Dialogtest ( Mosaic )
+ Width.More
+ Width.Less
+ Height.More
+ Height.Less
+ EnhanceEdges.Check
+ Mosaic.OK
+ sleep 3
+ Kontext "GraphicFilterBar"
+ GraphicFilterBar.Close
+
+ Kontext "GraphicObjectbar"
+ if GraphicObjectbar.Exists = FALSE then
+ ViewToolbarsPicture
+ endif
+ sleep 1
+ for i = 1 to Grafikmodus.GetItemCount
+ Grafikmodus.select i
+ sleep 1
+ next i
+
+ ColorSettings.Click
+ Kontext "ColorBar"
+
+ try
+ Rotanteil.More
+ Rotanteil.Less
+ catch
+ warnlog "not working from testtool redvalue "+ rotanteil.GetRT
+ endcatch
+ try
+ Gruenanteil.More
+ Gruenanteil.Less
+ catch
+ warnlog "not working from testtool Greenvalue."
+ endcatch
+ try
+ Blauanteil.More
+ Blauanteil.Less
+ catch
+ warnlog "not working from testtool Bluevalue."
+ endcatch
+ try
+ Helligkeit.More
+ Helligkeit.Less
+ catch
+ warnlog "not working from testtool Brightness."
+ endcatch
+ try
+ Kontrast.More
+ Kontrast.Less
+ catch
+ warnlog "not working from testtool Contrast."
+ endcatch
+ try
+ Gamma.More
+ Gamma.Less
+ catch
+ warnlog "not working from testtool Gamma."
+ endcatch
+
+ ColorBar.Close
+ Kontext "GraphicObjectbar"
+
+ try
+ Transparenz.More
+ Transparenz.Less
+ catch
+ warnlog "Not working from testtool Transparency."
+ endcatch
+
+ Crop.click
+ FormatCropPicture
+
+ kontext "TabZuschneiden"
+ GroesseBeibehalten.Check
+ MassstabBeibehalten.Check
+ Links.More
+ Links.Less
+ Rechts.More
+ Rechts.Less
+ Oben.More
+ Oben.Less
+ Unten.More
+ Unten.Less
+ MassstabBreite.More
+ MassstabBreite.Less
+ MassstabHoehe.More
+ MassstabHoehe.Less
+ GroesseBreite.More
+ GroesseBreite.Less
+ GroesseHoehe.More
+ GroesseHoehe.Less
+ Originalgroesse.Click
+ TabZuschneiden.Cancel
+
Call hCloseDocument
endcase
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
testcase tiGluepointToolbar
- '/// open application ///'
Call hNewDocument
- '/// create 2 rectangles ///'
Call hRechteckErstellen 20,20,40,40
Call hRechteckErstellen 60,60,80,80
sleep 2
- '/// View->Toolbars->Option Bar ///'
ViewToolbarsOptionbar
- '/// at the bottom of the office has a toolbar to appear ///'
sleep 2
Kontext "Optionsbar"
+ if Optionsbar.Exists = False Then
+ ViewToolbarsOptionbar
+ Kontext "Optionsbar"
if Optionsbar.Exists = False Then
- ViewToolbarsOptionbar
- Kontext "Optionsbar"
- if Optionsbar.Exists = False Then
- warnlog "Can't open Optionsbar."
- end if
- end if
- sleep 2
- Kontext "Toolbar"
- sleep 1
- '/// click button 'Connector' on Toolbar ///'
- Verbinder.Click
- '/// make a line with the mouse ///'
- gMouseMove 30,30,70,70
- sleep 3
- Kontext "Toolbar"
- GluePoints.Click
- sleep 1
- '/// open Glue Points Toolbar ///'
- Kontext "Gluepointsobjectbar"
- if Gluepointsobjectbar.Exists = False Then
- ViewToolbarsGluepoints
- end if
- sleep 3
- '-------------------------------------- Klebepunkt einfuegen ----
- try
- '/// click button 'Insert Glue Point' on Objecttoolbar ///'
- PunkteEinfuegen.Click
- sleep 2
- '/// click 2 times onto the created line ///'
- gMouseClick 25,30
- sleep 1
- gMouseclick 25,30
- Printlog "- insert gluepoint works"
- catch
- Warnlog "- gluepoint could not be insert. Following errors might have their reason here"
- endcatch
- sleep 3
- Kontext "Gluepointsobjectbar"
-
- '-------------------------------------- Links -------------------
- try
- '/// click button 'Exit Direction Left' on Objecttoolbar ///'
- Links.Click
- Printlog "- gluepoint left works"
- catch
- Warnlog "- gluepoint left does not work"
- endcatch
- sleep 1
- '-------------------------------------- Rechts ------------------
- try
- '/// click button 'Exit Direction Right' on Objecttoolbar ///'
- Rechts.Click
- Printlog "- gluepoint right works"
- catch
- Warnlog "- gluepoint right does not work"
- endcatch
- sleep 1
- '-------------------------------------- Oben --------------------
- try
- '/// click button 'Exit Direction Top' on Objecttoolbar ///'
- Oben.Click
- Printlog "- gluepoint top works"
- catch
- Warnlog "- gluepoint top does not work"
- endcatch
- sleep 1
- '-------------------------------------- Unten -------------------
- try
- '/// click button 'Exit Direction Bottom' on Objecttoolbar ///'
- Unten.Click
- Printlog "- gluepoint bottom works"
- catch
- Warnlog "- gluepoint bottom does not work"
- endcatch
- sleep 1
- '---------------------- Position an Objekt anpassen -------------
- try
- '/// click button 'Glue Point Relative' on Objecttoolbar ///'
- PositionAnObjektAnpassen.Click
- Printlog "- align position to object works"
- gMouseClick 25,30 ' if you don't click onto an existing point, the state changes back :-[
- catch
- Warnlog "- align position to object does not work"
- endcatch
- Kontext "Gluepointsobjectbar"
- sleep 1
- '------------------------------------- Horizontal links ---------
- if PositionAnObjektAnpassen.exists then printlog "PositionAnObjektAnpassen = Exists"
- if PositionAnObjektAnpassen.GetState(2) <> 0 then PositionAnObjektAnpassen.Click ' make unpressed!
- '0 = not pressed. 1 = pressed.
- sleep 2
- try
- Kontext "Gluepointsobjectbar"
- '/// click button 'Glue Point Horizontal Left' on Objecttoolbar ///'
- HorizontalLinks.Click
- Printlog "- align horizontal left works"
- catch
- Warnlog "- align horizontal left does not work"
- PositionAnObjektAnpassen.Click ' that's the middle button, it has to be UP/not activated!
- for i = 1 to Gluepointsobjectbar.GetItemCount
- if (Gluepointsobjectbar.GetState ( i, 0 ) <> 0 ) then ' is no seperator
- printlog "----------------------------------------------------------------------"
- printlog "helpid : " + Gluepointsobjectbar.Getstate ( i, 0 ) + " number in row: " + i
- printlog "itemtype: " + Gluepointsobjectbar.GetState ( i, 1 )
- printlog "state : " + Gluepointsobjectbar.GetState ( i, 2 )
- printlog "----------------------------------------------------------------------"
- end if
- next i
- endcatch
- sleep 2
- '------------------------------------- Horizontal rechts --------
- try
- '/// click button 'Glue Point Horizontal Right' on Objecttoolbar ///'
- HorizontalRechts.Click
- Printlog "- Align horizontal right does work"
- catch
- Warnlog "- Align horizontal right does notwork"
- endcatch
- sleep 1
- '------------------------------------- Horizontal zentriert -----
- try
- '/// click button 'Glue Point Horizontal Center' on Objecttoolbar ///'
- HorizontalZentriert.Click
- Printlog "- align horizontal center does work"
- catch
- Warnlog "- align horizontal center does work"
- endcatch
- sleep 1
- '------------------------------------- Vertikal oben ------------
- try
- '/// click button 'Glue Point Vertical Top' on Objecttoolbar ///'
- VertikalOben.Click
- sleep 1
- Printlog "- Align vertical top does work"
- catch
- Warnlog "- Align vertical top does not work"
- endcatch
- '------------------------------------- Vertikal unten -----------
- try
- '/// click button 'Glue Point Vertical Bottom' on Objecttoolbar ///'
- VertikalUnten.Click
- sleep 1
- printlog "- Align vertical bottom does work"
- catch
- Warnlog "- Align vertical bottom does not work"
- endcatch
- '------------------------------------- Vertikal zentriert -------
- try
- '/// click button 'Glue Point Vertical Center' on Objecttoolbar ///'
- VertikalZentriert.Click
- sleep 1
- Printlog "- Align vertical center does work"
- catch
- Warnlog "- Align vertical center does not work"
- endcatch
-
- Printlog "- End of testing gluepoints"
-
- '/// Close the Option Bar via View->Toolbars->Option Bar ///'
+ warnlog "Can't open Optionsbar."
+ endif
+ endif
+ sleep 2
+ Kontext "Toolbar"
+ sleep 1
+ Verbinder.Click
+ gMouseMove 30,30,70,70
+ sleep 3
+ Kontext "Toolbar"
+ GluePoints.Click
+ sleep 1
+ Kontext "Gluepointsobjectbar"
+ if Gluepointsobjectbar.Exists = False Then
+ ViewToolbarsGluepoints
+ endif
+ sleep 3
+ '-------------------------------------- Klebepunkt einfuegen ----
+ try
+ PunkteEinfuegen.Click
+ sleep 2
+ gMouseClick 25,30
+ sleep 1
+ gMouseclick 25,30
+ Printlog "- insert gluepoint works"
+ catch
+ Warnlog "- gluepoint could not be insert. Following errors might have their reason here"
+ endcatch
+ sleep 3
+ Kontext "Gluepointsobjectbar"
+
+ '-------------------------------------- Links -------------------
+ try
+ Links.Click
+ Printlog "- gluepoint left works"
+ catch
+ Warnlog "- gluepoint left does not work"
+ endcatch
+ sleep 1
+ '-------------------------------------- Rechts ------------------
+ try
+ Rechts.Click
+ Printlog "- gluepoint right works"
+ catch
+ Warnlog "- gluepoint right does not work"
+ endcatch
+ sleep 1
+ '-------------------------------------- Oben --------------------
+ try
+ Oben.Click
+ Printlog "- gluepoint top works"
+ catch
+ Warnlog "- gluepoint top does not work"
+ endcatch
+ sleep 1
+ '-------------------------------------- Unten -------------------
+ try
+ Unten.Click
+ Printlog "- gluepoint bottom works"
+ catch
+ Warnlog "- gluepoint bottom does not work"
+ endcatch
+ sleep 1
+ '---------------------- Position an Objekt anpassen -------------
+ try
+ PositionAnObjektAnpassen.Click
+ Printlog "- align position to object works"
+ gMouseClick 25,30 ' if you don't click onto an existing point, the state changes back :-[
+ catch
+ Warnlog "- align position to object does not work"
+ endcatch
+ Kontext "Gluepointsobjectbar"
+ sleep 1
+ '------------------------------------- Horizontal links ---------
+ if PositionAnObjektAnpassen.exists then
+ printlog "PositionAnObjektAnpassen = Exists"
+ endif
+ if PositionAnObjektAnpassen.GetState(2) <> 0 then
+ PositionAnObjektAnpassen.Click ' make unpressed!
+ endif
+ '0 = not pressed. 1 = pressed.
+ sleep 2
+ try
+ Kontext "Gluepointsobjectbar"
+ HorizontalLinks.Click
+ Printlog "- align horizontal left works"
+ catch
+ Warnlog "- align horizontal left does not work"
+ PositionAnObjektAnpassen.Click ' that's the middle button, it has to be UP/not activated!
+ for i = 1 to Gluepointsobjectbar.GetItemCount
+ if (Gluepointsobjectbar.GetState ( i, 0 ) <> 0 ) then ' is no seperator
+ printlog "----------------------------------------------------------------------"
+ printlog "helpid : " + Gluepointsobjectbar.Getstate ( i, 0 ) + " number in row: " + i
+ printlog "itemtype: " + Gluepointsobjectbar.GetState ( i, 1 )
+ printlog "state : " + Gluepointsobjectbar.GetState ( i, 2 )
+ printlog "----------------------------------------------------------------------"
+ endif
+ next i
+ endcatch
+ sleep 2
+ '------------------------------------- Horizontal rechts --------
+ try
+ HorizontalRechts.Click
+ Printlog "- Align horizontal right does work"
+ catch
+ Warnlog "- Align horizontal right does notwork"
+ endcatch
+ sleep 1
+ '------------------------------------- Horizontal zentriert -----
+ try
+ HorizontalZentriert.Click
+ Printlog "- align horizontal center does work"
+ catch
+ Warnlog "- align horizontal center does work"
+ endcatch
+ sleep 1
+ '------------------------------------- Vertikal oben ------------
+ try
+ VertikalOben.Click
+ sleep 1
+ Printlog "- Align vertical top does work"
+ catch
+ Warnlog "- Align vertical top does not work"
+ endcatch
+ '------------------------------------- Vertikal unten -----------
+ try
+ VertikalUnten.Click
+ sleep 1
+ printlog "- Align vertical bottom does work"
+ catch
+ Warnlog "- Align vertical bottom does not work"
+ endcatch
+ '------------------------------------- Vertikal zentriert -------
+ try
+ VertikalZentriert.Click
+ sleep 1
+ Printlog "- Align vertical center does work"
+ catch
+ Warnlog "- Align vertical center does not work"
+ endcatch
+
+ Printlog "- End of testing gluepoints"
+
ViewToolbarsOptionbar
sleep 2
Kontext "Optionsbar"
- if Optionsbar.Exists = True Then
- warnlog "Couldnt close Optionsbar."
- end if
- '/// close application ///'
+ if Optionsbar.Exists Then
+ warnlog "Couldnt close Optionsbar."
+ endif
Call hCloseDocument
endcase
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
testcase tdBezierToolbar
- '/// Open the Application ///'
Call hNewDocument
- '/// Create a rectangle. ///'
Call hRechteckErstellen ( 10, 10, 30, 40 )
sleep (1)
- '/// Convert the recttangle to an 'Polygon-object' via the context-menu for the object ///'
Call hOpenContextMenu
- Call hMenuSelectNr (11) '/// Convert to ///'
- Call hMenuSelectNr (2) '/// Polygon-object ///'
sleep (1)
- '/// In the context-menu, select 'Edit Points" ///'
Call hOpenContextMenu
- Call hMenuSelectNr (5) '/// Select entry nr 5 (Edit Points) ///'
sleep (2)
Kontext "Bezierobjectbar"
+ if Bezierobjectbar.Exists <> TRUE then
+ ViewToolbarsBezier
+ Sleep (2)
if Bezierobjectbar.Exists <> TRUE then
- ViewToolbarsBezier
- Sleep (2)
- if Bezierobjectbar.Exists <> TRUE then
- warnlog "Bezierobjectbar did not show up. Check why."
- end if
- end if
+ warnlog "Bezierobjectbar did not show up. Check why."
+ endif
+ endif
'----------------------------------- Punkte verschieben ------------------------------------
- '/// Select a part of the object with the keyboard ///'
- hTypeKeys "<MOD1 TAB>", 4 '/// Selects the fourth vector. ///'
- hTypeKeys "<RIGHT>", 40 '/// Moves the selected vector 40 steps. ///'
- '/// The 'Object Toolbar' now changes ///'
Kontext "Bezierobjectbar"
- if Bezierobjectbar.Exists <> TRUE then
- ViewToolbarsBezier
- Sleep 2
- end if
- if Bezierobjectbar.Exists <> TRUE then
- Warnlog "The Bezier-Objectbar should have been opened, but wasnt."
- ViewToolbarsBezier
- Sleep 2
- end if
+ if Bezierobjectbar.Exists <> TRUE then
+ ViewToolbarsBezier
+ Sleep 2
+ endif
+ if Bezierobjectbar.Exists <> TRUE then
+ Warnlog "The Bezier-Objectbar should have been opened, but wasnt."
+ ViewToolbarsBezier
+ Sleep 2
+ endif
Kontext "Bezierobjectbar"
- sleep 1
- Printlog "- Move points"
- '/// click button 'Move points' on 'Object Toolbar' ///'
- Verschieben.Click
- sleep 2
-
- hTypeKeys "<MOD1 TAB>"
- hTypeKeys "<MOD1 SHIFT SPACE>" '/// Marks the selected vector. ///'
- hTypeKeys "<RIGHT>", 20 '/// Moves the vector 20 with "arrow right", twenty times. ///'
-
- Printlog "- Insert points"
- '/// Click button 'Insert points' on 'Object Toolbar' ///'
+ sleep 1
+ Printlog "- Move points"
+ Verschieben.Click
+ sleep 2
+
+ hTypeKeys "<MOD1 TAB>"
+
+ Printlog "- Insert points"
Kontext "Bezierobjectbar"
- Einfuegen.Click
- sleep 2
- Bezierobjectbar.Move 20, 20
- sleep (1)
- Printlog "- Delete points"
-
- '/// Select another part of the object with spanning a selection with the mouse ///'
- gMouseMove 25,25,45,45
-
- hTypeKeys "<MOD1 TAB>", 2 '/// Select the second next vector. ///'
- hTypeKeys "<MOD1 SHIFT SPACE>" '/// Mark the selected vector. ///'
- hTypeKeys "<MOD1 TAB><SHIFT SPACE>" '/// Select and mark the next vector. ///'
-
- sleep 2
+ Einfuegen.Click
+ sleep 2
+ Bezierobjectbar.Move 20, 20
+ sleep (1)
+ Printlog "- Delete points"
+
+ gMouseMove 25,25,45,45
+
+
+ sleep 2
Kontext "Bezierobjectbar"
- sleep 2
- Printlog "- Convert into curve"
- '/// click button 'convert to curve' on 'Object Toolbar' ///'
- InKurve.Click
- sleep 2
- Printlog "- Place edge point"
- '/// click button 'corner point' on 'Object Toolbar' ///'
- Ecke.Click
- sleep 2
- Printlog "- Smooth transition"
- '/// click button 'smooth transition' on 'Object Toolbar' ///'
- Glatt.Click
- sleep 2
- Printlog "- Symetric transition"
- '/// click button 'symmetric transition' on 'Object Toolbar' ///'
- Symmetrisch.Click
- sleep 2
-
- '/// Click button 'Eliminate points' on 'Object Toolbar' ///'
+ sleep 2
+ Printlog "- Convert into curve"
+ InKurve.Click
+ sleep 2
+ Printlog "- Place edge point"
+ Ecke.Click
+ sleep 2
+ Printlog "- Smooth transition"
+ Glatt.Click
+ sleep 2
+ Printlog "- Symetric transition"
+ Symmetrisch.Click
+ sleep 2
+
Kontext "Bezierobjectbar"
- PunkteReduzieren.Click
- sleep 2
-
- '/// Mark another point ///'
- hTypeKeys "<MOD1 TAB>"
- hTypeKeys "<MOD1 SHIFT SPACE>"
-
- '/// click button 'split curve' on 'Object Toolbar' ///'
+ PunkteReduzieren.Click
+ sleep 2
+
+ hTypeKeys "<MOD1 TAB>"
+ hTypeKeys "<MOD1 SHIFT SPACE>"
+
Kontext "Bezierobjectbar"
- try
- Auftrennen.Click
- catch
- Warnlog "- 'Break' could not be executed"
- endcatch
- sleep 2
+ try
+ Auftrennen.Click
+ catch
+ Warnlog "- 'Break' could not be executed"
+ endcatch
+ sleep 2
- '/// Mark all points ///'
- hTypeKeys "<MOD1 TAB>"
- hTypeKeys "<MOD1 A>"
+ hTypeKeys "<MOD1 TAB>"
+ hTypeKeys "<MOD1 A>"
- Printlog "- Close bezier"
+ Printlog "- Close bezier"
Kontext "Bezierobjectbar"
+ try
+ Schliessen.Click
+ catch
+ InKurve.Click
+ sleep 2
try
- '/// click button 'close bezier' on 'Object Toolbar' ///'
Schliessen.Click
catch
- InKurve.Click
- sleep 2
- try
- Schliessen.Click
- catch
- warnlog "Couldn't push button :-( can't reproduce it now, mostly seen on linux, if i loop this test, it happens only 1/5 of the time ... :-)"
- endcatch
+ warnlog "Couldn't push button :-( can't reproduce it now, mostly seen on linux, if i loop this test, it happens only 1/5 of the time ... :-)"
endcatch
- sleep 2
+ endcatch
+ sleep 2
- '/// Mark all points ///'
- hTypeKeys "<MOD1 TAB>"
- hTypeKeys "<MOD1 A>"
+ hTypeKeys "<MOD1 TAB>"
+ hTypeKeys "<MOD1 A>"
- '/// Click button 'Delete points' on 'Object Toolbar' ///'
Kontext "Bezierobjectbar"
- Printlog "- Break curve"
- try
- Loeschen.Click
- sleep 2
- catch
- warnlog "Delete didn't work... why?"
- endcatch
+ Printlog "- Break curve"
+ try
+ Loeschen.Click
+ sleep 2
+ catch
+ warnlog "Delete didn't work... why?"
+ endcatch
- '/// Uncheck on the symbol 'Curve' on the toolbar 'Main Toolbar' ///'
Kontext "Toolbar"
- sleep 2
- Toolbar.OpenContextMenu ' Enable forms button in menuebar
- sleep 2
- hMenuselectNr (1)
- sleep 2
- hMenuItemUnCheck (7)
- sleep 2
- '/// Close application ///'
+ sleep 2
+ Toolbar.OpenContextMenu ' Enable forms button in menuebar
+ sleep 2
+ hMenuselectNr (1)
+ sleep 2
+ hMenuItemUnCheck (7)
+ sleep 2
Call hCloseDocument
endcase
generated by cgit (git 2.34.1) at 2024-07-11 01:50:58 +0000