diff options
author | Vladimir Glazunov <vg@openoffice.org> | 2010-02-16 18:29:26 +0100 |
---|---|---|
committer | Vladimir Glazunov <vg@openoffice.org> | 2010-02-16 18:29:26 +0100 |
commit | 4ff1be44998f4161985cdf04d5d6ebe3047edfdf (patch) | |
tree | c7d57c00f9d9e8a26c24c1da507c2957dd3326f3 /testautomation/writer/optional | |
parent | CWS-TOOLING: integrate CWS svxsplit (diff) | |
parent | cbosdo01: i108312: fixed integer to string (diff) | |
download | core-4ff1be44998f4161985cdf04d5d6ebe3047edfdf.tar.gz core-4ff1be44998f4161985cdf04d5d6ebe3047edfdf.zip |
CWS-TOOLING: integrate CWS cbosdo01
Diffstat (limited to 'testautomation/writer/optional')
-rwxr-xr-x | testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc | 1653 | ||||
-rwxr-xr-x | testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc | 543 | ||||
-rwxr-xr-x | testautomation/writer/optional/includes/tools/tools1.inc | 2 | ||||
-rw-r--r-- | testautomation/writer/optional/input/autocorrection/01-01.odt | bin | 0 -> 7798 bytes | |||
-rw-r--r-- | testautomation/writer/optional/input/autocorrection/01.odt | bin | 0 -> 7798 bytes | |||
-rw-r--r-- | testautomation/writer/optional/w_autocorrection.bas | 78 |
6 files changed, 1067 insertions, 1209 deletions
diff --git a/testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc b/testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc index 229289cdb556..f33aaaaccc44 100755 --- a/testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc +++ b/testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc @@ -35,30 +35,9 @@ '* '* short description : Test the AutoCorrect/AutoFormat/Options '* -'************************************************************************ -'* -' #1 tOpenDialog_1 -' #1 tReplaceDashes_1 -' #1 tToolsAutocorrectOptions_1 -' #1 tToolsAutocorrectOptions_2 -' #1 tToolsAutocorrectOptions_3 -' #1 tToolsAutocorrectOptions_4_1 -' #1 tToolsAutocorrectOptions_4_2 -' #1 tToolsAutocorrectOptions_5 -' #1 tToolsAutocorrectOptions_6 -' #1 tToolsAutocorrectOptions_7 -' #1 tToolsAutocorrectOptions_8 -' #1 tToolsAutocorrectOptions_11 -' #1 tToolsAutocorrectOptions_12 -' #1 tToolsAutocorrectOptions_13 -' #1 tToolsAutocorrectOptions_14 -' #1 tToolsAutocorrectOptions_16 -' #1 tToolsAutocorrectOptions_18 -' #1 tToolsAutocorrectOptions_19 -'* '\*********************************************************************** -sub w_autocorrect_autoformat_1 +sub w_autocorrect1 printLog Chr(13) + "- Test the AutoCorrect/AutoFormat Options features" @@ -70,16 +49,14 @@ sub w_autocorrect_autoformat_1 Call tToolsAutocorrectOptions_4_1 'Automatic bold Call tToolsAutocorrectOptions_4_2 'Automatic underline Call tToolsAutocorrectOptions_5 'URL Recognition - Call tToolsAutocorrectOptions_6 'Replace 1st ... with 1^st... - Call tToolsAutocorrectOptions_7 'Replace 1/2 ... with ½ ... - Call tToolsAutocorrectOptions_8 'Replace dashes - Call tToolsAutocorrectOptions_11 'Ignore double spaces - Call tToolsAutocorrectOptions_12 'Apply numbering - Call tToolsAutocorrectOptions_13 'Apply Border - Call tToolsAutocorrectOptions_14 'Create Table - Call Ttoolsautocorrectoptions_16 'Remove Blank Paragraphs - Call Ttoolsautocorrectoptions_18 'Replace bullets with • - Call tToolsAutocorrectOptions_19 'Replace standard quotes with custom quotes + Call tToolsAutocorrectOptions_6 'Replace dashes + Call tToolsAutocorrectOptions_7 'Ignore double spaces + Call tToolsAutocorrectOptions_8 'Apply numbering + Call tToolsAutocorrectOptions_9 'Apply Border + Call tToolsAutocorrectOptions_10 'Create Table + Call tToolsAutocorrectOptions_11 'Remove Blank Paragraphs + Call tToolsAutocorrectOptions_12 'Replace bullets with • + Call tToolsAutocorrectOptions_13 'Replace standard quotes with custom quotes end sub @@ -143,19 +120,27 @@ testcase tToolsAutocorrectOptions_1 Kuerzel.SetText "Aabbcc" ErsetzenDurch.SetText "Aaccbb" Sleep 1 - Neu.Click + try + Neu.Click + catch + Warnlog "Seems settings are already made. Please remove entries from replacement table" + endcatch Sleep 1 TabErsetzung.OK - '/// M:Y T:Y (default) + printlog "- M:Y T:Y (default)" ToolsAutoCorrect Kontext Active.SetPage TabOptionenAutokorrektur Kontext "TabOptionenAutokorrektur" - Einstellungen.Select 1 - if Not Einstellungen.IsChecked then Warnlog "First Checkbox: " & Einstellungen.IsChecked - Einstellungen.TypeKeys "<Right>" - if Not Einstellungen.IsChecked then Warnlog "Second Checkbox: " & Einstellungen.IsChecked + if Einstellungen.IsChecked(1,2) = FALSE then + Warnlog "First Checkbox not checked by default" + Einstellungen.Check(1,2) + endif + if Einstellungen.IsChecked(1,3) = FALSE then + Warnlog "Second Checkbox not checked by default" + Einstellungen.Check(1,3) + endif TabOptionenAutokorrektur.Ok Call wTypeKeys "Aabbcc" @@ -166,8 +151,8 @@ testcase tToolsAutocorrectOptions_1 Call wTypeKeys "<DELETE>" - '/// M:Y T:N - Call fAutocorrectOptions("UseReplacementTable") + printlog "- M:Y T:N" + Call fAutocorrectOptions("UseReplacementTable", 1, 0) Call wTypeKeys "Aabbcc" Call wTypeKeys " " @@ -189,8 +174,8 @@ testcase tToolsAutocorrectOptions_1 Call wTypeKeys "<DELETE>" - '/// M:N T:Y - Call fAutocorrectOptions("UseReplacementTable") + printlog "- M:N T:Y" + Call fAutocorrectOptions("UseReplacementTable", 0, 1) Call wTypeKeys "Aabbcc" Call wTypeKeys " " @@ -201,8 +186,8 @@ testcase tToolsAutocorrectOptions_1 Call wTypeKeys "<DELETE>" - '/// M:N T:N - Call fAutocorrectOptions("UseReplacementTable") + printlog "- M:N T:N" + Call fAutocorrectOptions("UseReplacementTable", 0, 0) Call wTypeKeys "Aabbcc" Call wTypeKeys " " @@ -210,9 +195,9 @@ testcase tToolsAutocorrectOptions_1 EditCopy if GetClipboardText <> "Aabbcc" then Warnlog "The content should NOT be changed before Autoformat! M:N T:N" - goto testend - else - + Call hCloseDocument + goto endsub + else Call wTypeKeys "<ESCAPE>" FormatAutoformatApply Call wTypeKeys "<Home><Shift End>" @@ -223,8 +208,8 @@ testcase tToolsAutocorrectOptions_1 end if end if - '/// Recover to the default M:Y T:Y - Call fAutocorrectOptions("UseReplacementTable") + printlog "- Recover to the default M:Y T:Y" + Call fAutocorrectOptions("UseReplacementTable", 1, 1) 'remove the test words which you insert in the replacement table Dim i as Integer @@ -250,95 +235,94 @@ endcase testcase tToolsAutocorrectOptions_2 - Dim testContent as String - Dim hopeResult as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String + Dim testContent as String + Dim hopeResult as String + Dim hopeResultBeforeAutoformat as String + Dim hopeResultAfterAutoformat as String - printLog "Test 'Correct TWo INitial CApital' " - '/// Test 'Correct TWo INitial CApital' - Call hNewDocument + printLog "Test 'Correct TWo INitial CApital' " + '/// Test 'Correct TWo INitial CApital' + Call hNewDocument '/// M:Y T:Y (default) - testContent = "TEst" - hopeResult = "Test" - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:Y T:Y" + testContent = "TEst" + hopeResult = "Test" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" + EditCopy + if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:Y T:Y" - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:Y T:N - testContent = "TEst" - hopeResultBeforeAutoformat = "TEst" - hopeResultAfterAutoformat = "Test" + testContent = "TEst" + hopeResultBeforeAutoformat = "TEst" + hopeResultAfterAutoformat = "Test" - Call fAutocorrectOptions("CorrectTWoINitialCApitals") + Call fAutocorrectOptions("CorrectTWoINitialCApitals",1,0) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then - Warnlog "The content should NOT be changed before Autoformat! M:Y T:N" - goto GOING1 - end if + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then + Warnlog "The content should NOT be changed before Autoformat! M:Y T:N" + goto GOING1 + end if - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then - Warnlog "The content should be changed after Autoformat!M:Y T:N" - end if + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then + Warnlog "The content should be changed after Autoformat!M:Y T:N" + end if -GOING1: - Call wTypeKeys "<DELETE>" + GOING1: + Call wTypeKeys "<DELETE>" '/// M:N T:Y - testContent = "TEst" - hopeResult = "Test" + testContent = "TEst" + hopeResult = "Test" - Call fAutocorrectOptions("CorrectTWoINitialCApitals") + Call fAutocorrectOptions("CorrectTWoINitialCApitals",0,1) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:N T:Y" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" + EditCopy + if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:N T:Y" - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:N T:N - testContent = "TEst" - hopeResultBeforeAutoformat = "TEst" - hopeResultAfterAutoformat = "TEst" + testContent = "TEst" + hopeResultBeforeAutoformat = "TEst" + hopeResultAfterAutoformat = "TEst" - Call fAutocorrectOptions("CorrectTWoINitialCApitals") + Call fAutocorrectOptions("CorrectTWoINitialCApitals",0,0) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "The content should NOT be changed before Autoformat! M:N T:N" - goto testend - end if + Call hCloseDocument + end if - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "The content should NOT be changed after Autoformat! M:N T:N" - end if + end if -testend: '/// Recover to the default M:Y T:Y - Call fAutocorrectOptions("CorrectTWoINitialCApitals") + Call fAutocorrectOptions("CorrectTWoINitialCApitals",1,1) Call hCloseDocument @@ -348,14 +332,14 @@ endcase testcase tToolsAutocorrectOptions_3 - Dim testContent as String - Dim hopeResult as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String + Dim testContent as String + Dim hopeResult as String + Dim hopeResultBeforeAutoformat as String + Dim hopeResultAfterAutoformat as String - printLog "Test 'Capitalize first letter of every setence'" - '/// Test 'Capitalize first letter of every setence' - Call hNewDocument + printLog "Test 'Capitalize first letter of every setence'" + '/// Test 'Capitalize first letter of every setence' + Call hNewDocument '/// M:Y T:Y (default) testContent = "the test for StarOffice automation. who is the author?" @@ -372,7 +356,7 @@ testcase tToolsAutocorrectOptions_3 hopeResultBeforeAutoformat = "the test for StarOffice automation. who is the author?" hopeResultAfterAutoformat = "The test for StarOffice automation. Who is the author?" - Call fAutocorrectOptions("CapitalizeFirstLetter") + Call fAutocorrectOptions("CapitalizeFirstLetter",1,0) Call wTypeKeys testContent Call wTypeKeys "<Shift Home>" EditCopy @@ -396,7 +380,7 @@ GOING1: testContent = "the test for StarOffice automation. who is the author?" hopeResult = "The test for StarOffice automation. Who is the author?" - Call fAutocorrectOptions("CapitalizeFirstLetter") + Call fAutocorrectOptions("CapitalizeFirstLetter",0,1) Call wTypeKeys testContent Call wTypeKeys "<Shift Home>" EditCopy @@ -409,7 +393,7 @@ GOING1: hopeResultBeforeAutoformat = "the test for StarOffice automation. who is the author?" hopeResultAfterAutoformat = "the test for StarOffice automation. who is the author?" - Call fAutocorrectOptions("CapitalizeFirstLetter") + Call fAutocorrectOptions("CapitalizeFirstLetter",0,0) Call wTypeKeys testContent Call wTypeKeys "<Shift Home>" @@ -430,7 +414,7 @@ GOING1: testend: '/// Recover to the default - Call fAutocorrectOptions("CapitalizeFirstLetter") + Call fAutocorrectOptions("CapitalizeFirstLetter",1,1) Call hCloseDocument @@ -441,16 +425,16 @@ endcase testcase tToolsAutocorrectOptions_4_1 - Dim testContent as String - Dim hopeResult as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String - Dim getStyle as String - Dim hopeStyle as String + Dim testContent as String + Dim hopeResult as String + Dim hopeResultBeforeAutoformat as String + Dim hopeResultAfterAutoformat as String + Dim getStyle as String + Dim hopeStyle as String - printLog "Test 'Automatic bold and underline' --- bold " - '/// Test 'Automatic bold' - Call hNewDocument + printLog "Test 'Automatic bold and underline' --- bold " + '/// Test 'Automatic bold' + Call hNewDocument '/// M:Y T:Y (default) testContent = "*Test*" @@ -464,193 +448,193 @@ testcase tToolsAutocorrectOptions_4_1 fFormatCharacter("TabFont") try - getStyle = Style.GetSelText - Style.Select 3 - hopeStyle = Style.GetSelText + getStyle = Style.GetSelText + Style.Select 3 + hopeStyle = Style.GetSelText catch - getStyle = StyleWest.GetSelText - StyleWest.Select 3 - hopeStyle = StyleWest.GetSelText + getStyle = StyleWest.GetSelText + StyleWest.Select 3 + hopeStyle = StyleWest.GetSelText endcatch Sleep 1 - if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y" + if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y" try - Style.Select 1 + Style.Select 1 catch - StyleWest.Select 1 + StyleWest.Select 1 endcatch Sleep 1 - TabFont.OK - Sleep 1 + TabFont.OK + Sleep 1 - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:Y T:N - testContent = "*Test*" - hopeResultBeforeAutoformat = "*Test*" - hopeResultAfterAutoformat = "Test" + testContent = "*Test*" + hopeResultBeforeAutoformat = "*Test*" + hopeResultAfterAutoformat = "Test" - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",1,0) - Call wTypeKeys testContent - Call wTypeKeys "<Shift Home>" + Call wTypeKeys testContent + Call wTypeKeys "<Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then - Warnlog "The content should NOT be changed before Autoformat! M:Y T:N" - goto GOING1 - end if + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then + Warnlog "The content should NOT be changed before Autoformat! M:Y T:N" + goto GOING1 + end if - fFormatCharacter("TabFont") + fFormatCharacter("TabFont") try - getStyle = Style.GetSelText - Style.Select 1 - hopeStyle = Style.GetSelText + getStyle = Style.GetSelText + Style.Select 1 + hopeStyle = Style.GetSelText catch - getStyle = StyleWest.GetSelText - StyleWest.Select 1 - hopeStyle = StyleWest.GetSelText + getStyle = StyleWest.GetSelText + StyleWest.Select 1 + hopeStyle = StyleWest.GetSelText endcatch Sleep 1 - if getStyle <> hopeStyle then Warnlog "The style should be standard style before autoformat!" - TabFont.Cancel + if getStyle <> hopeStyle then Warnlog "The style should be standard style before autoformat!" + TabFont.Cancel - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "The content should be changed after Autoformat!M:Y T:N" - end if + end if - fFormatCharacter("TabFont") + Call fFormatCharacter("TabFont") try - getStyle = Style.GetSelText - Style.Select 3 - hopeStyle = Style.GetSelText + getStyle = Style.GetSelText + Style.Select 3 + hopeStyle = Style.GetSelText catch - getStyle = StyleWest.GetSelText - StyleWest.Select 3 - hopeStyle = StyleWest.GetSelText + getStyle = StyleWest.GetSelText + StyleWest.Select 3 + hopeStyle = StyleWest.GetSelText endcatch Sleep 1 - if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y" + if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y" try - Style.Select 1 + Style.Select 1 catch - StyleWest.Select 1 + StyleWest.Select 1 endcatch - Sleep 1 + Sleep 1 - TabFont.OK - Sleep 1 + TabFont.OK + Sleep 1 -GOING1: + GOING1: - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:N T:Y - testContent = "*Test*" - hopeResult = "Test" + testContent = "*Test*" + hopeResult = "Test" - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",0,1) - Call wTypeKeys testContent - Call wTypeKeys "<Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic bold when M:Y T:Y" + Call wTypeKeys testContent + Call wTypeKeys "<Shift Home>" + EditCopy + if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic bold when M:Y T:Y" - fFormatCharacter("TabFont") + Call fFormatCharacter("TabFont") try - getStyle = Style.GetSelText - Style.Select 3 - hopeStyle = Style.GetSelText + getStyle = Style.GetSelText + Style.Select 3 + hopeStyle = Style.GetSelText catch - getStyle = StyleWest.GetSelText - StyleWest.Select 3 - hopeStyle = StyleWest.GetSelText + getStyle = StyleWest.GetSelText + StyleWest.Select 3 + hopeStyle = StyleWest.GetSelText endcatch Sleep 1 - if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y" + if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y" try - Style.Select 1 + Style.Select 1 catch - StyleWest.Select 1 + StyleWest.Select 1 endcatch - TabFont.OK - Sleep 1 + TabFont.OK + Sleep 1 - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:N T:N - testContent = "*Test*" - hopeResultBeforeAutoformat = "*Test*" - hopeResultAfterAutoformat = "*Test*" + testContent = "*Test*" + hopeResultBeforeAutoformat = "*Test*" + hopeResultAfterAutoformat = "*Test*" - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",0,0) - Call wTypeKeys testContent - Call wTypeKeys "<Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then + Call wTypeKeys testContent + Call wTypeKeys "<Shift Home>" + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "The content should NOT be changed before Autoformat! M:N T:N" goto testend - end if + end if - fFormatCharacter("TabFont") + Call fFormatCharacter("TabFont") try - getStyle = Style.GetSelText - Style.Select 1 - hopeStyle = Style.GetSelText + getStyle = Style.GetSelText + Style.Select 1 + hopeStyle = Style.GetSelText catch - getStyle = StyleWest.GetSelText - StyleWest.Select 1 - hopeStyle = StyleWest.GetSelText + getStyle = StyleWest.GetSelText + StyleWest.Select 1 + hopeStyle = StyleWest.GetSelText endcatch Sleep 1 - if getStyle <> hopeStyle then Warnlog "The style should be standard style before autoformat!" - TabFont.Cancel + if getStyle <> hopeStyle then Warnlog "The style should be standard style before autoformat!" + TabFont.Cancel - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "The content should NOT be changed after Autoformat! M:N T:N" - end if + end if - fFormatCharacter("TabFont") + Call fFormatCharacter("TabFont") try - getStyle = Style.GetSelText - Style.Select 1 - hopeStyle = Style.GetSelText + getStyle = Style.GetSelText + Style.Select 1 + hopeStyle = Style.GetSelText catch - getStyle = StyleWest.GetSelText - StyleWest.Select 1 - hopeStyle = StyleWest.GetSelText + getStyle = StyleWest.GetSelText + StyleWest.Select 1 + hopeStyle = StyleWest.GetSelText endcatch Sleep 1 - if getStyle <> hopeStyle then Warnlog "The style should be standard style after autoformat!" - TabFont.OK - Sleep 1 + if getStyle <> hopeStyle then Warnlog "The style should be standard style after autoformat!" + TabFont.OK + Sleep 1 -testend: + testend: '/// Recover to the default M:Y T:Y - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",1,1) Call hCloseDocument @@ -660,155 +644,155 @@ endcase testcase tToolsAutocorrectOptions_4_2 - Dim testContent as String - Dim hopeResult as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String - Dim getUnderlineStatus as Integer - Dim hopeUnderlineStatus as Integer ' 1 = without , 2 = single + Dim testContent as String + Dim hopeResult as String + Dim hopeResultBeforeAutoformat as String + Dim hopeResultAfterAutoformat as String + Dim getUnderlineStatus as Integer + Dim hopeUnderlineStatus as Integer ' 1 = without , 2 = single - printLog "Test 'Automatic bold and underline' --- underline " - '/// Test 'Automatic underline' - Call hNewDocument + printLog "Test 'Automatic bold and underline' --- underline " + '/// Test 'Automatic underline' + Call hNewDocument '/// M:Y T:Y (default) - testContent = "_Test_" - hopeResult = "Test" + testContent = "_Test_" + hopeResult = "Test" - Call wTypeKeys testContent - Call wTypeKeys "<Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic underline when M:Y T:Y" + Call wTypeKeys testContent + Call wTypeKeys "<Shift Home>" + EditCopy + if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic underline when M:Y T:Y" - fFormatCharacter("TabFontEffects") + Call fFormatCharacter("TabFontEffects") - getUnderlineStatus = Underline.GetSelIndex - Underline.Select 2 - hopeUnderlineStatus = Underline.GetSelIndex + getUnderlineStatus = Underline.GetSelIndex + Underline.Select 2 + hopeUnderlineStatus = Underline.GetSelIndex - if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content is NOT underlined when M:Y T:Y" - Underline.Select 1 - TabFontEffects.OK - Sleep 1 + if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content is NOT underlined when M:Y T:Y" + Underline.Select 1 + TabFontEffects.OK + Sleep 1 - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:Y T:N - testContent = "_Test_" - hopeResultBeforeAutoformat = "_Test_" - hopeResultAfterAutoformat = "Test" + testContent = "_Test_" + hopeResultBeforeAutoformat = "_Test_" + hopeResultAfterAutoformat = "Test" - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",1,0) - Call wTypeKeys testContent - Call wTypeKeys "<Shift Home>" + Call wTypeKeys testContent + Call wTypeKeys "<Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "The content should NOT be changed before Autoformat! M:Y T:N" goto GOING1 - end if + end if - fFormatCharacter("TabFontEffects") + Call fFormatCharacter("TabFontEffects") - getUnderlineStatus = Underline.GetSelIndex - Underline.Select 1 - Sleep 1 - hopeUnderlineStatus = Underline.GetSelIndex + getUnderlineStatus = Underline.GetSelIndex + Underline.Select 1 + Sleep 1 + hopeUnderlineStatus = Underline.GetSelIndex - if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined when M:Y T:N before autoformat!" - TabFontEffects.OK - Sleep 1 + if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined when M:Y T:N before autoformat!" + TabFontEffects.OK + Sleep 1 - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "The content should be changed after Autoformat!M:Y T:N" - end if + end if - fFormatCharacter("TabFontEffects") - getUnderlineStatus = Underline.GetSelIndex - Underline.Select 2 - hopeUnderlineStatus = Underline.GetSelIndex + Call fFormatCharacter("TabFontEffects") + getUnderlineStatus = Underline.GetSelIndex + Underline.Select 2 + hopeUnderlineStatus = Underline.GetSelIndex - if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should be underlined when M:Y T:N" - Underline.Select 1 - TabFontEffects.OK - Sleep 1 -GOING1: - Call wTypeKeys "<DELETE>" + if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should be underlined when M:Y T:N" + Underline.Select 1 + TabFontEffects.OK + Sleep 1 + GOING1: + Call wTypeKeys "<DELETE>" '/// M:N T:Y - testContent = "_Test_" - hopeResult = "Test" + testContent = "_Test_" + hopeResult = "Test" - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",0,1) - Call wTypeKeys testContent - Call wTypeKeys "<Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic bold when M:N T:Y" + Call wTypeKeys testContent + Call wTypeKeys "<Shift Home>" + EditCopy + if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic bold when M:N T:Y" - fFormatCharacter("TabFontEffects") - getUnderlineStatus = Underline.GetSelIndex - Underline.Select 2 - Sleep 1 - hopeUnderlineStatus = Underline.GetSelIndex + Call fFormatCharacter("TabFontEffects") + getUnderlineStatus = Underline.GetSelIndex + Underline.Select 2 + Sleep 1 + hopeUnderlineStatus = Underline.GetSelIndex - if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content is NOT underlined when M:N T:Y" - Underline.Select 1 - Sleep 1 - TabFontEffects.OK - Sleep 1 + if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content is NOT underlined when M:N T:Y" + Underline.Select 1 + Sleep 1 + TabFontEffects.OK + Sleep 1 - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:N T:N - testContent = "_Test_" - hopeResultBeforeAutoformat = "_Test_" - hopeResultAfterAutoformat = "_Test_" + testContent = "_Test_" + hopeResultBeforeAutoformat = "_Test_" + hopeResultAfterAutoformat = "_Test_" - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",0,0) - Call wTypeKeys testContent - Call wTypeKeys "<Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then + Call wTypeKeys testContent + Call wTypeKeys "<Shift Home>" + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "The content should NOT be changed before Autoformat! M:N T:N" goto testend - end if + end if - fFormatCharacter("TabFontEffects") - getUnderlineStatus = Underline.GetSelIndex - Underline.Select 1 - hopeUnderlineStatus = Underline.GetSelIndex + Call fFormatCharacter("TabFontEffects") + getUnderlineStatus = Underline.GetSelIndex + Underline.Select 1 + hopeUnderlineStatus = Underline.GetSelIndex - if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined before autoformat!M:N T:N " - TabFontEffects.OK + if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined before autoformat!M:N T:N " + TabFontEffects.OK - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then - Warnlog "The content should NOT be changed after Autoformat! M:N T:N" - end if + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then + Warnlog "The content should NOT be changed after Autoformat! M:N T:N" + end if - fFormatCharacter("TabFontEffects") - getUnderlineStatus = Underline.GetSelIndex - Underline.Select 1 - Sleep 1 - hopeUnderlineStatus = Underline.GetSelIndex + Call fFormatCharacter("TabFontEffects") + getUnderlineStatus = Underline.GetSelIndex + Underline.Select 1 + Sleep 1 + hopeUnderlineStatus = Underline.GetSelIndex - if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined after autoformat! M:N T:N" - TabFontEffects.OK - Sleep 1 + if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined after autoformat! M:N T:N" + TabFontEffects.OK + Sleep 1 -testend: + testend: '/// Recover to the default M:Y T:Y - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",1,1) Call hCloseDocument @@ -818,100 +802,100 @@ endcase testcase tToolsAutocorrectOptions_5 - Dim testContent as String - Dim hopeResult as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String + Dim testContent as String + Dim hopeResult as String + Dim hopeResultBeforeAutoformat as String + Dim hopeResultAfterAutoformat as String - printLog "URL Recognition" - '/// URL Recognition - Call hNewDocument + printLog "URL Recognition" + '/// URL Recognition + Call hNewDocument '/// M:Y T:Y (default) - testContent = "WWW.sun.com" - hopeResult = "http://WWW.sun.com/" + testContent = "WWW.sun.com" + hopeResult = "http://WWW.sun.com/" - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<Home>" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<Home>" - fFormatCharacter("TabHyperlinkZeichen") - if URLName.GetText <> hopeResult then Warnlog "The URL is NOT appeared when M:Y T:Y" - URLName.SetText "" - TabHyperlinkZeichen.OK + Call fFormatCharacter("TabHyperlinkZeichen") + if URLName.GetText <> hopeResult then Warnlog "The URL is NOT appeared when M:Y T:Y" + URLName.SetText "" + TabHyperlinkZeichen.OK Call hCloseDocument Call hNewDocument '/// M:Y T:N - testContent = "WWW.sun.com" - hopeResultBeforeAutoformat = "" - hopeResultAfterAutoformat = "http://WWW.sun.com/" + testContent = "WWW.sun.com" + hopeResultBeforeAutoformat = "" + hopeResultAfterAutoformat = "http://WWW.sun.com/" - Call fAutocorrectOptions("URLRecognition") + Call fAutocorrectOptions("URLRecognition",1,0) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<Home>" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<Home>" - fFormatCharacter("TabHyperlinkZeichen") - if URLName.GetText <> hopeResultBeforeAutoformat then Warnlog "The URL should NOT appeare when M:Y T:N before autoformat!" - URLName.SetText "" - TabHyperlinkZeichen.OK + Call fFormatCharacter("TabHyperlinkZeichen") + if URLName.GetText <> hopeResultBeforeAutoformat then Warnlog "The URL should NOT appeare when M:Y T:N before autoformat!" + URLName.SetText "" + TabHyperlinkZeichen.OK - FormatAutoformatApply + FormatAutoformatApply - fFormatCharacter("TabHyperlinkZeichen") - if URLName.GetText <> hopeResultAfterAutoformat then Warnlog "The URL should appeare when M:Y T:N after autoformat!" - URLName.SetText "" - TabHyperlinkZeichen.OK + Call fFormatCharacter("TabHyperlinkZeichen") + if URLName.GetText <> hopeResultAfterAutoformat then Warnlog "The URL should appeare when M:Y T:N after autoformat!" + URLName.SetText "" + TabHyperlinkZeichen.OK Call hCloseDocument Call hNewDocument '/// M:N T:Y - testContent = "WWW.sun.com" - hopeResult = "http://WWW.sun.com/" + testContent = "WWW.sun.com" + hopeResult = "http://WWW.sun.com/" - Call fAutocorrectOptions("URLRecognition") + Call fAutocorrectOptions("URLRecognition",0,1) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<Home>" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<Home>" - fFormatCharacter("TabHyperlinkZeichen") - if URLName.GetText <> hopeResult then Warnlog "The URL is NOT appeared when M:N T:Y" - URLName.SetText "" - TabHyperlinkZeichen.OK + Call fFormatCharacter("TabHyperlinkZeichen") + if URLName.GetText <> hopeResult then Warnlog "The URL is NOT appeared when M:N T:Y" + URLName.SetText "" + TabHyperlinkZeichen.OK Call hCloseDocument Call hNewDocument '/// M:N T:N - testContent = "WWW.sun.com" - hopeResultBeforeAutoformat = "" - hopeResultAfterAutoformat = "" + testContent = "WWW.sun.com" + hopeResultBeforeAutoformat = "" + hopeResultAfterAutoformat = "" - Call fAutocorrectOptions("URLRecognition") + Call fAutocorrectOptions("URLRecognition",0,0) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<Home>" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<Home>" - fFormatCharacter("TabHyperlinkZeichen") - if URLName.GetText <> hopeResultBeforeAutoformat then Warnlog "The URL should NOT appeare when M:N T:N before autoformat!" - URLName.SetText "" - TabHyperlinkZeichen.OK + Call fFormatCharacter("TabHyperlinkZeichen") + if URLName.GetText <> hopeResultBeforeAutoformat then Warnlog "The URL should NOT appeare when M:N T:N before autoformat!" + URLName.SetText "" + TabHyperlinkZeichen.OK - FormatAutoformatApply + FormatAutoformatApply - fFormatCharacter("TabHyperlinkZeichen") - if URLName.GetText <> hopeResultAfterAutoformat then Warnlog "The URL should NOT appeare when M:N T:N after autoformat!" - URLName.SetText "" - TabHyperlinkZeichen.OK + Call fFormatCharacter("TabHyperlinkZeichen") + if URLName.GetText <> hopeResultAfterAutoformat then Warnlog "The URL should NOT appeare when M:N T:N after autoformat!" + URLName.SetText "" + TabHyperlinkZeichen.OK '/// Recover to the default M:Y T:Y - Call fAutocorrectOptions("URLRecognition") + Call fAutocorrectOptions("URLRecognition",1,1) Call hCloseDocument @@ -921,279 +905,93 @@ endcase testcase tToolsAutocorrectOptions_6 - Dim testContent as String - - printLog "Replace 1st ... with 1^st..." - '/// Replace 1st ... with 1^st... - Call hNewDocument - - testContent = "1st" - - '/// M:Y T:Y (default) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>" - - fFormatCharacter("TabFontPosition") - if SuperScript.IsChecked <> TRUE then Warnlog "The superscript should be checked when M:Y T:Y" - Normal.Check - TabFontPosition.OK - - EditSelectAll - Call wTypeKeys "<DELETE>" - - '/// M:Y T:N - Call fAutocorrectOptions("Replace1st") - - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>" - - fFormatCharacter("TabFontPosition") - if SuperScript.IsChecked = TRUE then Warnlog "The superscript should NOT be checked when M:Y T:N before autoformat!" - Normal.Check - TabFontPosition.OK - - FormatAutoformatApply - - fFormatCharacter("TabFontPosition") - if SuperScript.IsChecked <> TRUE then Warnlog "The superscript should be checked when M:Y T:N after autoformat!" - Normal.Check - TabFontPosition.OK - - EditSelectAll - Call wTypeKeys "<DELETE>" - - '/// M:N T:Y - Call fAutocorrectOptions("Replace1st") - - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>" - - fFormatCharacter("TabFontPosition") - if SuperScript.IsChecked <> TRUE then Warnlog "The superscript should be checked when M:N T:Y" - Normal.Check - TabFontPosition.OK - - EditSelectAll - Call wTypeKeys "<DELETE>" - - '/// M:N T:N - Call fAutocorrectOptions("Replace1st") - - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>" - - fFormatCharacter("TabFontPosition") - if SuperScript.IsChecked = TRUE then Warnlog "The superscript should NOT be checked when M:N T:N before autoformat!" - Normal.Check - TabFontPosition.OK - - FormatAutoformatApply - - fFormatCharacter("TabFontPosition") - if SuperScript.IsChecked = TRUE then Warnlog "The superscript should NOT be checked when M:N T:N after autoformat!" - Normal.Check - TabFontPosition.OK - - '/// Recover to the default M:Y T:Y - Call fAutocorrectOptions("Replace1st") - - Call hCloseDocument + Dim testContent as String + Dim hopeResult as String + Dim hopeResultBeforeAutoformat + Dim hopeResultAfterAutoformat as String - -endcase - -'------------------------------------------------------------------------- - -testcase tToolsAutocorrectOptions_7 - - Dim testContent as String - Dim hopeResult as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String - - printLog "Replace 1/2 ... with ½ ... " - '/// Replace 1/2 ... with ½ ... - Call hNewDocument - - '/// M:Y T:Y (default) - testContent = "1/2" - hopeResult = "½" - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace 1/2 ... with ½ ... M:Y T:Y" - - Call wTypeKeys "<DELETE>" - - '/// M:Y T:N - testContent = "1/2" - hopeResultBeforeAutoformat = "1/2" - hopeResultAfterAutoformat = "½" - - Call fAutocorrectOptions("Replace1/2") - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then - Warnlog "The content should NOT be changed before Autoformat! M:Y T:N" - goto GOING1 - end if - - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then - Warnlog "The content should be changed after Autoformat!M:Y T:N" - end if - -GOING1: - Call wTypeKeys "<DELETE>" - - '/// M:N T:Y - testContent = "1/2" - hopeResult = "½" - - Call fAutocorrectOptions("Replace1/2") - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace 1/2 ... with ½ ... when M:N T:Y" - - Call wTypeKeys "<DELETE>" - - '/// M:N T:N - testContent = "1/2" - hopeResultBeforeAutoformat = "1/2" - hopeResultAfterAutoformat = "1/2" - - Call fAutocorrectOptions("Replace1/2") - - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then - Warnlog "The content should NOT be changed before Autoformat! M:N T:N" - goto testend - end if - - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then - Warnlog "The content should NOT be changed after Autoformat! M:N T:N" - end if - -testend: - - '/// Recover to the default - Call fAutocorrectOptions("Replace1/2") - - Call hCloseDocument - - -endcase - -'------------------------------------------------------------------------- - -testcase tToolsAutocorrectOptions_8 - - Dim testContent as String - Dim hopeResult as String - Dim hopeResultBeforeAutoformat - Dim hopeResultAfterAutoformat as String - - printLog "Replace dashes" - '/// Replace dashes - Call hNewDocument + printLog "Replace dashes" + '/// Replace dashes + Call hNewDocument '/// M:Y T:Y (default) - testContent = "Bla - Bla" - hopeResult = "Bla – Bla" - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace dashes M:Y T:Y" + testContent = "Bla - Bla" + hopeResult = "Bla – Bla" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" + EditCopy + if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace dashes M:Y T:Y" - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:Y T:N - testContent = "Bla - Bla" - hopeResultBeforeAutoformat = "Bla - Bla" - hopeResultAfterAutoformat = "Bla – Bla" + testContent = "Bla - Bla" + hopeResultBeforeAutoformat = "Bla - Bla" + hopeResultAfterAutoformat = "Bla – Bla" - Call fAutocorrectOptions("ReplaceDashes") - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then + Call fAutocorrectOptions("ReplaceDashes",1,0) + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "The content should NOT be changed before Autoformat! M:Y T:N" goto GOING1 - end if + end if - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "The content should be changed after Autoformat!M:Y T:N" - end if + end if -GOING1: - Call wTypeKeys "<DELETE>" + GOING1: + Call wTypeKeys "<DELETE>" '/// M:N T:Y - testContent = "Bla - Bla" - hopeResult = "Bla – Bla" + testContent = "Bla - Bla" + hopeResult = "Bla – Bla" - Call fAutocorrectOptions("ReplaceDashes") - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace dashes when M:N T:Y" + Call fAutocorrectOptions("ReplaceDashes",0,1) + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" + EditCopy + if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace dashes when M:N T:Y" - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:N T:N - testContent = "Bla - Bla" - hopeResultBeforeAutoformat = "Bla - Bla" - hopeResultAfterAutoformat = "Bla - Bla" + testContent = "Bla - Bla" + hopeResultBeforeAutoformat = "Bla - Bla" + hopeResultAfterAutoformat = "Bla - Bla" - Call fAutocorrectOptions("ReplaceDashes") + Call fAutocorrectOptions("ReplaceDashes",0,0) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "The content should NOT be changed before Autoformat! M:N T:N" goto testend - end if + end if - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "The content should NOT be changed after Autoformat! M:N T:N" - end if + end if -testend: + testend: '/// Recover to the default - Call fAutocorrectOptions("ReplaceDashes") + Call fAutocorrectOptions("ReplaceDashes",1,1) Call hCloseDocument @@ -1201,14 +999,14 @@ endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectOptions_11 +testcase tToolsAutocorrectOptions_7 - Dim testContent as String - Dim hopeResult as String + Dim testContent as String + Dim hopeResult as String - printLog "Ignore double spaces" - '/// Ignore double spaces - Call hNewDocument + printLog "Ignore double spaces" + '/// Ignore double spaces + Call hNewDocument '/// + T:N (default) testContent = "Two Space" @@ -1224,7 +1022,7 @@ testcase tToolsAutocorrectOptions_11 testContent = "Two Space" hopeResult = "Two Space" - Call fAutocorrectOptions("IgnoreDoulbeSpaces") + Call fAutocorrectOptions("IgnoreDoubleSpaces",1,1) Call wTypeKeys testContent Call wTypeKeys "<Shift Home>" EditCopy @@ -1234,7 +1032,7 @@ testcase tToolsAutocorrectOptions_11 Call wTypeKeys "<ESCAPE>" '/// Recover to the default - Call fAutocorrectOptions("IgnoreDoulbeSpaces") + Call fAutocorrectOptions("IgnoreDoubleSpaces",0,0) Call hCloseDocument @@ -1242,49 +1040,54 @@ endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectOptions_12 +testcase tToolsAutocorrectOptions_8 - Dim firstLine as String - Dim testContent as String - Dim hopeResult as String + Dim firstLine as String + Dim testContent as String + Dim hopeResult as String - printLog "Apply numbering" - '/// Apply numbering + printLog "Apply numbering" + '/// Apply numbering - Call hNewDocument + Call hNewDocument '/// + T:Y (default) - firstLine = "1. FirstLine" - testContent = "Test1" - hopeResult = "1.Test1" + firstLine = "1. FirstLine" + testContent = "Test1" + hopeResult = "1.Test1" - Call wTypeKeys firstLine - Call wTypeKeys "<Return>" - Call wTypeKeys testContent - Call wTypeKeys "<Return><Up><Home><Shift End>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Should Apply numbering when T:Y " + Call wTypeKeys firstLine + Call wTypeKeys "<Return>" + Call wTypeKeys testContent + Call wTypeKeys "<Return>" + Call wTypeKeys "<Up><End>" + Call wTypeKeys "<Mod1 Shift Up>" + EditCopy + printlog GetClipBoardtext + if GetClipboardText <> hopeResult then Warnlog "Should Apply numbering when T:Y. Not " & hopeResult & " but " & GetClipboardtext - EditSelectAll - Call wTypeKeys "<DELETE>" - Call wTypeKeys "<BACKSPACE>",3 + EditSelectAll + Call wTypeKeys "<DELETE>" + Call wTypeKeys "<BACKSPACE>",3 '/// + T:N - testContent = "Test1" - hopeResult = "Test1" - - Call fAutocorrectOptions("ApplyNumbering") - Call wTypeKeys firstLine - Call wTypeKeys "<Return>" - Call wTypeKeys testContent - Call wTypeKeys "<Return><Up><Home><Shift End>" - EditCopy + testContent = "Test1" + hopeResult = "Test1" + + Call fAutocorrectOptions("ApplyNumbering",0,0) + Call wTypeKeys firstLine + Call wTypeKeys "<Return>" + Call wTypeKeys testContent + Call wTypeKeys "<Return>" + Call wTypeKeys "<Up><End>" + Call wTypeKeys "<Mod1 Shift Up>" + EditCopy - if GetClipboardText <> hopeResult then Warnlog "Should NOT Apply numbering when T:Y" + if GetClipboardText <> hopeResult then Warnlog "Should NOT Apply numbering when T:N. Not " & hopeResult & " but " & GetClipboardtext '/// Recover to the default - Call fAutocorrectOptions("ApplyNumbering") + Call fAutocorrectOptions("ApplyNumbering",1,1) Call hCloseDocument @@ -1292,132 +1095,124 @@ endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectOptions_13 - - Dim testList() as String - Dim testContent as String - Dim hopeResult as String - Dim i as String - Dim j as Integer - Dim bottom as String - - bottom = "0" + gSeperator + "10" + gMeasurementUnit +testcase tToolsAutocorrectOptions_9 - testList = Array( _ - "---" , _ - "___" , _ - "===" , _ - "***" , _ - "~~~" , _ - "###" , _ - ) - j = UBound(testList) + Dim testList() as String + Dim testContent as String + Dim hopeResult as String + Dim i as integer + Dim bottom as String - '/// Apply border test , including - '/// + '---' , '___", "===", "***" , "~~~", "###" - printLog "Apply border" + bottom = "0" + gSeperator + "10" + gMeasurementUnit - Call hNewDocument + testList = Array( "---", "___", "===", "***", "~~~" , "###" ) - For i = 0 to j + '/// Apply border test , including + '/// + '---' , '___", "===", "***" , "~~~", "###" + printLog "Apply border" - '/// + T:Y (default) - testContent = testlist(i) + Call hNewDocument - Call wTypeKeys testContent - Call wTypeKeys "<Return><Up><Home><Shift End>" - try + For i = 0 to 5 + + printlog testlist(i) + printlog "- T:Y (default)" + testContent = testlist(i) + + Call wTypeKeys testContent + Call wTypeKeys "<Return><Up><Home><Shift End>" + try + EditCopy + Warnlog "Apply border is NOT correct when T:Y " +testlist(i) + catch + endcatch + + Call fFormatParagraph("TabUmrandung") + try + Unten.SetText bottom + catch + Warnlog "Apply border is NOT correct when T:Y " +testlist(i) + endcatch + TabUmrandung.Cancel + + Call wTypeKeys "<Down>" + + printlog "- T:N" + testContent = testlist(i) + hopeResult = testlist(i) + + Call fAutocorrectOptions("ApplyBorder",0,0) + Call wTypeKeys testContent + Call wTypeKeys "<Return><Up><Home><Shift End>" EditCopy - Warnlog "Apply border is NOT correct when T:Y " +testlist(i) - catch - endcatch - fFormatParagraph("TabUmrandung") - try - Unten.SetText bottom - catch - Warnlog "Apply border is NOT correct when T:Y " +testlist(i) - endcatch - TabUmrandung.Cancel + if GetClipboardText <> hopeResult then Warnlog "Something wrong when T:N "+testlist(i) - Call wTypeKeys "<Down>" + Call fFormatParagraph("TabUmrandung") + try + Unten.SetText bottom + Warnlog "Apply border is NOT correct when T:N "+testlist(i) + catch + endcatch + TabUmrandung.Cancel - '/// + T:N - testContent = testlist(i) - hopeResult = testlist(i) - - Call fAutocorrectOptions("ApplyBorder") - Call wTypeKeys testContent - Call wTypeKeys "<Return><Up><Home><Shift End>" - EditCopy - - if GetClipboardText <> hopeResult then Warnlog "Something wrong when T:N "+testlist(i) - - fFormatParagraph("TabUmrandung") - try - Unten.SetText bottom - Warnlog "Apply border is NOT correct when T:N "+testlist(i) - catch - endcatch - TabUmrandung.Cancel - - '/// Recover to the default - Call fAutocorrectOptions("ApplyBorder") + printlog "- Recover to the default" + Call fAutocorrectOptions("ApplyBorder",1,1) - next i + next i - Call hCloseDocument + Call hCloseDocument endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectOptions_14 +testcase tToolsAutocorrectOptions_10 - Dim testContent as String - Dim hopeResult as String + Dim testContent as String + Dim hopeResult as String - printLog "Create Table" - '/// Create Table - Call hNewDocument + printLog "Create Table" + '/// Create Table + Call hNewDocument '/// + T:Y (default) - testContent = "+---+" - Call wTypeKeys testContent - Call wTypeKeys "<Return><Up><Home><Shift End>" - try + testContent = "+---+" + Call wTypeKeys testContent + Call wTypeKeys "<Return><Up><Home><Shift End>" + try EditCopy Warnlog "Something wrong in create table T:Y" - catch - endcatch + catch + endcatch - try + try FormatRowDelete Sleep 1 - catch + catch Warnlog "Can't delete table ,T:Y" - endcatch + endcatch '/// + T:N - testContent = "+---+" - hopeResult = "+---+" + testContent = "+---+" + hopeResult = "+---+" - Call fAutocorrectOptions("CreateTable") - Call wTypeKeys testContent - Call wTypeKeys "<Return><Up><Home><Shift End>" - EditCopy + Call fAutocorrectOptions("CreateTable",0,0) + Call wTypeKeys testContent + Call wTypeKeys "<Return><Up><Home><Shift End>" + EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong when T:N" + if GetClipboardText <> hopeResult then Warnlog "Something wrong when T:N" - try + try FormatRowDelete Sleep 1 Warnlog "Should NOT generate table when T:N" - catch - endcatch + catch + endcatch '/// Recover to the default - Call fAutocorrectOptions("CreateTable") + Call fAutocorrectOptions("CreateTable",1,1) Call hCloseDocument @@ -1425,74 +1220,73 @@ endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectOptions_16 - - Dim testContent1 as String - Dim testContent2 as String - Dim hopeResultAfterAutoformat1 as String - Dim hopeResultAfterAutoformat2 as String +testcase tToolsAutocorrectOptions_11 - testContent1 = "ABCD1234" - testContent2 = "EFGH5678" + Dim testContent1 as String + Dim testContent2 as String + Dim hopeResultAfterAutoformat1 as String + Dim hopeResultAfterAutoformat2 as String - hopeResultAfterAutoformat1 = "ABCD1234" - hopeResultAfterAutoformat2 = "EFGH5678" + testContent1 = "ABCD1234" + testContent2 = "EFGH5678" + hopeResultAfterAutoformat1 = "ABCD1234" + hopeResultAfterAutoformat2 = "EFGH5678" - printLog "Remove Blank Paragraphs" - '/// Remove Blank Paragraphs + printLog "Remove Blank Paragraphs" + '/// Remove Blank Paragraphs - Call hNewDocument + Call hNewDocument '/// M:N (default) - wTypeKeys testContent1 - wTypeKeys "<Return>",2 - wTypeKeys testContent2 + Call wTypeKeys testContent1 + Call wTypeKeys "<Return>",2 + Call wTypeKeys testContent2 - FormatAutoformatApply + FormatAutoformatApply - wTypeKeys "<Up><Up><Home><Shift End>" - wait 200 - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat1 then Warnlog "the first line's content is NOT correct when M:N" + Call wTypeKeys "<Up><Up><Home><Shift End>" + wait 200 + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat1 then Warnlog "the first line's content is NOT correct when M:N" - wTypeKeys "<Down><Home><Shift End>" - try + Call wTypeKeys "<Down><Home><Shift End>" + try EditCopy Warnlog "the second line's content is NOT correct when M:N" - catch - endcatch + catch + endcatch - wTypeKeys "<Down><Home><Shift End>" - wait 200 - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat2 then Warnlog "the third line's content is NOT correct when M:N" + Call wTypeKeys "<Down><Home><Shift End>" + wait 200 + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat2 then Warnlog "the third line's content is NOT correct when M:N" Call hCloseDocument Call hNewDocument '/// M:Y - Call fAutocorrectOptions("RemoveBlankParagraphs") + Call fAutocorrectOptions("RemoveBlankParagraphs",1,1) - wTypeKeys testContent1 - wTypeKeys "<Return>",2 - wTypeKeys testContent2 + Call wTypeKeys testContent1 + Call wTypeKeys "<Return>",2 + Call wTypeKeys testContent2 - FormatAutoformatApply + FormatAutoformatApply - wTypeKeys "<Up><Up><Home><Shift End>" - wait 200 - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat1 then Warnlog "the first line's content is NOT correct when M:Y" + Call wTypeKeys "<Up><Up><Home><Shift End>" + wait 200 + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat1 then Warnlog "the first line's content is NOT correct when M:Y" - wTypeKeys "<Down><Home><Shift End>" - wait 200 - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat2 then Warnlog "the second line's content is NOT correct when M:Y" + Call wTypeKeys "<Down><Home><Shift End>" + wait 200 + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat2 then Warnlog "the second line's content is NOT correct when M:Y" '/// Recover to the default - Call fAutocorrectOptions("RemoveBlankParagraphs") + Call fAutocorrectOptions("RemoveBlankParagraphs",0,0) Call hCloseDocument @@ -1500,39 +1294,39 @@ endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectOptions_18 +testcase tToolsAutocorrectOptions_12 - Dim testContent as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String + Dim testContent as String + Dim hopeResultBeforeAutoformat as String + Dim hopeResultAfterAutoformat as String - printLog "Replace bullets with •" - '/// Replace bullets with • + printLog "Replace bullets with •" + '/// Replace bullets with • - Call hNewDocument + Call hNewDocument '/// M:Y (default) printLog "M:Y (default)" - testContent = "+ Hello" - hopeResultBeforeAutoformat = "+ Hello" - hopeResultAfterAutoformat = "• Hello" - - wTypeKeys testContent - wait 100 - wTypeKeys "<Shift Home>" - Sleep 1 - GetClipboardText = "" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "should NOT change before autoformat " + testContent = "+ Hello" + hopeResultBeforeAutoformat = "+ Hello" + hopeResultAfterAutoformat = "• Hello" - FormatAutoformatApply + Call wTypeKeys testContent + wait 100 + Call wTypeKeys "<Shift Home>" + Sleep 1 + GetClipboardText = "" + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "should NOT change before autoformat " - wTypeKeys "<Home><Shift End>" - Sleep 1 - GetClipboardText = "" - EditCopy - Sleep 1 - if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "should change after autoformat " + FormatAutoformatApply + + Call wTypeKeys "<Home><Shift End>" + Sleep 1 + GetClipboardText = "" + EditCopy + Sleep 1 + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "should change after autoformat " Call hCloseDocument @@ -1540,30 +1334,30 @@ testcase tToolsAutocorrectOptions_18 '/// M:N printLog "M:N" - testContent = "+ Hello" - hopeResultBeforeAutoformat = "+ Hello" - hopeResultAfterAutoformat = "+ Hello" + testContent = "+ Hello" + hopeResultBeforeAutoformat = "+ Hello" + hopeResultAfterAutoformat = "+ Hello" - Call fAutocorrectOptions("ReplaceBullets") + Call fAutocorrectOptions("ReplaceBullets",0,0) - wTypeKeys testContent - wait 100 - wTypeKeys "<Shift Home>" - Sleep 1 - GetClipboardText = "" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat " + Call wTypeKeys testContent + wait 100 + Call wTypeKeys "<Shift Home>" + Sleep 1 + GetClipboardText = "" + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat " - FormatAutoformatApply - Sleep 1 - wTypeKeys "<Home><Shift End>" - Sleep 1 - GetClipboardText = "" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should NOT change after autoformat " + FormatAutoformatApply + Sleep 1 + Call wTypeKeys "<Home><Shift End>" + Sleep 1 + GetClipboardText = "" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should NOT change after autoformat " '/// Recover to the default - Call fAutocorrectOptions("ReplaceBullets") + Call fAutocorrectOptions("ReplaceBullets",1,1) Call hCloseDocument @@ -1571,89 +1365,88 @@ endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectOptions_19 +testcase tToolsAutocorrectOptions_13 - Dim testContent as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String + Dim testContent as String + Dim hopeResultBeforeAutoformat as String + Dim hopeResultAfterAutoformat as String - printLog "Replace standard quotes with custom quotes" - '/// Replace standard quotes with custom quotes + printLog "Replace standard quotes with custom quotes" + '/// Replace standard quotes with custom quotes - Call hNewDocument + Call hNewDocument '/// M:Y (default) - testContent = "'" - hopeResultBeforeAutoformat = "'" - hopeResultAfterAutoformat = "[" - - ToolsAutoCorrect - Kontext - Active.SetPage TabTypografisch - Kontext "TabTypografisch" - EinfacheErsetzen.UnCheck - EinfachWortAnfang.Click - Kontext "Sonderzeichen" - Schriftliste.TypeKeys "<PageUp><Home>" - Schriftliste.TypeKeys "<Right>", 59 ' is [ - Schriftliste.TypeKeys "<Space>" - Sonderzeichen.OK - - Kontext "TabTypografisch" - TabTypografisch.OK - - wTypeKeys (testContent + "Hello") - wait 100 - wTypeKeys "<Home><Shift Right>" - Sleep 1 - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat " + testContent = "'" + hopeResultBeforeAutoformat = "'" + hopeResultAfterAutoformat = "[" - FormatAutoformatApply + ToolsAutoCorrect + Kontext + Active.SetPage TabLocalizedOptions + Kontext "TabLocalizedOptions" + SingleQuotesReplace.UnCheck + SingleQuotesStart.Click + Kontext "Sonderzeichen" + Schriftliste.TypeKeys "<PageUp><Home>" + Schriftliste.TypeKeys "<Right>", 59 ' is [ + Schriftliste.TypeKeys "<Space>" + Sonderzeichen.OK + + Kontext "TabLocalizedOptions" + TabLocalizedOptions.OK + + Call wTypeKeys (testContent + "Hello") + wait 100 + Call wTypeKeys "<Home><Shift Right>" + Sleep 1 + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat " - wTypeKeys "<Home><Shift Right>" - Sleep 1 - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should change after autoformat " + FormatAutoformatApply + + Call wTypeKeys "<Home><Shift Right>" + Sleep 1 + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should change after autoformat " Call hCloseDocument Call hNewDocument '/// M:N - testContent = "'" - hopeResultBeforeAutoformat = "'" - hopeResultAfterAutoformat = "'" + testContent = "'" + hopeResultBeforeAutoformat = "'" + hopeResultAfterAutoformat = "'" - Call fAutocorrectOptions("ReplaceQuotes") + Call fAutocorrectOptions("ReplaceQuotes",0,0) - wTypeKeys (testContent + "Hello") - wait 100 - wTypeKeys "<Home><Shift Right>" - Sleep 1 - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat " + Call wTypeKeys (testContent + "Hello") + wait 100 + Call wTypeKeys "<Home><Shift Right>" + Sleep 1 + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat " - FormatAutoformatApply + FormatAutoformatApply - wTypeKeys "<Home><Shift Right>" - Sleep 1 - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should NOT change after autoformat " + Call wTypeKeys "<Home><Shift Right>" + Sleep 1 + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should NOT change after autoformat " '/// Recover to the default - Call fAutocorrectOptions("ReplaceQuotes") + Call fAutocorrectOptions("ReplaceQuotes",1,1) - ToolsAutoCorrect - Kontext - Active.Setpage TabTypografisch - Kontext "TabTypografisch" - EinfacheErsetzen.Check - EinfachStandard.Click - wait 100 - TabTypografisch.OK + ToolsAutoCorrect + Kontext + Active.Setpage TabLocalizedOptions + Kontext "TabLocalizedOptions" + SingleQuotesReplace.Check + SingleQuotesDefault.Click + wait 100 + TabLocalizedOptions.OK Call hCloseDocument endcase - diff --git a/testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc b/testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc index e627b1632c62..cfa21c0ecd6a 100755 --- a/testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc +++ b/testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc @@ -35,86 +35,80 @@ '* '* short description : Test AutoCorrect/AutoFormat/Word Completion '* -'************************************************************************ -'* -' #1 tToolsAutocorrectWordCompletion_1 -' #1 tToolsAutocorrectWordCompletion_2 -' #1 tToolsAutocorrectWordCompletion_3 -' #1 tToolsAutocorrectWordCompletion_4 -' #1 tToolsAutocorrectWordCompletion_5 -'* '\*********************************************************************** -sub w_autocorrect_autoformat_2 +sub w_autocorrect2 printLog Chr(13) + "- Test the AutoCorrect/AutoFormat Word Completion features" Call tToolsAutocorrectWordCompletion_1 'Check the default settings Call tToolsAutocorrectWordCompletion_2 'Check entries Call tToolsAutocorrectWordCompletion_3 'Check list of suggestions can be "scrolled" Call tToolsAutocorrectWordCompletion_4 'Test Max entries - Call Ttoolsautocorrectwordcompletion_5 'Check 'When closing a document, save the list for later use in other documents' - + Call tToolsAutocorrectWordCompletion_5 'Check 'When closing a document, save the list for later use in other documents' + Call tToolsAutocorrectWordCompletion_6 + end sub '------------------------------------------------------------------------- testcase tToolsAutocorrectWordCompletion_1 - Dim iAcceptWith as String - Dim iEntriesNumber as Integer - Dim sMinWordLength as String - Dim sMaxEntries as String - Dim sMinMaxEntries as String - - iAcceptWith = 2 - iEntriesNumber = 0 - sMinWordLength = "10" - sMaxEntries = "500" - sMinMaxEntries = "50" - - 'Delete all entries in the list - fDeleteAllEntries() - - printLog "Check the default settings" - '/// Check the default settings - '/// - Check box "Enable word completion" (default: checked) - '/// - Check box "Append Space" (default: unchecked) - '/// - Check box "Show as tip" (default: unchecked) - '/// - Check box "Collect Words" (default: checked) - '/// - Check box "When closing a document, save the list for later use in other documents" (default: checked) - '/// - List box "Accept with" (Default = "Return") - '/// - Spin box "minimal number of characters" default = 10 - '/// - Spin box "Max. entries" (default =500, minimum = 50) - '/// - Box: "List of words collected" -- should be empty after Office restart. - - Call hNewDocument - - ToolsAutocorrect - Active.Setpage TabWortergaenzung - Kontext "TabWortergaenzung" - - if WoerterErgaenzen.IsChecked <> TRUE then Warnlog "Complete words should be checked ." - if AppendSpace.IsChecked = TRUE then Warnlog "Append space should be UNchecked ." - if AlsTipphilfe.IsChecked = TRUE then Warnlog "Show as tip should be UNchecked ." - if VorschlaegeSammeln.IsChecked <> TRUE then Warnlog "Collect suggestions should be checked ." - if KeepList.IsChecked <> TRUE then Warnlog "When closing a document, save the list for later use in other documents should be checked ." - if AnnehmenMit.GetSelIndex <> iAcceptWith then Warnlog "The Accept with should be 'Enter' ." - if MinWortlaenge.GetText <> sMinWordLength then Warnlog "#i40540# Min word length should be " + sMinWordLength - if MaxEintraege.GetText <> sMaxEntries then Warnlog "Max entries should be " + sMaxEntries - if GesammelteWorte.GetItemCount <> iEntriesNumber then Warnlog "Entries number should be " + iEntriesNumber - - MaxEintraege.SetText "49" - - TabWortergaenzung.OK - - ToolsAutocorrect - Active.Setpage TabWortergaenzung - Kontext "TabWortergaenzung" - if MaxEintraege.GetText <> sMinMaxEntries then Warnlog "Max entries should be " + sMinMaxEntries - MaxEintraege.SetText sMaxEntries - TabWortergaenzung.OK - - Call hCloseDocument + Dim iAcceptWith as String + Dim iEntriesNumber as Integer + Dim sMinWordLength as String + Dim sMaxEntries as String + Dim sMinMaxEntries as String + + iAcceptWith = 2 + iEntriesNumber = 0 + sMinWordLength = "10" + sMaxEntries = "500" + sMinMaxEntries = "50" + + printLog "Check the default settings" + '/// Check the default settings + '/// - Check box "Enable word completion" (default: checked) + '/// - Check box "Append Space" (default: unchecked) + '/// - Check box "Show as tip" (default: unchecked) + '/// - Check box "Collect Words" (default: checked) + '/// - Check box "When closing a document, remove the words collected from it from the list" (default: unchecked) + '/// - List box "Accept with" (Default = "Return") + '/// - Spin box "minimal number of characters" default = 10 + '/// - Spin box "Max. entries" (default =500, minimum = 50) + '/// - Box: "List of words collected" -- should be empty after Office restart. + + Call hNewDocument + 'Delete all entries in the list + Call fDeleteAllEntries() + + ToolsAutocorrect + Kontext + Active.Setpage TabWortergaenzung + Kontext "TabWortergaenzung" + + if WoerterErgaenzen.IsChecked = False then Warnlog "Complete words should be checked ." + if AppendSpace.IsChecked = TRUE then Warnlog "Append space should be UNchecked ." + if AlsTipphilfe.IsChecked = TRUE then Warnlog "Show as tip should be UNchecked ." + if VorschlaegeSammeln.IsChecked <> TRUE then Warnlog "Collect suggestions should be checked ." + if KeepList.IsChecked = TRUE then Warnlog "When closing a document, remove the words collected from it from the list should be unchecked ." + if AnnehmenMit.GetSelIndex <> iAcceptWith then Warnlog "The Accept with should be 'Enter' ." + if MinWortlaenge.GetText <> sMinWordLength then Warnlog "Min word length should be " + sMinWordLength + if MaxEintraege.GetText <> sMaxEntries then Warnlog "Max entries should be " + sMaxEntries + if GesammelteWorte.GetItemCount <> iEntriesNumber then Warnlog "Entries number should be " + iEntriesNumber + + MaxEintraege.SetText "49" + + TabWortergaenzung.OK + + ToolsAutocorrect + Kontext + Active.Setpage TabWortergaenzung + Kontext "TabWortergaenzung" + if MaxEintraege.GetText <> sMinMaxEntries then Warnlog "Max entries should be " + sMinMaxEntries + MaxEintraege.SetText sMaxEntries + TabWortergaenzung.OK + + Call hCloseDocument endcase @@ -122,66 +116,68 @@ endcase testcase tToolsAutocorrectWordCompletion_2 - Dim iDefaultEntriesNumber as Integer - Dim iEntriesNumber as Integer - Dim i as Integer - Dim sMinWordLength as String - - iDefaultEntriesNumber = 0 - iEntriesNumber = 3 - sMinWordLength = "5" - - 'Delete all entries in the list - fDeleteAllEntries() - - printLog "Check the default settings" - '/// Check entries - '/// delete all entries first - '/// input some test words - '/// check if some words should are remembered in the entries - '/// delete all entries - '/// close and reopen dialog, check entries again - - Call hNewDocument - - ToolsAutocorrect - Active.Setpage TabWortergaenzung - Kontext "TabWortergaenzung" - if GesammelteWorte.GetItemCount <> iDefaultEntriesNumber then - Warnlog "Entries number should be " + iDefaultEntriesNumber - Warnlog "No test for this case" - TabWortergaenzung.Cancel - Goto NoTest - end if - MinWortlaenge.SetText sMinWordLength - TabWortergaenzung.OK - - Call wTypeKeys "Hello World ! This is a StarOffice Test .<Return>" + Dim iDefaultEntriesNumber as Integer + Dim iEntriesNumber as Integer + Dim i as Integer + Dim sMinWordLength as String + + iDefaultEntriesNumber = 0 + iEntriesNumber = 3 + sMinWordLength = "5" + + printLog "Check the default settings" + '/// Check entries + '/// delete all entries first + '/// input some test words + '/// check if some words should are remembered in the entries + '/// delete all entries + '/// close and reopen dialog, check entries again + + Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01.odt" ) + Call sMakeReadOnlyDocumentEditable + 'Delete all entries in the list + Call fDeleteAllEntries() + + ToolsAutocorrect + Kontext + Active.Setpage TabWortergaenzung + Kontext "TabWortergaenzung" + if GesammelteWorte.GetItemCount <> 0 then + Warnlog "Entries number should be " + iDefaultEntriesNumber + Warnlog "No test for this case" + TabWortergaenzung.Cancel + Call hCloseDocument + end if + MinWortlaenge.SetText sMinWordLength + TabWortergaenzung.OK + + Call wTypeKeys "Hello World ! This is a OpenOffice.org Test .<Return>" Sleep 3 ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" - if GesammelteWorte.GetItemCount <> iEntriesNumber then Warnlog "Entries number should be " + iEntriesNumber - for i = 1 to GesammelteWorte.GetItemCount - GesammelteWorte.Select 1 - if EintragLoeschen.IsEnabled then - EintragLoeschen.Click - else - i = GesammelteWorte.GetItemCount + 1 - end if - next i - TabWortergaenzung.OK - Sleep 1 + if GesammelteWorte.GetItemCount <> 3 then Warnlog "Entries number should be " + iEntriesNumber + for i = 1 to GesammelteWorte.GetItemCount + GesammelteWorte.Select 1 + if EintragLoeschen.IsEnabled then + EintragLoeschen.Click + else + i = GesammelteWorte.GetItemCount + 1 + end if + next i + TabWortergaenzung.OK + Sleep 1 ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" - if GesammelteWorte.GetItemCount <> iDefaultEntriesNumber then Warnlog "Entries number should be " + iDefaultEntriesNumber + if GesammelteWorte.GetItemCount <> 0 then Warnlog "Entries number should be " + 0 TabWortergaenzung.Cancel -NoTest: - Call hCloseDocument + Call hCloseDocument endcase @@ -189,101 +185,78 @@ endcase testcase tToolsAutocorrectWordCompletion_3 - Dim aTestWord() as String - Dim sPartOfTestWord as String - Dim i as Integer - Dim j as Integer - - aTestWord = Array( _ - "accessibility" , _ - "accomplish" , _ - "account" , _ - ) - j = UBound(aTestWord) + Dim aTestWord() as String + Dim sPartOfTestWord as String + Dim i as Integer + Dim j as integer - sPartOfTestWord = "acc" - - printLog "Check list of suggestions can be 'scrolled'" - '/// Check list of suggestions can be 'scrolled' + aTestWord = Array( "accessibility", "accomplish", "accounting" ) + + sPartOfTestWord = "acc" - '/// input some test words with first 3 letters are same - '/// forward with <CTRL-Tab> - '/// backwards with <SHIFT-CTRL-Tab> - '/// endless loop test + printLog "Check list of suggestions can be 'scrolled'" + '/// Check list of suggestions can be 'scrolled' - 'Delete all entries in the list - fDeleteAllEntries() + '/// input some test words with first 3 letters are same + '/// forward with <CTRL-Tab> + '/// backwards with <SHIFT-CTRL-Tab> + '/// endless loop test - Call hNewDocument + Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01.odt" ) + Call sMakeReadOnlyDocumentEditable + 'Delete all entries in the list + Call fDeleteAllEntries() - 'forward with <CTRL-Tab> - For i = 0 to j + 'forward with <CTRL-Tab> + For i = 0 to 2 Call wTypeKeys aTestWord(i) Call wTypeKeys "<Return>" next i Sleep 2 - For i = 0 to j + For i = 0 to 2 Call wTypeKeys sPartOfTestWord - if i > 0 then Call wTypeKeys "<MOD1 TAB>", i Sleep 2 - Call wTypeKeys "<Return>" - Sleep 2 Call wTypeKeys "<Shift Home>" - Sleep 2 EditCopy - Sleep 2 if GetClipboardText <> aTestWord(i) then Warnlog "#102535# Should be " +aTestWord(i) +" but get " +GetClipboardText Call wTypeKeys "<Delete>" next i - 'endless loop test + 'endless loop test Call wTypeKeys sPartOfTestWord - Call wTypeKeys "<MOD1 TAB>", j+1 - Sleep 2 + Call wTypeKeys "<MOD1 TAB>", 3 Call wTypeKeys "<Return>" - Sleep 2 Call wTypeKeys "<Shift Home>" - Sleep 2 EditCopy - Sleep 2 if GetClipboardText <> aTestWord(0) then Warnlog "#102535# Should be " +aTestWord(0) +" but get " +GetClipboardText Call wTypeKeys "<Delete>" - 'backwards with <SHIFT-CTRL-Tab> + 'backwards with <SHIFT-CTRL-Tab> + j = UBound (aTestWord) + For i = j to 0 step -1 Call wTypeKeys sPartOfTestWord - Call wTypeKeys "<MOD1 TAB>", j - if i > 0 then Call wTypeKeys "<Shift MOD1 TAB>", i - - Sleep 2 Call wTypeKeys "<Return>" - Sleep 2 Call wTypeKeys "<Shift Home>" - Sleep 2 EditCopy - Sleep 2 if GetClipboardText <> aTestWord(j-i) then Warnlog "#102535# Should be " +aTestWord(j-i) +" but get " +GetClipboardText Call wTypeKeys "<Delete>" next i - 'endless loop test + 'endless loop test Call wTypeKeys sPartOfTestWord Call wTypeKeys "<Shift MOD1 TAB>" - Sleep 2 Call wTypeKeys "<Return>" - Sleep 2 Call wTypeKeys "<Shift Home>" - Sleep 2 EditCopy - Sleep 2 - if GetClipboardText <> aTestWord(j) then Warnlog "#102535# Should be " +aTestWord(j) +" but get " +GetClipboardText + if GetClipboardText <> "accounting" then Warnlog "#102535# Should be 'accounting' but get " +GetClipboardText - Call hCloseDocument + Call hCloseDocument endcase @@ -291,48 +264,50 @@ endcase testcase tToolsAutocorrectWordCompletion_4 - Dim sDefaultMaxEntries as String - Dim sTestMaxEntries as String - Dim sTestFile as String - Dim iTestMaxEntries as Integer + Dim sDefaultMaxEntries as String + Dim sTestMaxEntries as String + Dim sTestFile as String + Dim iTestMaxEntries as Integer - sDefaultMaxEntries = "500" - sTestMaxEntries = "50" - sTestFile = "tToolsAutocorrectWordCompletion_4.sxw" - iTestMaxEntries = 50 + sDefaultMaxEntries = "500" + sTestMaxEntries = "50" + sTestFile = "tToolsAutocorrectWordCompletion_4.sxw" + iTestMaxEntries = 50 - printLog "Test Max entries" - '/// Test Max entries + printLog "Test Max entries" + '/// Test Max entries - '/// Delete all entries in the list - '/// set Max entries to 50 - '/// Open the test file ( The entries number is > 50 when Max entries is 500) - '/// check the number of entries. + '/// Delete all entries in the list + '/// set Max entries to 50 + '/// Open the test file ( The entries number is > 50 when Max entries is 500) + '/// check the number of entries. - 'Delete all entries in the list - fDeleteAllEntries() - - Call hNewDocument + Call hNewDocument + 'Delete all entries in the list + Call fDeleteAllEntries() ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" MaxEintraege.SetText sTestMaxEntries TabWortergaenzung.OK Call hFileOpen ( gTesttoolPath + "writer\optional\input\advanced\" + sTestFile ) + Call sMakeReadOnlyDocumentEditable Sleep 4 ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" if GesammelteWorte.GetItemCount > iTestMaxEntries then Warnlog "Entries number should be less than " + iTestMaxEntries - 'Recover to default - MaxEintraege.SetText sDefaultMaxEntries - TabWortergaenzung.OK + 'Recover to default + MaxEintraege.SetText sDefaultMaxEntries + TabWortergaenzung.OK - Call hCloseDocument + Call hCloseDocument endcase @@ -340,154 +315,166 @@ endcase testcase tToolsAutocorrectWordCompletion_5 - Dim sTestWord1 as String - Dim sTestWord2 as String - Dim sTestWord3 as String - Dim iEntriesNumber_Checked as Integer - Dim iEntriesNumber_UnChecked as Integer - - sTestWord1 = "kilometer " - sTestWord2 = "entertainment " - sTestWord3 = "education " - iEntriesNumber_Checked = 3 - iEntriesNumber_UnChecked = 1 - - printLog "Check 'When closing a document, save the list for later use in other documents'" - '/// Check 'When closing a document, save the list for later use in other documents' - '/// delete all entries first. - '/// 1) check when the checkbox is checked - '/// a) Open a file, type "kilometer" - '/// b) Open 2nd file, type "entertainment" and "education" - '/// c) Close 2nd file, the number of entries in first file should be 3 - '/// 2) check when the checkbox is Unchecked - '/// delete all entries , and Uncheck the testing checkbox - '/// a) Open a file, type "kilometer" - '/// b) Open 2nd file, type "entertainment" and "education" - '/// c) Close 2nd file, the number of entries in first file should be 1 - - 'Test when checkbox is checkec -- default - - 'Open 1st file - Call hNewDocument + Dim sTestWord1 as String + Dim sTestWord2 as String + Dim sTestWord3 as String + Dim iEntriesNumber_Checked as Integer + Dim iEntriesNumber_UnChecked as Integer + + sTestWord1 = "kilometer " + sTestWord2 = "entertainment " + sTestWord3 = "education " + iEntriesNumber_Checked = 3 + iEntriesNumber_UnChecked = 1 + + printLog "Check 'When closing a document, remove the words collected from it from the list'" + '/// Check 'When closing a document, remove the words collected from it from the list' + '/// delete all entries first. + '/// 1) check when the checkbox is unchecked + '/// a) Open a file, type "kilometer" + '/// b) Open 2nd file, type "entertainment" and "education" + '/// c) Close 2nd file, the number of entries in first file should be 3 + '/// 2) check when the checkbox is checked + '/// delete all entries , and Uncheck the testing checkbox + '/// a) Open a file, type "kilometer" + '/// b) Open 2nd file, type "entertainment" and "education" + '/// c) Close 2nd file, the number of entries in first file should be 1 + + 'Test when checkbox is checkec -- default + + 'Open 1st file + Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01.odt" ) + Call sMakeReadOnlyDocumentEditable 'Delete all entries in the list - fDeleteAllEntries() + Call fDeleteAllEntries() - Call wTypeKeys sTestWord1 + ' check checkbox + ToolsAutocorrect + Kontext + Active.Setpage TabWortergaenzung + Kontext "TabWortergaenzung" + MinWortlaenge.SetText "5" + KeepList.UnCheck + TabWortergaenzung.Ok + + Call wTypeKeys sTestWord1 'Open 2nd file - Call hNewDocument + Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01-01.odt" ) + Call sMakeReadOnlyDocumentEditable - Call wTypeKeys sTestWord2 - Call wTypeKeys sTestWord3 + Call wTypeKeys sTestWord2 + Call wTypeKeys sTestWord3 ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" - if GesammelteWorte.GetItemCount <> iEntriesNumber_Checked then - Warnlog "Checked:Entries number should be equal " + iEntriesNumber_Checked + " in 2nd file ,but get " +GesammelteWorte.GetItemCount + if GesammelteWorte.GetItemCount <> 3 then + Warnlog "Checked:Entries number should be equal 3 in 2nd file ,but get " + GesammelteWorte.GetItemCount end if TabWortergaenzung.Cancel 'Close 2nd file - Call hCloseDocument + Call hCloseDocument ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" - if GesammelteWorte.GetItemCount <> iEntriesNumber_Checked then - Warnlog "Checked:Entries number should be equal " + iEntriesNumber_Checked + " in 1st file ,but get " +GesammelteWorte.GetItemCount - end if - TabWortergaenzung.Cancel + if GesammelteWorte.GetItemCount <> 3 then + Warnlog "Checked:Entries number should be equal 3 in 1st file ,but get " + GesammelteWorte.GetItemCount + end if + TabWortergaenzung.Cancel - Call hCloseDocument + Call hCloseDocument - 'Test when checkbox is Unchecked - 'Open 1st file - Call hNewDocument + 'Test when checkbox is Checked + 'Open 1st file + Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01.odt" ) + Call sMakeReadOnlyDocumentEditable 'Delete all entries in the list - fDeleteAllEntries() + fDeleteAllEntries() ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" - KeepList.Uncheck - TabWortergaenzung.OK + KeepList.Check + TabWortergaenzung.OK - Call wTypeKeys sTestWord1 + Call wTypeKeys sTestWord1 'Open 2nd file - Call hNewDocument + Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01-01.odt" ) + Call sMakeReadOnlyDocumentEditable - Call wTypeKeys sTestWord2 - Call wTypeKeys sTestWord3 + Call wTypeKeys sTestWord2 + Call wTypeKeys sTestWord3 ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" - if GesammelteWorte.GetItemCount <> iEntriesNumber_Checked then - Warnlog "UnChecked:Entries number should be equal " + iEntriesNumber_Checked + " in 2nd file ,but get " +GesammelteWorte.GetItemCount + if GesammelteWorte.GetItemCount <> 3 then + Warnlog "UnChecked:Entries number should be equal 3 in 2nd file ,but get " + GesammelteWorte.GetItemCount end if TabWortergaenzung.Cancel 'Close 2nd file - Call hCloseDocument + Call hCloseDocument ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" - if GesammelteWorte.GetItemCount <> iEntriesNumber_UnChecked then - Warnlog "UnChecked:Entries number should be equal " + iEntriesNumber_UnChecked + " in 2nd file ,but get " +GesammelteWorte.GetItemCount + if GesammelteWorte.GetItemCount <> 1 then + Warnlog "UnChecked:Entries number should be equal 1 in 2nd file ,but get " +GesammelteWorte.GetItemCount end if TabWortergaenzung.Cancel - 'Recover to the default - ToolsAutocorrect - Active.Setpage TabWortergaenzung - Kontext "TabWortergaenzung" - KeepList.Check - TabWortergaenzung.OK - - 'Close 1st file - Call hCloseDocument + 'Close 1st file + Call hCloseDocument endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectWordCompletion_x +testcase tToolsAutocorrectWordCompletion_6 - Dim sTestWord as String - Dim sPartOfTestWord as String + Dim sTestWord as String + Dim sPartOfTestWord as String - sTestWord = "StarOffice" - sPartOfTestWord = "Sta" + sTestWord = "OpenOffice.org" + sPartOfTestWord = "Ope" - printLog "Check Show as Tip" - '/// Check Show as Tip + printLog "Check Show as Tip" + '/// Check Show as Tip - '/// When uncheck ( default) , the left word will be highlight - '/// When check , the left word will NOT be appeared, <--- can test - '/// and a help tip will appear <--- no way to test yet + '/// When uncheck ( default) , the left word will be highlight + '/// When check , the left word will NOT be appeared, <--- can test + '/// and a help tip will appear <--- no way to test yet - 'Show as Tip -- uncheck (default) - Call hNewDocument + 'Show as Tip -- uncheck (default) + Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01.odt" ) + Call sMakeReadOnlyDocumentEditable - Call wTypeKeys sTestWord - Call wTypeKeys "<Return>" - Sleep 1 - Call wTypeKeys sPartOfTestWord - Sleep 4 - Call wTypeKeys "<Return>" - Call wTypeKeys "<Shift Home>" + Call wTypeKeys sTestWord + Call wTypeKeys "<Return>" + Sleep 1 + Call wTypeKeys sPartOfTestWord + Sleep 4 + Call wTypeKeys "<Return>" + Call wTypeKeys "<Shift Home>" - Sleep 1 - Call wTypeKeys "StaS" - Sleep 4 - Call wTypeKeys "<Return>" + Sleep 1 + Call wTypeKeys "StaS" + Sleep 4 + Call wTypeKeys "<Return>" - Call hCloseDocument + Call hCloseDocument endcase diff --git a/testautomation/writer/optional/includes/tools/tools1.inc b/testautomation/writer/optional/includes/tools/tools1.inc index 4c0231a4fa16..f55322f2ffbc 100755 --- a/testautomation/writer/optional/includes/tools/tools1.inc +++ b/testautomation/writer/optional/includes/tools/tools1.inc @@ -319,7 +319,7 @@ function fToolsAutocorrect(Options as string) case "TabErsetzung" : active.SetPage TabErsetzung case "TabAusnahmen" : active.SetPage TabAusnahmen case "TabOptionenAutokorrektur" : active.SetPage TabOptionenAutokorrektur - case "TabTypografisch" : active.SetPage TabTypografisch + case "TabLocalizedOptions" : active.SetPage TabLocalizedOptions case "TabWortergaenzung" : active.SetPage TabWortergaenzung end Select diff --git a/testautomation/writer/optional/input/autocorrection/01-01.odt b/testautomation/writer/optional/input/autocorrection/01-01.odt Binary files differnew file mode 100644 index 000000000000..584bf749eaa9 --- /dev/null +++ b/testautomation/writer/optional/input/autocorrection/01-01.odt diff --git a/testautomation/writer/optional/input/autocorrection/01.odt b/testautomation/writer/optional/input/autocorrection/01.odt Binary files differnew file mode 100644 index 000000000000..97e76c18a1f1 --- /dev/null +++ b/testautomation/writer/optional/input/autocorrection/01.odt diff --git a/testautomation/writer/optional/w_autocorrection.bas b/testautomation/writer/optional/w_autocorrection.bas new file mode 100644 index 000000000000..a8549293f681 --- /dev/null +++ b/testautomation/writer/optional/w_autocorrection.bas @@ -0,0 +1,78 @@ +'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 +'* +'* $RCSfile: w_drawing_tools.bas,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:25 $ +'* +'* This file is part of OpenOffice.org. +'* +'* OpenOffice.org is free software: you can redistribute it and/or modify +'* it under the terms of the GNU Lesser General Public License version 3 +'* only, as published by the Free Software Foundation. +'* +'* OpenOffice.org is distributed in the hope that it will be useful, +'* but WITHOUT ANY WARRANTY; without even the implied warranty of +'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +'* GNU Lesser General Public License version 3 for more details +'* (a copy is included in the LICENSE file that accompanied this code). +'* +'* You should have received a copy of the GNU Lesser General Public License +'* version 3 along with OpenOffice.org. If not, see +'* <http://www.openoffice.org/license.html> +'* for a copy of the LGPLv3 License. +'* +'/************************************************************************ +'* +'* owner : helge.delfs@sun.com +'* +'* short description : Tools / Autocorrection test +'* +'\******************************************************************* + +global gSeperator as String +global gMeasurementUnit as String + +sub main + Dim StartZeit + StartZeit = Now() + + use "writer\tools\includes\w_tools.inc" + use "writer\tools\includes\w_tool3.inc" + use "writer\tools\includes\w_tools_autocorrection.inc" + use "writer\optional\includes\autocorrection\w_autocorrect1.inc" + use "writer\optional\includes\autocorrection\w_autocorrect2.inc" + + printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit ) + printlog Chr(13) + "******* Writer - Autocorrection - Test *******" + 'Getting the decimal seperator from global function + gSeperator = GetDecimalSeperator() + 'Setting the measurement unit to centimeters. + gMeasurementUnit = fSetMeasurementToCM() + + Call hStatusIn ( "writer" , "w_autocorrection.bas" ) + + Call w_autocorrect1 + Call w_autocorrect2 + + Call hStatusOut + + Printlog Chr(13) + "End of Autocorrect - Test :" + Printlog "Duration: "+ WieLange ( StartZeit ) + Printlog "Date: " + Date + " Time: " + Time + +end sub + +sub LoadIncludeFiles + use "global\system\includes\master.inc" + use "global\system\includes\gvariabl.inc" + Call GetUseFiles + gApplication = "WRITER" +end sub |