diff options
author | Wolfram Garten [wg] <Wolfram.Garten@oracle.com> | 2010-10-20 12:59:38 +0200 |
---|---|---|
committer | Wolfram Garten [wg] <Wolfram.Garten@oracle.com> | 2010-10-20 12:59:38 +0200 |
commit | 7cd82bd69f5ab5450752c8f15262b0824ea96f95 (patch) | |
tree | 679d3960e734302a386235deb6774371b5a18a68 /testautomation/graphics | |
parent | 917efdefc632cae33fbbd35074d4729ce03dff49 (diff) |
i115106,[Automation]: [Automation] General Cat 1-3 test case fixing
Diffstat (limited to 'testautomation/graphics')
-rw-r--r-- | testautomation/graphics/optional/includes/global/g_demoguide.inc | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_demoguide.inc b/testautomation/graphics/optional/includes/global/g_demoguide.inc index 28774e24ea40..cb0a428d2f59 100644 --- a/testautomation/graphics/optional/includes/global/g_demoguide.inc +++ b/testautomation/graphics/optional/includes/global/g_demoguide.inc @@ -249,7 +249,7 @@ testcase t_Interoperability wait(20000) Kontext "AvailableForUsePreview" AvailableForUsePreview.TypeKeys "<HOME> <RIGHT> <RETURN>" - sleep (5) + sleep (10) printlog " Verify that the background has changed" Kontext "DocumentImpress" printlog " Background is " & DocumentImpress.StatusGetText (6) 'Debugcode @@ -263,7 +263,7 @@ testcase t_Interoperability Kontext "Tasks" Kontext "AvailableForUsePreview" AvailableForUsePreview.TypeKeys "<HOME> <RETURN>" - sleep (5) + sleep (10) Kontext "DocumentImpress" if DocumentImpress.StatusGetText (6) = sTemplatename then printlog " The background has been set back to default" @@ -275,20 +275,21 @@ testcase t_Interoperability Kontext "DocumentImpress" Kontext "Slides" Kontext "SlidesControl" - SlidesControl.TypeKeys "<Mod1 X>" + SlidesControl.OpenContextMenu + sleep 1 + hMenuSelectNr (8) Kontext "DocumentImpress" - DocumentImpress.TypeKeys "<HOME>" + DocumentImpress.TypeKeys "<HOME>", true Kontext "Slides" Kontext "SlidesControl" - SlidesControl.TypeKeys "<Mod1 V>" - kontext "InsertPaste" - if InsertPaste.Exists(1) then - Before.Check - InsertPaste.OK - endif + SlidesControl.OpenContextMenu + sleep 1 + hMenuSelectNr (10) + Printlog " Verify that the slide was moved correctly" Kontext "Slides" - SlidesControl.TypeKeys "<PAGEUP>" + sleep (5) + SlidesControl.TypeKeys "<SHIFT F10>" if hMenuFindSelect(27268, true, 3) = false then Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." @@ -311,10 +312,9 @@ testcase t_Interoperability setclipboard("") try Kontext "DocumentImpressOutlineView" - DocumentImpressOutlineView.TypeKeys "<MOD1 HOME><SHIFT END>" DocumentImpressOutlineView.TypeKeys "<Mod1 C>" sleep (5) - if getclipboard() <> ".NET Enterprise" then + if getclipboard() <> ".NET Enterprise Federation" then warnlog " Wrong selection in outlineview. Should be '.NET Enterprise', but is '" & getclipboard() +"'." else printlog " Switching to Outlineview was successfull" endif |