summaryrefslogtreecommitdiff
path: root/testautomation/graphics/optional/includes
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/graphics/optional/includes')
-rwxr-xr-x[-rw-r--r--]testautomation/graphics/optional/includes/global/g_autocorrection.inc4
-rwxr-xr-x[-rw-r--r--]testautomation/graphics/optional/includes/global/g_find_replace.inc3
-rwxr-xr-x[-rw-r--r--]testautomation/graphics/optional/includes/global/g_ole.inc4
-rwxr-xr-x[-rw-r--r--]testautomation/graphics/optional/includes/global/g_stylist.inc24
-rwxr-xr-x[-rw-r--r--]testautomation/graphics/optional/includes/global/gallery.inc5
-rwxr-xr-x[-rw-r--r--]testautomation/graphics/optional/includes/global/id_005.inc6
-rwxr-xr-x[-rw-r--r--]testautomation/graphics/optional/includes/impress/i_slideshow.inc6
-rwxr-xr-x[-rw-r--r--]testautomation/graphics/optional/includes/impress/i_us_present.inc176
8 files changed, 126 insertions, 102 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_autocorrection.inc b/testautomation/graphics/optional/includes/global/g_autocorrection.inc
index b0a0326a6f3f..74fa830a9b11 100644..100755
--- a/testautomation/graphics/optional/includes/global/g_autocorrection.inc
+++ b/testautomation/graphics/optional/includes/global/g_autocorrection.inc
@@ -137,7 +137,7 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean)
ExtensionString = "odg"
end if
- 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
+ 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 = "50" 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."
@@ -179,6 +179,7 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean)
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 50 : Vorn$ = Chr(8216) : Hinten$ = Chr(8217)
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
@@ -202,6 +203,7 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean)
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 50 : Vorn$ = Chr(8220) : Hinten$ = Chr(8221)
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
diff --git a/testautomation/graphics/optional/includes/global/g_find_replace.inc b/testautomation/graphics/optional/includes/global/g_find_replace.inc
index 8dbff683eb83..f49de3b03d35 100644..100755
--- a/testautomation/graphics/optional/includes/global/g_find_replace.inc
+++ b/testautomation/graphics/optional/includes/global/g_find_replace.inc
@@ -69,6 +69,7 @@ testcase tiEditSearchAndReplace
case 47 : ' Norwegian
case 48 : sExpression(1) = "programmu" : sExpression(2) = "programu" ' Polish
case 49 : sExpression(1) = "Texxt" : sExpression(2) = "Schrieb" ' German
+ case 50 : sExpression(1) = "primer" : sExpression(2) = "napakka" ' Slovenian
case 55 : sExpression(1) = "esktava" : sExpression(2) = "norte" ' Portuguese (Brazil)
case 66 : ' Thai
' case 81 : sExpression(1) = "���" : sExpression(2) = "���" ' Japanese
@@ -204,7 +205,7 @@ testcase tiEditSearchAndReplace
SearchFor.SetText sExpression(2) '/// Search for word 2 ///'
ReplaceWith.SetText sExpression(1) '/// Replace with word 1 ///'
- Replace.Click '/// Replace 1 ///'
+ ReplaceBtn.Click '/// Replace 1 ///'
Kontext "Messagebox"
if Messagebox.Exists(4) Then
Kontext "Messagebox"
diff --git a/testautomation/graphics/optional/includes/global/g_ole.inc b/testautomation/graphics/optional/includes/global/g_ole.inc
index 520aa38af8a2..9689771df8a3 100644..100755
--- a/testautomation/graphics/optional/includes/global/g_ole.inc
+++ b/testautomation/graphics/optional/includes/global/g_ole.inc
@@ -341,7 +341,7 @@ testcase tiOpenOLECrash
FileOpen
sleep 1
Kontext "OeffnenDlg"
- printlog " Use file: graphics\\optional\\input\\generic_de.ppt "
+ printlog " Use file: graphics\optional\input\generic_de.ppt "
oFile = ConvertPath (gTesttoolPath + "graphics\required\input\generic_de.ppt")
Printlog "file: '" + oFile + "'"
Dateiname.SetText (oFile)
@@ -425,7 +425,7 @@ testcase tiOpenOLECrash
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"
diff --git a/testautomation/graphics/optional/includes/global/g_stylist.inc b/testautomation/graphics/optional/includes/global/g_stylist.inc
index f82a61b608e6..dc8663425e87 100644..100755
--- a/testautomation/graphics/optional/includes/global/g_stylist.inc
+++ b/testautomation/graphics/optional/includes/global/g_stylist.inc
@@ -57,7 +57,11 @@ testcase tFormatStylistFlyer
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] ///'
+ if lcase(gPlatform) = "osx" then
+ hTypekeys "<mod1 t>"
+ else
+ hTypekeys "<F11>" '/// open stylist by pressing key [F11] ///'
+ end if
sleep 1
end if
Kontext "Gestalter"
@@ -200,7 +204,11 @@ testcase tFormatStylistDocuments
printlog " - Close stylist using F11"
Gestalter.Undock
Sleep 1
- hTypeKeys "<F11>"
+ if lcase(gPlatform) = "osx" then
+ hTypekeys "<mod1 t>"
+ else
+ hTypeKeys "<F11>"
+ end if
Kontext "Gestalter"
if Gestalter.exists then
warnlog " Stylist still exists - closing again"
@@ -661,7 +669,11 @@ testcase tiFormatStylist
TabOptionenNumerierung.Cancel
sleep 1
endif
- hTypeKeys "<F11>"
+ if lcase(gPlatform) = "osx" then
+ hTypekeys "<mod1 t>"
+ else
+ hTypeKeys "<F11>"
+ end if
sleep 1
Kontext "Gestalter"
if Gestalter.Exists Then Warnlog "- Stylist could not be closed pressing F11"
@@ -866,7 +878,11 @@ testcase tFormatStylist
if (Stylist.NotExists) then
ErrorLog "There is no stylist open, should be."
else
- hTypekeys "<F11>"
+ if lcase(gPlatform) = "osx" then
+ hTypekeys "<mod1 t>"
+ else
+ hTypekeys "<F11>"
+ end if
Kontext "Stylist"
if (Stylist.Exists) then
ErrorLog "The Stylist should be closed now."
diff --git a/testautomation/graphics/optional/includes/global/gallery.inc b/testautomation/graphics/optional/includes/global/gallery.inc
index c1f8e741cd44..8398395c3653 100644..100755
--- a/testautomation/graphics/optional/includes/global/gallery.inc
+++ b/testautomation/graphics/optional/includes/global/gallery.inc
@@ -469,6 +469,7 @@ testcase tGallery_GalleryView_Preview
case 46 : jpeg_bkg = 2 : iAnimation = 1 : iSound = 17
case 48 : jpeg_bkg = 2 : iAnimation = 1 : iSound = 17
case 49 : jpeg_bkg = 12 : iAnimation = 1 : iSound = 16
+ case 50 : jpeg_bkg = 12 : iAnimation = 1 : iSound = 16
case 55 : jpeg_bkg = 21 : iAnimation = 1 : iSound = 28
case 81 : jpeg_bkg = 21 : iAnimation = 1 : iSound = 10 'FHA TODO: Find out the right numbers for Asian languages.
case 82 : jpeg_bkg = 1 : iAnimation = 17 : iSound = 12
@@ -489,6 +490,7 @@ testcase tGallery_GalleryView_Preview
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 50 : 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
@@ -651,6 +653,7 @@ testcase tGallery_GalleryView_Insert
case 46 : jpeg_bkg = 1 : iAnimation = 2
case 48 : jpeg_bkg = 3 : iAnimation = 1
case 49 : jpeg_bkg = 1 : iAnimation = 2
+ case 50 : 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
@@ -671,6 +674,7 @@ testcase tGallery_GalleryView_Insert
case 46 : jpeg_bkg = 1 : iAnimation = 2
case 48 : jpeg_bkg = 3 : iAnimation = 1
case 49 : jpeg_bkg = 1 : iAnimation = 2
+ case 50 : 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
@@ -859,6 +863,7 @@ testcase tGallery_GalleryView_Delete
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 50 : 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
diff --git a/testautomation/graphics/optional/includes/global/id_005.inc b/testautomation/graphics/optional/includes/global/id_005.inc
index 2de7907852f1..0741bc82c8a9 100644..100755
--- a/testautomation/graphics/optional/includes/global/id_005.inc
+++ b/testautomation/graphics/optional/includes/global/id_005.inc
@@ -723,7 +723,11 @@ testcase tiFormatStylesAndFormatting
if (Stylist.NotExists) then
ErrorLog "There was no Stylist open, should be."
else
- hTypekeys "<F11>"
+ if lcase(gPlatform) = "osx" then
+ hTypekeys "<mod1 t>"
+ else
+ hTypekeys "<F11>"
+ endif
Kontext "Stylist"
if (Stylist.Exists) then
ErrorLog "The Stylist should be closed now."
diff --git a/testautomation/graphics/optional/includes/impress/i_slideshow.inc b/testautomation/graphics/optional/includes/impress/i_slideshow.inc
index 9a8118b0cc54..3a2b56fa5511 100644..100755
--- a/testautomation/graphics/optional/includes/impress/i_slideshow.inc
+++ b/testautomation/graphics/optional/includes/impress/i_slideshow.inc
@@ -970,7 +970,11 @@ testcase tSlideShowSlideTransition
WaitSlot (3000)
try
'/// type key [F11] to open the stylist (to check ending of presenation) ///'
- hTypeKeys "<F11>"
+ if lcase(gPlatform) = "osx" then
+ hTypekeys "<mod1 t>"
+ else
+ hTypeKeys "<F11>"
+ endif
Sleep (3)
Kontext "Gestalter"
Sleep (3)
diff --git a/testautomation/graphics/optional/includes/impress/i_us_present.inc b/testautomation/graphics/optional/includes/impress/i_us_present.inc
index 9272fda4c2a7..d161ab4f9de2 100644..100755
--- a/testautomation/graphics/optional/includes/impress/i_us_present.inc
+++ b/testautomation/graphics/optional/includes/impress/i_us_present.inc
@@ -40,18 +40,15 @@
'\********************************************************************
testcase i_us_presentation1
- dim iPictures as integer
- dim PresentationFile1 as string
- PresentationFile1 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes1.odp")))
- Call hNewDocument '/// New impress document ///'
+ dim iPictures as integer
+ dim PresentationFile1 as string
+ PresentationFile1 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes1.odp")))
+ printlog "New impress document"
+ Call hNewDocument
WaitSlot (2000)
kontext "DocumentImpress"
- '/// 1. ViewMaster: 2nd master - Background: picture (Gallery) ///'
- '/// - 50% Transparency ///'
- '/// - Mosaic 16px x 16px ///'
- '/// - Close Master ///'
- '/// Add second Master-Page ///'
+ printlog "Add second Master-Page"
ViewMasterPage
kontext "Slides"
SlidesControl.OpenContextMenu(true)
@@ -60,7 +57,7 @@ testcase i_us_presentation1
sleep (1)
printlog " Inserted second Master-Slide"
- '/// - Background: picture (Gallery) ///'
+ printlog "Background: picture (Gallery)"
Kontext "Gallery"
if Gallery.Exists(2) then
warnlog " The Gallery was already visible. Check earlier ran tests for inconsistency."
@@ -103,13 +100,14 @@ testcase i_us_presentation1
Gallerys.Select (iPictures)
View.TypeKeys "<HOME><RIGHT><RIGHT>"
- View.TypeKeys "<SHIFT F10>" 'OpenContextMenu(true)
+ printlog "'OpenContextMenu"
+ View.TypeKeys "<SHIFT F10>"
sleep (2)
MenuSelect(MenuGetItemID(1)) 'Insert
sleep (2)
MenuSelect(MenuGetItemID(1)) 'Copy
sleep (2)
- '/// Check that we really got a copy of the object ///'
+ printlog "Check that we really got a copy of the object "
kontext "DocumentImpress"
DocumentImpress.OpenContextMenu(true)
sleep (2)
@@ -128,13 +126,13 @@ testcase i_us_presentation1
ViewToolbarsPicture
end if
- '/// - 50% Transparency ///'
+ printlog "50% Transparency"
WaitSlot (2000)
kontext "GraphicObjectbar" ' the one with Transparency
Transparenz.SetText "50"
sleep (1)
- '/// - Mosaic 16px x 16px ///'
+ printlog "Mosaic 16px x 16px"
Filter.TearOff
sleep (1)
kontext "GraphicFilterBar"
@@ -153,7 +151,6 @@ testcase i_us_presentation1
kontext "DocumentImpress"
gMouseClick 50,50
sleep (1)
-' DocumentImpress.TypeKeys "<TAB>", 6
FormatPositionAndSize
WaitSlot (1000)
kontext
@@ -164,23 +161,22 @@ testcase i_us_presentation1
SizePosition.TypeKeys "<RIGHT><DOWN>"
TabPositionAndSize.OK
- '/// - Close Master ///'
+ printlog "Close Master"
ViewNormal
WaitSlot (1000)
- '/// Save Document ///'
+ printlog "Save Document"
call hFileSaveAsKill (PresentationFile1)
printlog "OK saved at ", PresentationFile1
WaitSlot (1000)
ActiveDeactivateCTLSupport (FALSE)
WaitSlot (2000)
- '/// Close Document ///'
+ printlog "Close Document"
Call hCloseDocument
-endcase
-
-'00oo...//==---...---...---...---....---...---...---...---...---...---...--..--.--.-.-.-.-....---....
+endcase 'i_us_presentation1
+'-------------------------------------------------------------------------------
testcase i_us_presentation2
dim PresentationFile1 as string
dim PresentationFile2 as string
@@ -192,12 +188,12 @@ testcase i_us_presentation2
WaitSlot (10000)
else
warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
- '/// New impress document ///'
+ printlog "New impress document"
Call hNewDocument
WaitSlot (2000)
end if
- '/// New Slide ///'
+ printlog "New Slide"
kontext "slides"
SlidesControl.TypeKeys "<PAGEDOWN>"
SlidesControl.TypeKeys "<PAGEDOWN>"
@@ -208,21 +204,23 @@ testcase i_us_presentation2
MenuSelect(MenuGetItemID(1)) 'New Slide 'No 2
printlog " Inserted second normal Slide"
- '/// 2. Layouts: Text. Bild: Gallery: Animation - Gif ///'
+ printlog "2. Layouts: Text. Bild: Gallery: Animation - Gif"
Kontext "Tasks"
- LayoutsPreview.TypeKeys "<HOME>" 'to get to the very first position
- LayoutsPreview.TypeKeys "<RIGHT>", 9 'to get to the right position
+ printlog "to get to the very first position"
+ LayoutsPreview.TypeKeys "<HOME>"
+ printlog "'to get to the right position"
+ LayoutsPreview.TypeKeys "<RIGHT>", 9
LayoutsPreview.TypeKeys "<RETURN>"
Sleep (1)
ViewNormal
- '/// 3. Hide Slidepane (Oops! The user were too fast: accidently hide the pane) ///'
+ printlog "3. Hide Slidepane (Oops! The user were too fast: accidently hide the pane)"
kontext "Slides"
SlidesControl.FadeOut
WaitSlot (1000)
- '/// 4. Restore Pane. ///'
+ printlog "4. Restore Pane."
SlidesControl.FadeIn
printlog " Did the 'mistake' to FadeIn/Out the Slidepane"
@@ -233,7 +231,7 @@ testcase i_us_presentation2
DocumentImpress.TypeKeys "<RETURN>"
sleep (1)
- '/// Graphics-Import-dialogue. Select "i_us_large.jpg" ///'
+ printlog "Graphics-Import-dialogue. Select i_us_large.jpg"
Kontext "GrafikEinfuegenDlg"
sleep (2)
Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\i_us_large.jpg")
@@ -242,11 +240,11 @@ testcase i_us_presentation2
WaitSlot (1000)
Kontext "DocumentImpress"
- '/// Deselect graphic ///'
+ printlog "Deselect graphic"
DocumentImpress.MouseDoubleClick 90,90
printlog " Inserted Graphic into the second Slide"
- '/// Change text on the two text-boxes ///'
+ printlog "Change text on the two text-boxes"
DocumentImpress.TypeKeys "<TAB>" 'First text.
DocumentImpress.TypeKeys "<RETURN>" 'To get into edit-mode.
DocumentImpress.TypeKeys "The World has just become a bit easier"
@@ -264,19 +262,18 @@ testcase i_us_presentation2
DocumentImpress.TypeKeys "Energy-efficient"
DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>"
- '/// Save Document ///'
+ printlog "Save Document"
call hFileSaveAsKill (PresentationFile2)
printlog "OK saved at ", PresentationFile1
sleep (1)
ActiveDeactivateCTLSupport (FALSE)
sleep (2)
- '/// Close Document ///'
+ printlog "Close Document"
Call hCloseDocument
endcase 'i_us_presentation2
-'00oo...//==---...---...---...---....---...---...---...---...---...---...--..--.--.-.-.-.-....---....
-
+'-------------------------------------------------------------------------------
testcase i_us_presentation3
dim PresentationFile2 as string
dim PresentationFile3 as string
@@ -288,12 +285,12 @@ testcase i_us_presentation3
WaitSlot (10000)
else
warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
- '/// New impress document ///'
+ printlog "New impress document"
Call hNewDocument
WaitSlot (2000)
end if
- '/// Insert New Slide ///'
+ printlog "Insert New Slide"
kontext "slides"
SlidesControl.TypeKeys "<PAGEDOWN>"
SlidesControl.TypeKeys "<PAGEDOWN>"
@@ -302,7 +299,7 @@ testcase i_us_presentation3
kontext "DocumentImpress"
InsertSlide 'No 3
- '/// 5. Layout. Clip/Text ///'
+ printlog "5. Layout. Clip/Text"
kontext "Tasks"
LayoutsPreview.TypeKeys "<HOME>" 'to get to the very first position
LayoutsPreview.TypeKeys "<RIGHT>", 4 'to get to the right position
@@ -316,8 +313,9 @@ testcase i_us_presentation3
DocumentImpress.TypeKeys "<TAB><RETURN>"
DocumentImpress.TypeKeys "A new form"
- '/// 6. (Fat picture) InsertPictureFromFile: (empty slide) (ev size-fit) ///'
- InsertGraphicsFromFile '/// insert graphic file (i_us_large.jpg) ///'
+ printlog "6. (Fat picture) InsertPictureFromFile: (empty slide) (ev size-fit)"
+ printlog "insert graphic file (i_us_large.jpg)"
+ InsertGraphicsFromFile
WaitSlot (1000)
Kontext "GrafikEinfuegenDlg"
Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\i_us_large.jpg")
@@ -326,29 +324,28 @@ testcase i_us_presentation3
WaitSlot (2000)
Kontext "DocumentImpress"
- '/// The user corrects the picture ///'
+ printlog "The user corrects the picture"
DocumentImpress.MouseDown 50,50
DocumentImpress.MouseUp 50,50
DocumentImpress.TypeKeys "<DOWN>", 30
- '/// Deselect graphic ///'
+ printlog "Deselect graphic"
DocumentImpress.MouseDoubleClick 90,90
printlog " Wrote Text, Inserted Graphic, and moved it in the third Slide"
- '/// Save Document ///'
+ printlog "Save Document"
call hFileSaveAsKill (PresentationFile3)
printlog "OK saved at ", PresentationFile3
sleep (1)
ActiveDeactivateCTLSupport (FALSE)
sleep (2)
- '/// Close Document ///'
+ printlog "Close Document"
Call hCloseDocument
endcase 'i_us_presentation3
-'00oo...//==---...---...---...---....---...---...---...---...---...---...--..--.--.-.-.-.-....---....
-
+'-------------------------------------------------------------------------------
testcase i_us_presentation4
dim PresentationFile3 as string
dim PresentationFile4 as string
@@ -361,7 +358,7 @@ testcase i_us_presentation4
WaitSlot (10000)
else
warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
- '/// New impress document ///'
+ printlog "New impress document"
Call hNewDocument
WaitSlot (2000)
end if
@@ -374,9 +371,10 @@ testcase i_us_presentation4
SlidesControl.TypeKeys "<PAGEDOWN>"
kontext "DocumentImpress"
- InsertSlide 'No 4
+printlog "insert slide no 4"
+InsertSlide
- '/// - Background: picture (Gallery) ///'
+ printlog "Background: picture (Gallery)"
Kontext "Gallery"
if Gallery.Exists(2) then
warnlog " The Gallery was already visible. Check earlier ran tests for inconsistency."
@@ -418,7 +416,7 @@ testcase i_us_presentation4
sleep (1)
MenuSelect(MenuGetItemID(1)) 'Copy
- '/// Check that we really got a copy of the object ///'
+ printlog "Check that we really got a copy of the object"
kontext "DocumentImpress"
DocumentImpress.OpenContextMenu(true)
WaitSlot (1000)
@@ -436,13 +434,13 @@ testcase i_us_presentation4
DocumentImpress.TypeKeys "<UP>", 82
DocumentImpress.TypeKeys "<LEFT>", 130
- '/// Deselect graphic ///'
+ printlog "Deselect graphic"
DocumentImpress.MouseDoubleClick 90,90
- '/// Close the Gallery ///'
+ printlog "Close the Gallery"
ToolsGallery
- '/// Change Text on slide ///'
+ printlog "Change Text on slide"
DocumentImpress.TypeKeys "<TAB>"
DocumentImpress.TypeKeys "<RETURN>"
DocumentImpress.TypeKeys "The process starts to flourish"
@@ -493,19 +491,18 @@ testcase i_us_presentation4
printlog " Inserted fourth slide with Gallery-object."
- '/// Save Document ///'
+ printlog "Save Document"
call hFileSaveAsKill (PresentationFile4)
printlog "OK saved at ", PresentationFile4
sleep (1)
ActiveDeactivateCTLSupport (FALSE)
sleep (2)
- '/// Close Document ///'
+ printlog "Close Document"
Call hCloseDocument
endcase 'i_us_presentation4
-'00oo...//==---...---...---...---....---...---...---...---...---...---...--..--.--.-.-.-.-....---....
-
+'-------------------------------------------------------------------------------
testcase i_us_presentation5
dim PresentationFile4 as string
dim PresentationFile5 as string
@@ -517,7 +514,7 @@ testcase i_us_presentation5
WaitSlot (10000)
else
warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
- '/// New impress document ///'
+ printlog "New impress document"
Call hNewDocument
WaitSlot (2000)
end if
@@ -532,30 +529,29 @@ testcase i_us_presentation5
SlidesControl.TypeKeys "<PAGEDOWN>"
kontext "DocumentImpress"
- '/// 8. New Slide. (Insert Menu) (Duplicate slide) ///'
+ printlog "8. New Slide. (Insert Menu) (Duplicate slide)"
InsertDuplicateSlide 'No 5
- 'Change the text in some way. (the user is making a joke with the audience)
+ printlog "Change the text in some way. (the user is making a joke with the audience)"
gMouseClick 90,90
DocumentImpress.TypeKeys "<TAB>"
DocumentImpress.TypeKeys "<RETURN>"
- EditSelectAll 'DocumentImpress.TypeKeys "<MOD1 A>"
+ EditSelectAll
DocumentImpress.TypeKeys "And does it with strength..."
printlog " Inserted fifth slide with audience-joke."
- '/// Save Document ///'
+ printlog "Save Document"
call hFileSaveAsKill (PresentationFile5)
printlog "OK saved at ", PresentationFile5
sleep (1)
ActiveDeactivateCTLSupport (FALSE)
sleep (2)
- '/// Close Document///'
+ printlog "Close Document"
Call hCloseDocument
endcase 'i_us_presentation5
-'00oo...//==---...---...---...---....---...---...---...---...---...---...--..--.--.-.-.-.-....---....
-
+'-------------------------------------------------------------------------------
testcase i_us_presentation6
dim PresentationFile5 as string
dim PresentationFile6 as string
@@ -567,7 +563,7 @@ testcase i_us_presentation6
WaitSlot (10000)
else
warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
- '/// New impress document ///'
+ printlog "New impress document"
Call hNewDocument
WaitSlot (2000)
end if
@@ -581,8 +577,8 @@ testcase i_us_presentation6
SlidesControl.TypeKeys "<PAGEDOWN>"
kontext "DocumentImpress"
- '/// 9. Q&A Slide ///'
- InsertSlide 'No 6
+ printlog "9. Q&A Slide"
+ InsertSlide
WaitSlot (1000)
kontext "DocumentImpress"
DocumentImpress.TypeKeys "<TAB>"
@@ -611,19 +607,18 @@ testcase i_us_presentation6
kontext "DocumentImpress"
printlog " Inserted sixth slide with Q&A."
- '/// Save Document ///'
+ printlog "Save Document"
call hFileSaveAsKill (PresentationFile6)
printlog "OK saved at ", PresentationFile6
sleep (1)
ActiveDeactivateCTLSupport (FALSE)
WaitSlot (2000)
- '/// Close Document ///'
+ printlog "Close Document"
Call hCloseDocument
endcase 'i_us_presentation6
-'00oo...//==---...---...---...---....---...---...---...---...---...---...--..--.--.-.-.-.-....---....
-
+'-------------------------------------------------------------------------------
testcase i_us_presentation7
dim sFilter as string
@@ -639,7 +634,7 @@ testcase i_us_presentation7
WaitSlot (10000)
else
warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
- '/// New impress document ///'
+ printlog "New impress document"
Call hNewDocument
WaitSlot (2000)
end if
@@ -655,7 +650,7 @@ testcase i_us_presentation7
SlidesControl.TypeKeys "<PAGEDOWN>"
kontext "DocumentImpress"
- '/// 10. Ending Slide ///'
+ printlog " inserting Ending Slide"
InsertSlide 'No 7
DocumentImpress.TypeKeys "Ende"
printlog " Inserted ending -slide."
@@ -676,36 +671,35 @@ testcase i_us_presentation7
hTypeKeys "<F5>"
kontext "DocumentPresentation"
- sleep (3)
- DocumentPresentation.TypeKeys "<PAGEDOWN>"
- sleep (2)
- DocumentPresentation.TypeKeys "<PAGEDOWN>"
- sleep (2)
+ sleep (5)
DocumentPresentation.TypeKeys "<PAGEDOWN>"
+ sleep (5)
DocumentPresentation.TypeKeys "<PAGEDOWN>"
+ sleep (5)
DocumentPresentation.TypeKeys "<PAGEDOWN>"
sleep (10)
DocumentPresentation.TypeKeys "<PAGEDOWN>"
+ sleep (10)
DocumentPresentation.TypeKeys "<PAGEDOWN>"
- sleep (2)
- DocumentPresentation.TypeKeys "<PAGEDOWN>"
+ sleep (5)
DocumentPresentation.TypeKeys "<PAGEDOWN>"
- sleep (2)
+ sleep (5)
DocumentPresentation.TypeKeys "<PAGEDOWN>"
+ sleep (5)
DocumentPresentation.TypeKeys "<PAGEDOWN>"
- sleep (2)
- DocumentPresentation.TypeKeys "<ESCAPE>"
+
if DocumentPresentation.Exists(5) then
+ hTypeKeys "<ESC>"
warnlog " Presentation should have ended. Please inform Automatic Tester."
end if
kontext "DocumentImpress"
- '/// Save Document ///'
+ printlog "Save Document"
call hFileSaveAsKill (PresentationFile7)
printlog "OK saved at ", PresentationFile7
sleep (1)
- '/// Save as Powerpoint-file ///'
+ printlog "Save as Powerpoint-file"
FileSaveAs
Kontext "SpeichernDlg"
Dateiname.SetText sFileName
@@ -719,21 +713,19 @@ testcase i_us_presentation7
printlog "Saved as: " + sFileName
sleep (3)
- '/// Close the office and reload the file ///'
+ printlog "Close the office and reload the file"
FileClose
Kontext "Messagebox"
if Messagebox.Exists(2) then Messagebox.Yes
sleep (3)
- '/// Open the saved file ///'
+ printlog "Open the saved file"
hFileOpen sFileName
printlog "File opened: " + sFileName
sleep (3)
- '/// Close the office-session ///'
+ printlog "Close the office-session"
ActiveDeactivateCTLSupport (FALSE)
sleep (2)
- '/// Close Document ///'
+ printlog "Close Document"
Call hCloseDocument
endcase 'i_us_presentation7
-
-'00oo...//==---...---...---...---....---...---...---...---...---...---...--..--.--.-.-.-.-....---....
generated by cgit (git 2.34.1) at 2024-05-30 02:07:34 +0000