strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

automationdev300m87#i115106#added neccessary wait

Browse source
This commit is contained in:
Helge Delfs [hde] 2010-10-25 10:33:34 +02:00
parent e884f01f28
commit a2c684d937
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
testautomation/writer/optional/includes/shortcut/w_shortcuts.inc Executable file → Normal file
View file

@ -779,6 +779,7 @@ testcase tShortcutPasteUnformattedText
Kontext Kontext
Active.Setpage TabFont Active.Setpage TabFont
Kontext "TabFont" Kontext "TabFont"
wait 500
DefaultSize = Size.GetSelIndex DefaultSize = Size.GetSelIndex
Size.Select 14 ' Size 20 Size.Select 14 ' Size 20
DefaultStyle = Style.GetSelIndex DefaultStyle = Style.GetSelIndex
@ -824,6 +825,7 @@ testcase tShortcutPasteUnformattedText
Kontext Kontext
Active.Setpage TabFont Active.Setpage TabFont
Kontext "TabFont" Kontext "TabFont"
wait 500
if Size.GetSelIndex <> 14 then if Size.GetSelIndex <> 14 then
Warnlog "formatted word has lost its size" Warnlog "formatted word has lost its size"
endif endif
@ -842,6 +844,7 @@ testcase tShortcutPasteUnformattedText
Kontext Kontext
Active.Setpage TabFont Active.Setpage TabFont
Kontext "TabFont" Kontext "TabFont"
wait 500
if Size.GetSelIndex <> DefaultSize then if Size.GetSelIndex <> DefaultSize then
Warnlog "formatted word has no default size" Warnlog "formatted word has no default size"
endif endif