summaryrefslogtreecommitdiff
path: root/testautomation/graphics/optional/includes/impress/i_us_present.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/graphics/optional/includes/impress/i_us_present.inc')
-rw-r--r--testautomation/graphics/optional/includes/impress/i_us_present.inc672
1 files changed, 321 insertions, 351 deletions
diff --git a/testautomation/graphics/optional/includes/impress/i_us_present.inc b/testautomation/graphics/optional/includes/impress/i_us_present.inc
index 26a17b3a80be..4a711cf0a902 100644
--- a/testautomation/graphics/optional/includes/impress/i_us_present.inc
+++ b/testautomation/graphics/optional/includes/impress/i_us_present.inc
@@ -25,29 +25,25 @@
'
'/**************************************************************************
'*
-'* Owner : wolfram.garten@sun.com
+'* Owner : wolfram.garten@oracle.com
'*
'* short description : Include-file for impress User-Scenario: Presentation.
'*
-'***************************************************************************
-' #1 i_us_presentation1
-' #1 i_us_presentation2
-' #1 i_us_presentation3
-' #1 i_us_presentation4
-' #1 i_us_presentation5
-' #1 i_us_presentation6
-' #1 i_us_presentation7
'\********************************************************************
testcase i_us_presentation1
- dim iPictures as integer
+
+ dim iPictures as integer
dim PresentationFile1 as string
- PresentationFile1 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes1.odp")))
+
+ PresentationFile1 = ConvertPath( gOfficePath + "user\work\PowerPes1.odp" )
+
printlog "New impress document"
Call hNewDocument
Call sSelectEmptyLayout
WaitSlot (2000)
kontext "DocumentImpress"
+
printlog "Add second Master-Page "
ViewMasterPage
kontext "Slides"
@@ -64,6 +60,7 @@ testcase i_us_presentation1
sleep (1)
printlog " Inserted second Master-Slide"
+
printlog "set background to picture(Gallery)"
Kontext "Gallery"
if Gallery.Exists(2) then
@@ -76,32 +73,32 @@ testcase i_us_presentation1
if gOOO = TRUE then 'OpenOffice.org
select case iSprache
- case 01 : iPictures = 1 'English
- case else : iPictures = 1 'Unknown
- warnlog "Please insert the entrienumbers for 'Backgrounds'. Language: " + iSprache
+ case 01 : iPictures = 1 'English
+ case else : iPictures = 1 'Unknown
+ warnlog "Please insert the entrienumbers for 'Backgrounds'. Language: " + iSprache
end select
else ' StarOffice...
select case iSprache
- case 01 : iPictures = 21 'English
- case 07 : iPictures = 28 'Russian
- case 31 : iPictures = 04 'Netherlands
- case 33 : iPictures = 22 'French
- case 34 : iPictures = 12 'Spanish
- case 36 : iPictures = 17 'Hungaria
- case 39 : iPictures = 23 'Italian
- case 46 : iPictures = 09 'Swedish
- case 48 : iPictures = 20 'Polish
- case 49 : iPictures = 11 'German
- case 55 : iPictures = 16 'Portuguese
- case 81 : iPictures = 22 'Japanese
- case 82 : iPictures = 04 'Korean
- case 86 : iPictures = 06 'Simplified
- case 88 : iPictures = 17 'Traditional
- case else : iPictures = 21 'Unknown
- warnlog "Please insert the entrienumbers for 'Backgrounds'. Language: " + iSprache
+ case 01 : iPictures = 21 'English
+ case 07 : iPictures = 28 'Russian
+ case 31 : iPictures = 04 'Netherlands
+ case 33 : iPictures = 22 'French
+ case 34 : iPictures = 12 'Spanish
+ case 36 : iPictures = 17 'Hungaria
+ case 39 : iPictures = 23 'Italian
+ case 46 : iPictures = 09 'Swedish
+ case 48 : iPictures = 20 'Polish
+ case 49 : iPictures = 11 'German
+ case 55 : iPictures = 16 'Portuguese
+ case 81 : iPictures = 22 'Japanese
+ case 82 : iPictures = 04 'Korean
+ case 86 : iPictures = 06 'Simplified
+ case 88 : iPictures = 17 'Traditional
+ case else : iPictures = 21 'Unknown
+ warnlog "Please insert the entrienumbers for 'Backgrounds'. Language: " + iSprache
end select
- end if
+ end if
kontext "Gallery"
Gallerys.Select (iPictures)
@@ -123,6 +120,33 @@ testcase i_us_presentation1
if ExportierenDlg.IsVisible(5) then
printlog " Gallery-object correctly copied into Slide."
ExportierenDlg.Close
+ ToolsGallery
+ WaitSlot (2000)
+ end if
+ kontext "GraphicObjectbar"
+ if GraphicObjectbar.Exists(5) = FALSE then
+ kontext "DocumentImpress"
+ ViewToolbarsPicture
+ end if
+ Kontext "Gallery"
+ View.TypeKeys "<HOME><RIGHT><RIGHT>"
+ printlog "'OpenContextMenu"
+ View.TypeKeys "<SHIFT F10>"
+ sleep (2)
+ MenuSelect(MenuGetItemID(1)) 'Insert
+ sleep (2)
+ MenuSelect(MenuGetItemID(1)) 'Copy
+ sleep (2)
+ printlog "Check that we really got a copy of the object "
+ kontext "DocumentImpress"
+ DocumentImpress.OpenContextMenu(true)
+ sleep (2)
+ MenuSelect 27353
+ 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... ?"
end if
@@ -131,41 +155,13 @@ testcase i_us_presentation1
kontext "DocumentImpress"
ViewToolbarsPicture
end if
-
- Kontext "Gallery"
- View.TypeKeys "<HOME><RIGHT><RIGHT>"
- printlog "'OpenContextMenu"
- View.TypeKeys "<SHIFT F10>"
- sleep (2)
- MenuSelect(MenuGetItemID(1)) 'Insert
- sleep (2)
- MenuSelect(MenuGetItemID(1)) 'Copy
- sleep (2)
- printlog "Check that we really got a copy of the object "
- kontext "DocumentImpress"
- DocumentImpress.OpenContextMenu(true)
- sleep (2)
- MenuSelect 27353
- 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... ?"
- end if
- kontext "GraphicObjectbar"
- if GraphicObjectbar.Exists(5) = FALSE then
- kontext "DocumentImpress"
- ViewToolbarsPicture
- end if
-
+ kontext "Gallery"
+ Gallerys.Select (iPictures)
printlog " 50% Transparency"
WaitSlot (2000)
kontext "GraphicObjectbar"
Transparenz.SetText "50"
sleep (1)
-
printlog "Mosaic 16px x 16px"
Filter.TearOff
sleep (1)
@@ -176,66 +172,86 @@ testcase i_us_presentation1
Width.SetText "16"
Height.SetText "16"
Mosaic.OK
-
kontext "GraphicFilterBar"
GraphicFilterBar.Close
-
ToolsGallery
WaitSlot (1000)
kontext "DocumentImpress"
hTypeKeys "<TAB>"
+ sleep (1)
+
+ kontext "GraphicFilterBar"
+ Mosaic.Click
+
+ kontext "Mosaic"
+ if ( Mosaic.exists( 2 ) ) then
+ Width.SetText "16"
+ Height.SetText "16"
+ Mosaic.OK
+ else
+ warnlog( "Dialog <Mosaic> did not open" )
+ endif
+
+ kontext "GraphicFilterBar"
+ GraphicFilterBar.Close
+
+ ToolsGallery
+ WaitSlot (1000)
+ kontext "DocumentImpress"
+ gMouseClick 50,50
sleep (1)
+
FormatPositionAndSize
- WaitSlot (1000)
+
kontext
- active.setPage(TabPositionAndSize)
- kontext "TabPositionAndSize"
- Width.SetText "800"
- Height.SetText "600"
- SizePosition.TypeKeys "<RIGHT><DOWN>"
- TabPositionAndSize.OK
+ if ( Active.exists( 2 ) ) then
+ active.setPage(TabPositionAndSize)
+ kontext "TabPositionAndSize"
+ Width.SetText "800"
+ Height.SetText "600"
+ SizePosition.TypeKeys "<RIGHT><DOWN>"
+ TabPositionAndSize.OK
+ else
+ warnlog( "Page <TabPositionAndSize> did not open" )
+ endif
printlog "Close Master"
- ViewNormal
- WaitSlot (1000)
+ hUseAsyncSlot( "ViewNormal" )
printlog "Save Document"
call hFileSaveAsKill (PresentationFile1)
- printlog "OK saved at ", PresentationFile1
- WaitSlot (1000)
ActiveDeactivateCTLSupport (FALSE)
- WaitSlot (2000)
+
printlog "Close Document"
- Call hCloseDocument
+ hFileCloseAll()
+
endcase 'i_us_presentation1
'-------------------------------------------------------------------------------
+
testcase i_us_presentation2
+
dim PresentationFile1 as string
dim PresentationFile2 as string
- PresentationFile1 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes1.odp")))
- PresentationFile2 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes2.odp")))
- if Dir(PresentationFile1) <> "" then 'if file exists...
- hFileOpen (PresentationFile1)
- WaitSlot (10000)
+ PresentationFile1 = ConvertPath( gOfficePath + "user\work\PowerPes1.odp" )
+ PresentationFile2 = ConvertPath( gOfficePath + "user\work\PowerPes2.odp" )
+
+ if ( FileExists( PresentationFile1 ) ) then 'if file exists...
+ hFileOpen (PresentationFile1)
else
warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
- printlog "New impress document"
- Call hNewDocument
- WaitSlot (2000)
+ goto endsub
end if
printlog "New Slide"
kontext "slides"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
-
+ SlidesControl.TypeKeys( "<PAGEDOWN>", 3 )
SlidesControl.TypeKeys "<SHIFT F10>" 'OpenContextMenu(true)
sleep (1)
+
MenuSelect(MenuGetItemID(1)) 'New Slide 'No 2
printlog " Inserted second normal Slide"
@@ -244,11 +260,10 @@ testcase i_us_presentation2
printlog "to get to the very first position"
LayoutsPreview.TypeKeys "<HOME>"
printlog "'to get to the right position"
- LayoutsPreview.TypeKeys "<RIGHT>", 9
+ LayoutsPreview.TypeKeys "<RIGHT>", 9
LayoutsPreview.TypeKeys "<RETURN>"
- Sleep (1)
- ViewNormal
+ hUseAsyncSlot( "ViewNormal" )
printlog "3. Hide Slidepane (Oops! The user were too fast: accidently hide the pane)"
kontext "Slides"
@@ -259,7 +274,7 @@ testcase i_us_presentation2
SlidesControl.FadeIn
printlog " Did the 'mistake' to FadeIn/Out the Slidepane"
-
+
printlog "activating the input picture area"
kontext "DocumentImpress"
DocumentImpress.TypeKeys "<TAB>",2
@@ -268,68 +283,67 @@ testcase i_us_presentation2
printlog "Graphics-Import-dialogue. Select i_us_large.jpg"
Kontext "GrafikEinfuegenDlg"
- sleep (2)
- Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\i_us_large.jpg")
- sleep (2)
- Oeffnen.Click
- WaitSlot (1000)
- Kontext "DocumentImpress"
+ if ( GrafikEinfuegenDlg.exists( 2 ) ) then
- printlog "Deselect graphic"
- DocumentImpress.MouseDoubleClick 90,90
- printlog " Inserted Graphic into the second Slide"
+ Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\i_us_large.jpg")
+ Oeffnen.Click
- 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"
- DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>"
- DocumentImpress.TypeKeys "<TAB><TAB><TAB>"
- DocumentImpress.TypeKeys "<RETURN>"
- DocumentImpress.TypeKeys "100% Recyclable"
- DocumentImpress.TypeKeys "<RETURN>"
- DocumentImpress.TypeKeys "Very durable"
- DocumentImpress.TypeKeys "<RETURN>"
- DocumentImpress.TypeKeys "Priced lower than its predecessor!"
- DocumentImpress.TypeKeys "<RETURN>"
- DocumentImpress.TypeKeys "Sexy"
- DocumentImpress.TypeKeys "<RETURN>"
- DocumentImpress.TypeKeys "Energy-efficient"
- DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>"
+ Kontext "DocumentImpress"
+ printlog "Deselect graphic"
+ DocumentImpress.MouseDoubleClick 90,90
+ printlog " Inserted Graphic into the second Slide"
+
+ 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"
+ DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>"
+ DocumentImpress.TypeKeys "<TAB><TAB><TAB>"
+ DocumentImpress.TypeKeys "<RETURN>"
+ DocumentImpress.TypeKeys "100% Recyclable"
+ DocumentImpress.TypeKeys "<RETURN>"
+ DocumentImpress.TypeKeys "Very durable"
+ DocumentImpress.TypeKeys "<RETURN>"
+ DocumentImpress.TypeKeys "Priced lower than its predecessor!"
+ DocumentImpress.TypeKeys "<RETURN>"
+ DocumentImpress.TypeKeys "Sexy"
+ DocumentImpress.TypeKeys "<RETURN>"
+ DocumentImpress.TypeKeys "Energy-efficient"
+ DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>"
+ else
+ warnlog( "Failed to open <Insert Graphics> dialog" )
+ endif
printlog "Save Document"
call hFileSaveAsKill (PresentationFile2)
- printlog "OK saved at ", PresentationFile1
- sleep (1)
ActiveDeactivateCTLSupport (FALSE)
- sleep (2)
+
printlog "Close Document"
- Call hCloseDocument
+ hFileCloseAll()
+
endcase 'i_us_presentation2
'-------------------------------------------------------------------------------
+
testcase i_us_presentation3
+
dim PresentationFile2 as string
dim PresentationFile3 as string
- PresentationFile2 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes2.odp")))
- PresentationFile3 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes3.odp")))
- if Dir(PresentationFile2) <> "" then 'if file exists...
- hFileOpen (PresentationFile2)
- WaitSlot (10000)
+ PresentationFile2 = ConvertPath( gOfficePath + "user\work\PowerPes2.odp" )
+ PresentationFile3 = ConvertPath( gOfficePath + "user\work\PowerPes3.odp" )
+
+ if ( FileExists( PresentationFile2 ) ) then 'if file exists...
+ hFileOpen( PresentationFile2 )
else
warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
- printlog "New impress document"
- Call hNewDocument
- WaitSlot (2000)
+ goto endsub
end if
printlog "Insert New Slide"
kontext "slides"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
+ SlidesControl.TypeKeys( "<PAGEDOWN>", 3 )
kontext "DocumentImpress"
InsertSlide 'No 3
@@ -340,8 +354,7 @@ testcase i_us_presentation3
LayoutsPreview.TypeKeys "<RIGHT>", 4 'to get to the right position
LayoutsPreview.TypeKeys "<RETURN>"
- sleep (1)
- ViewNormal
+ hUseAsyncSlot( "ViewNormal" )
kontext "DocumentImpress"
Call gMouseClick 50,50
@@ -353,10 +366,10 @@ testcase i_us_presentation3
InsertGraphicsFromFile
WaitSlot (1000)
Kontext "GrafikEinfuegenDlg"
- Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\i_us_large.jpg")
- sleep (2)
- Oeffnen.Click
- WaitSlot (2000)
+ Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\i_us_large.jpg")
+ sleep (2)
+ Oeffnen.Click
+ WaitSlot (2000)
Kontext "DocumentImpress"
printlog "The user corrects the picture"
@@ -371,101 +384,97 @@ testcase i_us_presentation3
printlog "Save Document"
call hFileSaveAsKill (PresentationFile3)
- printlog "OK saved at ", PresentationFile3
- sleep (1)
ActiveDeactivateCTLSupport (FALSE)
- sleep (2)
+
printlog "Close Document"
- Call hCloseDocument
+ hFileCloseAll()
+
endcase 'i_us_presentation3
'-------------------------------------------------------------------------------
+
testcase i_us_presentation4
+
dim PresentationFile3 as string
dim PresentationFile4 as string
dim iAnimations as Integer
- PresentationFile3 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes3.odp")))
- PresentationFile4 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes4.odp")))
+ dim iSize as integer
+
+ PresentationFile3 = ConvertPath( gOfficePath + "user\work\PowerPes3.odp" )
+ PresentationFile4 = ConvertPath( gOfficePath + "user\work\PowerPes4.odp" )
- if Dir(PresentationFile3) <> "" then 'if file exists...
- hFileOpen (PresentationFile3)
- WaitSlot (10000)
+ select case iSprache
+ case 01 : iAnimations = 01 'English
+ case 07 : iAnimations = 01 'Russian
+ case 31 : iAnimations = 03 'Netherlands
+ case 33 : iAnimations = 01 'French
+ case 34 : iAnimations = 01 'Spanish
+ case 36 : iAnimations = 01 'Hungaria
+ case 39 : iAnimations = 01 'Italian
+ case 46 : iAnimations = 01 'Swedish
+ case 48 : iAnimations = 01 'Polish
+ case 49 : iAnimations = 01 'German
+ case 55 : iAnimations = 01 'Portuguese
+ case 81 : iAnimations = 02 'Japanese
+ case 82 : iAnimations = 17 'Korean
+ case 86 : iAnimations = 07 'Simplified
+ case 88 : iAnimations = 15 'Traditional
+ case else : iAnimations = 01 'Unknown
+ warnlog "Please insert the entrienumbers for 'Backgrounds'. Language: " + iSprache
+ end select
+
+ if ( FileExists( PresentationFile3 ) ) then 'if file exists...
+ hFileOpen( PresentationFile3 )
else
warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
- printlog "New impress document"
- Call hNewDocument
- WaitSlot (2000)
+ goto endsub
end if
kontext "slides"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- kontext "DocumentImpress"
+ SlidesControl.TypeKeys( "<PAGEDOWN>", 5 )
-printlog "insert slide no 4"
-InsertSlide
+ kontext "DocumentImpress"
+ printlog "insert slide no 4"
+ hUseAsyncSlot( "InsertSlide" )
printlog "Background: picture (Gallery)"
Kontext "Gallery"
- if Gallery.Exists(2) then
- warnlog " The Gallery was already visible. Check earlier ran tests for inconsistency."
- sleep (2)
- else
+ if ( Not Gallery.Exists() ) then
ToolsGallery
- WaitSlot (2000)
end if
- select case iSprache
- case 01 : iAnimations = 01 'English
- case 07 : iAnimations = 01 'Russian
- case 31 : iAnimations = 03 'Netherlands
- case 33 : iAnimations = 01 'French
- case 34 : iAnimations = 01 'Spanish
- case 36 : iAnimations = 01 'Hungaria
- case 39 : iAnimations = 01 'Italian
- case 46 : iAnimations = 01 'Swedish
- case 48 : iAnimations = 01 'Polish
- case 49 : iAnimations = 01 'German
- case 55 : iAnimations = 01 'Portuguese
- case 81 : iAnimations = 02 'Japanese
- case 82 : iAnimations = 17 'Korean
- case 86 : iAnimations = 07 'Simplified
- case 88 : iAnimations = 15 'Traditional
- case else : iAnimations = 01 'Unknown
- warnlog "Please insert the entrienumbers for 'Backgrounds'. Language: " + iSprache
- end select
-
kontext "Gallery"
- Gallerys.Select (iAnimations)
+ if ( Gallery.exists( 2 ) ) then
+ Gallerys.Select (iAnimations)
- kontext "Gallery"
+ kontext "Gallery"
View.TypeKeys "<HOME><RIGHT><RIGHT>"
- sleep (1)
+ wait( 200 )
View.TypeKeys "<SHIFT F10>" 'OpenContextMenu
- sleep (1)
+ wait( 200 )
MenuSelect(MenuGetItemID(1)) 'Insert
- sleep (1)
+ wait( 200 )
MenuSelect(MenuGetItemID(1)) 'Copy
+ else
+ warnlog( "Could not access Gallery" )
+ endif
- printlog "Check that we really got a copy of the object"
- kontext "DocumentImpress"
- DocumentImpress.OpenContextMenu(true)
- WaitSlot (1000)
- MenuSelect 27353
+ printlog "Check that we really got a copy of the object"
+ kontext "DocumentImpress"
+ DocumentImpress.OpenContextMenu(true)
+ WaitSlot (1000)
+ MenuSelect 27353
Kontext "ExportierenDlg"
- if ExportierenDlg.IsVisible(5) then
+ if ( ExportierenDlg.exists( 5 ) ) then
printlog " Gallery-object correctly copied into Slide."
ExportierenDlg.Close
else
warnlog " Doesn't seem like we copied anything from the Gallery... ?"
end if
- kontext "DocumentImpress"
+ kontext "DocumentImpress"
DocumentImpress.TypeKeys "<UP>", 82
DocumentImpress.TypeKeys "<LEFT>", 130
@@ -484,84 +493,53 @@ InsertSlide
ActiveDeactivateCTLSupport (TRUE)
- CreateTextSetEffectAndAngle
- DocumentImpress.TypeKeys "<DOWN>", 80
- DocumentImpress.TypeKeys "<LEFT>", 100
- gMouseClick 90,90
-
- CreateTextSetEffectAndAngle
- DocumentImpress.TypeKeys "<DOWN>", 80
- DocumentImpress.TypeKeys "<LEFT>", 75
- gMouseClick 90,90
-
- CreateTextSetEffectAndAngle
- DocumentImpress.TypeKeys "<DOWN>", 80
- DocumentImpress.TypeKeys "<LEFT>", 50
- gMouseClick 90,90
-
- CreateTextSetEffectAndAngle
- DocumentImpress.TypeKeys "<DOWN>", 80
- DocumentImpress.TypeKeys "<LEFT>", 25
- gMouseClick 90,90
-
- CreateTextSetEffectAndAngle
- DocumentImpress.TypeKeys "<DOWN>", 80
- DocumentImpress.TypeKeys "<RIGHT>", 25
- gMouseClick 90,90
-
- CreateTextSetEffectAndAngle
- DocumentImpress.TypeKeys "<DOWN>", 80
- DocumentImpress.TypeKeys "<RIGHT>", 50
- gMouseClick 90,90
-
- CreateTextSetEffectAndAngle
- DocumentImpress.TypeKeys "<DOWN>", 80
- DocumentImpress.TypeKeys "<RIGHT>", 75
- gMouseClick 90,90
-
- CreateTextSetEffectAndAngle
- DocumentImpress.TypeKeys "<DOWN>", 80
- DocumentImpress.TypeKeys "<RIGHT>", 100
- gMouseClick 90,90
+ printlog( "Decrease..." )
+ for iSize = 100 to 25 step -25
+ CreateTextSetEffectAndAngle
+ DocumentImpress.TypeKeys "<DOWN>", 80
+ DocumentImpress.TypeKeys "<LEFT>", iSize
+ gMouseClick 90,90
+ next iSize
+
+ printlog( "Increase..." )
+ for iSize = 25 to 100 step 25
+ CreateTextSetEffectAndAngle
+ DocumentImpress.TypeKeys "<DOWN>", 80
+ DocumentImpress.TypeKeys "<LEFT>", iSize
+ gMouseClick 90,90
+ next iSize
printlog " Inserted fourth slide with Gallery-object."
printlog "Save Document"
call hFileSaveAsKill (PresentationFile4)
- printlog "OK saved at ", PresentationFile4
- sleep (1)
ActiveDeactivateCTLSupport (FALSE)
- sleep (2)
+
printlog "Close Document"
- Call hCloseDocument
+ hFileCloseAll()
+
endcase 'i_us_presentation4
'-------------------------------------------------------------------------------
+
testcase i_us_presentation5
+
dim PresentationFile4 as string
dim PresentationFile5 as string
- PresentationFile4 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes4.odp")))
- PresentationFile5 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes5.odp")))
- if Dir(PresentationFile4) <> "" then 'if file exists...
- hFileOpen (PresentationFile4)
- WaitSlot (10000)
+ PresentationFile4 = ConvertPath( gOfficePath + "user\work\PowerPes4.odp" )
+ PresentationFile5 = ConvertPath( gOfficePath + "user\work\PowerPes5.odp" )
+
+ if ( FileExists( PresentationFile4 ) ) then 'if file exists...
+ hFileOpen( PresentationFile4 )
else
warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
- printlog "New impress document"
- Call hNewDocument
- WaitSlot (2000)
+ goto endsub
end if
kontext "slides"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
+ SlidesControl.TypeKeys( "<PAGEDOWN>", 7 )
kontext "DocumentImpress"
printlog "8. New Slide. (Insert Menu) (Duplicate slide)"
@@ -570,119 +548,109 @@ testcase i_us_presentation5
gMouseClick 90,90
DocumentImpress.TypeKeys "<TAB>"
DocumentImpress.TypeKeys "<RETURN>"
- EditSelectAll
+ hUseAsyncSlot( "EditSelectAll" )
DocumentImpress.TypeKeys "And does it with strength..."
printlog " Inserted fifth slide with audience-joke."
printlog "Save Document"
call hFileSaveAsKill (PresentationFile5)
- printlog "OK saved at ", PresentationFile5
- sleep (1)
ActiveDeactivateCTLSupport (FALSE)
- sleep (2)
+
printlog "Close Document"
- Call hCloseDocument
+ hFileCloseAll()
+
endcase 'i_us_presentation5
'-------------------------------------------------------------------------------
+
testcase i_us_presentation6
+
dim PresentationFile5 as string
dim PresentationFile6 as string
- PresentationFile5 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes5.odp")))
- PresentationFile6 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes6.odp")))
- if Dir(PresentationFile5) <> "" then 'if file exists...
- hFileOpen (PresentationFile5)
- WaitSlot (10000)
+ PresentationFile5 = ConvertPath( gOfficePath + "user\work\PowerPes5.odp" )
+ PresentationFile6 = ConvertPath( gOfficePath + "user\work\PowerPes6.odp" )
+
+ if ( FileExists( PresentationFile5 ) ) then 'if file exists...
+ hFileOpen( PresentationFile5 )
else
warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
- printlog "New impress document"
- Call hNewDocument
- WaitSlot (2000)
+ goto endsub
end if
kontext "slides"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
+ SlidesControl.TypeKeys( "<PAGEDOWN>", 6 )
kontext "DocumentImpress"
printlog "9. Q&A Slide"
- InsertSlide
+ InsertSlide
WaitSlot (1000)
kontext "DocumentImpress"
DocumentImpress.TypeKeys "<TAB>"
DocumentImpress.TypeKeys "<RETURN>"
DocumentImpress.TypeKeys "Q&A"
- WaitSlot (1000)
- kontext "DocumentImpress"
DocumentImpress.TypeKeys "<SHIFT HOME>"
+ wait( 500 )
+
Kontext "TextObjectbar"
- if TextObjectbar.Exists = FALSE then
- ViewToolbarsTextFormatting
- end if
- WaitSlot (2000)
- Printlog "- Change size of font"
- Schriftgroesse.Select "26"
- Schriftgroesse.TypeKeys "<RETURN>"
- Fett.Click
+ if ( not TextObjectbar.Exists() ) then
+ ViewToolbarsTextFormatting
+ end if
+
+ Kontext "TextObjectbar"
+ wait( 500 )
+ Printlog "- Change size of font"
+ Schriftgroesse.Select "26"
+ Schriftgroesse.TypeKeys "<RETURN>"
+ Fett.Click
kontext "DocumentImpress"
DocumentImpress.TypeKeys "<ESCAPE><ESCAPE>"
kontext "Toolbar"
- Auswahl.Click
+ Auswahl.Click
gMouseClick 60,60
- EditSelectAll
- WaitSlot (1000)
+ hUseAsyncSlot( "EditSelectAll" )
+
DocumentImpress.TypeKeys "<DOWN>", 50
kontext "DocumentImpress"
printlog " Inserted sixth slide with Q&A."
printlog "Save Document"
call hFileSaveAsKill (PresentationFile6)
- printlog "OK saved at ", PresentationFile6
- sleep (1)
ActiveDeactivateCTLSupport (FALSE)
- WaitSlot (2000)
+
printlog "Close Document"
- Call hCloseDocument
+ hFileCloseAll()
+
endcase 'i_us_presentation6
'-------------------------------------------------------------------------------
+
testcase i_us_presentation7
+ const KEY_STROKE_REPEAT = 8
+
dim sFilter as string
dim sFileName as string
dim PresentationFile6 as string
dim PresentationFile7 as string
- PresentationFile6 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes6.odp")))
- PresentationFile7 = ConvertPath ((ConvertPath (gOfficePath + "user\work\PowerPes7.odp")))
- sFileName = (ConvertPath (gOfficePath + "user\work\export-test.ppt"))
+ dim iKeyStroke as integer
+
+ PresentationFile6 = ConvertPath( gOfficePath + "user\work\PowerPes6.odp" )
+ PresentationFile7 = ConvertPath( gOfficePath + "user\work\PowerPes7.odp" )
+ sFileName = ConvertPath( gOfficePath + "user\work\export-test.ppt" )
- if Dir(PresentationFile6) <> "" then 'if file exists...
- hFileOpen (PresentationFile6)
- WaitSlot (10000)
+ if ( FileExists( PresentationFile6 ) ) then 'if file exists...
+ hFileOpen( PresentationFile6 )
else
warnlog " This test is supposed to run after the previous testcase has been run. Notify the Automatic-tester."
- printlog "New impress document"
- Call hNewDocument
- WaitSlot (2000)
+ goto endsub
end if
kontext "slides"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
- SlidesControl.TypeKeys "<PAGEDOWN>"
+ SlidesControl.TypeKeys( "<PAGEDOWN>", KEY_STROKE_REPEAT )
kontext "DocumentImpress"
printlog " inserting Ending Slide"
@@ -705,62 +673,64 @@ testcase i_us_presentation7
SlidesControl.TypeKeys "<RETURN>" 'At the first slide
hTypeKeys "<F5>"
+
+ kontext "DocumentPresentation"
+ for iKeyStroke = 1 to KEY_STROKE_REPEAT
+ wait( 3000 )
+ DocumentPresentation.TypeKeys "<PAGEDOWN>"
+ wait( 2000 )
+ next iKeyStroke
+
kontext "DocumentPresentation"
- 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 (5)
- DocumentPresentation.TypeKeys "<PAGEDOWN>"
- sleep (5)
- DocumentPresentation.TypeKeys "<PAGEDOWN>"
- sleep (5)
- DocumentPresentation.TypeKeys "<PAGEDOWN>"
-
- if DocumentPresentation.Exists(5) then
- hTypeKeys "<ESC>"
- warnlog " Presentation should have ended. Please inform Automatic Tester."
+ if ( DocumentPresentation.notExists( 5 ) ) then
+ printlog( "Presentation closed. Good." )
+ else
+ warnlog " Presentation not finished, fullscreen view still open."
+ DocumentPresentation.typeKeys "<ESC>"
+
+ kontext "DocumentPresentation"
+ if ( DocumentPresentation.notExists( 3 ) ) then
+ printlog( "Recovery attempt successful" )
+ else
+ goto endsub
+ endif
end if
- kontext "DocumentImpress"
+ kontext "DocumentImpress"
printlog "Save Document"
call hFileSaveAsKill (PresentationFile7)
- printlog "OK saved at ", PresentationFile7
- sleep (1)
- printlog "Save as Powerpoint-file"
+ printlog( "Save as Powerpoint-file (Using filter at pos. 5 in the filter list)" )
FileSaveAs
- Kontext "SpeichernDlg"
+
+ Kontext "SpeichernDlg"
+ if ( SpeichernDlg.exists( 2 ) ) then
+
Dateiname.SetText sFileName
- Dateityp.Select 5 ' Powerpoint
+ Dateityp.Select 5 ' Powerpoint (possibly)
printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(5)
Speichern.Click
+
Kontext "Messagebox"
- if Messagebox.Exists(2) then Messagebox.Yes
+ hCloseDialog( Messagebox, "Yes, optional" )
+
Kontext "AlienWarning"
- if AlienWarning.Exists(2) then AlienWarning.OK
- printlog "Saved as: " + sFileName
- sleep (3)
-
- printlog "Close the office and reload the file"
- FileClose
- Kontext "Messagebox"
- if Messagebox.Exists(2) then Messagebox.Yes
- sleep (3)
- printlog "Open the saved file"
+ hCloseDialog( AlienWarning, "ok, optional" )
+ else
+ warnlog( "<FileSaveAs> dialog did not open" )
+ endif
+
+ printlog "Close all open documents"
+ hFileCloseAll()
+
+ printlog( "Reload file: " & sFileName )
hFileOpen sFileName
- printlog "File opened: " + sFileName
- sleep (3)
+ sleep( 3 )
printlog "Close the office-session"
ActiveDeactivateCTLSupport (FALSE)
- sleep (2)
- printlog "Close Document"
- Call hCloseDocument
+
+ printlog "Close Documents"
+ hFileCloseAll()
+
endcase 'i_us_presentation7
generated by cgit (git 2.34.1) at 2024-07-13 17:08:44 +0000