diff options
Diffstat (limited to 'testautomation/framework/optional/includes/CJK_RubyDialogueProposal_1.inc')
| -rw-r--r--[-rwxr-xr-x] | testautomation/framework/optional/includes/CJK_RubyDialogueProposal_1.inc | 271 |
1 files changed, 149 insertions, 122 deletions
diff --git a/testautomation/framework/optional/includes/CJK_RubyDialogueProposal_1.inc b/testautomation/framework/optional/includes/CJK_RubyDialogueProposal_1.inc index c4caed718803..0df9c6c97aae 100755..100644 --- a/testautomation/framework/optional/includes/CJK_RubyDialogueProposal_1.inc +++ b/testautomation/framework/optional/includes/CJK_RubyDialogueProposal_1.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 @@ -39,18 +39,23 @@ testcase tRubyDialog_1 - Dim sBaseText , sRubyText as String - Dim sBaseText1 , sRubyText1 as String + Dim sBaseText , sRubyText as String + Dim sBaseText1 , sRubyText1 as String - sBaseText = "BaseText" - sRubyText = "RubyText" + sBaseText = "BaseText" + sRubyText = "RubyText" - sBaseText1 = "BaseText1" - sRubyText1 = "RubyText1" + sBaseText1 = "BaseText1" + sRubyText1 = "RubyText1" - Call hNewDocument + '/// Check Apply and Close button in Ruby dialogue + Call hNewDocument - FormatRuby + '/// Check close button. + '/// open ruby dialogue , input base text and ruby text , then press close button + '/// 1) check if the ruby dialogue is closed + '/// 2) check if the base text and ruby text is recorded + FormatRuby Kontext "RubyDialog" Sleep 3 BasisText1.SetText sBaseText @@ -58,19 +63,23 @@ testcase tRubyDialog_1 RubyText1.SetText sRubyText Sleep 1 - DialogClose.Click - Sleep 1 + DialogClose.Click + Sleep 1 - if RubyDialog.Exists then - Warnlog "The Ruby dialogue is NOT closed !" - end if + if RubyDialog.Exists then + Warnlog "The Ruby dialogue is NOT closed !" + end if - FormatRuby + FormatRuby Kontext "RubyDialog" Sleep 3 if Len(BasisText1.GetText) <> 0 then Warnlog "The base text should not been inputed" if Len(RubyText1.SetText) <> 0 then Warnlog "The ruby text should not been inputed" + '/// Check Apply button -- Normally , we think it is RubyDialog.OK + '/// open ruby dialogue , input base text and ruby text , then press close button + '/// Press Apply button , then press close button + '/// check if the base text and ruby text is recorded BasisText1.SetText sBaseText1 Sleep 1 @@ -80,22 +89,22 @@ testcase tRubyDialog_1 RubyDialog.OK Sleep 2 - DialogClose.Click - Sleep 1 + DialogClose.Click + Sleep 1 - EditSelectAll - Sleep 1 + EditSelectAll + Sleep 1 - FormatRuby - Kontext "RubyDialog" + FormatRuby + Kontext "RubyDialog" Sleep 3 if BasisText1.GetText <> sBaseText1 then Warnlog "The base text should be "+sBaseText1 + " but get " + BasisText1.GetText if RubyText1.GetText <> sRubyText1 then Warnlog "The ruby text should be "+sRubyText1 + " but get " + RubyText1.GetText - DialogClose.Click - Sleep 1 + DialogClose.Click + Sleep 1 - Call hCloseDocument + Call hCloseDocument endcase @@ -103,61 +112,72 @@ endcase testcase tRubyDialog_2 - Dim sBaseText as String + Dim sBaseText as String - sBaseText = "test1 test2 test3 test4 test5 test6 test7 test8 test9" + sBaseText = "test1 test2 test3 test4 test5 test6 test7 test8 test9" + '/// Test scrollbar in Ruby dialog - Call hNewDocument + Call hNewDocument - FormatRuby + '/// when there is less basetext, the scrollbar should appear + FormatRuby Kontext "RubyDialog" if RubyDialog.HasScrollbar <> TRUE then warnlog "The Scrollbar should appear when less basetext!" - DialogClose.Click - Sleep 1 + DialogClose.Click + Sleep 1 - Kontext "DocumentWriter" - DocumentWriter.TypeKeys sBaseText - DocumentWriter.TypeKeys "<Shift Home>" + '/// when there is more basetext(here is >4), the scrollbar should appear + Kontext "DocumentWriter" + DocumentWriter.TypeKeys sBaseText + DocumentWriter.TypeKeys "<Shift Home>" - FormatRuby + FormatRuby Kontext "RubyDialog" if RubyDialog.HasScrollbar <> TRUE then warnlog "The Scrollbar should appear when more basetext!" - DialogClose.Click - Sleep 1 + DialogClose.Click + Sleep 1 - Call hCloseDocument + Call hCloseDocument endcase '------------------------------------------------------------------------- testcase tRubyDialog_3 - Dim sTestText as String - Dim sBaseText1, sBaseText2 as String + Dim sTestText as String + Dim sBaseText1, sBaseText2 as String - sTestText = "Test1 Test2" - sBaseText1 = "Test1" - sBaseText2 = "Test2" + sTestText = "Test1 Test2" + sBaseText1 = "Test1" + sBaseText2 = "Test2" + '/// The list in ruby dialogure will be updated as soon as the uses + '/// selects new or further words of his text. + '/// The update will be done once the user changes his focus + '/// back to the Ruby-Dialogue from the text - Call hNewDocument + Call hNewDocument - DocumentWriter.TypeKeys sTestText - DocumentWriter.TypeKeys "<Shift Left>" , 5 + '/// input 2 test words, and mark the second + DocumentWriter.TypeKeys sTestText + DocumentWriter.TypeKeys "<Shift Left>" , 5 - FormatRuby + '/// There should be only the second test word in basetext1 in ruby dialogue + FormatRuby Kontext "RubyDialog" Sleep 2 if BasisText1.GetText <> sBaseText2 then warnlog "The BaseText1 should be:" +sBaseText2 + " but get "+BasisText1.GetText - Kontext "DocumentWriter" - try - DocumentWriter.TypeKeys "<Shift Home>" - Sleep 2 - catch - warnlog "The ruby dialogue is MODE less dialogue , the document can be edited!" - endcatch + '/// Mark 2 test words + Kontext "DocumentWriter" + try + DocumentWriter.TypeKeys "<Shift Home>" + Sleep 2 + catch + warnlog "The ruby dialogue is MODE less dialogue , the document can be edited!" + endcatch + '/// Check if the 2 test words are all in the ruby dialogue when set forcus back to the dialogue Kontext "RubyDialog" Sleep 1 'this step is meaningless, just let the focus back to ruby dialogue @@ -167,10 +187,10 @@ testcase tRubyDialog_3 Sleep 1 if BasisText2.GetText <> sBaseText2 then warnlog "The BaseText2 should be:" +sBaseText2 + " but get "+BasisText2.GetText - DialogClose.Click - Sleep 1 + DialogClose.Click + Sleep 1 - Call hCloseDocument + Call hCloseDocument endcase @@ -178,41 +198,42 @@ endcase testcase tRubyDialog_4 - Dim sCharacterStyle as String - dim i as integer - - - select case iSprache - case 01 : sCharacterStyle = "Rubies" - case 33 : sCharacterStyle = "Rubys" - case 34 : sCharacterStyle = "Rubys" - case 39 : sCharacterStyle = "Testo Ruby" - case 46 : sCharacterStyle = "Rubytext" - case 49 : sCharacterStyle = "Rubys" - case 55 : sCharacterStyle = "Rubys" - case 81 : sCharacterStyle = "ふりがな" - case 82 : sCharacterStyle = "윗주 달기" ' not sure TBO - case 86 : sCharacterStyle = "拼音和注音符号" - case 88 : sCharacterStyle = "注音符號" - case else :' QAErrorLog "Now, the test does not support for the language " +iSprache - Goto endsub - end select - - Call hNewDocument - - FormatRuby + Dim sCharacterStyle as String + dim i as integer + + '/// Check default setting for Character Style of Ruby Text + + select case iSprache + case 01 : sCharacterStyle = "Rubies" + case 33 : sCharacterStyle = "Rubys" + case 34 : sCharacterStyle = "Rubys" + case 39 : sCharacterStyle = "Testo Ruby" + case 46 : sCharacterStyle = "Rubytext" + case 49 : sCharacterStyle = "Rubys" + case 55 : sCharacterStyle = "Rubys" + case 81 : sCharacterStyle = "ふりがな" + case 82 : sCharacterStyle = "윗주 달기" ' not sure TBO + case 86 : sCharacterStyle = "拼音和注音符号" + case 88 : sCharacterStyle = "注音符號" + case else :' QAErrorLog "Now, the test does not support for the language " +iSprache + Goto endsub + end select + + Call hNewDocument + + FormatRuby Kontext "RubyDialog" Sleep 3 - if CharacterStyle.GetSelText <> sCharacterStyle then - warnlog "Default setting for Character Style of Ruby Text isn't right, should be "+sCharacterStyle + " but get "+CharacterStyle.GetSelText - for i = 1 to CharacterStyle.getItemCount - printlog "("+i+"/"+CharacterStyle.getItemCount+"): '"+CharacterStyle.getItemText(i)+"'" - next i + if CharacterStyle.GetSelText <> sCharacterStyle then + warnlog "Default setting for Character Style of Ruby Text isn't right, should be "+sCharacterStyle + " but get "+CharacterStyle.GetSelText + for i = 1 to CharacterStyle.getItemCount + printlog "("+i+"/"+CharacterStyle.getItemCount+"): '"+CharacterStyle.getItemText(i)+"'" + next i endif DialogClose.Click - Sleep 1 + Sleep 1 - Call hCloseDocument + Call hCloseDocument endcase @@ -220,45 +241,49 @@ endcase testcase tRubyDialog_5 - Dim sCharacterStyle as String - Dim sStyleName as String - Dim i as Integer - dim iCount as integer - dim bError as boolean - dim bWileExit as boolean - - - select case iSprache - case 01 : sCharacterStyle = "Rubies" - case 33 : sCharacterStyle = "Rubys" - case 34 : sCharacterStyle = "Rubys" - case 39 : sCharacterStyle = "Testo Ruby" - case 46 : sCharacterStyle = "Rubytext" - case 49 : sCharacterStyle = "Rubys" - case 55 : sCharacterStyle = "Rubys" - case 81 : sCharacterStyle = "ふりがな" - case 82 : sCharacterStyle = "윗주 달기" ' not sure TBO was "덧말" - case 86 : sCharacterStyle = "拼音和注音符号" - case 88 : sCharacterStyle = "注音符號" - case else :' QAErrorLog "Now, the test does not support for the language " +iSprache - Goto endsub - end select - - sStyleName = "ZZZ-Test-ZZZ" - - Call hNewDocument - - FormatRuby + Dim sCharacterStyle as String + Dim sStyleName as String + Dim i as Integer + dim iCount as integer + dim bError as boolean + dim bWileExit as boolean + + '/// Check stylist + + select case iSprache + case 01 : sCharacterStyle = "Rubies" + case 33 : sCharacterStyle = "Rubys" + case 34 : sCharacterStyle = "Rubys" + case 39 : sCharacterStyle = "Testo Ruby" + case 46 : sCharacterStyle = "Rubytext" + case 49 : sCharacterStyle = "Rubys" + case 55 : sCharacterStyle = "Rubys" + case 81 : sCharacterStyle = "ふりがな" + case 82 : sCharacterStyle = "윗주 달기" ' not sure TBO was "덧말" + case 86 : sCharacterStyle = "拼音和注音符号" + case 88 : sCharacterStyle = "注音符號" + case else :' QAErrorLog "Now, the test does not support for the language " +iSprache + Goto endsub + end select + + sStyleName = "ZZZ-Test-ZZZ" + + Call hNewDocument + + '/// Open ruby dialogue + FormatRuby Kontext "RubyDialog" + '/// Click stylist button CallStylist.Click Sleep 2 Kontext "Stylist" if Stylist.NotExists then - Warnlog "No Stylist with clicking Stylist button!" + Warnlog "No Stylist with clicking Stylist button!" end if + '/// click Character Style Zeichenvorlagen.Click ' needed to update the listbox count :-( @@ -282,22 +307,24 @@ testcase tRubyDialog_5 endif if (NOT bError) then + '/// find entry ruby and add a new entry AusSelektion.OpenMenu Sleep 1 printlog "hMenuSelect 1" hMenuSelectNr(1) printlog "hMenuSelect 1 survived" Sleep 1 - + Kontext "VorlageErzeugen" Sleep 1 Vorlagenname.SetText sStyleName Sleep 1 VorlageErzeugen.OK Sleep 2 - + + '/// check if the new entry is in the Character Style list box in ruby dialogue Kontext "RubyDialog" - + ' needed to update the listbox count :-( CharacterStyle.typeKeys ("<end><up><down>") iCount = CharacterStyle.GetItemCount @@ -317,14 +344,14 @@ testcase tRubyDialog_5 CharacterStyle.select (i) bError = false endif - + if (NOT bError) then Kontext "Stylist" iCount = Vorlagenliste.getItemCount i=0 while ((i<iCount) AND (Vorlagenliste.getItemText (i+1) <> sStyleName)) inc (i) - printlog "" + (i) + ": " + Vorlagenliste.getItemText (i) + printlog "" + (i) + ": " + Vorlagenliste.getItemText (i) wEnd if (i = iCount) then warnlog "Style (Rubies) not found for deleting: '" + sStyleName + "' inside of entries: " + iCount @@ -362,7 +389,7 @@ testcase tRubyDialog_5 DialogClose.Click Sleep 1 - Call hCloseDocument + Call hCloseDocument endcase |